source ??? darkorbit helper tool??

[fuso98]

where I can find the source of darkorbit helper tool made in autoit'?

[YatoDev]

Put the Autoit programm in a decompiler or upload it here

[Ludder231]

It's from me

 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..

[fuso98]

Originally Posted by Ludder231

It's from me

 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..

can you give me the script of include webtcp and string???

[Ludder231]

Originally Posted by fuso98

can you give me the script of include webtcp and string???

String.au3 is standart in Autoit

[fuso98]

ok but where i've to put all dll and 7z.exe??