Skocz do zawartości

[AutoIT] [BOT] Darkorbit KAMIENIE


# CSH External VIP Project

Masz dosyć problemów z czynnikiem zaufania w CS2 lub notorycznymi banami?

Sprawdź CSH External VIP Project.


Więcej informacji  

Rekomendowane odpowiedzi

Daje source do bota na high  tech, trochę prosty ale ważne że jest :)

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=logoht.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=High-Tech Bot 2.0 by GameOverMan
#AutoIt3Wrapper_Res_Description=High-Tech Bot 2.0 by GameOverMan
#AutoIt3Wrapper_Res_Language=1045
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <WinHTTP.au3>
#include <string.au3>
#include <timers.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Func _URIEncode($sData)
    Local $aData = StringSplit(BinaryToString(StringToBinary($sData,4),1),"")
    Local $nChar
    $sData=""
    For $i = 1 To $aData[0]
        ConsoleWrite($aData[$i] & @CRLF)
        $nChar = Asc($aData[$i])
        Switch $nChar
            Case 45, 46, 48-57, 65 To 90, 95, 97 To 122, 126
                $sData &= $aData[$i]
            Case 32
                $sData &= "+"
            Case Else
                $sData &= "%" & Hex($nChar,2)
        EndSwitch
    Next
    Return $sData
EndFunc

FileInstall("RPM.bmp", @TempDir & "\RPM.bmp")
FileInstall("BRB.bmp", @TempDir & "\BRB.bmp")
FileInstall("SBU.bmp", @TempDir & "\SBU.bmp")
FileInstall("ELA.bmp", @TempDir & "\ELA.bmp")
FileInstall("ECI.bmp", @TempDir & "\ECI.bmp")

$GoOut = 0
$TimerRPM = 7200000
$TimerBRB = 43200000
$TimerSBU = 43200000
$TimerELA = 43200000
$TimerECI = 21600000

;GUI

$Form1 = GUICreate("High-Tech Bot 2.0 by GameOverMan", 492, 290, 430, 154)

$Group1 = GUICtrlCreateGroup("Logowanie", 16, 16, 169, 241)
$Label16 = GUICtrlCreateLabel("Login:", 32, 48, 33, 17)
$Label17 = GUICtrlCreateLabel("Hasło:", 32, 80, 36, 17)
$Label18 = GUICtrlCreateLabel("Serwer:", 32, 112, 40, 17)
$Input1 = GUICtrlCreateInput("", 72, 45, 97, 21)
GUICtrlSetData(-1, FileReadLine("DarkLogin.ini", 1))
$Input2 = GUICtrlCreateInput("", 72, 77, 97, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
GUICtrlSetData(-1, FileReadLine("DarkLogin.ini", 2))
$Input3 = GUICtrlCreateInput("", 72, 109, 97, 21)
GUICtrlSetData(-1, FileReadLine("DarkLogin.ini", 3))
$Button1 = GUICtrlCreateButton("Start", 32, 144, 137, 33)
$Checkbox6 = GUICtrlCreateCheckbox("Zapamiętaj", 32, 184, 120, 17, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_CENTER))
GUICtrlSetState(-1, $GUI_CHECKED)
$Label16 = GUICtrlCreateLabel("Niezalogowany...", 32, 224, 137, 17, $SS_CENTER)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group2 = GUICtrlCreateGroup("Przedmioty", 200, 16, 86, 241)
$Pic1 = GUICtrlCreatePic(@TempDir & "\RPM.bmp", 216, 44, 33, 36)
$Pic2 = GUICtrlCreatePic(@TempDir & "\BRB.bmp", 216, 84, 33, 36)
$Pic3 = GUICtrlCreatePic(@TempDir & "\SBU.bmp", 216, 124, 33, 36)
$Pic4 = GUICtrlCreatePic(@TempDir & "\ELA.bmp", 216, 164, 33, 36)
$Pic5 = GUICtrlCreatePic(@TempDir & "\ECI.bmp", 216, 204, 33, 36)
$Checkbox1 = GUICtrlCreateCheckbox("", 254, 55, 16, 16)
$Checkbox2 = GUICtrlCreateCheckbox("", 254, 95, 16, 16)
$Checkbox3 = GUICtrlCreateCheckbox("", 254, 135, 16, 16)
$Checkbox4 = GUICtrlCreateCheckbox("", 254, 175, 16, 16)
$Checkbox5 = GUICtrlCreateCheckbox("", 254, 215, 16, 16)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group3 = GUICtrlCreateGroup("Produkcja / Ukończono", 302, 16, 174, 241)
$Label1 = GUICtrlCreateLabel("Nie rozpoczęto...", 318, 56, 96, 17)
$Label2 = GUICtrlCreateLabel("Nie rozpoczęto...", 318, 96, 96, 17)
$Label3 = GUICtrlCreateLabel("Nie rozpoczęto...", 318, 136, 96, 17)
$Label4 = GUICtrlCreateLabel("Nie rozpoczęto...", 318, 176, 96, 17)
$Label5 = GUICtrlCreateLabel("Nie rozpoczęto...", 318, 216, 96, 17)
$Label6 = GUICtrlCreateLabel("/", 416, 56, 8, 17)
$Label7 = GUICtrlCreateLabel("/", 416, 96, 8, 17)
$Label8 = GUICtrlCreateLabel("/", 416, 136, 8, 17)
$Label9 = GUICtrlCreateLabel("/", 416, 176, 8, 17)
$Label10 = GUICtrlCreateLabel("/", 416, 216, 8, 17)
$Label11 = GUICtrlCreateLabel("0", 426, 56, 34, 17)
$Label12 = GUICtrlCreateLabel("0", 426, 96, 34, 17)
$Label13 = GUICtrlCreateLabel("0", 426, 136, 34, 17)
$Label14 = GUICtrlCreateLabel("0", 426, 176, 34, 17)
$Label15 = GUICtrlCreateLabel("0", 426, 216, 34, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Label17 = GUICtrlCreateLabel("High-Tech Bot 2.0 by GameOverMan", 16, 268, 448, 17, $SS_CENTER)
GUISetState(@SW_SHOW)

;;;;;;;;;;Pętla 1 START
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			GUICtrlSetData($Button1, "Stop")
			GUICtrlSetState($Input1, $GUI_DISABLE)
			GUICtrlSetState($Input2, $GUI_DISABLE)
			GUICtrlSetState($Input3, $GUI_DISABLE)
			GUICtrlSetState($Checkbox6, $GUI_DISABLE)
			GUICtrlSetState($Checkbox1, $GUI_DISABLE)
			GUICtrlSetState($Checkbox2, $GUI_DISABLE)
			GUICtrlSetState($Checkbox3, $GUI_DISABLE)
			GUICtrlSetState($Checkbox4, $GUI_DISABLE)
			GUICtrlSetState($Checkbox5, $GUI_DISABLE)

			$Login = _URIEncode(GUICtrlRead($Input1))
			$Haslo = _URIEncode(GUICtrlRead($Input2))
			$Serwer = GUICtrlRead($Input3)

			If GUICtrlRead($Checkbox6) = 1 Then
				If FileExists("DarkLogin.ini") Then
					FileDelete("DarkLogin.ini")
				EndIf
				$FileOpen = FileOpen("DarkLogin.ini", 64+2)
				FileWrite($FileOpen, GUICtrlRead($Input1) & @CRLF & GUICtrlRead($Input2) & @CRLF & GUICtrlRead($Input3))
				FileClose($FileOpen)
				FileSetAttrib("DarkLogin.ini", "+H")
			EndIf

			If GUICtrlRead($Checkbox1) = 1 Then
				RPM()
			EndIf
			If GUICtrlRead($Checkbox2) = 1 Then
				BRB()
			EndIf
			If GUICtrlRead($Checkbox3) = 1 Then
				SBU()
			EndIf
			If GUICtrlRead($Checkbox4) = 1 Then
				ELA()
			EndIf
			If GUICtrlRead($Checkbox5) = 1 Then
				ECI()
			EndIf
;;;;;;;;;;Pętla 2 START
			While 1
				If $GoOut = 1 Then
					$GoOut = 0
					GUICtrlSetData($Button1, "Start")
					GUICtrlSetState($Input1, $GUI_ENABLE)
					GUICtrlSetState($Input2, $GUI_ENABLE)
					GUICtrlSetState($Input3, $GUI_ENABLE)
					GUICtrlSetState($Checkbox6, $GUI_ENABLE)
					GUICtrlSetState($Checkbox1, $GUI_ENABLE)
					GUICtrlSetState($Checkbox2, $GUI_ENABLE)
					GUICtrlSetState($Checkbox3, $GUI_ENABLE)
					GUICtrlSetState($Checkbox4, $GUI_ENABLE)
					GUICtrlSetState($Checkbox5, $GUI_ENABLE)
					$TimerRPM = 7200000
					$TimerBRB = 43200000
					$TimerSBU = 43200000
					$TimerELA = 43200000
					$TimerECI = 21600000
					ExitLoop
				EndIf

				If GUICtrlRead($Checkbox1) = 1 And TimerDiff($TimerRPM) > 7200000 Then
					RPM()

				EndIf

				If GUICtrlRead($Checkbox2) = 1 And TimerDiff($TimerBRB) > 43200000 Then
					BRB()
				EndIf

				If GUICtrlRead($Checkbox3) = 1 And TimerDiff($TimerSBU) > 43200000 Then
					SBU()
				EndIf

				If GUICtrlRead($Checkbox4) = 1 And TimerDiff($TimerELA) > 43200000 Then
					ELA()
				EndIf

				If GUICtrlRead($Checkbox5) = 1 And TimerDiff($TimerECI) > 21600000 Then
					ECI()
				EndIf

				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						Exit
					Case $Button1
						GUICtrlSetData($Button1, "Start")
						GUICtrlSetState($Input1, $GUI_ENABLE)
						GUICtrlSetState($Input2, $GUI_ENABLE)
						GUICtrlSetState($Input3, $GUI_ENABLE)
						GUICtrlSetState($Checkbox6, $GUI_ENABLE)
						GUICtrlSetState($Checkbox1, $GUI_ENABLE)
						GUICtrlSetState($Checkbox2, $GUI_ENABLE)
						GUICtrlSetState($Checkbox3, $GUI_ENABLE)
						GUICtrlSetState($Checkbox4, $GUI_ENABLE)
						GUICtrlSetState($Checkbox5, $GUI_ENABLE)
						$TimerRPM = 7200000
						$TimerBRB = 43200000
						$TimerSBU = 43200000
						$TimerELA = 43200000
						$TimerECI = 21600000
						ExitLoop
				EndSwitch
			WEnd
;;;;;;;;;;Pętla 2 END
	EndSwitch
WEnd
;;;;;;;;;;Pętla 1 END


Func RPM()
GUICtrlSetData($Label16, "Logowanie...")

$hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:14.0) Gecko/20100101 Firefox/14.0.1")
$hConnect = _WinHttpConnect($hSession, $Serwer & ".darkorbit.bigpoint.com")

$Logowanie = _WinHttpSimpleRequest($hConnect, "POST", "/?locale=es&aid=0", "", "loginForm_default_username=" & $Login & "&loginForm_default_password=" & $Haslo & "&loginForm_default_login_submit=Login")

$LoginError = _StringBetween($Logowanie, "loginErrorMessage", " nazwy")

	If $LoginError = "0" Then

		GUICtrlSetData($Label16, "Wybieranie serwera...")

		$Req = _StringBetween($Logowanie, $Serwer & ".darkorbit.bigpoint.com/GameAPI.php?req=", '">')

		$WybieranieSerwera = _WinHttpSimpleRequest($hConnect, "POST", "/GameAPI.php?req=" & $Req[0], "", $Req[0])

		GUICtrlSetData($Label16, "Zalogowany!")

		$Produkcja = _WinHttpSimpleRequest($hConnect, "POST", "/indexInternal.es?action=internalNanoTechFactory&subaction=buildBuff&buff=RPM&level=1&reloadToken=2fc1d29f1bec138b66528e8bca7d9fd8", "", "action=internalNanoTechFactory&subaction=buildBuff&buff=RPM&level=1&reloadToken=2fc1d29f1bec138b66528e8bca7d9fd8")
		$TimerRPM = TimerInit()
		$ProdukcjaEnd = _StringBetween($Produkcja, "xajax_nanoTechFactoryShowBuff('RPM','1','", "</div></div>")
		$ProdukcjaEnd2 = StringTrimLeft($ProdukcjaEnd[0], 102)
		If StringLeft($ProdukcjaEnd2, 12) = "      </div>" Then
		GUICtrlSetData($Label11, "0")
		Else
		GUICtrlSetData($Label11, $ProdukcjaEnd2)
		EndIf
		GUICtrlSetData($Label1, "Produkcja w toku...")

		_WinHttpCloseHandle($hConnect)
		_WinHttpCloseHandle($hSession)

	Else
		GUICtrlSetData($Label16, "Błędny login lub hasło!")
		_WinHttpCloseHandle($hConnect)
		_WinHttpCloseHandle($hSession)
		$GoOut = 1
	EndIf
EndFunc

Func BRB()
GUICtrlSetData($Label16, "Logowanie...")

$hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:14.0) Gecko/20100101 Firefox/14.0.1")
$hConnect = _WinHttpConnect($hSession, $Serwer & ".darkorbit.bigpoint.com")

$Logowanie = _WinHttpSimpleRequest($hConnect, "POST", "/?locale=es&aid=0", "", "loginForm_default_username=" & $Login & "&loginForm_default_password=" & $Haslo & "&loginForm_default_login_submit=Login")

$LoginError = _StringBetween($Logowanie, "loginErrorMessage", " nazwy")

	If $LoginError = "0" Then

		GUICtrlSetData($Label16, "Wybieranie serwera...")

		$Req = _StringBetween($Logowanie, $Serwer & ".darkorbit.bigpoint.com/GameAPI.php?req=", '">')

		$WybieranieSerwera = _WinHttpSimpleRequest($hConnect, "POST", "/GameAPI.php?req=" & $Req[0], "", $Req[0])
		GUICtrlSetData($Label16, "Zalogowany!")

		$Produkcja = _WinHttpSimpleRequest($hConnect, "POST", "/indexInternal.es?action=internalNanoTechFactory&subaction=buildBuff&buff=BRB&level=1&reloadToken=ed591609fdfcc7ab06b0c82293380e58", "", "action=internalNanoTechFactory&subaction=buildBuff&buff=BRB&level=1&reloadToken=ed591609fdfcc7ab06b0c82293380e58")
		$TimerBRB = TimerInit()
		$ProdukcjaEnd = _StringBetween($Produkcja, "xajax_nanoTechFactoryShowBuff('BRB','1','", "</div></div>")
		$ProdukcjaEnd2 = StringTrimLeft($ProdukcjaEnd[0], 102)
		If StringLeft($ProdukcjaEnd2, 12) = "      </div>" Then
		GUICtrlSetData($Label12, "0")
		Else
		GUICtrlSetData($Label12, $ProdukcjaEnd2)
		EndIf
		GUICtrlSetData($Label2, "Produkcja w toku...")

		_WinHttpCloseHandle($hConnect)
		_WinHttpCloseHandle($hSession)

	Else
		GUICtrlSetData($Label16, "Błędny login lub hasło!")
		_WinHttpCloseHandle($hConnect)
		_WinHttpCloseHandle($hSession)
		$GoOut = 1
	EndIf
EndFunc

Func SBU()
GUICtrlSetData($Label16, "Logowanie...")

$hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:14.0) Gecko/20100101 Firefox/14.0.1")
$hConnect = _WinHttpConnect($hSession, $Serwer & ".darkorbit.bigpoint.com")

$Logowanie = _WinHttpSimpleRequest($hConnect, "POST", "/?locale=es&aid=0", "", "loginForm_default_username=" & $Login & "&loginForm_default_password=" & $Haslo & "&loginForm_default_login_submit=Login")

$LoginError = _StringBetween($Logowanie, "loginErrorMessage", " nazwy")

	If $LoginError = "0" Then

		GUICtrlSetData($Label16, "Wybieranie serwera...")

		$Req = _StringBetween($Logowanie, $Serwer & ".darkorbit.bigpoint.com/GameAPI.php?req=", '">')

		$WybieranieSerwera = _WinHttpSimpleRequest($hConnect, "POST", "/GameAPI.php?req=" & $Req[0], "", $Req[0])

		GUICtrlSetData($Label16, "Zalogowany!")

		$Produkcja = _WinHttpSimpleRequest($hConnect, "POST", "/indexInternal.es?action=internalNanoTechFactory&subaction=buildBuff&buff=SBU&level=1&reloadToken=c0de526d0398929a8b50a6d4303f7465", "", "action=internalNanoTechFactory&subaction=buildBuff&buff=SBU&level=1&reloadToken=c0de526d0398929a8b50a6d4303f7465")
		$TimerSBU = TimerInit()
		$ProdukcjaEnd = _StringBetween($Produkcja, "xajax_nanoTechFactoryShowBuff('SBU','1','", "</div></div>")
		$ProdukcjaEnd2 = StringTrimLeft($ProdukcjaEnd[0], 102)
		If StringLeft($ProdukcjaEnd2, 12) = "      </div>" Then
		GUICtrlSetData($Label13, "0")
		Else
		GUICtrlSetData($Label13, $ProdukcjaEnd2)
		EndIf
		GUICtrlSetData($Label3, "Produkcja w toku...")

		_WinHttpCloseHandle($hConnect)
		_WinHttpCloseHandle($hSession)

	Else
		GUICtrlSetData($Label16, "Błędny login lub hasło!")
		_WinHttpCloseHandle($hConnect)
		_WinHttpCloseHandle($hSession)
		$GoOut = 1
	EndIf
EndFunc

Func ELA()
GUICtrlSetData($Label16, "Logowanie...")

$hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:14.0) Gecko/20100101 Firefox/14.0.1")
$hConnect = _WinHttpConnect($hSession, $Serwer & ".darkorbit.bigpoint.com")

$Logowanie = _WinHttpSimpleRequest($hConnect, "POST", "/?locale=es&aid=0", "", "loginForm_default_username=" & $Login & "&loginForm_default_password=" & $Haslo & "&loginForm_default_login_submit=Login")

$LoginError = _StringBetween($Logowanie, "loginErrorMessage", " nazwy")

	If $LoginError = "0" Then

		GUICtrlSetData($Label16, "Wybieranie serwera...")

		$Req = _StringBetween($Logowanie, $Serwer & ".darkorbit.bigpoint.com/GameAPI.php?req=", '">')

		$WybieranieSerwera = _WinHttpSimpleRequest($hConnect, "POST", "/GameAPI.php?req=" & $Req[0], "", $Req[0])

		GUICtrlSetData($Label16, "Zalogowany!")

		$Produkcja = _WinHttpSimpleRequest($hConnect, "POST", "/indexInternal.es?action=internalNanoTechFactory&subaction=buildBuff&buff=ELA&level=1&reloadToken=a59f1cba9656ba881ebfe07fa3c7454a", "", "action=internalNanoTechFactory&subaction=buildBuff&buff=ELA&level=1&reloadToken=a59f1cba9656ba881ebfe07fa3c7454a")
		$TimerELA = TimerInit()
		$ProdukcjaEnd = _StringBetween($Produkcja, "xajax_nanoTechFactoryShowBuff('ELA','1','", "</div></div>")
		$ProdukcjaEnd2 = StringTrimLeft($ProdukcjaEnd[0], 102)
		If StringLeft($ProdukcjaEnd2, 12) = "      </div>" Then
		GUICtrlSetData($Label14, "0")
		Else
		GUICtrlSetData($Label14, $ProdukcjaEnd2)
		EndIf
		GUICtrlSetData($Label4, "Produkcja w toku...")

		_WinHttpCloseHandle($hConnect)
		_WinHttpCloseHandle($hSession)

	Else
		GUICtrlSetData($Label16, "Błędny login lub hasło!")
		_WinHttpCloseHandle($hConnect)
		_WinHttpCloseHandle($hSession)
		$GoOut = 1
	EndIf
EndFunc

Func ECI()
GUICtrlSetData($Label16, "Logowanie...")

$hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:14.0) Gecko/20100101 Firefox/14.0.1")
$hConnect = _WinHttpConnect($hSession, $Serwer & ".darkorbit.bigpoint.com")

$Logowanie = _WinHttpSimpleRequest($hConnect, "POST", "/?locale=es&aid=0", "", "loginForm_default_username=" & $Login & "&loginForm_default_password=" & $Haslo & "&loginForm_default_login_submit=Login")

$LoginError = _StringBetween($Logowanie, "loginErrorMessage", " nazwy")

	If $LoginError = "0" Then

		GUICtrlSetData($Label16, "Wybieranie serwera...")

		$Req = _StringBetween($Logowanie, $Serwer & ".darkorbit.bigpoint.com/GameAPI.php?req=", '">')

		$WybieranieSerwera = _WinHttpSimpleRequest($hConnect, "POST", "/GameAPI.php?req=" & $Req[0], "", $Req[0])

		GUICtrlSetData($Label16, "Zalogowany!")

		$Produkcja = _WinHttpSimpleRequest($hConnect, "POST", "/indexInternal.es?action=internalNanoTechFactory&subaction=buildBuff&buff=ECI&level=1&reloadToken=621458618841648f58bb7309e8593bec", "", "action=internalNanoTechFactory&subaction=buildBuff&buff=ECI&level=1&reloadToken=621458618841648f58bb7309e8593bec")
		$TimerECI = TimerInit()
		$ProdukcjaEnd = _StringBetween($Produkcja, "xajax_nanoTechFactoryShowBuff('ECI','1','", "</div></div>")
		$ProdukcjaEnd2 = StringTrimLeft($ProdukcjaEnd[0], 102)
		If StringLeft($ProdukcjaEnd2, 12) = "      </div>" Then
		GUICtrlSetData($Label15, "0")
		Else
		GUICtrlSetData($Label15, $ProdukcjaEnd2)
		EndIf
		GUICtrlSetData($Label5, "Produkcja w toku...")

		_WinHttpCloseHandle($hConnect)
		_WinHttpCloseHandle($hSession)

	Else
		GUICtrlSetData($Label16, "Błędny login lub hasło!")
		_WinHttpCloseHandle($hConnect)
		_WinHttpCloseHandle($hSession)
		$GoOut = 1
	EndIf
EndFunc
Odnośnik do komentarza

Dołącz do dyskusji

Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Usuń formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.

×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Umieściliśmy na Twoim urządzeniu pliki cookie, aby pomóc Ci usprawnić przeglądanie strony. Możesz dostosować ustawienia plików cookie, w przeciwnym wypadku zakładamy, że wyrażasz na to zgodę. Regulamin. Polityka prywatności