[SOURCE]rayOgameEkoBot bot do ogame

jackraymund · 14 Kwietnia 2012

Ostatnio mi się nudziło i napisałem takiego botka do ogame

screen

więcej o bocie i instrukcja obsługi w tym temacie http://www.mpcforum....rayogameekobot/

SOURCE(uwaga, długi)

#NoTrayIcon

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_Compression=0

#AutoIt3Wrapper_Add_Constants=n

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <ButtonConstants.au3>

#include <ComboConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <GuiListView.au3>

#include <IE.au3>

#include <string.au3>

#include <GuiEdit.au3>

#include <Constants.au3>

_IEErrorHandlerRegister()

$z = 0

Global $timeout, $serwerlink, $aItem

$aha = False

Local $oIE = _IECreateEmbedded()

#region ### START Koda GUI section ### Form=

$Form1_1 = GUICreate("rayOgameEkoBot", 924, 515, 192, 124)

$Combo1 = GUICtrlCreateCombo("Metal", 8, 8, 164, 25)

; $Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)

$Combo3 = GUICtrlCreateCombo("", 173, 8, 95, 25)

$Button1 = GUICtrlCreateButton("Dodaj", 270, 8, 75, 23)

$listview = GUICtrlCreateListView("", 6, 40, 263, 155)

_GUICtrlListView_AddColumn($listview, "Nazwa Budynku", 150)

_GUICtrlListView_AddColumn($listview, "Planeta", 150)

$Button2 = GUICtrlCreateButton("Usun", 6, 200, 113, 25)

$Button3 = GUICtrlCreateButton("Start", 123, 200, 147, 25)

$obj = GUICtrlCreateObj($oIE, 270, 30, 651, 480)

GUICtrlSetState($obj, $gui_hide)

$token = 1

$Edit1 = GUICtrlCreateEdit("", 8, 338, 263, 159, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_HSCROLL, $WS_VSCROLL))

$Combo2 = GUICtrlCreateCombo(IniRead("cfg.ini", "login", "serwer", ""), 48, 240, 223, 25)

$Input1 = GUICtrlCreateInput(IniRead("cfg.ini", "login", "login", ""), 48, 264, 121, 21)

$Input2 = GUICtrlCreateInput(IniRead("cfg.ini", "login", "pass", ""), 48, 288, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))

$Button4 = GUICtrlCreateButton("Wlacz okienko", 170, 263, 100, 50)

$Button5 = GUICtrlCreateButton("Zaloguj", 8, 313, 263, 23)

$Label1 = GUICtrlCreateLabel("Login", 8, 264, 36, 17)

$Label2 = GUICtrlCreateLabel("Haslo", 8, 288, 36, 17)

$Label2 = GUICtrlCreateLabel("Serwer", 8, 240, 36, 17)

$Label3 = GUICtrlCreateLabel("jackraymund", 190, 497)

GUISetState(@SW_SHOW)

GUIRegisterMsg(0x0112, '_WM_SYS_COMMAND')

GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')

#endregion ### END Koda GUI section ###

_IENavigate($oIE, "http://www.ogame.pl",'>http://www.ogame.pl", 0)

_IELoadWait($oIE)

Dim $index[20]

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $Button5

Do

If token() = "Support" Then

Else

login(GUICtrlRead($Input1), GUICtrlRead($Input2))

EndIf

Until token() = "Support"

_IELoadWait($oIE)

sleep(3000)

$sHTML = _IEBodyReadHTML($oIE)

$array = _StringBetween($sHTML, '<span class=planet-name>', "</span>")

$array2 = _StringBetween($sHTML, '<div class=smallplanet>', '</a>')

If IsArray($array) Then

For $i = 0 To UBound($array) - 1

GUICtrlSetData($Combo3, $i + 1 & "-" & $array[$i])

$array1 = _StringBetween($array2[$i], 'cp=', ' ')

$result = StringTrimRight($array1[0], 1)

$index[$i + 1] = $result

EndSwitch

WEnd

Func main()

ConsoleWrite("tutaj")

If _GUICtrlListView_GetItemCount($listview) = 0 Then

MsgBox(0, "", "Brak ustawionej kolejki budowania")

Else

GUICtrlSetState($Button3, $gui_disable)

GUICtrlSetState($Button5, $gui_disable)

GUICtrlSetState($Input1, $gui_disable)

GUICtrlSetState($Input2, $gui_disable)

GUICtrlSetState($Combo2, $gui_disable)

Switch GUICtrlRead($Combo2)

Case "Andromeda"

$serwerlink = "uni101"

Case "Barym"

$serwerlink = "uni102"

Case "Capella"

$serwerlink = "uni103"

Case "Draco"

$serwerlink = "uni104"

Case "Electra"

$serwerlink = "uni105"

Case "Fornax"

$serwerlink = "uni106"

Case "Gemini"

$serwerlink = "uni107"

Case "Hydra"

$serwerlink = "uni108"

Case "Io"

$serwerlink = "uni109"

Case "Jupiter"

$serwerlink = "uni110"

Case "Kassiopeia"

$serwerlink = "uni111"

Case "Leo"

$serwerlink = "uni112"

Case "Mizar"

$serwerlink = "uni113"

Case "Nekkar"

$serwerlink = "uni114"

Case "1. Universum"

$serwerlink = "uni11"

Case "13. Universum"

$serwerlink = "uni13"

Case "17. Universum"

$serwerlink = "uni17"

Case "9. Universum"

$serwerlink = "uni9"

Case "14. Universum"

$serwerlink = "uni14"

Case "23. Universum"

$serwerlink = "uni23"

Case "25. Universum"

$serwerlink = "uni25"

Case "24. Universum"

$serwerlink = "uni24"

Case "26. Universum"

$serwerlink = "uni26"

Case "28. Universum"

$serwerlink = "uni28"

Case "29. Universum"

$serwerlink = "uni29"

Case "30. Universum"

$serwerlink = "uni30"

Case "31. Universum"

$serwerlink = "uni31"

Case "32. Universum"

$serwerlink = "uni32"

Case "33. Universum"

$serwerlink = "uni33"

Case "34. Universum"

$serwerlink = "uni34"

Case "35. Universum"

$serwerlink = "uni35"

Case "37. Universum"

$serwerlink = "uni37"

Case "38. Universum"

$serwerlink = "uni38"

Case "39. Universum"

$serwerlink = "uni39"

Case "40. Universum"

$serwerlink = "uni40"

Case "41. Universum"

$serwerlink = "uni41"

Case "42. Universum"

$serwerlink = "uni42"

Case "43. Universum"

$serwerlink = "uni43"

Case "45. Universum"

$serwerlink = "uni45"

Case "46. Universum"

$serwerlink = "uni46"

Case "47. Universum"

$serwerlink = "uni47"

Case "48. Universum"

$serwerlink = "uni48"

Case "49. Universum"

$serwerlink = "uni49"

Case "50. Universum"

$serwerlink = "uni50"

Case "51. Universum"

$serwerlink = "uni51"

Case "52. Universum"

$serwerlink = "uni52"

Case "53. Universum"

$serwerlink = "uni53"

Case "54. Universum"

$serwerlink = "uni54"

Case "55. Universum"

$serwerlink = "uni55"

Case "56. Universum"

$serwerlink = "uni56"

Case "57. Universum"

$serwerlink = "uni57"

Case "58. Universum"

$serwerlink = "uni58"

Case "59. Universum"

$serwerlink = "uni59"

Case "60. Universum"

$serwerlink = "uni60"

Case "61. Universum"

$serwerlink = "uni61"

Case "62. Universum"

$serwerlink = "uni62"

Case "63. Universum"

$serwerlink = "uni63"

Case "64. Universum"

$serwerlink = "uni64"

Case "65. Universum"

$serwerlink = "uni65"

Case "66. Universum"

$serwerlink = "uni66"

Case "67. Universum"

$serwerlink = "uni67"

EndSwitch

IniWrite("cfg.ini", "login", "serwer", GUICtrlRead($Combo2))

IniWrite("cfg.ini", "login", "login", GUICtrlRead($Input1))

IniWrite("cfg.ini", "login", "pass", GUICtrlRead($Input2))

ConsoleWrite("navigate" & @CRLF)

While 1

If _GUICtrlListView_GetItemCount($listview) = 0 Then

GUICtrlSetState($Button3, $gui_enable)

GUICtrlSetState($Button5, $gui_enable)

GUICtrlSetState($Input1, $gui_enable)

GUICtrlSetState($Input2, $gui_enable)

GUICtrlSetState($Combo2, $gui_enable)

_GUICtrlEdit_AppendText($Edit1, "Skończono prace bota(pusta lista budowania)" & @CRLF)

$z = 0

Return

EndIf

Do

If token() = "Support" Then

Else

login(GUICtrlRead($Input1), GUICtrlRead($Input2))

EndIf

Until token() = "Support"

If $token = 1 Then

Else

Do

$i = _GUICtrlListView_GetItemText($listview, $z)

$aItem = _GUICtrlListView_GetItemTextArray($listview, $z)

If ($i = "Technologia energetyczna") Or ($i = "Technologia laserowa") Or ($i = "Technologia jonowa") Or ($i = "Technologia nadprzestrzenna") Or ($i = "Technologia plazmowa") Or ($i = "Naped spalinowy") Or ($i = "Naped impulsowy") Or ($i = "Naped nadprzestrzenny") Or ($i = "Technologia szpiegowska") Or ($i = "Technologia komputerowa") Or ($i = "Astrofizyka") Or ($i = "Miedzygalaktyczna Siec Badan Naukowych") Or ($i = "Rozwoj grawitonow") Or ($i = "Technologia bojowa") Or ($i = "Technologia ochronna") Or ($i = "Opancerzenie") Then

if $z = 0 Then

Do

If token() = "Support" Then

Else

login(GUICtrlRead($Input1), GUICtrlRead($Input2))

EndIf

Until token() = "Support"

Switch $i

Case "Technologia ochronna"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Technologia ochronna")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Technologi ochronnej na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=110&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z += 1

Case "Opancerzenie"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Opancerzenie")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Opancerzenia na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=111&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z += 1

Case "Rozwoj grawitonow"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("grawiton")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie rozwoj grawitonow na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=199&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z += 1

Case "Technologia bojowa"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Technologia bojowa")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie technologi bojowej na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=109&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z += 1

Case "Astrofizyka"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Astrofizyka")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie astrofizyka na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=124&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z += 1

Case "Miedzygalaktyczna Siec Badan Naukowych"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Naukowych")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Miedzygalaktyczna Siec Badan Naukowych na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=123&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z += 1

Case "Naped impulsowy"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("impulsowy")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Naped impulsowy na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=117&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z += 1

Case "Naped nadprzestrzenny"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("impulsowy")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Naped nadprzestrzenny na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=118&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z += 1

Case "Technologia szpiegowska"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Technologia szpiegowska")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Technologia szpiegowska na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=106&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z += 1

Case "Technologia komputerowa"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Technologia komputerowa")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Technologia komputerowa na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=108&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z +=1

Case "Naped spalinowy"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Napęd spalinowy")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Naped spalinowy na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=115&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z +=1

Case "Technologia plazmowa"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Technologia plazmowa")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Technologia plazmowa na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=122&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z +=1

Case "Technologia nadprzestrzenna"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Technologia nadprzestrzenna")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Technologia nadprzestrzenna na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=114&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(15000, 20000, 1)

EndIf

$z +=1

Case "Technologia jonowa"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Technologia jonowa")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Technologia jonowa na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=121&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z +=1

Case "Technologia energetyczna"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Technologia energetyczna")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Technologia energetyczna na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=113&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z +=1

Case "Technologia laserowa"

$link = token3()

If $link = 1 Then

$timeout = avalibe3("Technologia laserowa")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto badanie Technologia laserowa na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&modus=1&type=120&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

$timeout = Random(3000, 6000, 1)

EndIf

$z +=1

EndSwitch

Else

$z += 1

EndIf

Else

$aha = True

EndIf

Sleep($timeout)

Until $aha

$timeout = 4000

If $aha = True Then

_IELoadWait($oIE)

$sHTML = _IEBodyReadHTML($oIE)

ConsoleWrite("tutaj")

$i = _GUICtrlListView_GetItemText($listview, $z)

$aItem = _GUICtrlListView_GetItemTextArray($listview, $z)

Switch $i

Case "Metal"

$link = token1()

If $link = 1 Then

$timeout = avalibe1("Kopalnia metalu")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe kopalni metalu na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&modus=1&type=1&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Krycha"

$link = token1()

If $link = 1 Then

$timeout = avalibe1("Kopalnia kryszta")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe kopalni kryształu na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&modus=1&type=2&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Deuter"

$link = token1()

If $link = 1 Then

$timeout = avalibe1("Ekstraktor deuteru")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe kopalni deuteru na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&modus=1&type=3&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Elektrownia Sloneczna"

$link = token1()

If $link = 1 Then

$timeout = avalibe1("Elektrownia słoneczna")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe elektrowni słonecznej na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&modus=1&type=4&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

;;;;;;;;;;;;;;;;;;;;;;;;;;

Case "Elektrownia Fuzyjna"

$link = token1()

If $link = 1 Then

$timeout = avalibe1("Elektrownia fuzyjna")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe elektrowni fuzyjnej na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&modus=1&type=12&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Magazyn metalu"

$link = token1()

If $link = 1 Then

$timeout = avalibe1("Magazyn metalu")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe magazynu metalu na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&modus=1&type=22&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Magazyn krysztalu"

$link = token1()

If $link = 1 Then

$timeout = avalibe1("Magazyn kryształu")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe magazynu krysztalu na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&modus=1&type=23&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Zbiornik deuteru"

$link = token1()

If $link = 1 Then

$timeout = avalibe1("Zbiornik deuteru")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe zbiornika deuteru na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&modus=1&type=24&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Oddalona kryjowka metalu"

$link = token1()

If $link = 1 Then

$timeout = avalibe1("Oddalona")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe kryjówki metalu na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&modus=1&type=25&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Podziemna kryjowka na krysztal"

$link = token1()

If $link = 1 Then

$timeout = avalibe1("Podziemna")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe kryjówki na kryształ na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&modus=1&type=26&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Kryjowka na deuter na dnie morza"

$link = token1()

If $link = 1 Then

$timeout = avalibe1("na deuter na dnie morza")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe kryjówki na deuter na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&modus=1&type=27&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Fabryka"

$link = token2()

If $link = 1 Then

$timeout = avalibe2("Fabryka")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe Fabryki robotów na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=station&modus=1&type=14&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

;;;;;;;Fabryka nanitów|Terraformer

Case "Stocznia"

$link = token2()

If $link = 1 Then

$timeout = avalibe2("Stocznia")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe stoczni na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=station&modus=1&type=21&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Laboratorium badawcze"

$link = token2()

If $link = 1 Then

$timeout = avalibe2("Laboratorium")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe labolatorium badawcze na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=station&modus=1&type=31&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Depozyt sojuszniczy"

$link = token2()

If $link = 1 Then

$timeout = avalibe2("Depozyt")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe depozyt sojuszniczy na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=station&modus=1&type=34&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

Case "Silos rakietowy"

$link = token2()

If $link = 1 Then

$timeout = avalibe2("Silos")

Else

_GUICtrlListView_DeleteItem($listview, $z)

_GUICtrlEdit_AppendText($Edit1, "Zaczęto budowe silos rakietowy na " & $array[$aItem[2] - 1] & "." & @CRLF)

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=station&modus=1&type=44&menge=1&token=" & $link)

_IELoadWait($oIE)

$link = 1

EndIf

EndSwitch

$z = 0

EndIf

Sleep($timeout)

EndIf

$aha = False

WEnd

EndIf

EndFunc ;==>main

Func token()

_IELoadWait($oIE)

$sHTML = _IEBodyReadHTML($oIE)

$aff = _StringBetween($sHTML, 'target=_blank>', "</a>")

If IsArray($aff) Then

$token = $aff[0]

Return $aff[0]

Else

Return 1

$token = 1

EndIf

EndFunc ;==>token

Func token1()

If _IEPropertyGet($oIE, "locationurl") = "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&cp=" & $index[$aItem[2]] Then

Else

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&cp=" & $index[$aItem[2]])

_IELoadWait($oIE)

EndIf

$sHTML = _IEBodyReadHTML($oIE)

$aff = _StringBetween($sHTML, "token=", "'")

ConsoleWrite("token1" & @CRLF)

If IsArray($aff) Then

ConsoleWrite($aff[0] & @CRLF)

$token = $aff[0]

Return $aff[0]

Else

Return 1

$token = 1

EndIf

EndFunc ;==>token1

Func token2()

If _IEPropertyGet($oIE, "locationurl") = "http://" & $serwerlink & ".ogame.pl/game/index.php?page=station&cp=" & $index[$aItem[2]] Then

Else

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=station&cp=" & $index[$aItem[2]])

_IELoadWait($oIE)

EndIf

$sHTML = _IEBodyReadHTML($oIE)

$aff = _StringBetween($sHTML, "token=", "'")

ConsoleWrite("token2" & @CRLF)

If IsArray($aff) Then

ConsoleWrite($aff[0] & @CRLF)

$token = $aff[0]

$link = $aff[0]

Return $aff[0]

Else

Return 1

$token = 1

EndIf

EndFunc ;==>token2

Func token3()

If _IEPropertyGet($oIE, "locationurl") = "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&cp=" & $index[$aItem[2]] Then

Else

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&cp=" & $index[$aItem[2]])

_IELoadWait($oIE)

EndIf

$sHTML = _IEBodyReadHTML($oIE)

$aff = _StringBetween($sHTML, "token=", "'")

ConsoleWrite("token3" & @CRLF)

If IsArray($aff) Then

ConsoleWrite($aff[0] & @CRLF)

$token = $aff[0]

Return $aff[0]

Else

Return 1

$token = 1

EndIf

EndFunc ;==>token3

func avalibe1($nazwa)

If _IEPropertyGet($oIE, "locationurl") = "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&cp=" & $index[$aItem[2]] Then

Else

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&cp=" & $index[$aItem[2]])

_IELoadWait($oIE)

EndIf

$sHTML = _IEBodyReadHTML($oIE)

ConsoleWrite("avalibe1" & @CRLF)

$aff = _StringBetween($sHTML, $nazwa, 'ref=')

if IsArray($aff) Then

if StringInStr($aff[0], "Za") Then

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=resources&cp=" & $index[$aItem[2]])

_IELoadWait($oIE)

Return random(20000,25000,1)

Else

return 4000

EndIf

Else

return 4000

EndIf

EndFunc

func avalibe2($nazwa)

If _IEPropertyGet($oIE, "locationurl") = "http://" & $serwerlink & ".ogame.pl/game/index.php?page=station&cp=" & $index[$aItem[2]] Then

Else

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=station&cp=" & $index[$aItem[2]])

_IELoadWait($oIE)

EndIf

$sHTML = _IEBodyReadHTML($oIE)

ConsoleWrite("avalibe2" & @CRLF)

$aff = _StringBetween($sHTML, $nazwa, 'ref=')

if IsArray($aff) Then

if StringInStr($aff[0], "Za") Then

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=station&cp=" & $index[$aItem[2]])

_IELoadWait($oIE)

Return random(20000,25000,1)

Else

return 4000

EndIf

Else

return 4000

EndIf

EndFunc

func avalibe3($nazwa)

If _IEPropertyGet($oIE, "locationurl") = "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&cp=" & $index[$aItem[2]] Then

Else

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&cp=" & $index[$aItem[2]])

_IELoadWait($oIE)

EndIf

$sHTML = _IEBodyReadHTML($oIE)

ConsoleWrite("avalibe2" & @CRLF)

$aff = _StringBetween($sHTML, $nazwa, 'ref=')

if IsArray($aff) Then

if StringInStr($aff[0], "Za") Then

_IENavigate($oIE, "http://" & $serwerlink & ".ogame.pl/game/index.php?page=research&cp=" & $index[$aItem[2]])

_IELoadWait($oIE)

Return random(20000,25000,1)

Else

return 4000

EndIf

Else

return 4000

EndIf

EndFunc

Func login($login, $pass)

_IENavigate($oIE, "http://www.ogame.pl")

_IELinkClickByText($oIE, "Login")

Sleep(2000)

;$sHTML = _IEBodyReadHTML($oIE)

;$array = _StringBetween($shtml,"class>","</a>")

;_ArrayDisplay($array,"as")

;Local $oDiv = _IEGetObjById($oIE, "loginBtn")

;_IEAction($oDiv, "click")

;sleep(1000)

$forma = _IEFormGetObjByName($oIE, "loginForm")

$oSelect = _IEFormElementGetObjByName($forma, "uni_url")

$f_login = _IEFormElementGetObjByName($forma, "login")

$f_haslo = _IEFormElementGetObjByName($forma, "pass")

_IEFormElementOptionSelect($oSelect, GUICtrlRead($Combo2), 1, "byText")

_IEFormElementSetValue($f_login, $login)

_IEFormElementSetValue($f_haslo, $pass)

Local $oDiv = _IEGetObjById($oIE, "loginSubmit")

_IEAction($oDiv, "click")

_IELoadWait($oIE)

If token() = "Support" Then

_GUICtrlEdit_AppendText($Edit1, "Zalogowano." & @CRLF)

Else

_GUICtrlEdit_AppendText($Edit1, "Niezalogowano." & @CRLF)

EndIf

$token = token()

EndFunc ;==>login

Func _WM_SYS_COMMAND($hWnd, $iMsg, $wParam, $lParam)

Switch $hWnd

Case $Form1_1

Switch $wParam

Case 0xF060

if msgbox(1,"Informacja","Czy na pewno chcesz wyłączyć bota?") = 2 Then

Else

Exit

EndIf

EndSwitch

EndFunc ;==>_WM_SYS_COMMAND

Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)

If BitAND($wParam, 0x0000FFFF) = $GUI_EVENT_CLOSE Then $Interrupt = 1

Switch BitAND($wParam, 0xFFFF)

Case $Button2

_GUICtrlListView_DeleteItemsSelected(GUICtrlGetHandle($listview))

Case $Button1

$aha = GUICtrlRead($Combo1)

$aha1 = GUICtrlRead($Combo3)

If $aha1 = "" Then

MsgBox(0, "", "Kliknij zaloguj aby wczytać planety")

Else

$tabliczka = _StringBetween(GUICtrlRead($Combo3), "", "-")

GUICtrlCreateListViewItem($aha & "|" & $tabliczka[0], $listview)

EndIf

Case $Button4

If GUICtrlGetState($obj) = 96 Then

GUICtrlSetState($obj, $gui_show)

Else

GUICtrlSetState($obj, $gui_hide)

EndIf

Case $Button3

If GUICtrlRead($Button3) = "Start" Then

main()

EndIf

case $GUI_EVENT_MINIMIZE

guisetstate(@sw_hide,$Form1_1)

EndSwitch

Return $GUI_RUNDEFMSG

EndFunc ;==>WM_COMMAND

wklejka http://wklej.to/IZOH1

sprawdzaj wyswietl linie bo teraz czeste uptade

już działa

Zaloguj się

👋 Witaj na MPCForum!

[SOURCE]rayOgameEkoBot bot do ogame

Rekomendowane odpowiedzi

jackraymund

jackraymund

Zarchiwizowany