Code:
region WINHTTP Auslesen
$hSession = _WinhttpOpen("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:22.0) Gecko/20100101 Firefox/22.0")
$hConnect = _WinhttpConnect($hSession, "xxx-shop.com")
$sHtml = _WinhttpSimpleRequest($hConnect, "GET", "/create_account.php")
FileWrite($temppath&"Test.htm", $sHtml)
FileClose($temppath&"Test.htm")
#endregion WINHTTP Auslesen
#region LINK AUSLESEN
FileWriteLine($temppath&"HTML.txt", $sHtml)
$file = FileOpen($temppath&"HTML.txt")
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$result = StringInStr($line, 'name="Captcha"')
If $result >0 Then
$picresult = _StringBetween ($line,"validation_png.php?",'" alt="')
FileWriteLine ($temppath&"pic.txt",$picresult[0])
FileWriteLine ($path&"pic.txt",$picresult[0])
FileClose($temppath&"pic.txt")
EndIf
Wend
$caplink = "https://xxx-shop.com/validation_png.php?"&$picresult[0]
#endregion LINK AUSLESEN
#region GUI
InetGet( $caplink, $temppath&$counter&".png",1,0) ;Hinzugefügt
$uebergabe = "["&$counter&"]["&$temppath&"]["&$path&"]"
ShellExecuteWait($path&"convert.exe",$uebergabe)
GUICreate("PressCopyNator",300,220,500,260)
$guicaptcha = GUICtrlCreatePic ($temppath&$counter&".jpg",10,10,230,50)
GUISetState (@SW_SHOW)
$button1 = GUICtrlCreateButton("Refresh",245,10,50,50)
$button2 = GUICtrlCreateButton("Start",245,70,50,40)
$IPCaptcha = GUICtrlCreateInput ("",10,70,230,40)
GUICtrlSetFont($IPCaptcha, 20)
#endregion GUI
while 1
$guiaction = GUIGetMsg()
Select
;EXIT
Case $guiaction = -3
Run($path&"delete.dll")
Exit
;REFRESH BUTTON
Case $guiaction = $button1
InetGet ( $caplink, $temppath&$counter&".png",1,0)
$uebergabe = "["&$counter&"]["&$temppath&"]["&$path&"]"
ShellExecuteWait($path&"convert.exe",$uebergabe)
GUICtrlSetImage (3,$temppath&$counter&".jpg")
;ABSCHICKEN BUTTON
Case $guiaction = $button2
$GuiReadIPCaptcha = GUICtrlRead($IPCaptcha)
$Finalstring = StringReplace($GuiReadIPCaptcha, "!","%21")
$Finalstring = StringReplace($GuiReadIPCaptcha, '"',"%22")
$Finalstring = StringReplace($GuiReadIPCaptcha, "§","%23")
$Finalstring = StringReplace($GuiReadIPCaptcha, "$","%24")
$Finalstring = StringReplace($GuiReadIPCaptcha, "%","%25")
$Finalstring = StringReplace($GuiReadIPCaptcha, "&","%26")
$Finalstring = StringReplace($GuiReadIPCaptcha, "/","%27")
$Finalstring = StringReplace($GuiReadIPCaptcha, "(","%28")
$Finalstring = StringReplace($GuiReadIPCaptcha, ")","%21")
$Finalstring = StringReplace($GuiReadIPCaptcha, "=","%3D")
$Finalstring = StringReplace($GuiReadIPCaptcha, "?","%3F")
$Finalstring = StringReplace($GuiReadIPCaptcha, "+","%2B")
;~ MsgBox(0,"",$Finalstring)
$antirobotreg = $Finalstring
$createdata = "action=process&gender="&$gender&"&firstname="&$firstname&"&lastname="&$lastname&"&email_address="&$email_address&"&street_address="&$street_address&"&suburb=&postcode="&$postcode&"&city="&$city&"&country="&$country&"&password="&$password&"&confirmation="&$password&"&antirobotreg="&$antirobotreg&"&x="&$x&"&y="&$y
$sHTML = _WinhttpSimpleRequest($hConnect, "POST", "create_account_success.php", "www.xxxx-shop.com/create_account.php", $createdata)
FileWrite("test2.html", $sHtml)