Tool for PW v2.1

Thảo luận trong 'Thế Giới Hoàn Mỹ' bắt đầu bởi Thanh_Thuy, 9/6/07.

Trang 1 của 5 trang
  1. Thanh_Thuy

    Thanh_Thuy Youtube Master Race

    Tham gia ngày:
    2/11/05
    Bài viết:
    41
    Nơi ở:
    Hà Nội
    Chào các bạn lần trước mình đã post chương trình 2 acc bây giờ mình post tiếp chương trình hỗ trợ game TGHM do mình tự viết nha.Đi thăng vào vấn đề luôn:

    ***Update Tool For PW v3.2 :Download here
    v3.2:
    - Thêm chúc năng điều pet (để pet ở chế độ phòng thủ rồi kết hợp với chúc năng điều pet của tool, pet sẽ vừa chủ động tấn công những con mob mà bạn target vừa tấn công những con tấn nó hoặc bạn).
    - Thêm chức năng bấm skill của pet (Khuyên bạn nên để thời gian chờ ngắn thôi dùng để đúng theo thời gian hồi của skill).
    v:3.1
    - Tăng số lượng skill từ 4 -- > 6.
    - Thêm chức năng tự đông cho thú ăn (6' cho ăn 1 lần).
    - Thêm chức năng tự động bơm máu cho thú.
    - Chương trình chạy ổn định hơn do cửa sổ game sẽ được cố định tại 1 vị trí và phương thức tính thời gian đã được thay đổi.
    - Sửa lỗi phím tắt bị trùng với phím điều Pet của tiên thú.

    *Các chức năng chính:
    -Giúp chơi 2 Acc TGHM hoặc nhiều hơn.
    -Auto HP :Tự động ăn Máu.
    -Auto MP :Tự động ăn Mama.
    -Auto pickup :Tự động nhặt đồ.
    -Auto skill : bán tự động (Bạn vẫn phải tự kích chuột vào quái).
    -Tự động cho pet ăn.
    -Tự động bơm máu cho pet.
    -Chức năng set password cho việc ẩn hiện cửa sổ game (Password này là pass để ngăn không cho người khác hiện thị cửa sổ game hoàn toàn không liên quan gì đến pass đăng nhập của game.)
    -Ẩn của sổ game.
    -Ẩn chính nó.

    *Các hotkeys được sử dụng trong tool :
    -Auto HP F9
    -Auto MP F10
    -Auto Pickup Item F11
    -Skill 1 Shift + Ctrl + 1
    -Skill 2 Shift + Ctrl + 2
    -Skill 3 Shift + Ctrl + 3
    -Skill 4 Shift + Ctrl + 4
    -Skill 5 Shift + Ctrl + 5
    -Skill 6 Shift + Ctrl + 6
    -Feed Pet Shift + Ctrl + F
    -Buff Pet Shift + Ctrl + B
    -Start or stop all Alt + S (Bật hoặc tắt tất cả các chức năng)
    -Change name Alt + C (Đổi tên cửa sổ game để có thể chơi nhiều Acc)
    -Show or hide PW Alt + H (Ẩn hiện của sổ game)
    -Show or hide Tool for PW Shift + Alt + H (Ẩn hiện Tool)
    -Quit Alt + Q (Thoát)

    *Hướng đẫn sơ qua:
    -Chạy Tool for PW.
    -Gõ tên cửa sổ mà bạn muốn dùng ToolForWindows vào ô Focus name.
    Mặc định là "Element Client".Nhưng nếu bạn đã đổi tên của sổ thì phải gõ đúng tên chính xác bạn đổi vào -Có phân biệt chũ hoa chữ thừơng-.

    -Hướng đẫn chơi mutil acc:
    +Gõ tên của sổ mà bạn muốn đổi thành vào ô Forcus Name.
    VD: "Acc Ban Do"
    +Bấm tổ hợp phím Alt + C để đổi tên cửa sổ.VD: sau khi bấm Alt + C thì cửa sổ mang tên "Element Client" sẽ đổi thành "Acc Ban Do".
    +Sau khi đã đổi tên của sổ thì lúc này bạn có thể mởi thêm 1 acc khác và chơi.

    *Mình post thêm Code để ai biết AutoIT có thể tự sửa :
    Mã:
    #include <GUIConstants.au3>
#include "MyLibrary.au3"
#NoTrayIcon

Dim $ProName = "Tool for PW v3.1", $OldName = "Element Client", $FName
Dim $isSetPass = False, $KeyHAS = False, $KeySHASS = False, $KeySAOSA = False, $KeyFPet = False, $KeyBPet = False
Dim $KeyHP = False, $KeyMP = False, $KeyPickup = False, $KeySkill[6] 
Dim $LineCharHPStart = 135, $LineCharHPStop = 270, $LineCharHPx, $LineCharHPy = 60, $CharHPColor = 0
Dim $LineCharMPStart = 135, $LineCharMPStop = 270, $LineCharMPx, $LineCharMPy = 70, $CharMPColor = 0
Dim $LinePetHPStart = 67, $LinePetHPStop = 130, $LinePetHPx, $LinePetHPy = 172, $PetHPColor = 0
Dim $LineMobHPx = 463, $LineMobHPy = 67, $MobHPColor = 0
Dim $ListButton = "1|2|3|4|5|6|F1|F2|F3|F4|F5|F6|F7|F8"
Dim $TimeHP = 0, $TimeMP = 0, $TimePU = 0, $TimeFPet = 350, $TimeBPet = 0, $TimeS[6]
Dim $MI_Skill[6], $BSInput[6],$TInput[6], $ButtonS[6], $TimeOutS[6]
Dim $HPButton, $MPButton, $BPickup, $ButtonFPet, $ButtonBPet
Dim $Past = 0, $Now = 0
	
$KeySkill[0] = False
$KeySkill[1] = False
$KeySkill[2] = False
$KeySkill[3] = False
$KeySkill[4] = False
$KeySkill[5] = False
$TimeS[0] = 0
$TimeS[1] = 0
$TimeS[2] = 0
$TimeS[3] = 0
$TimeS[4] = 0
$TimeS[5] = 0

;============================HotKey===================
HotKeySet("{F9}","AutoHP")
HotKeySet("{F10}","AutoMP")
HotKeySet("{F11}","AutoPickup")
HotKeySet("+^1","Skill1")
HotKeySet("+^2","Skill2")
HotKeySet("+^3","Skill3")
HotKeySet("+^4","Skill4")
HotKeySet("+^5","Skill5")
HotKeySet("+^6","Skill6")
HotKeySet("+^f","FeedPet")
HotKeySet("+^b","BuffPet")
HotKeySet("!+h","ShowPasswordDialog")
HotKeySet("!h","SHASS")
HotKeySet("!s","StartOrStopAll")
HotKeySet("!q","Quit")
HotKeySet("!r","Read")
	
;============================Form===================
#Region ### START Koda GUI
$ToolForPW = GUICreate($ProName, 203, 314, (@DesktopWidth  - 203), 0)
$Tab1 = GUICtrlCreateTab(2, 0, 200, 291)
$TabSheet1 = GUICtrlCreateTabItem("Option")
$Label1 = GUICtrlCreateLabel("Focus Name", 6, 31, 75, 19)
$FNInput = GUICtrlCreateInput("Element Client", 81, 27, 120, 23)
$Label2 = GUICtrlCreateLabel("Auto HP", 6, 55, 48, 19)
$BHPInput = GUICtrlCreateCombo("", 81, 51, 50, 25)
GUICtrlSetData(-1,$ListButton,"F8")
$PHPInput = GUICtrlCreateCombo("", 136, 51, 50, 25)
GUICtrlSetData(-1,$ListPer,"80")
$Label3 = GUICtrlCreateLabel("%", 186, 55, 15, 19)
$Label4 = GUICtrlCreateLabel("Auto MP", 6, 81, 48, 19)
$BMPInput = GUICtrlCreateCombo("", 81, 77, 50, 25)
GUICtrlSetData(-1,$ListButton,"F7")
$PMPInput = GUICtrlCreateCombo("", 136, 77, 50, 25)
GUICtrlSetData(-1,$ListPer,"30")
$Label5 = GUICtrlCreateLabel("%", 186, 81, 15, 19)
$Label6 = GUICtrlCreateLabel("Pickup Item", 6, 107, 68, 19)
$BPInput = GUICtrlCreateCombo("", 81, 102, 105, 25)
GUICtrlSetData(-1,$ListButton,"F6")
$Label7 = GUICtrlCreateLabel("Skill 1", 6, 133, 37, 19)
$BSInput[0] = GUICtrlCreateCombo("", 81, 128, 50, 25)
GUICtrlSetData(-1,$ListButton,"1")
$TInput[0] = GUICtrlCreateInput("2", 136, 128, 50, 25)
$Label8 = GUICtrlCreateLabel("s", 187, 133, 11, 19)
$Label9 = GUICtrlCreateLabel("Skill 2", 6, 158, 37, 19)
$BSInput[1] = GUICtrlCreateCombo("", 81, 154, 50, 25)
GUICtrlSetData(-1,$ListButton,"2")
$TInput[1] = GUICtrlCreateInput("3", 136, 154, 50, 25)
$Label10 = GUICtrlCreateLabel("s", 187, 159, 11, 19)
$Label11 = GUICtrlCreateLabel("Skill 3", 6, 182, 37, 19)
$BSInput[2] = GUICtrlCreateCombo("", 81, 180, 50, 25)
GUICtrlSetData(-1,$ListButton,"3")
$TInput[2] = GUICtrlCreateInput("5", 136, 180, 50, 25)
$Label12 = GUICtrlCreateLabel("s", 187, 184, 11, 19)
$Label13 = GUICtrlCreateLabel("Skill 4", 6, 206, 37, 19)
$BSInput[3] = GUICtrlCreateCombo("", 81, 206, 50, 25)
GUICtrlSetData(-1,$ListButton,"4")
$TInput[3] = GUICtrlCreateInput("7", 136, 206, 50, 25)
$Label14 = GUICtrlCreateLabel("s", 187, 210, 11, 19)
$Label15 = GUICtrlCreateLabel("Skill 5", 6, 235, 37, 19)
$BSInput[4] = GUICtrlCreateCombo("", 81, 232, 50, 25)
GUICtrlSetData(-1,$ListButton,"5")
$TInput[4] = GUICtrlCreateInput("9", 136, 232, 50, 23)
$Label16 = GUICtrlCreateLabel("s", 189, 236, 11, 19)
$Label17 = GUICtrlCreateLabel("Skill 6", 6, 261, 37, 19)
$BSInput[5] = GUICtrlCreateCombo("", 81, 258, 50, 25)
GUICtrlSetData(-1,$ListButton,"6")
$TInput[5] = GUICtrlCreateInput("11", 136, 258, 50, 23)
$Label18 = GUICtrlCreateLabel("s", 189, 261, 11, 19)

$TabSheet2 = GUICtrlCreateTabItem("Pet")
$Label19 = GUICtrlCreateLabel("Buff for pet", 6, 129, 66, 20)
$BBPetInput = GUICtrlCreateCombo("", 81, 125, 50, 25)
GUICtrlSetData(-1,$ListButton,"F1")
$PHPPetInput = GUICtrlCreateCombo("", 136, 125, 50, 25)
GUICtrlSetData(-1,$ListPer,"50")
$Label20 = GUICtrlCreateLabel("%", 186, 129, 14, 18)
$Label21 = GUICtrlCreateLabel("Auto feed", 6, 155, 59, 20)
$BFPetInput = GUICtrlCreateCombo("", 81, 150, 105, 25)
GUICtrlSetData(-1,$ListButton,"F2")

$TabSheet3 = GUICtrlCreateTabItem("About")
$Label22 = GUICtrlCreateLabel("Copyright: Water102", 6, 84, 115, 19)
$Label23 = GUICtrlCreateLabel($ProName, 6, 33, 183, 30)
GUICtrlSetFont(-1, 18, 800, 0, "Times New Roman")
$Label24 = GUICtrlCreateLabel("Emai: Trevor102102@gmail.com", 6, 134, 185, 19)
$Label25 = GUICtrlCreateLabel("Yahoo: Water_102102", 6, 109, 126, 19)
$Pic1 = GUICtrlCreatePic("water-flame-fantasy03.jpg", 6, 157, 190, 128)
$Label26 = GUICtrlCreateLabel("09/01/2008", 123, 63, 66, 19)

GUICtrlCreateTabItem("")
$MenuItem1 = GUICtrlCreateMenu("&HotKeys")
$MI_ChangeName = GUICtrlCreateMenuItem("Change name             Alt + C", $MenuItem1)
$MI_AutoHP = GUICtrlCreateMenuItem("Auto HP                      F9", $MenuItem1)
$MI_AutoMP = GUICtrlCreateMenuItem("Auto MP                      F10", $MenuItem1)
$MI_PickupItem = GUICtrlCreateMenuItem("Pickup Item                 F11", $MenuItem1)
$MI_Skill[0] = GUICtrlCreateMenuItem("Skill 1                          Shift + Ctrl + 1", $MenuItem1)
$MI_Skill[1] = GUICtrlCreateMenuItem("Skill 2                          Shift + Ctrl + 2", $MenuItem1)
$MI_Skill[2] = GUICtrlCreateMenuItem("Skill 3                          Shift + Ctrl + 3", $MenuItem1)
$MI_Skill[3] = GUICtrlCreateMenuItem("Skill 4                          Shift + Ctrl + 4", $MenuItem1)
$MI_Skill[4] = GUICtrlCreateMenuItem("Skill 5                          Shift + Ctrl + 5", $MenuItem1)
$MI_Skill[5] = GUICtrlCreateMenuItem("Skill 6                          Shift + Ctrl + 6", $MenuItem1)
$MI_FeedPet = GUICtrlCreateMenuItem("Feed Pet                     Shift + Ctrl + F", $MenuItem1)
$MI_BuffPet = GUICtrlCreateMenuItem("Buff Pet                      Shift + Ctrl + B", $MenuItem1)
$MI_SoH = GUICtrlCreateMenuItem("Show / Hide PW         Shift +  Alt + H", $MenuItem1)
$MI_SSoSH = GUICtrlCreateMenuItem("Show /  Hide this tool Alt + H", $MenuItem1)
$MI_StartOrStopAll = GUICtrlCreateMenuItem("Start / Stop all            Alt + S", $MenuItem1)
$MI_Quit = GUICtrlCreateMenuItem("Quit                            Alt + Q", $MenuItem1)
GUISetState(@SW_SHOW)

$PasswordDialog = GUICreate("Password Dialog", 250, 90, -1, -1, BitOR($WS_SYSMENU,$WS_POPUP))
$EnterPassLabel = GUICtrlCreateLabel("Enter password", 10, 10, 87, 19)
$InputPassword = GUICtrlCreateInput("", 100, 10, 140, 22, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetLimit(-1, 12)
$Btn_Ok = GUICtrlCreateButton("&Hide", 40, 37, 80, 27, 0)
$Btn_Cancel = GUICtrlCreateButton("&Cancel", 130, 37, 80, 27, 0)
#EndRegion ### END Koda GUI section ###

;============================Code===================
While True
	$nMsg = GUIGetMsg()
	$Now = @SEC
	If ($Past == 59) And ($Now < 59) Then
		$Now = 60
	EndIf
	If ($Now - $Past) >= 1 Then
		$Past = @SEC
		If $KeyHP = True Then
			$TimeHP += 1
		EndIf
		If $KeyMP = True Then
			$TimeMP += 1
		EndIf
		If $KeyPickup = True Then
			$TimePU += 1
		EndIf
		For $i = 5 to 0 Step -1
			If $KeySkill[$i] = True Then
				$TimeS[$i] += 1
			EndIf
		Next
		If $KeyFPet = True Then
				$TimeFPet += 1
		EndIf
 		If $KeyBPet = True Then
 			$TimeBPet += 1
 		EndIf
	EndIf
	If WinActive($FName) Then	
		If ($KeyHP = True) And (PixelGetColor($LineCharHPx, $LineCharHPy) = $CharHPColor) And ($TimeHP >= 16) Then
			PressButton($HPButton)
			$TimeHP = 0
		EndIf
		If ($KeyMP = True) And (PixelGetColor($LineCharMPx, $LineCharMPy) = $CharMPColor) And ($TimeMP >= 16) Then
			PressButton($MPButton)
			$TimeMP = 0
		EndIf
		For $i = 5 to 0 Step-+1
			If ($KeySkill[$i] = True) And ($TimeS[$i] >= $TimeOutS[$i]) And (PixelGetColor($LineCharMPStart, $LineCharMPy) <> $CharMPColor) Then
				PressButton($ButtonS[$i])
				$TimeS[$i] = 0      
			EndIf	
		Next
		If ($KeyPickup = True) And (PixelGetColor($LineMobHPx, $LineMobHPy) <> $MobHPColor) And ($TimePU >= 1) Then 
			PressButton($BPickup)
			$TimePU = 0
		EndIf
		If ($KeyFPet = True) And ($TimeFPet >= 360) Then 
			PressButton($ButtonFPet)
			$TimeFPet = 0
		EndIf
		If ($KeyBPet = True) And (PixelGetColor($LinePetHPx, $LinePetHPy) = $PetHPColor) And ($TimeBPet >= 1) Then
			PressButton($ButtonBPet)
			$TimeBPet = 0
		EndIf
	EndIf
	Switch $nMsg
 		Case $MI_SoH 
 			ShowPasswordDialog()
		Case $MI_ChangeName
			ChangeName()
		Case $MI_AutoHP
			AutoHP()
		Case $MI_AutoMP
			AutoMP()
		Case $MI_PickupItem
			AutoPickup() 
		Case $MI_Skill[0]
			Skill1()
		Case $MI_Skill[1]
			Skill2()
		Case $MI_Skill[2]
			Skill3()
		Case $MI_Skill[3]
			Skill4()
		Case $MI_Skill[4]
			Skill5()
		Case $MI_Skill[5]
			Skill6()
		Case $MI_FeedPet
			FeedPet()
		Case $MI_BuffPet
			BuffPet()
		Case $MI_StartOrStopAll
			Start()
		Case $Btn_Ok
			If $isSetPass = False Then
				GUISetState(@SW_HIDE, $PasswordDialog)
				HideAndShow()
				GuiCtrlSetData($Btn_Ok, "&Show")
				$Password = GUICtrlRead($InputPassword)
				$isSetPass = True
			ElseIf GUICtrlRead($InputPassword) = $Password  Then
					GUISetState(@SW_HIDE, $PasswordDialog)
					HideAndShow()
					GuiCtrlSetData($Btn_Ok, "&Hide")
					$Password = ""
					$isSetPass = False
				Else
					GuiCtrlSetData($InputPassword, "")
					Alert("(o_O)", "Password is wrong!", 1000) 
			EndIf
		Case $Btn_Cancel
			GUISetState(@SW_HIDE, $PasswordDialog)
	EndSwitch
 	If ($nMsg = $MI_Quit) or ($nMsg = $GUI_EVENT_CLOSE) Then 
 		Quit()
 	EndIf
WEnd

;============================Function===================
Func StartOrStopAll()
	$KeySAOSA = Not $KeySAOSA
    If $KeySAOSA = True Then
		If Start() = True Then
			$KeyHP = True
			$KeyMP = True
			$KeyPickup = True
			$KeySkill[0] = True
			$KeySkill[1] = True
			$KeySkill[2] = True
			$KeySkill[3] = True
			Alert("", "Start all." ,"")
		Else
			$KeySAOSA = False
			$KeyHP = False
			$KeyMP = False
			$KeyPickup = False
			$KeySkill[0] = False
			$KeySkill[1] = False
			$KeySkill[2] = False
			$KeySkill[3] = False
		EndIf
	Else 
		$KeyHP = False
		$KeyMP = False
		$KeyPickup = False
		$KeySkill[0] = False
		$KeySkill[1] = False
		$KeySkill[2] = False
		$KeySkill[3] = False
        Alert("", "Stop all." ,"")   
    EndIf 
EndFunc

Func AutoHP() 
	$KeyHP = Not $KeyHP 
    If $KeyHP = True Then
		If Start() = True Then
			Alert("", "Auto HP Start" ,"")
		Else
			$KeyHP = False
		EndIf
    Else 
		Alert("", "Auto HP Stop." ,"") 
    EndIf
EndFunc	

Func AutoMP() 
    $KeyMP = Not $KeyMP 
    If $KeyMP = True Then
		If Start() = True Then
			Alert("", "Auto MP Start" ,"")
		Else
			$KeyMP = False
		EndIf  
    Else 
		Alert("", "Auto MP Stop." ,"") 
    EndIf 
EndFunc 

Func Skill1()
	$KeySkill[0] = Not $KeySkill[0] 
    If $KeySkill[0] = True Then
		If Start() = True Then
			Alert("", "Auto Skill 1 Start." ,"") 
		Else
			$KeySkill[0] = False
		EndIf   
    Else 
        Alert("", "Auto Skill 1 Stop." ,"")  
    EndIf 
EndFunc

Func Skill2()
	$KeySkill[1] = Not $KeySkill[1] 
    If $KeySkill[1] = True Then
		$FName = GUICtrlRead($FNInput)
		If Start() = True Then
			Alert("", "Auto Skill 2 Start." ,"") 
		Else
			$KeySkill[1] = False
		EndIf  
    Else 
        Alert("", "Auto Skill 2 Stop." ,"")  
    EndIf 
EndFunc

Func Skill3()
	$KeySkill[2] = Not $KeySkill[2] 
    If $KeySkill[2] = True Then
		If Start() = True Then
			Alert("", "Auto Skill 3 Start." ,"") 
		Else
			$KeySkill[2] = False
		EndIf 
    Else 
        Alert("", "Auto Skill 3 Stop." ,"")  
    EndIf 
EndFunc

Func Skill4()
	$KeySkill[3] = Not $KeySkill[3] 
    If $KeySkill[3] = True Then
		If Start() = True Then
			Alert("", "Auto Skill 4 Start." ,"") 
		Else
			$KeySkill[3] = False
		EndIf
    Else 
        Alert("", "Auto Skill 4 Stop." ,"")  
    EndIf 
EndFunc

Func Skill5()
	$KeySkill[4] = Not $KeySkill[4] 
    If $KeySkill[4] = True Then
		If Start() = True Then
			Alert("", "Auto Skill 5 Start." ,"") 
		Else
			$KeySkill[4] = False
		EndIf
    Else 
        Alert("", "Auto Skill 5 Stop." ,"")  
    EndIf 
EndFunc

Func Skill6()
	$KeySkill[5] = Not $KeySkill[5] 
    If $KeySkill[5] = True Then
		If Start() = True Then
			Alert("", "Auto Skill 6 Start." ,"") 
		Else
			$KeySkill[5] = False
		EndIf
    Else 
        Alert("", "Auto Skill 6 Stop." ,"")  
    EndIf 
EndFunc

Func FeedPet()
	$KeyFPet = Not $KeyFPet 
    If $KeyFPet = True Then
		If Start() = True Then
			Alert("", "Auto feed for pet start." ,"") 
		Else
			$KeyFPet = False
		EndIf
    Else 
        Alert("", "Auto feed for pet stop." ,"")  
    EndIf 
EndFunc

Func BuffPet()
	$KeyBPet = Not $KeyBPet 
    If $KeyBPet = True Then
		If Start() = True Then
			Alert("", "Auto buff for pet start." ,"") 
		Else
			$KeyBPet = False
		EndIf
    Else 
        Alert("", "Auto buff for pet stop." ,"")  
    EndIf 
EndFunc

Func ShowPasswordDialog()
	$FName = GUICtrlRead($FNInput)
	If WinExists($FName) = True Then
		GuiCtrlSetData($InputPassword, "")
		GUISetState(@SW_SHOW, $PasswordDialog)
	Else
		Alert("(O_o)", "Khong ton tai cua so co ten" & $FName, 2000)
	EndIf
EndFunc

Func Read()
	$HPButton = GUICtrlRead($BHPInput)
	$MPButton = GUICtrlRead($BMPInput)
	$HPPer = GUICtrlRead($PHPInput)
	$MPPer = GUICtrlRead($PMPInput)
	$HPPetPer = GUICtrlRead($PHPPetInput)
	$LineCharHPx = Int((($LineCharHPStop - $LineCharHPStart)/100)*$HPPer + $LineCharHPStart)
	$LineCharMPx = Int((($LineCharMPStop - $LineCharMPStart)/100)*$MPPer + $LineCharMPStart)
	$LinePetHPx = Int((($LinePetHPStop - $LinePetHPStart)/100)*$HPPetPer + $LinePetHPStart)
	$BPickup = GUICtrlRead($BPInput)
	$ButtonFPet = GUICtrlRead($BFPetInput)
	$ButtonBPet = GUICtrlRead($BBPetInput)
	For $i = 0 to 3 Step +1
		$ButtonS[$i] = GUICtrlRead($BSInput[$i])
		$TimeOutS[$i] = GUICtrlRead($TInput[$i])
	Next
	For $y = 0 to 4 Step +1
		For $i = 0 to 4 Step +1
			If (Number($TimeOutS[$i]) > Number($TimeOutS[$i + 1])) Then
				$Temp = $ButtonS[$i]
				$ButtonS[$i] = $ButtonS[$i + 1]
				$ButtonS[$i + 1] = $Temp
				$Temp = $TimeOutS[$i]
				$TimeOutS[$i] = $TimeOutS[$i + 1]
				$TimeOutS[$i + 1] = $Temp
			EndIf
		Next
	Next
	$TimeHP = 0
	$TimeMP = 0
	$TimePU = 0	
	$TimeS[0] = 0
	$TimeS[1] = 0
	$TimeS[2] = 0
	$TimeS[3] = 0
	$TimeS[4] = 0
	$TimeS[5] = 0
	$TimeFPet = 350
	$TimeBPet = 0
EndFunc
Dim $DesktopCenterX = (@DesktopWidth/2)
Dim $DesktopCenterY = (@DesktopHeight/2)
Dim $ListPer = "10|20|30|40|50|60|70|80|90"

Func Start()
	$FName = GUICtrlRead($FNInput)
	if WinExists ($FName) Then
		WinActivate ($FName)
		WinMove ($FName, "", 0, 0, 800, 600)
		Read()
		Return True
	Else
		Alert("(O_o)", "Khong ton tai cua so co ten: " & $FName, 2000)
		Return False
	EndIf
EndFunc

Func ChangeName()
	$FName = GUICtrlRead($FNInput)
	if WinExists ($OldName) Then
		WinSetTitle($OldName, "", $FName)
	Else
		Alert("(O_o)", "Khong ton tai cua so co ten: " & $OldName, 2000)
	EndIf
	
EndFunc

Func AutoPickup() 
	$KeyPickup = Not $KeyPickup 
    If $KeyPickup = True Then
		If Start() = True Then
			Alert("", "Auto PickUp Start.", "") 
		Else
			$KeyPickup = False
		EndIf
    Else 
        Alert("", "Auto PickUp Stop.", "") 
    EndIf 
EndFunc 

Func Alert($Title, $Conten, $SleepTime)
	If $SleepTime = "" Then
		$SleepTime = 1000
	EndIf
	If $Title = "" Then
		$Title = "(^_^)"
	EndIf
    ToolTip($Conten, $DesktopCenterX, $DesktopCenterY, $Title) 
    Sleep($SleepTime) 
    ToolTip("") 
EndFunc 

Func HideAndShow()
	$KeyHAS = not $KeyHAS
	If $KeyHAS = True Then
		WinSetState($FName, "", @SW_HIDE)
	Else
		WinSetState($FName, "", @SW_SHOW)
	EndIf
EndFunc

Func SHASS()
	$KeySHASS = not $KeySHASS
	If $KeySHASS = True Then
		WinSetState($ProName, "", @SW_HIDE)
	Else
		WinSetState($ProName, "", @SW_SHOW)
	EndIf
EndFunc

Func PressButton($Button)
	$Button = "{" & $Button & "}"
	WinActive($FName)
	Send($Button)
EndFunc

Func Quit()
	Alert("(^_^)", "Bye bye", 1000) 
	Exit
EndFunc
    *Chú ý :
    -Chương trình chỉ chạy tốt khi bạn đáp ứng được các yêu cầu sau:
    +Chạy game TGHM dưới chế độ cửa sổ: 800x600.
    +Độ phân giải của màn hình là: 1024x768.
    +Giao diện của windows là Window XP.
    +Không được di chuyển của sổ game.
    -Chú ý quan trọng nhất là mình sẽ không chịu trách nhiệm nếu bạn dùng Tool for PW không phải dow từ đường link do mình cung cấp

    *Nếu cần hỏi gì thì có thể liên hệ với mình ở trong game
    Charater : Water_102
    Class: Vũ Linh
    Sever: Chu Tước
    hoặc
    yahoo : water_102102
    Gmail :trevor102102@gmail.com

    *Cuối cùng chúc các bạn chơi Game vui vẻ.
     

    Các file đính kèm:

    Thanh_Thuy, 9/6/07
    #1
  2. ngochien1122

    ngochien1122 Youtube Master Race

    Tham gia ngày:
    12/3/07
    Bài viết:
    5
    bạn ơi cái tool nàu do bạn viết hay ai thế
    nếu bạn viết có thể cho mình code không
    bạn viết = autoit hả
    nếu dc thì cho mình code nhé
     
    ngochien1122, 10/6/07
    #2
  3. Thanh_Thuy

    Thanh_Thuy Youtube Master Race

    Tham gia ngày:
    2/11/05
    Bài viết:
    41
    Nơi ở:
    Hà Nội
    up nó lên là up nó lên,up nó lên là up nó lên,up nó lên là up nó lên,up nó lên là up nó lên,
    MOD thông cảm đừng chém em.
     
    Thanh_Thuy, 12/6/07
    #3
  4. anhnambkhn

    anhnambkhn Youtube Master Race

    Tham gia ngày:
    10/3/06
    Bài viết:
    1
    Complete scanning result of "ToolForPWv2_1.rar", received in VirusTotal at 06.12.2007, 03:44:20 (CET).

    Antivirus Version Update Result
    AhnLab-V3 2007.6.12.0 06.11.2007 no virus found
    AntiVir 7.4.0.32 06.11.2007 no virus found
    Authentium 4.93.8 06.12.2007 no virus found
    Avast 4.7.997.0 06.09.2007 no virus found
    AVG 7.5.0.467 06.11.2007 no virus found
    BitDefender 7.2 06.12.2007 no virus found
    CAT-QuickHeal 9.00 06.11.2007 no virus found
    ClamAV devel-20070416 06.12.2007 no virus found
    DrWeb 4.33 06.11.2007 no virus found
    eSafe 7.0.15.0 06.11.2007 no virus found
    eTrust-Vet 30.7.3712 06.11.2007 no virus found
    Ewido 4.0 06.11.2007 no virus found
    FileAdvisor 1 06.12.2007 no virus found
    Fortinet 2.85.0.0 06.11.2007 suspicious
    F-Prot 4.3.2.48 06.11.2007 W32/Worm.BFA
    F-Secure 6.70.13030.0 06.12.2007 no virus found
    Ikarus T3.1.1.8 06.11.2007 IM-Worm.Win32.Sohanad.aa
    Kaspersky 4.0.2.24 06.12.2007 no virus found
    McAfee 5050 06.11.2007 no virus found
    Microsoft 1.2503 06.12.2007 no virus found
    NOD32v2 2323 06.11.2007 no virus found
    Norman 5.80.02 06.11.2007 no virus found
    Panda 9.0.0.4 06.12.2007 no virus found
    Prevx1 V2 06.12.2007 no virus found
    Sophos 4.18.0 06.01.2007 no virus found
    Sunbelt 2.2.907.0 06.09.2007 no virus found
    Symantec 10 06.12.2007 no virus found
    TheHacker 6.1.6.132 06.11.2007 no virus found
    VBA32 3.12.0.1 06.11.2007 BackDoor.Huai
    VirusBuster 4.3.23:9 06.11.2007 no virus found
    Webwasher-Gateway 6.0.1 06.12.2007 Worm.Win32.ModifiedUPX.gen!90 (suspicious)
     
    anhnambkhn, 12/6/07
    #4
  5. Ng~QuangLâm

    Ng~QuangLâm Youtube Master Race

    Tham gia ngày:
    4/11/06
    Bài viết:
    10
    Nơi ở:
    Hà Nội
    Sao ko thấy ai vào cho ý kiến vậy trời cả Mod nữa hi sinh test thử đi :D
     
    Ng~QuangLâm, 12/6/07
    #5
  6. victoryvn3

    victoryvn3 Fire in the hole!

    Tham gia ngày:
    24/7/04
    Bài viết:
    2,869
    Nơi ở:
    Nhà má vợ
    Sài đc kô đó bạn sao mình cỉ thấy có bạn và 2 acc gà có số bài viết là 1 làm việc trong đây vậy.



    ----Thân----
     
    victoryvn3, 13/6/07
    #6
  7. Thanh_Thuy

    Thanh_Thuy Youtube Master Race

    Tham gia ngày:
    2/11/05
    Bài viết:
    41
    Nơi ở:
    Hà Nội
    nếu bạn để ý thì sẽ thấy 2 acc gà lv 1 mà bạn nói có ngày tham gia là từ tháng 3 chẵng lẽ mình đăng kí 2 acc đó từ đó và tính kế hoạch cho tới bây giờ sao.
     
    Thanh_Thuy, 13/6/07
    #7
  8. Chutchutchut

    Chutchutchut Mr & Ms Pac-Man

    Tham gia ngày:
    29/10/05
    Bài viết:
    193
    hình như vấn đề bạn ơi, nó không chịu auto skill vậy bạn, auto pickup là ngon, test giùm nha, thank
     
    Chutchutchut, 13/6/07
    #8
  9. batuoc85

    batuoc85 T.E.T.Я.I.S

    Tham gia ngày:
    14/1/06
    Bài viết:
    617
    ặc , nick gà kia đã scan cho ra mấy con virut kìa mà vẫn có người dùng à??
     
    batuoc85, 13/6/07
    #9
  10. thienha8x

    thienha8x Mr & Ms Pac-Man

    Tham gia ngày:
    18/12/06
    Bài viết:
    178
    O cho~ mau` do? y' ban co' de? y' thay co' gi` lua` dao ko???? share thi` share cho han hoi chut', cai' tool nay` la` tool key log thi` co'! Chu' game lam` chi co' F9, F10, F11
     
    thienha8x, 14/6/07
    #10
  11. zzzzhamvuizzzz

    zzzzhamvuizzzz Mr & Ms Pac-Man

    Tham gia ngày:
    6/12/06
    Bài viết:
    109
    haha cái f9 f10 f11 cũng có thể dùng lệnh gán thay thế được, mà nếu chỉ tự đánh trả và tự bơm máu thì cũng ko cần autoit chi cho nó mệt có nhiều cách viết đơn giản hơn nhiều chỉ mất vài phút viết thôi mà 1 máy vẫn chơi 2acc 1 cái đánh 1 cái bơm máu ấy chứ
     
    zzzzhamvuizzzz, 14/6/07
    #11
  12. Thanh_Thuy

    Thanh_Thuy Youtube Master Race

    Tham gia ngày:
    2/11/05
    Bài viết:
    41
    Nơi ở:
    Hà Nội
    chán không biết gì mà cứ thưa thớt, F9 ,F10 ,F11 là phím tắt trong chương trình chứ có phải của game đâu mà kêu không có.
     
    Thanh_Thuy, 14/6/07
    #12
  13. giang127

    giang127 Mr & Ms Pac-Man

    Tham gia ngày:
    9/5/07
    Bài viết:
    238
    Nơi ở:
    Hà Nội
    Bữa nào phải đi học IT làm auto thui, muốn có auto mà sợ hack wa . =(( Được mấy ai tử tế đâu , vietnammese >"<
     
    giang127, 15/6/07
    #13
  14. giang127

    giang127 Mr & Ms Pac-Man

    Tham gia ngày:
    9/5/07
    Bài viết:
    238
    Nơi ở:
    Hà Nội
    Một ngày được ngủ có 3h 30 ph, đang xin việc làm ở Vpbank,xem thông tin chứng khoán ..v..v... cảm ơn các bạn đã làm ra auto và gửi lên diễn đàn, vì chơi games giải trí đúng nghĩa thì chỉ nên 3h/1 ngày, 2 h thể thao ...
    Mình cần sống thực chứ không phải sống ảo nên ko thể ngồi lỳ bên máy tính để bấm mãi gần 10h đòng hồ/ 1 ngày được ... mà chơi ít thì lên lv chậm rì, gặp đúa red lv cao nó pk cho lại còn xìtret hơn. (nếu auto PW được như auto PRO võ lâm thì hay...^^)
    Mình cảm ơn những bạn đã post auto sạch lên diễn đàn, đó mới thực là thế hệ 8x . ( >"< chứ ko phải cái trò keylog của bọn IT dỏm, cơ hội )
     
    giang127, 15/6/07
    #14
  15. AsasinVn

    AsasinVn T.E.T.Я.I.S

    Tham gia ngày:
    22/6/06
    Bài viết:
    590
    kết quả cính xác đó :> tui scan lại roài , nhưng ko xài :whew: chã mún lấy acc mình ra đánh cược , trong khi tự cày đc :hug:
     
    AsasinVn, 15/6/07
    #15
  16. willrock777

    willrock777 Youtube Master Race

    Tham gia ngày:
    17/5/05
    Bài viết:
    14
    Mình rất tin tưởng khi sài cái này . Do mình cũng từng sai AutoIt = Autohotkey .
    Nhưng với cái này mình không biết Decompile như thế nào . Bạn có thể send hoặc Post Source Code cho mình không ? Mình cần để chỉnh lại cho phù hợp với bản thân .
     
    willrock777, 16/6/07
    #16
  17. remember2b

    remember2b Youtube Master Race

    Tham gia ngày:
    6/11/05
    Bài viết:
    8
    nhận xét của tui : tool này ko có key - 100% là thế . nhưng chưa có ổn định lắm lúc có lúc ko . hi vọng tác giả xem lại
     
    remember2b, 16/6/07
    #17
  18. zZLongVanZz

    zZLongVanZz Mr & Ms Pac-Man

    Tham gia ngày:
    22/6/06
    Bài viết:
    261
    Nơi ở:
    Loyang
    mình cảm ơn có còn đỡ hơn không auto la good rồi còn đòi hỏi chi nữa
     
    zZLongVanZz, 17/6/07
    #18
  19. chicken_hao

    chicken_hao Mr & Ms Pac-Man

    Tham gia ngày:
    9/4/06
    Bài viết:
    280
    TO giang127 :SIN LỖI ANH ,EM NHỎ HƠN ANH NHƯGN MÀ EM THẤY ANH ÍCH KỶ WA',MUỐN LV CAO ÀM KÔ MUỐN TRAIN,VẬY THÔI CHƠI GAME LÀM J ,VỀ ÔM AUTO PRO CỦA VLTK, DC CON 20X CŨNG CHẢ CÓ J` GHÊ ,AUTO KÔ ,MÁY CÀY CHỨ NGƯỜI CÓ CHƠI ĐÂU ,GIẢI TRÍ ĐÚNG NGHĨA THÌ ANH CÒN CẦN LV LÀM J` CHÁN........
     
    chicken_hao, 19/6/07
    #19
  20. willrock777

    willrock777 Youtube Master Race

    Tham gia ngày:
    17/5/05
    Bài viết:
    14
    Ai auto thì down về sài , ko Auto thì qua topic khác . đơn giản thế thôi . cần gì phải cãi cọ trong này nhỉ . Auto TGHM ko tager Mod như thế này là ổn . Con người vẫn phải ngồi trực trên máy .
    PS : mong muốn có được Source .
     
    willrock777, 23/6/07
    #20
Trang 1 của 5 trang

Chia sẻ trang này