Beiträge von Jonathan

  • Schleife Wiederholen

    vllt. hilft dir das:

    Spoiler anzeigen
    [autoit]


    While 1
    $x = 0
    While 1
    MouseWheel("up", 500)
    MouseMove( 580, 300 , 10)
    MouseClick( "left" , 580, 300 , 1 , 10)
    Sleep(10000)
    MouseClick( "left" , 1045, 380 , 1 , 10)
    Sleep(1000)
    MouseClick( "left" , 1045, 395 , 1 , 10)
    Sleep(1000)
    MouseClick( "left" , 1045, 410 , 1 , 10)
    Sleep(1000)
    MouseClick( "left" , 1045, 425 , 1 , 10)
    Sleep(1000)
    MouseClick( "left" , 1045, 440 , 1 , 10)
    Sleep(10000)
    MouseClick( "left" , 620, 660 , 1 , 10)
    Sleep(10000)
    MouseClick( "left" , 1050, 770 , 1 , 10)
    Sleep(10000)
    MouseWheel("down", 500)
    MouseClick( "left" , 560, 730 , 1 , 10)
    Sleep(10000)
    $x = $x + 1
    if $x = 10 then exitloop ;das Skript wiederholt sich 10 mal und dann nochmal 10 mal und so weiter
    wend
    wend

    [/autoit]

  • Problem bei UDP Scripten...

    Hallo,


    Ich wollte mir etwas schreiben, das Ich im Netzwerk verwenden kann...

    Leider funktioniert da etwas nicht ... S ie reagieren nciht aufeinander


    Es gibt einen Empfänger ( der die Befehle aufführt)

    einen Sender ( Der die Befehle sendet )

    und einen IP Warter (Der einen benachrichtigt sobald der Empfänger gestartet wurde. danach kann man den Sender starten um sich zu connecten)


    mit freundlichen Grüßen Jonathan

  • TCP Verbindung im Lokalen netzwerk beispiel?

    Hallo, kann mir jemand 2 Beispiele posten, welche 2 Dateien darstellt, die auf 2 PC`s gestartet werden. bei pc1 geb ich einen Text in eine inputbox ein, auf pc2 kommt der text in einer MsgBox. Ich bitte euch darum, da Ich aus der Hilfe nicht schlau werde :( +


    Aber: bitte wirklich nur das Grundgerüßt mit der MsgBox, damit ich es mir angucken kann, und auch selber noch was davon lerne ;)


    mit freundlichen Grüßen und einem Dankeschön: Jonathan

  • Ordneroptionen mit AutoIT ändern?

    Hallo,


    Ist es möglich 2 AutoIT dateien zu erstellen, die die Ordneroptionen ändern? ?(

    Ich habe es mir so vorgestellt: Ich starte datei 1 und dann kann Ich versteckte Dateien und Dateiendungen sehen.

    Wenn ich Datei 2 starte, sind versteckte Dateien und Endungen wieder unsichtbar.


    mit freundlichen Grüßen Jonathan

  • Netzwerk scannen

    Hallo, ich habe vor, das Lokale netzwerk zu Scannen, und die Ergebnisse in einer GUI Tabelarisch darzustellen.


    gibt es da eine möglischkeit? Ich weiß nämlich noch garnicht, wo ich befinnen soll ...


    Die tabelle soll etwa so aussehen:

    IP PC Name Ping

  • Problem bei TCP verbindung...

    Ich habe mir ein kleines ,,ich schik dir ne nachricht" script für ne Lan Party geschrieben.

    allerdings geht es nicht, und ich wollte mal fragen, ob ihr einen Fehler findet...

    Aber bitte nicht vergessen: Ich bin noch Anfänger... Drum bitte noch nicht mich zuposten, warum ich die Dateien nciht zusammenführe um auch ne Antwort zurück schiken zu können....

    Der Sender

    Spoiler anzeigen
    [autoit]


    ;Scripter: Jonathan
    ;auf Grundlage von: DjDominik

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

    HotKeySet("{F1}","senden")
    HotKeySet("{F3}","beenden")
    HotKeySet("{F2}","newip")

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

    func senden()
    $nachricht = InputBox("Nachricht","Gib die Nachricht ein")
    if @error then Exit
    TCPSend($client,"Message|" & $nachricht)
    EndFunc

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

    Func beenden()
    TCPShutdown()
    Exit
    EndFunc

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

    Func newip()
    $client = TCPConnect($ipadresse,1)
    EndFunc

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

    TCPStartup()

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

    $ipadresse = InputBox("IP","An welche IP möchtest du eine Nachricht schiken?")
    if @error then Exit

    Sleep(500)

    $client = TCPConnect($ipadresse,2000)
    MsgBox(0,"Funktionen","F1 = Nachricht Senden F2 = Neue IP-Adresse F3 = Beenden")

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

    while 1
    Sleep(30)
    WEnd

    [/autoit]


    Der Empfänger

    Spoiler anzeigen
    [autoit]


    ;Scripter: Jonathan
    ;auf Grundlage von: DjDominik

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

    HotKeySet("{F4}","beenden")
    Func beenden()
    TCPShutdown()
    Exit
    EndIf
    EndFunc
    TCPStartup()

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

    $socket = TCPListen(@IPAddress1, 2000)
    while 1
    $eingehendenachricht = TCPRecv($socket, 2000)
    If not $eingehendenachricht = "" Then
    $befehl = StringSplit($eingehendenachricht, "|")
    Switch $befehl[0]
    Case "Message"
    MsgBox(64, "Neue Nachricht!", $Kommando[1])
    EndSwitch
    EndIf
    WEnd

    [/autoit]