Beiträge von autoBert

  • Position der InputBox ermitteln

    Hallo zapp,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deiner Frage: speichere die X/Y-Positionen mit IniWrite mit IniRead kannst du sie wieder einlesen.

    Was das ganze aber mit adlibregister zu tun haben soll ist mir schleierhaft, vielleicht erklärst du ja dein Vorhaben.

    mfg autoBert

  • bbm1995 ist 16

    Herzliche Glückwünsche, Gesundheit und Glück in allen Lebenslagen. :party:
    Und ab heute darfst du (wenn das Jugendschutzgesetz nicht geändert wurde) auch offiziel und ohne Erziehungsberechtigten in der Öffentlichkeit Bier trinken, aber nicht übertreiben nach 16 Jahren Milch.

    mfg autoBert

  • Hilfe hartnäckige MalWare eingefangen

    Hallo name22,

    die Überscrift stimmt nur dass ich mir die btf.exe im Internet und nicht über einen USB-Stick geholt habe, wenn ich die Seite richtig verstehe wird damit eine Lücke in autorun,inf beseitigt. diese Funktion ist bei mir durch Avira schon seit Monaten stillgelegt.
    Der einzigste Ordner in dem noch Verknüpfungen funktionieren ist der Ordner des Users, alle anderen Verknüpfungen sind tot. Dank einer HTML-Datei darin konnte ich Firefox starten und die verdächtige Datei analysieren lassen. Hier der Link: http://www.virustotal.com/file-scan/repo…c935-1305322266
    Ist die Seite vertrauenswürdig?

    @Sprenger: ich gehe davon aus dass mir mit einer fiesen Masche ein bestenfalls Placebo-Virenscanner angedreht werden sollte.

    @All eigentlich suche ich nach einer Möglichkeit einen USB-Stick bootfähig zu machen und mit einem XP-Installations ISO zu beschreiben, damit ich den Rechner plattmachen kann. Ausser dem BS ist eh alles Open-Source, meine wichtigsten AutoIt Skripte sind im Netz gesichert.

    mfg autoBert

  • Hilfe hartnäckige MalWare eingefangen

    Hallo com,

    ich bin heute mittag bei INet-Recherchen auf ein Gästebuch gestossen, dass gekapert aussah. Dummerweise bin ich aus Neugier einem Link gefolgt. Kurz danach crasht derFF und eine Warnmeldung eines mir unbekannten Virusprogrammes (XP Antivirus 2011 ?) erscheint und meldet ich hätte Viren auf dem NetBook. Da habe ich zuerst meinen Web'n'Walk Stick gezogen damit nichts nachgeladen werden kann habe einen Screenshot gemacht, Registrycleaner angeworfen und danach den Cache-Cleaner. Danach mich auf die Suche nach dem Schädling begeben, ich glaube ihn auch entlarvt zu haben: btf.exe 222 kb, jedenfalls waren die nervigen Meldungen weg. Nach Neustart wollte ich mein Avira wieder starten dass er ausgehebelt hatte, ging nicht. Ich kann weder einen Link noch über Doppelklick im Explorer und auch nicht über Ausführen ein Programm starten. Im Internet bin ich zur Zeit bei einem Bekannten über meinen Stick.
    Da mein NetBook über kein CD-Laufwerk verfügt und der einzigste Bekannte von dem ich weis dass er 1 USB-CDRom hat ist noch bis Mitte oder Ende nächster Woche unterwegs. Solange will ich natürlich nicht warten bis mein NetBook wieder flott ist.
    Daher die Frage, wo bekomme ich die nötigen Programme und Infos um mir einen bootfähigen USB-Stick zurecht zu machen mit dem ich mein Windows reparieren d.h. die Überbleibsel dieses Programmes entfernen kann. Oder kennt jemand anhand des Namens btf.exe die genaue Vorgehensweise.

    mfg autoBert

  • Do-Schleife beenden, CtrlText - sehr simples Skript

    Hallo petter2,

    ich würde soetwas über Adlib lösen:

    Spoiler anzeigen
    [autoit]

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

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

    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 205, 70, (@DesktopWidth - 205), (@DesktopHeight - 70), BitOR($WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
    $Button1 = GUICtrlCreateButton("...", 0, 0, 200, 65, $WS_GROUP)
    GUISetState(@SW_SHOW)
    $warnung = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS), $WS_EX_WINDOWEDGE)
    GUICtrlCreateLabel("Warnung!", 50, 50,@DesktopWidth - 100, @DesktopHeight -100,$SS_CENTER)
    GUICtrlSetFont(-1,14,2000)
    ;GUICtrlSetFont(-1, 100)
    GUICtrlSetColor(-1, 0x1e90ff)
    GUISetBkColor(0xFF0000)
    GUISetState(@SW_MAXIMIZE)
    GUISetState(@SW_HIDE)
    $bStop = True
    $iState = 0
    #endregion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $bStop = Not $bStop
    If Not $bStop Then
    GUISetState(@SW_SHOW, $warnung)
    AdlibRegister("_blink", 750)
    Else
    AdlibUnRegister("_blink")
    GUISetState(@SW_HIDE, $warnung)
    EndIf
    EndSwitch
    WEnd

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

    Func _blink()
    $iState += 1
    Switch $iState
    Case 1
    SoundPlay("audio.mp3")
    GUISetBkColor(0xFF0000)
    Case 2
    GUISetBkColor(0xFFFF00)
    Case 3
    GUISetBkColor(0xFF0000)
    Case 4
    GUISetBkColor(0xFFFF00)
    Case 5
    $iState = 0
    EndSwitch
    EndFunc ;==>_blink

    [/autoit]

    mfg autoBert

  • Per Klick auf Pic Event auslösen, trotz überlappenden, korrekt dargestellten Bildern

    Warum sollte es nicht funktionieren. Hier das Beispiel dahingehend abgeändert dass nach drücken der rechten Maustaste die Karte unter der Maus gelöscht wird:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Array.au3>
    #include <Misc.au3>

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

    $dll = DllOpen("user32.dll")

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

    Local $aPics[52][2]
    $k = 0
    #region - GUI Create
    GUICreate('Test', 550, 550)
    For $i = 0 To 3
    Switch $i
    Case 0
    $sFarbe = "Karo"
    Case 1
    $sFarbe = "Herz"
    Case 2
    $sFarbe = "Pik"
    Case 3
    $sFarbe = "Kreuz"
    EndSwitch
    For $j = 2 To 14
    $sKarte = $sFarbe
    Switch $j
    Case 11
    $sKarte &= " Bube"
    Case 12
    $sKarte &= " Dame"
    Case 13
    $sKarte &= " König"
    Case 14
    $sKarte &= " As"
    Case Else
    $sKarte &= " " & $j
    EndSwitch
    $aPics[$k][1] = $sKarte
    $aPics[$k][0] = GUICtrlCreatePic(@ScriptDir & "\karten\" & $sKarte & ".jpg", 10 + $i * 105, -65 + $j * 35, 71, 96)
    $k += 1
    GUICtrlSetState(-1, $GUI_DISABLE)
    Next
    Next
    GUICtrlCreateLabel("Die Maus befindet sich über der: ", 420, 10, 120, 50)
    $idLabel = GUICtrlCreateLabel("", 420, 70, 120, 50)
    GUICtrlSetFont(-1,14,1440)
    $iCard = -1

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

    GUISetState()
    #endregion - GUI Create

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

    #region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    if _IsPressed("02",$dll) And $iCard <> -1 Then
    GUICtrlDelete($iCard)
    $iCard = -1
    While _IsPressed("02",$dll)
    Sleep(10)
    WEnd
    EndIf
    $aCursor = GUIGetCursorInfo()
    If $aCursor[4] >= $aPics[0][0] And $aCursor[4] <= $aPics[51][0] Then
    $iRes = _ArraySearch($aPics, $aCursor[4])
    If Not @error Then
    If $aPics[$iRes][0] <> $iCard Then
    GUICtrlSetData($idLabel, $aPics[$iRes][1])
    $iCard = $aPics[$iRes][0]
    EndIf
    EndIf
    Else
    GUICtrlSetData($idLabel, "")
    $iCard = -1
    EndIf
    WEnd
    #endregion - GUI SelectLoop

    [/autoit]

    mfg autoBert

  • Per Klick auf Pic Event auslösen, trotz überlappenden, korrekt dargestellten Bildern

    Hallo lavido,

    dann machst du etwas verkehrt. Hier ein Beispiel-Skript zur Demo:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Array.au3>

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

    Local $aPics[52][2]
    $k = 0
    #region - GUI Create
    GUICreate('Test', 550, 550)
    For $i = 0 To 3
    Switch $i
    Case 0
    $sFarbe = "Karo"
    Case 1
    $sFarbe = "Herz"
    Case 2
    $sFarbe = "Pik"
    Case 3
    $sFarbe = "Kreuz"
    EndSwitch
    For $j = 2 To 14
    $sKarte = $sFarbe
    Switch $j
    Case 11
    $sKarte &= " Bube"
    Case 12
    $sKarte &= " Dame"
    Case 13
    $sKarte &= " König"
    Case 14
    $sKarte &= " As"
    Case Else
    $sKarte &= " " & $j
    EndSwitch
    $aPics[$k][1] = $sKarte
    $aPics[$k][0] = GUICtrlCreatePic(@ScriptDir & "\karten\" & $sKarte & ".jpg", 10 + $i * 105, -65 + $j * 35, 71, 96)
    $k += 1
    GUICtrlSetState(-1, $GUI_DISABLE)
    Next
    Next
    GUICtrlCreateLabel("Die Maus befindet sich über der: ", 420, 10, 120, 50)
    $idLabel = GUICtrlCreateLabel("", 420, 70, 120, 50)
    GUICtrlSetFont(-1,14,1440)
    $iOld = -1

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

    GUISetState()
    #endregion - GUI Create

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

    #region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    $aCursor = GUIGetCursorInfo()
    ConsoleWrite($aCursor[4] & @TAB)
    If $aCursor[4] >= $aPics[0][0] And $aCursor[4] <= $aPics[51][0] Then
    $iRes = _ArraySearch($aPics, $aCursor[4])
    If Not @error Then
    If $iRes <> $iOld Then
    GUICtrlSetData($idLabel, $aPics[$iRes][1])
    $iOld = $iRes
    EndIf
    EndIf
    Else
    GUICtrlSetData($idLabel, "")
    $iOld = -1
    EndIf
    WEnd
    #endregion - GUI SelectLoop

    [/autoit]

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. wird auch benötigt,

    mfg autoBert

  • Key aufgabe hilfe

    Hallo Ninis99,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinerFrage, da du dein bisheriges Skript nicht gepostet hast, nur soviel allgemein dazu: mit & in der Beschriftung kannst du Controls sogenannte Schnellzugrifftasten zuweisen. Mit ALT-Zugriffstaste kommst du dann direkt dorthin bzw. löst die Standardaktion aus.

    mfg autoBert

  • E-Mail Client

    Zitat von meinnameisthase

    Jaja, ich weiß, meine Fragen sehen nicht so danach aus, aber ein bisschen Autoit kann ich schon (also die Grundlagen).


    nein sieht wirklich nicht danach aus,

    Zitat von meinnameisthase

    und ich weiß auch, wo man die deutsche Hilfe (...) findet.

    warum benutzt du sie nicht?

    Zitat von meinnameisthase

    Ähm, ich bin schon ein bisschen länger in diesem Forum (ich war vorher jemand anderes, habe den dann aber wieder gelöscht

    In diesem Forum kann man seinen Account nicht löschen, höchstens gelöscht werden.

    mfg autoBert

  • Über Netzwerk mit einander Spielen

    Hallo Schnacko,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinen Fragen:

    • ja das geht, schau dir dazu [autoit]TCPRecv[/autoit] und [autoit]TCPSend [/autoit] mit den dazugehörigen Beispielen an. Eventuell kannst du es auch über [autoit]IniWrite[/autoit] uund [autoit]IniRead[/autoit] auf einem für alle verfügbaren Netzlaufwerk lösen.
    • die Geschwindigkeit hängt masgeblich von den Netzwerkkarten ab.

    mfg autoBert

  • E-Mail Client

    Hallo meinnameisthase,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deiner Frage, doch das geht:

    Spoiler anzeigen
    [autoit]

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

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

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

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

    $SmtpServer = "mail.gmx.de"
    $IPPort = 25 ; port used for sending the mail
    $ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
    $Importance = "Normal"
    $AttachFiles = "" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed

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

    GUICreate("Quick- & Safe Mail", 463, 474, 885, 121)
    $1 = GUICtrlCreateInput("", 176, 40, 265, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
    $2 = GUICtrlCreateInput("", 176, 8, 265, 21)
    GUICtrlCreateLabel("Ihre E-Mail Ardresse", 8, 8, 98, 25)
    GUICtrlCreateLabel("Ihr Passwort", 8, 40, 62, 25)
    $3 = GUICtrlCreateInput("", 176, 104, 265, 21)
    GUICtrlCreateLabel("E-Mail Adresse des Empfängers", 8, 112, 153, 17)
    $4 = GUICtrlCreateInput("", 176, 232, 265, 21)
    GUICtrlCreateLabel("Betreff", 8, 232, 35, 17)
    $5 = GUICtrlCreateEdit("", 176, 264, 265, 153)
    GUICtrlSetData(-1, "")
    GUICtrlCreateLabel("Ihre Nachricht", 8, 272, 71, 17)
    $6 = GUICtrlCreateInput("", 176, 72, 265, 21)
    GUICtrlCreateLabel("Ihr Name", 8, 72, 47, 17)
    $los = GUICtrlCreateButton("Verschicken", 0, 440, 305, 33)
    $7 = GUICtrlCreateButton("Anhang", 304, 440, 153, 33, $WS_GROUP)
    $8 = GUICtrlCreateInput("", 176, 136, 265, 21)
    $9 = GUICtrlCreateInput("", 176, 168, 265, 21)
    GUICtrlCreateLabel("ggf. Emfpänger 2", 8, 144, 85, 17)
    GUICtrlCreateLabel("ggf. Empfänger 3", 8, 176, 85, 17)
    GUISetState(@SW_SHOW)

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $los
    $Password = GUICtrlRead($1)
    $FromAddress = GUICtrlRead($2)
    $ToAddress = GUICtrlRead($3)
    $Subject = GUICtrlRead($4)
    $body = GUICtrlRead($5)
    $FromName = GUICtrlRead($6)
    $Anhang = GUICtrlRead($7)
    $CcAddress = GUICtrlRead($8)
    $BccAddress = GUICtrlRead($9)

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

    $Username = GUICtrlRead($2)
    $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
    If @error Then
    MsgBox(0, "Da ging wohl was schief...", "Fehler Code: " & @error & " Beschreibung: " & $rc & " Kontaktieren Sie ggf. den Hersteller der Software.")
    Else
    MsgBox(0, "Alles klar", "Nachricht versand!")
    EndIf
    EndSwitch
    WEnd

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

    ;
    ; The UDF
    Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $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.Bcc = $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 $x = 1 To $S_Files2Attach[0]
    $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
    ;~ ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
    If FileExists($S_Files2Attach[$x]) Then
    ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
    $objEmail.AddAttachment($S_Files2Attach[$x])
    Else
    ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
    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
    If Number($IPPort) = 0 Then $IPPort = 25
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;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
    If $ssl Then
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
    Case "High"
    $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"
    Case "Normal"
    $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Normal"
    Case "Low"
    $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
    SetError(2)
    Return $oMyRet[1]
    EndIf
    $objEmail = ""
    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]

    du solltest auch die Reihenfolge deiner Einagbefelder anpassen, denn diese sind kreuz und quer durcheinanander,

    mfg autoBert