Hilfe komme nicht weiter

1. offizieller Beitrag

    Hi Leute ich habe schon ein paar einfach scripte geschrieben aber ich habe immer was zum mekern gefunden.

    So auch bei mein neuen Projekt und zwa habe ich ein Script geschrieben der bei I-net explorer in einer bestimmten intervalle (was man vorher festlegen kann) F5 sendet, also zum aktualiesieren jetzt ist es aber so das ich die seite nicht immer im vordergrund habe.

    jetzt zu meiner frage: kann ich denn script so an die seite binden, so das nur die seite aktualiesiert wird und das auch noch wenn die seite im hintergrund läuft???


    MFG Black Angel

    ähmm... peinlich aber nein und ähmmm... noch peinlicher wo finde ich die???

    OK ich dank euch aufjedenfall hab da ein haufen gute tips gefunden aber mein anliegen konnte ich noch nicht finden.

    könnt ihr mir noch ein kleinen winck gebe der mir zeit wo ich es finde

    Spoiler anzeigen
    [autoit]

    #include <ie.au3>
    $oIE=_IECreate("www.google.de",0,1) ;hintere Zahl: Fenster bei 1=sichtbar 0=unsichtbar
    while 1
    sleep(60000) ;60 sekunden
    _IEAction($oIE,"refresh") ;refresh
    wend

    [/autoit]


    Ganz einfaches Beispiel

    Ich frag mich nur, für was das gut sein soll. Was bringt es dir, eine Seite ständig zu refreshen?

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

    Danke qaywsx

    dies hilft mir echt weiter, jetzt ist nur das probem das ich das Programm erst aktiviren möchte wenn ich mit der seite schon was gemacht habe, aber das kann ich selber lösen.

    Andere Frage: gibt es die möglichkeit eine WebSeite aus zu lesen und wenn sich ein wert ändert z.B. man bekommt eine eMail bei web.de, dies mit ein akustichen signal ein daruaf hinweisst? (das man akustiche signale einbauen kann weiss ich aber nich ob man eine webseite auslesen kann)

    Andere Frage: gibt es die möglichkeit eine WebSeite aus zu lesen und wenn sich ein wert ändert z.B. man bekommt eine eMail bei web.de, dies mit ein akustichen signal ein daruaf hinweisst? (das man akustiche signale einbauen kann weiss ich aber nich ob man eine webseite auslesen kann)

    Ich dachte mir ich Arbeite hier mit:

    [autoit]

    #include <IE.au3>
    $oIE = _IEAttach ( "1 Mails","text")
    MsgBox(0, "Test:", _IEPropertyGet ($oIE, "locationurl"))

    [/autoit]

    Aber da haben sich bei mir zwei Probleme offenbart

    Problem 1: Mein kleines Programm soll mir nur eine MsgBox anzeigen wenn der wert auch zutrifft (wert=1 Mail) aber leider wirft er mir auch eine MsgBox raus wenn er diesen wert nicht findet, wie kann man das lösen???

    Problem 2: dazu soll er wenn dieser Wert ereich wir ein sound abspielen z.b. SoundPlay(@WindowsDir & "\media\tada.wav",1), problem dabei ist es aber das er den sound immer spiel.

    Mit diesem Code-Schnipsel wird das nix.

    Schau einmal in der AutoIt-Hilfe unter den Begriffen:
    While,Do,If,Select,Switch.... Dazu am besten noch _InetGetSource().

    Wenn Du die dort aufgeführten Beispiele verstanden hast, hat sich ganz sicher auch die obige Frage erledigt.

    Zur Nutzung dieses Forum's, ist ein Übersetzer für folgende Begriffe unerlässlich:

    "On-Bort, weier, verscheiden, schädliges, Butten steyling, näckstet, Parr, Porblem, scripe, Kompletenz, harken, manuel zu extramieren, geckukt, würglich, excell, acces oder Compilevorgeng"

    Um Mails zu verschicken brauchst du _INetSmtpMailCom

    vielleicht hilft dir das ja weiter

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Global $oMyRet[2]
    Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Email versender", 396, 294)
    $Input1 = GUICtrlCreateInput("", 8, 40, 121, 21)
    $Input2 = GUICtrlCreateInput("", 248, 40, 121, 21)
    $Label1 = GUICtrlCreateLabel("Mail sever: Für http://www.web.de ist er smtp.web.de ", 8, 16, 229, 17)
    $Label2 = GUICtrlCreateLabel("Name des Absenders", 248, 16, 105, 17)
    $Label3 = GUICtrlCreateLabel("Absender email addresse", 8, 72, 122, 17)
    $Input3 = GUICtrlCreateInput("", 8, 96, 121, 21)
    $Input4 = GUICtrlCreateInput("", 248, 96, 121, 21)
    $Label4 = GUICtrlCreateLabel("Empfänger email addresse", 248, 72, 128, 17)
    $Input5 = GUICtrlCreateInput("", 8, 152, 121, 21)
    $Label5 = GUICtrlCreateLabel("Betreff", 8, 128, 35, 17)
    $Label6 = GUICtrlCreateLabel(" Text ", 248, 128, 34, 17)
    $Input6 = GUICtrlCreateInput("", 248, 152, 121, 21)
    $Label7 = GUICtrlCreateLabel("Nochmal Absender email", 8, 184, 121, 17)
    $Input7 = GUICtrlCreateInput("", 8, 208, 121, 21)
    $Input8 = GUICtrlCreateInput("", 248, 208, 121, 21)
    $Label8 = GUICtrlCreateLabel("Passwort der Absender email", 248, 184, 140, 17)
    $Button1 = GUICtrlCreateButton("Email versenden", 152, 248, 100, 25, 0)
    $Button2 = GUICtrlCreateButton("Abbrechen", 312, 256, 75, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $rc = _INetSmtpMailCom(GUICtrlRead( $Input1),GUICtrlRead($Input2),GUICtrlRead($Input3), GUICtrlRead($Input4), GUICtrlRead($Input5), GUICtrlRead($Input6), "", "","", GUICtrlRead($Input7), GUICtrlRead($Input8))
    If @error then
    msgbox(0,"Error sending message","Error code:" & @error & " Description:" & $rc)
    EndIf
    Case $Button2
    Exit
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]


    Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "")
    $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Cc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
    $objEmail.HTMLBody = $as_Body
    Else
    $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
    Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
    For $ex = 1 To $S_Files2Attach[0]
    $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
    If FileExists($S_Files2Attach[$x]) Then
    $objEmail.AddAttachment ($S_Files2Attach[$x])
    Else
    $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
    SetError(1)
    return 0
    EndIf
    Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    ;Authenticated SMTP
    If $s_Username <> "" Then
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Sent the Message
    $objEmail.Send
    if @error then
    SetError(2)
    return $oMyRet[1]
    EndIf
    EndFunc;==>_INetSmtpMailCom
    ;
    ;
    ; Com Error Handler
    Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description,3)
    ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
    EndFunc;==>MyErrFunc

    [/autoit]