Advertisement
Guest User

Untitled

a guest
Aug 17th, 2017
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.25 KB | None | 0 0
  1. AutoItSetOption("WinTitleMatchMode", 4)
  2. while 1
  3.     $zeichen = "1234567890"
  4.         $string = StringSplit ($zeichen,"")
  5.         $anzahl_der_zeichen = 2
  6.         $zeichen1= "1"
  7.         For $i = 1 To $anzahl_der_zeichen
  8.         $zeichen1 &= $string[Random(1,UBound ($string)-1)]
  9.     Next
  10.     $string = StringSplit ($zeichen,"")
  11.         $anzahl_der_zeichen = 3
  12.         $zeichen2 = ""
  13.         For $i = 1 To $anzahl_der_zeichen
  14.         $zeichen2 &= $string[Random(1,UBound ($string)-1)]
  15.     Next
  16.     $string = StringSplit ($zeichen,"")
  17.         $anzahl_der_zeichen = 2
  18.         $zeichen3 = ""
  19.         For $i = 1 To $anzahl_der_zeichen
  20.         $zeichen3 &= $string[Random(1,UBound ($string)-1)]
  21.     Next
  22.     $string = StringSplit ($zeichen,"")
  23.         $anzahl_der_zeichen = 3
  24.         $zeichen4 = ""
  25.         For $i = 1 To $anzahl_der_zeichen
  26.         $zeichen4 &= $string[Random(1,UBound ($string)-1)]
  27.     Next
  28.         $ip= $zeichen1&"."&$zeichen2&"."&$zeichen3&"."&$zeichen4
  29.  
  30.     WinWaitActive("[CLASS:Edit; INSTANCE:1]")
  31. If @error Then
  32. WinWaitActive("[CLASS:Edit; INSTANCE:1]")
  33. Else
  34.     if winactive ("[CLASS:Edit; INSTANCE:1]","") then
  35. Send("Deine IP "&@IPAddress1&" und eine zufallsgenerierte: "&$ip&": ",1)
  36. EndIf
  37. WEnd
  38. ;ich möchte, das nur EINE generierte "IP" in das Textfeld geschrieben wird
  39. ;bei einer neuen Instanz des Texteditors soll erst die nächste eingeschrieben werden, usw
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement