Register for your free account! | Forgot your password?

Go Back   elitepvpers > Guild Wars 2 > GW2 Hacks, Bots, Cheats & Exploits
You last visited: Today at 20:33

  • Please register to post and access all features, it's quick, easy and FREE!

 

[Release | Midnight | AutoIt 3] Another Winter JP Bot Source

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Dec 2015
Posts: 3
Received Thanks: 0
[Release | Midnight | AutoIt 3] Another Winter JP Bot Source

Here is the source of a little Winter JP bot I have written in AutoIT and used as long as the instance full bug was in place...
It needs midnight because i was too lazy to pointer scan myself.

Oh and the chest looted detection doesnt really work but i didn't care so you have to debug it yourself, nevertheless the script is working.

Requirements:
- AutoIt
- Midnight

HowTo:

- Install AutoIt + Scite
- Paste the code below in a new file with the extension ".au3"
- Open the File with the AutoIt Scite Script Editor
- Adjust the variables at the top (midnight username / password)
- Compile as x86 exe
- Put the .exe into your midnight folder
- When you are in the Winter JP map, run the .exe
- Stay AFK

Script:
Code:
#RequireAdmin
#include <MsgBoxConstants.au3>

HotKeySet("{ESC}", "Terminate")

Global $hwndGw2 = 0
Global $hwndMidnight = 0
Global $checkpoints[12][3]

;Change to your liking
Global $midnightUsername = "MIDNIGHTUSERNAME"
Global $midnightPassword = "MIDNIGHTPASSWORD"
Global $waitMsBetweenRuns = 50000
Global $waitLoading = 5000
Global $waitBetweenPorts = 500



Initialize()
BotLoop()

Func Initialize()
	ToolTip("WinterJP Bot: Initializing. Press ESC to quit...",0,0)
	$hwndGw2 = WinWait("[CLASS:ArenaNet_Dx_Window_Class]", "", 10)
	If $hwndGw2 = 0 Then
		MsgBox(0x0, "Error", "Guild Wars 2 is not started, start Guild Wars 2 first and then restart the bot!")
		Exit 1
	EndIf

	ConsoleWrite("Closing all Midnight instances..." & @CRLF)
	$procList = ProcessList("Midnight.exe")
	For $i = 1 To $procList[0][0]
		ProcessClose($procList[$i][1])
	Next

	$procListHb = ProcessList("hb.exe")
	For $i = 1 To $procListHb[0][0]
		ProcessClose($procListHb[$i][1])
	Next

	ConsoleWrite("Starting Midnight")
	Local $midnightPid = Run("Midnight.exe", "", @SW_SHOWMINIMIZED)

	If NOT $midnightPid = 0 Then
		Sleep(3000)
		$theWinlist = Winlist()
		Local $try = 0
		Do
			For $i = 1 To $theWinlist[0][0]
				If $theWinlist[$i][0] <> "" Then
					$iPID2 = WinGetProcess($theWinlist[$i][1])
					If $iPID2 = $midnightPid Then
						$hwndMidnight = $theWinlist[$i][1]
						ExitLoop
					EndIf
				EndIf
			Next
			Sleep(1000)
			$try = $try + 1
		Until $hwndMidnight <> 0 OR $try = 4
	Else
		MsgBox($MB_OK, "Error", "Midnight not found, please make sure this bot is in the same folder as Midnight!")
		Exit(1)
	EndIf

	If NOT $hwndMidnight = 0 Then
		ConsoleWrite("Midnight is running, loging in...")
		ControlSetText($hwndMidnight, "", 6, $midnightUsername)
		ControlSetText($hwndMidnight, "", 9, $midnightPassword)
		ControlFocus($hwndMidnight, "", 11)
		ControlClick($hwndMidnight, "", 11)
		ControlFocus($hwndMidnight, "", 12)
		ControlClick($hwndMidnight, "", 12)

		; Refreshing handle...
		Local $lastHwndMidnight = $hwndMidnight
		$hwndMidnight = 0

		Sleep(1000)
		$theWinlist = Winlist()
		$try = 0
		Do
			For $i = 1 To $theWinlist[0][0]
				If $theWinlist[$i][0] <> "" Then
					$iPID2 = WinGetProcess($theWinlist[$i][1])
					If $iPID2 = $midnightPid Then
						$hwndMidnight = $theWinlist[$i][1]
						ExitLoop
					EndIf
				EndIf
			Next
			Sleep(1000)
			$try = $try + 1
		Until $hwndMidnight <> 0 AND NOT $hwndMidnight = $lastHwndMidnight OR $try = 4


		Local $found = 0
		For $i = 0 To 4
			Sleep(1000)

			If NOT StringInStr(WinGetTitle($hwndMidnight), "Midnight 1.7") = 0 Then
				$found = 1
			EndIf
		Next
		If $found = 0 Then
			MsgBox($MB_OK, "Error", "Midnight couldn't be correctly started, maybe an update? Make sure your entered the correct midnight login credentials and your toon is logged in and standing in the world!")
			Exit(1)
		EndIf
	Else
		MsgBox($MB_OK, "Error", "Midnight couldn't be started. Please debug me.")
		Exit(1)
	EndIf

	$checkpoints[0][0] ="-36.71"
	$checkpoints[0][1] = "67.21"
	$checkpoints[0][2] = "39.96"

	$checkpoints[1][0] = "-99.09"
	$checkpoints[1][1] = "55.22"
	$checkpoints[1][2] = "63.85"

	$checkpoints[2][0] = "-100.41"
	$checkpoints[2][1] = "49.63"
	$checkpoints[2][2] = "77.04"

	$checkpoints[3][0] = "-112.49"
	$checkpoints[3][1] = "3.72"
	$checkpoints[3][2] = "63.03"

	$checkpoints[4][0] = "-127.41"
	$checkpoints[4][1] = "-34.23"
	$checkpoints[4][2] = "58.57"

	$checkpoints[5][0] = "-148.08"
	$checkpoints[5][1] = "-93.72"
	$checkpoints[5][2] = "65.24"

	$checkpoints[6][0] = "-158.48"
	$checkpoints[6][1] = "-128.1"
	$checkpoints[6][2] = "50.19"

	$checkpoints[7][0] = "-190.65"
	$checkpoints[7][1] = "-119.23"
	$checkpoints[7][2] = "49.81"

	$checkpoints[8][0] = "-202.22"
	$checkpoints[8][1] = "-123.66"
	$checkpoints[8][2] = "54.32"

	$checkpoints[9][0] = "-215.82"
	$checkpoints[9][1] = "-142.38"
	$checkpoints[9][2] = "58.13"

	$checkpoints[10][0] = "-214.56"
	$checkpoints[10][1] = "-186.26"
	$checkpoints[10][2] = "85"

	$checkpoints[11][0] = "98.27"
	$checkpoints[11][1] = "122.41"
	$checkpoints[11][2] = "88.86"

	If $waitMsBetweenRuns < 50000 Then
		$waitMsBetweenRuns = 50000
	EndIf
EndFunc

Func BotLoop()
	While 1
		ToolTip("WinterJP Bot: Running. Press ESC to quit...",0,0)
		If $hwndGw2 = 0 OR $hwndMidnight = 0 Then
			MsgBox($MB_OK, "Error", "Midnight or GW2 not running anymore. Please restart the bot.")
			Exit(1)
		EndIf
		WinActivate($hwndGw2)
		Send("1")
		Sleep(500)
		For $i = 0 To 10
			TeleportTo($checkpoints[$i][0],$checkpoints[$i][1],$checkpoints[$i][2])
			Sleep($waitBetweenPorts);
		Next
		Sleep($waitLoading - $waitBetweenPorts)
		TeleportTo($checkpoints[11][0],$checkpoints[11][1],$checkpoints[11][2])
		Sleep($waitBetweenPorts)
		If NOT GetPosition() = "98.27 | 122.41 | 88.86" Then
			Sleep(10000)
			TeleportTo($checkpoints[11][0],$checkpoints[11][1],$checkpoints[11][2] - 50)
		Else
			WinActivate($hwndGw2)
			Send("f")
			Sleep(1000)
			WinActivate($hwndGw2)
			Send("f")
			Sleep(1000)
			WinActivate($hwndGw2)
			Send("f")
			Sleep(1000)
			TeleportTo($checkpoints[11][0],$checkpoints[11][1],$checkpoints[11][2] - 50)
			Sleep(3000)
			For $i = 0 To 3
				TeleportTo($checkpoints[$i][0],$checkpoints[$i][1],$checkpoints[$i][2])
				Sleep($waitBetweenPorts)
			Next
			WaitForNext()
		EndIf
	WEnd
EndFunc

Func TeleportTo($x, $y, $z)
	ControlSetText($hwndMidnight, "", 17, $x)
	ControlSetText($hwndMidnight, "", 18, $y)
	ControlSetText($hwndMidnight, "", 19, $z)
	ControlFocus($hwndMidnight, "", 20)
	ControlClick($hwndMidnight, "", 20)
EndFunc

Func GetPosition()
	Local $ret = 0
	If NOT $hwndMidnight = 0 Then
		$txTitle = WinGetTitle($hwndMidnight)
		$posStart = StringInStr($txTitle, "(")
		$posEnd = StringInStr($txTitle, ")")
		$posLength = $posEnd - $posStart
		$ret = StringMid($txTitle, $posStart + 1, $posLength - 1)
	EndIf
	Return $ret
EndFunc

Func WaitForNext()
	$cycles = Int($waitMsBetweenRuns / 1000)
	For $i = 0 To $cycles - 1
		ToolTip("WinterJP Bot: Performing AntiAFK - " & $cycles - $i & ". cycle. Press ESC to quit...",0,0)
		WinActivate($hwndGw2)
		Send("1");
		Sleep(1000)
	Next
EndFunc

Func Terminate()
    Exit(0)
EndFunc
On a sidenote, If someone knows if there is a way to trigger some invisibility hack and lets me know i will write and release a fully automated JP bot, which joins the jp, makes the puzzle and leaves shortly before the timer runs out...

Enjoy...

Greetings,
Pathin



Pathin is offline  
Old   #2
 
elite*gold: 0
Join Date: May 2014
Posts: 39
Received Thanks: 1
awesome! thanks. please do tell what makes this dif from boaretas release


aaocheater is offline  
Old   #3
 
elite*gold: 0
Join Date: Dec 2015
Posts: 3
Received Thanks: 0
Quote:
Originally Posted by aaocheater View Post
awesome! thanks. please do tell what makes this dif from boaretas release
No idea. I have written this because his bot in the first version sucked. I have never used his bot... But at least people have a source now which will give them a starting point on how easy it is to do automated tasks...
Pathin is offline  
Old   #4
 
elite*gold: 0
Join Date: Jun 2014
Posts: 9
Received Thanks: 0
Tried it but even when im in the instance and run everything as Admin I get this error "Midnight couldn't be correctly started, maybe an update? Make sure your entered the correct midnight login credentials and your toon is logged in and standing in the world"


PrinceAlexLane is offline  
Old   #5
 
elite*gold: 0
Join Date: Dec 2014
Posts: 6
Received Thanks: 0
Quote:
Originally Posted by PrinceAlexLane View Post
Tried it but even when im in the instance and run everything as Admin I get this error "Midnight couldn't be correctly started, maybe an update? Make sure your entered the correct midnight login credentials and your toon is logged in and standing in the world"
Same as this guy....
Seryph is offline  
Old   #6
 
elite*gold: 0
Join Date: Dec 2015
Posts: 3
Received Thanks: 0
Code:
ConsoleWrite("Midnight is running, loging in...")
		ControlSetText($hwndMidnight, "", 6, $midnightUsername)
		ControlSetText($hwndMidnight, "", 9, $midnightPassword)
		ControlFocus($hwndMidnight, "", 11)
		ControlClick($hwndMidnight, "", 11)
		ControlFocus($hwndMidnight, "", 12)
		ControlClick($hwndMidnight, "", 12)
Might be the problem.
Add some sleep there between the clicks


Pathin is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
[Source] SRO BOT Source Code(AutoIt)
I am finally going to release the source code to srobot.. it is a autoit bot.. ( befor you flame on auto it... check it out ) this is a very very...
34 Replies - SRO Hacks, Bots, Cheats & Exploits
[RELEASE] [OPEN SOURCE] CE 5.5 Pointer to AutoIt Source-Code
Habe heute erst gemerkt, dass es hier eine AutoIt Sektion gibt xD also poste ich mal mein Programm mit rein. Funktionsweise: 1. in CE Rechtsklick...
6 Replies - AutoIt



All times are GMT +2. The time now is 20:33.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy
Copyright ©2017 elitepvpers All Rights Reserved.