Beiträge von butter

  • Lizenz

    Huhu AutoIT,

    ich habe vor für mein fertiges Script eine Lizenz einzubauen, (1 Lizenz für 1 pc und nicht mehr)
    Momentan weiß ich nicht wie ich das machen soll,
    Über die IP-Adresse könnte ich es machen, aber die meisten IP-Adressen ändern sich täglich, deswegen brauche ich eine andere Möglichkeit um Sicherzustellen das nur der jenige das Script benutzt, den ich die Lizenz gebe.
    Ftp Server wäre vorhanden~
    Mein IP-Adressen Script:

    Spoiler anzeigen
    [autoit]

    #include <Inet.au3>
    $ad = _GetIP()
    $Eingabe = _INetGetSource("http://beispiel.de/ip_ad_dresse.txt")
    If $ad == $Eingabe Then
    MsgBox(0,"","Erfolgreich")
    Else
    MsgBox(0,"","Fail")
    EndIf
    Sleep(1500)
    MsgBox(0,"",$Eingabe)

    [/autoit]

    MfG Butter

  • Ip überprüfung

    Huhu,

    ich habe ein Problem mit der IP Überprüfung
    Also. ich habe meine Ip z.b. 123.123.123.123 in eine .txt gespeichert und auf meinem ftp server hochgeladen.
    Nun will ich das das script vergleicht ob das meine ip ist, aber beim vergleichen habe ich ein problem:

    Spoiler anzeigen
    [autoit]

    #include <Inet.au3>
    $ad = @IPAddress1
    $Eingabe = _INetGetSource("http://webspace.de/ip.txt")
    If $ad == $Eingabe Then
    MsgBox(0,"","Erfolgreich")
    Else
    MsgBox(0,"","Fail")
    EndIf
    Sleep(1500)
    MsgBox(0,"",$Eingabe)

    [/autoit]


    Bei mir kommt da immer dieses Fail raus, obwohl die Ip gleich ist ~
    Bei der MsgBox am ende, also

    [autoit]

    MsgBox(0,"",$Eingabe)

    [/autoit]

    da kommt auch meine Ip als msgbox raus :)

    Wo ist mein Problem? :(

    Danke im Vorraus

    MfG Butter

  • x mal wiederholen

    Huhu AutoIT,

    Ich hätte eine Frage zu den Schleifen!

    Ich möchte einen Vorgang 300x Wiederholen,
    Statt 300x den langen script kopieren und einzufügen,
    müsste doch eine ähnliche Schleife wie die While-Schleife geben
    Ich bin auf For .. Next gestoßen aber ich checke das Beispielscript dazu nicht :(

    Könnt ihr mir da weiterhelfen?

    MfG Butter

  • Random frage

    Huhu autoit!

    ich wollte fragen ob das möglich ist,
    Die Anzahl der Versuche auszulesen

    Spoiler anzeigen

    Switch Random(1,100,1)
    Case 1 To 80
    MouseMove(475, 513)
    Case 81 To 90
    MouseMove(475, 529)
    Case 0
    MouseMove(475, 545)
    Case 91 To 100
    MouseMove(475, 562)
    EndSwitch

    Also z.B. die Anzahl der Versuche bis MouseMove(475,545) (Case 0) durchgeführt wird
    Ich dachte so an einer msgbox:

    [autoit]

    MsgBox(0,"Versuch",$Anzahl)

    [/autoit]

    Danke schonmal im Vorraus!

    MfG butter

  • Prozesse aus INI in einer MsgBox auflisten

    Vielleicht helft dir das:
    Alle Prozesse:

    Spoiler anzeigen
    [autoit]

    $list = ProcessList() for $i = 1 to $list[0][0]

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

    msgbox(0, $list[$i][0], $list[$i][1])

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

    next

    [/autoit]

    Falls du es mit aktiven Fenstern machen willst dann ersetze ProcessList -> WindowList
    Du kannt auch in der Klammer einzelne Prozesse schreiben.

  • Random Frage!

    Huhu AutoIT,

    ich hätte eine.kleine Frage zu meinem Script

    [autoit]

    $x = Random(0, 3, 1)
    Switch $x
    Case 0
    MouseMove(475, 513)
    Case 1
    MouseMove(475, 529)
    Case 2 MouseMove(475, 545)
    Case 3 MouseMove(475, 562)
    EndSwitch

    [/autoit]

    Kann ich es auch mit %-Chancen machen?
    Also 80% Case 0
    10% Case 1
    0% Case 2
    10% Case 3

  • Funktion Gesucht !

    Danke, aber ich hab schon die Funktion gefunden die ich suche ^^
    Google hat mir da nicht weitergeholfen ..

    [autoit]


    $Text2 = ControlGetText("Install Treiber","","TMemo3")
    FileWrite(@DesktopDir&"/text.txt",$Text2)

    [/autoit]

  • Funktion Gesucht !

    Huhu AutoIT!

    Ich suche wieder eine Funktion.
    Also es geht um eine Installation -> Während der Installation, ist ein Textfeld wo die Logs geschrieben sind.
    Und ich brauche ein Script das die Logs sozusagen abschreibt von der Installation.
    Problem:

    [autoit]

    Controlsend("Install Treiber","",TMemo3,"^a")

    [/autoit][autoit]

    Controlsend("Install Treiber","",TMemo3,"^c")

    [/autoit][autoit]

    FileWrite(@DesktopDir&"/Treiberlog.txt","^v")

    [/autoit]

    Funktioniert nicht ...
    -> TMemo3 Lässt sich nicht komplett markieren mit Strg+a, aber wenn ich es mit der Maus so von unten bis oben markiere funktionierts.

    Gibts es sozusagen eine Funktion die das TMemo3 komplett abschreibt?

    MfG

  • Combobox Problem

    Hmm.. Bei mir kommt da immernoch ein Fehler, bei dem Script..
    Ich bin mit der Entertaste nicht ganz klargekommen..
    Kannst du mir nochmal den Script senden, nur ohne [.autoit] [./autoit] sondern mit Spoiler ?
    Oder habe ich etwas dem Script falsch .. ?

    Spoiler anzeigen

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 615, 438, 192, 124)
    $Combo1 = GUICtrlCreateCombo("Combo1", 208, 72, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
    GUICtrlSetData($Combo1, "|Test 1|Test 2|Test 3")
    $Button1 = GUICtrlCreateButton("Button1", 232, 128, 75, 25)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $var = GUICtrlRead($Combo1)
    If $var = "Test 1" Then MsgBox(0, "Debug", "Das erste")
    ElseIf $var = "Test 2" Then MsgBox(0, "Debug", "Das zweite")
    ElseIf $var = "Test 3" Then MsgBox(0, "Debug", "Das dritte")
    Else MsgBox(0, "Debug", "Irgendwas anderes") EndIf

    EndSwitch
    WEnd

  • Combobox Problem

    Funktioniert Super!
    Aber wie schaff ich da wenn man z.B. Test 1 Ausgewählt hab und als Msgbox das kommt: Msgbox(0 "Das erste"," Das erste") und wenn man Test 2 wählt: " (0,"Das zweite","Das zweite") usw.. da muss man doch wieder zu meinen Script oder, aber wo.ist das Problem bei mir?

    MfG

  • Combobox Problem

    Huhu AutoIT !

    Ich hab da wieder ein kleines Problem !
    Sieht euch einfach das Beispielscript an!
    Ziel: MsgBox mit der Nachricht was bei der Combobox ausgewählt wurde! also z.b. Test 2 wenn Test 2 ausgewählt wurde..

    Aber wenn ich bei den ??? $read einfüge sollte es doch eigentlich funktionieren, oder?


    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    Opt("GUIOnEventMode", 1)GUICreate("combotest", 200, 200)$map = GUICtrlCreateCombo("", 5, 5)GUICtrlSetData($Map, "|Test 1|Test 2|Test 3")GUICtrlSetOnEvent($map, "_comboread")$Button1 = GUICtrlCreateButton("Button1", 96, 120, 75, 25)
    GUISetState()While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE ExitCase $Button1 MsgBox(0,"test",$??????) EndSwitchWEnd
    Func _comboread() $read = GUICtrlRead($map) If $read = "Test 1" Then MsgBox(0,"test","Test 1") If $read = "Test 2" Then MsgBox(0,"test","Test 2") If $read = "Test 3" Then MsgBox(0,"test","Test 3") EndFunc

    [/autoit]




    Danke schonmal im Vorraus!

  • FTP-Datei Upload Problem !

    Huhu Autoit ! :)

    ich habe ein Problem mit mein Script
    Das Script soll die angegebene Datei auf meinem FTP-Server hochladen (Also eine .txt datei)
    Der Upload erfolgt, aber die hochgeladene .txt Datei ist leer !.
    In der ursprünglichen Datei ist natürlich ein Text!
    Ziel: Die .txt Datei in den angegebenen Pfad soll vollständig mit dem Text hochgeladen werden !

    Script:

    Spoiler anzeigen
    [autoit]

    #include <FTP.au3>

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

    $percorso = "C:\Users\Public\Videos\twain.txt"

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

    $pass = "pw" $server ="server" $username ="benutzername"
    $Open = _FTPOpen("MyFTP Control") $Conn = _FTPConnect($Open, $server, $username, $pass)
    $Ftpp = _FTPPutFile($Conn, $percorso,"/agergae.txt")
    $Ftpc = _FTPClose($Open)

    [/autoit]




    Danke schonmal in Vorraus !