Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- AutoItSetOption("WinTitleMatchMode", 4)
- while 1
- $zeichen = "1234567890"
- $string = StringSplit ($zeichen,"")
- $anzahl_der_zeichen = 2
- $zeichen1= "1"
- For $i = 1 To $anzahl_der_zeichen
- $zeichen1 &= $string[Random(1,UBound ($string)-1)]
- Next
- $string = StringSplit ($zeichen,"")
- $anzahl_der_zeichen = 3
- $zeichen2 = ""
- For $i = 1 To $anzahl_der_zeichen
- $zeichen2 &= $string[Random(1,UBound ($string)-1)]
- Next
- $string = StringSplit ($zeichen,"")
- $anzahl_der_zeichen = 2
- $zeichen3 = ""
- For $i = 1 To $anzahl_der_zeichen
- $zeichen3 &= $string[Random(1,UBound ($string)-1)]
- Next
- $string = StringSplit ($zeichen,"")
- $anzahl_der_zeichen = 3
- $zeichen4 = ""
- For $i = 1 To $anzahl_der_zeichen
- $zeichen4 &= $string[Random(1,UBound ($string)-1)]
- Next
- $ip= $zeichen1&"."&$zeichen2&"."&$zeichen3&"."&$zeichen4
- WinWaitActive("[CLASS:Edit; INSTANCE:1]")
- If @error Then
- WinWaitActive("[CLASS:Edit; INSTANCE:1]")
- Else
- if winactive ("[CLASS:Edit; INSTANCE:1]","") then
- Send("Deine IP "&@IPAddress1&" und eine zufallsgenerierte: "&$ip&": ",1)
- EndIf
- WEnd
- ;ich möchte, das nur EINE generierte "IP" in das Textfeld geschrieben wird
- ;bei einer neuen Instanz des Texteditors soll erst die nächste eingeschrieben werden, usw
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement