|
You last visited: Today at 02:47
Advertisement
source ??? darkorbit helper tool??
Discussion on source ??? darkorbit helper tool?? within the AutoIt forum part of the Coders Den category.
09/11/2012, 15:11
|
#1
|
elite*gold: 428 
Join Date: Dec 2011
Posts: 2,722
Received Thanks: 2,035
|
source ??? darkorbit helper tool??
where I can find the source of darkorbit helper tool made in autoit'?
|
|
|
|
09/11/2012, 17:30
|
#2
|
elite*gold: 50
Join Date: Sep 2012
Posts: 3,841
Received Thanks: 1,462
|
Put the Autoit programm in a decompiler or upload it here
|
|
|
|
|
09/11/2012, 17:33
|
#3
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
It's from me 
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..
|
|
|
|
|
09/11/2012, 17:38
|
#4
|
elite*gold: 428
Join Date: Dec 2011
Posts: 2,722
Received Thanks: 2,035
|
Quote:
Originally Posted by Ludder231
It's from me
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???
|
|
|
|
|
09/11/2012, 17:42
|
#5
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Quote:
Originally Posted by fuso98
can you give me the script of include webtcp and string???
|
String.au3 is standart in Autoit
|
|
|
|
|
09/12/2012, 13:55
|
#6
|
elite*gold: 428
Join Date: Dec 2011
Posts: 2,722
Received Thanks: 2,035
|
ok but where i've to put all dll and 7z.exe??
|
|
|
|
All times are GMT +1. The time now is 02:48.
|
|
