source ??? darkorbit helper tool??

Quote:

Originally Posted by Ludder231 It's from me :D  Spoiler PHP Code: #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #Include <Array.au3> #include<WebTcp.au3> #include<string.au3> #Region ### START Koda GUI section ### Form= $Form2 = GUICreate("DarkOrbit Helper Tool", 413, 309, 299, 218) $Button1 = GUICtrlCreateButton("Refresh", 14, 272, 75, 25) $Checkbox2 = GUICtrlCreateCheckbox("SL?", 280, 277, 41, 20) $Label3 = GUICtrlCreateLabel("Step:", 312, 8, 35, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Label4 = GUICtrlCreateLabel("0/0", 352, 8, 22, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Checkbox1 = GUICtrlCreateCheckbox("List Winner?", 184, 277, 95, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Label1 = GUICtrlCreateLabel("Server:", 112, 8, 47, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("", 168, 8, 27, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Button2 = GUICtrlCreateButton("Cancel", 102, 272, 75, 25) $Button3 = GUICtrlCreateButton("Help", 328, 272, 75, 25) $PageControl1 = GUICtrlCreateTab(8, 8, 396, 256) $TabSheet1 = GUICtrlCreateTabItem("Market") $List1 = GUICtrlCreateList("", 16, 40, 377, 216) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet2 = GUICtrlCreateTabItem("Winner") $List2 = GUICtrlCreateList("", 16, 40, 377, 216) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### global $username, $password, $server, $checkbox1, $oWebTcp, $time, $date, $hwinner, $i, $uid, $log, $relog, $blub anfang();nice func anfang();nice enablelabelclear() data() while 1 $nMsg = GUIGetMsg() Switch $nMsg     Case $GUI_EVENT_CLOSE         if WinExists("Help|Credits", "") Then             GUIDelete($form2)         Else             exit         endif     case $Button1     _autoitobject_startup()  $owebtcp=_webtcp_create(false, false)  TCPStartup()     If not StringInStr($relog, $uid) Then     disableclear()     checkboxcheck()     checkboxcheck2()     GUICtrlSetData($list1, "["&@hour&":"&@min&":"&@sec&"]"&"Login of user "&$username&" on "&$server&".")     $oWebTcp.Navigate("http://darkorbit.bigpoint.com/?locale=de&aid=0http://darkorbit.bigpoint.com/?locale=de&aid=0&aip=email_invites", "loginForm_default_username="&$username&"&loginForm_default_password="&$password&"&loginForm_default_login_submit=Login")     $sucess= _StringBetween($oWebTcp.body, 'title="Fehlermeldung">', '</div>') if IsArray($sucess) then     GUICtrlSetData($list1, "["&@hour&":"&@min&":"&@sec&"]"&"Login failed...")     sleep(1000)     anfang() else GUICtrlSetData($list1, "["&@hour&":"&@min&":"&@sec&"]"&"Checking GameAPI.php.") $erg=_StringBetween($oWebTcp.body,'http://'&$server&'.darkorbit.bigpoint.com/GameAPI.php?req=', '%3D&sign') $blub=StringTrimRight($erg[0],3) $oWebTcp.Navigate("http://"&$server&".darkorbit.bigpoint.com/GameAPI.php?req="&$blub) if not @error then GUICtrlSetData($label2, $server) endif checkboxcheck3() GUICtrlSetData($list1, "["&@hour&":"&@min&":"&@sec&"]"&"Navigating to Market.") $oWebTcp.Navigate("http://"&$server&".darkorbit.bigpoint.com/indexInternal.es?action=internalstart", "") $oUser=_StringBetween($oWebTcp.body, '"ouser":' , '"uridium_highlighted":') If IsArray($oUser) Then     WinSetTitle("Internal|Market", "", "Internal|Market - "&$oUser&" User online") endif ;$log = FileWrite(@scriptdir&"\log.html", $oWebTcp.body) $oWebTcp.Navigate("http://"&$server&".darkorbit.bigpoint.com/indexInternal.es?action=internalHandel", "") endif $hbietender=_StringBetween($oWebTcp.body, 'class="userInfoName" title="', ' - Klicke für Details">') If IsArray($hbietender) Then     guictrlsetdata($list1, "")     For $i = 1 To UBound($hbietender) -1         $buffer = BinaryToString($hbietender[$i], 4)         GUICtrlSetData($list1, $buffer)     Next     Skylab() else     GUICtrlSetData($list1, "["&@hour&":"&@min&":"&@sec&"]"&"Fail on GameAPI.php.")     msgbox(16, "", " Error code 2 "&@CRLF & _;Gameapi adress failed     " Gameapi failed! "&@CRLF & _     " PM Ludder231 @Epvp ") endif checkboxcheck4()     enable() _autoitobject_shutdown() TCPShutdown() Else     GUICtrlSetData($list1, "["&@hour&":"&@min&":"&@sec&"]"&"Navigating to Market.")     $oWebTcp.Navigate(@scriptdir&"\log.html")     $oWebTcp.Navigate("http://"&$server&".darkorbit.bigpoint.com/indexInternal.es?action=internalHandel")     $hbietender=_StringBetween($oWebTcp.body, 'class="fliess10px-gelb">', '</span></td>')     If IsArray($hbietender) Then     guictrlsetdata($list1, "")     For $i = 1 To UBound($hbietender) -1         $buffer = BinaryToString($hbietender[$i], 4)         GUICtrlSetData($list1, $buffer)         Next else     GUICtrlSetData($list1, "["&@hour&":"&@min&":"&@sec&"]"&"Fail on GameAPI.php?.")     msgbox(16, "", " Error code 2 "&@CRLF & _;Gameapi adress failed     " Gameapi failed! "&@CRLF & _     " PM Ludder231 @Epvp ") endif     checkboxcheck4()     enable() _autoitobject_shutdown() TCPShutdown() endif case $button2     exit case $button3     form2() EndSwitch WEnd endfunc func form2() $Form2 = GUICreate("Help|Credits", 413, 165, 221, 413) $Label1 = GUICtrlCreateLabel("Please encode speacial chracters", 8, 8, 319, 18) GUICtrlSetFont(-1, 12, 400, 0, "Nasalization") GUICtrlSetColor(-1, 0xFF0000) $Label2 = GUICtrlCreateLabel("*Thank's to kknb's help making this tool", 8, 136, 277, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) $Label3 = GUICtrlCreateLabel("I accept no responsibility for any damage to accounts that may result from this", 8, 40, 381, 23) GUICtrlSetFont(-1, 12, 400, 0, "Placard MT Condensed") $Label4 = GUICtrlCreateLabel("programm", 8, 64, 54, 23) GUICtrlSetFont(-1, 12, 400, 0, "Placard MT Condensed") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### endfunc func disableclear()     GUICtrlSetState($checkbox1, $GUI_disable)     GUICtrlSetState($button1, $GUI_DISABLE)     GUICtrlSetState($button2, $GUI_DISABLE)     GUICtrlSetState($button3, $GUI_DISABLE)     GUICtrlSetData($list1, "")     GUICtrlSetData($list2, "") endfunc func enable()     GUICtrlSetState($checkbox1, $GUI_enable)     GUICtrlSetState($button1, $GUI_enable)     GUICtrlSetState($button2, $GUI_enable)     GUICtrlSetState($button3, $GUI_enable) EndFunc func enablelabelclear()     GUICtrlSetData($label4, "0/0")     GUICtrlSetData($label2, "")     GUICtrlSetState($button1, $GUI_enable)     GUICtrlSetState($checkbox1, $GUI_enable)     GUICtrlSetState($button2, $GUI_enable)     GUICtrlSetState($button3, $GUI_enable) EndFunc func data()     $relog=FileRead(@scriptdir&"\log.html")     $uid=FileRead(@scriptdir&"\UserID.txt")     $username=InputBox("Data", "Username:")     $password=InputBox("Data", "Passwort:", "", "*")     $server=InputBox("Data", "Server:") EndFunc func checkboxcheck()     if guictrlread($checkbox1) = $gui_checked Then             guictrlsetdata($label4, "0/3")         Else             guictrlsetdata($label4, "0/2")         endif EndFunc func checkboxcheck2()     if guictrlread($checkbox1) = $gui_checked Then             guictrlsetdata($label4, "1/3")         Else             guictrlsetdata($label4, "1/2")         endif     EndFunc func checkboxcheck3()     if guictrlread($checkbox1) = $gui_checked Then             guictrlsetdata($label4, "2/3")         Else             guictrlsetdata($label4, "2/2")         endif     EndFunc func checkboxcheck4()     sleep(500)     if guictrlread($checkbox1) = $gui_checked Then             GUICtrlSetState($tabsheet2, $gui_show)             guictrlsetdata($label4, "3/3")             GUICtrlSetData($list2, "["&@hour&":"&@min&":"&@sec&"]"&"Navigating to closed Market.")               $oWebTcp.Navigate("http://"&$server&".darkorbit.bigpoint.com/indexInternal.es?action=internalHandel&tpl=internalHandelClosed")               $hwinner=_StringBetween($oWebTcp.body, '<p class="fliess11px-gelb">', '</p>')               If IsArray($hwinner) Then                 guictrlsetdata($list2, "")                 For $i = 1 To UBound($hwinner) -1                 $buffer = BinaryToString($hwinner[$i], 4)                 GUICtrlSetData($list2, $buffer)                 enable()             Next         Else                 guictrlsetdata($list2, "Failed on closed Market...")              endif         endif     EndFunc func skylab()     if GUICtrlRead($checkbox2) = $GUI_Checked Then          $oWebTcp.Navigate("http://"&$server&".darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab")          $slprometium= StringRegExp($oWebTcp.body, 'id="prometiumCollector_skylabPendingRobots">(.*?)</td>', 1, 1)          $slendurium= StringRegExp($oWebTcp.body, 'id="enduriumCollector_skylabPendingRobots">(.*?)</td>', 1, 1)          $slterbium = StringRegExp($oWebTcp.body, 'id="terbiumCollector_skylabPendingRobots">(.*?)</td>', 1, 1)          if IsArray( $slprometium and $slendurium and $slterbium) then         msgbox(64, "Skylab", "SkylabPendingRobots(Prometium)= "&$slprometium[0]&@CRLF & _         "SkylabPendingRobots(Endurium)= "&$slendurium[0]&@CRLF & _         "SkylabPendingRobots(Endurium)= "&$slterbium[0])         endif          endif EndFunc  but something is wrong with the GameApi. I didn't want to change it..

Quote:

Originally Posted by fuso98 can you give me the script of include webtcp and string???