Trainer Nasıl Yapılır ?

[avLa]

Merhaba , ben avLa ..

Ben bir GTA SANANDREAS Hilesi yapmak istiyorum ..

Ama kodlarını bir türlü ayarlıyamadım bana video ile kodlarını verebilecek biri var mı acba ?

ÇOK ACİL !

Şunun gibi ;

[img]http://www.thegtaplace.com/downloads/screens/gtasa/trainers/gtasa10trainer.jpg[/img]

[img]http://www.thegtaplace.com/downloads/screens/gtasa/trainers/San_Andreas_Plus13_Trainer-ReVOLVeR.jpg[/img]

[img]http://www.thegtaplace.com/downloads/screens/gtasa/trainers/GTASANANDREAS+53Trainer.gif[/img] Edited November 18, 2011 by avLa

[blackman12]

size yardım etmemiz için ön bir çalışmanız olması, birkaç bişi karalamanız ve karaladıklarınız sonucu hatalarla karşılaşmanız gerek yani biraz sizin çaba göstermeniz gerek. elinizde olan trainerin fotoğraflarını çekip buraya koymakla proje yapamazsınız.

[avLa]

[spoiler][code]#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F1}", "_F1")
HotKeySet("{F2}", "_F2")
HotKeySet("{F3}", "_F3")

While 1
Sleep(100)
WEnd
;;;;;;;;

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc

Func Terminate()
Exit 0
EndFunc

Func _F1()
Send("{ENTER}")
Send("ATM OF EREBUS")
Send("{ENTER}")
Send("{ENTER}")
Send("ATM OF EREBUS")
Send("{ENTER}")
Send("{ENTER}")
Send("ATM OF EREBUS")
Send("{ENTER}")
Send("{ENTER}")
Send("ATM OF EREBUS")
Send("{ENTER}")
Send("{ENTER}")
Send("ATM OF EREBUS")
Send("{ENTER}")
EndFunc

Func _F2()
Send("{ENTER }")
Send("JUNK FOOD NIGHT")
Send("{ENTER }")
Send("{ENTER }")
Send("JUNK FOOD NIGHT")
Send("{ENTER }")
Send("{ENTER }")
Send("JUNK FOOD NIGHT")
Send("{ENTER }")
Send("{ENTER }")
Send("JUNK FOOD NIGHT")
Send("{ENTER }")
Send("{ENTER }")
Send("JUNK FOOD NIGHT")
Send("{ENTER }")
EndFunc

Func _F3()
Send("{ENTER }")
Send("TROJAN HORSE FOR SALE")
Send("{ENTER }")
Send("{ENTER }")
Send("TROJAN HORSE FOR SALE")
Send("{ENTER }")
Send("{ENTER }")
Send("TROJAN HORSE FOR SALE")
Send("{ENTER }")
Send("{ENTER }")
Send("TROJAN HORSE FOR SALE")
Send("{ENTER }")
Send("{ENTER }")
Send("TROJAN HORSE FOR SALE")
Send("{ENTER }")
EndFunc[/code][/spoiler]

Ben bu kodu resimde verdiğim gibi gözükmesini istiyorum bunu .exe yapınca açıyorum hiçbirşey gelmiyor
Yani menü eklemek istiyorum F1 şudur F2 Şudur gibi ?

Edited November 23, 2011 by blue_life
Spoiler eklendi!

[LifeSux]

Naptın ya sen Öncelikle gui tasarlaman gerekiyor. kodanın programını kullanabilirsin. hotkeylere oturtmak için Hotkeyset komutunu kullan.

Edited November 23, 2011 by blue_life
Uzun mesaj içeriği alıntı yapılmış!

[avLa]

Kodları düzenledim gayet iyi çalışıyor not defterinde fakat , GTA SAN ANDREAS'a girdiğimde yazmıyor ? Yardım eder misiniz ? Kodu vericem düzenleyebilirseniz düzenler misiniz lütfen ?

[codebox]#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
SoundPlay("C:\Users\Esgin\Desktop\GTA San Andreas Trainer +93\\Sentello.mp3")
$Form1 = GUICreate("MeLoNCoLiXx GTA SA Trainer +37", 620, 441, 416, 144)
$cancelbutton = GUICtrlCreateButton("Cikis ", 8, 376, 97, 41)
$Label1 = GUICtrlCreateLabel("Z - Can , zırh ve para verir.", 8, 24, 188, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label2 = GUICtrlCreateLabel("F2 - Ölümsüzlük verir.", 8, 48, 149, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label3 = GUICtrlCreateLabel("F3 - Ölümsüzlük kapatir.", 8, 72, 164, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label4 = GUICtrlCreateLabel("F4 - Mega yumruk verir.", 8, 96, 159, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label5 = GUICtrlCreateLabel("F5 - Mega güç verir.", 8, 120, 135, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label6 = GUICtrlCreateLabel("F6 - Mega zıplama verir.", 8, 144, 159, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Group1 = GUICtrlCreateGroup("", 296, 0, 9, 313)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Yapimci", 232, 312, 137, 65)
GUICtrlSetFont(-1, 10, 800, 0, "Trajan Pro")
$Label7 = GUICtrlCreateLabel("MeLoNCoLiXx", 240, 344, 102, 19)
GUICtrlSetFont(-1, 9, 800, 0, "Trajan Pro")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("", 296, 384, 9, 49)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1 = GUICtrlCreatePic("C:\Users\Esgin\Desktop\logo.jpg", 312, 384, 297, 49)
$Label8 = GUICtrlCreateLabel("F7 - Sinirsiz oksijen verir.", 8, 168, 175, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label9 = GUICtrlCreateLabel("F8 - Asla Acikmazsiniz.", 8, 192, 150, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label10 = GUICtrlCreateLabel("F9 - Çekicilik (Cazibe) verir.", 8, 216, 185, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label11 = GUICtrlCreateLabel("F10 - Güvenilir olursunuz.", 8, 240, 178, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label12 = GUICtrlCreateLabel("F11 - Roket ve parasüt verir.", 8, 264, 189, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label13 = GUICtrlCreateLabel("H - Silah seviyenizi artirir ve silah verir.", 8, 288, 288, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label14 = GUICtrlCreateLabel("J - Sinirsiz mermi verir.", 320, 24, 160, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label15 = GUICtrlCreateLabel("V - Adrenalin modu aktif olur.", 320, 48, 206, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label16 = GUICtrlCreateLabel("C - Tüm araçlara nitro verir.", 320, 72, 195, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label17 = GUICtrlCreateLabel("Q - Her bölgede çeteniz olur.", 320, 96, 195, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label18 = GUICtrlCreateLabel("M - Helikopter verir.", 320, 120, 138, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label19 = GUICtrlCreateLabel("T - ATV verir.", 320, 144, 89, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label20 = GUICtrlCreateLabel("K - 2 Tane yarıs arabasi verir.", 320, 168, 194, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label21 = GUICtrlCreateLabel("U - Canavar araba verir.", 320, 192, 159, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label22 = GUICtrlCreateLabel("X - Dozer verir.", 320, 216, 105, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label23 = GUICtrlCreateLabel("O - Tanker verir.", 320, 240, 111, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label24 = GUICtrlCreateLabel("L - Hovercraft verir.", 320, 264, 142, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
$Label25 = GUICtrlCreateLabel("P - Caddy verir.", 320, 288, 106, 18)
GUICtrlSetFont(-1, 8, 800, 0, "Trajan Pro")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F2}", "_F2")
HotKeySet("{F3}", "_F3")
HotKeySet("{F4}", "_F4")
HotKeySet("{F5}", "_F5")
HotKeySet("{F6}", "_F6")
HotKeySet("{F7}", "_F7")
HotKeySet("{F8}", "_F8")
HotKeySet("{F9}", "_F9")
HotKeySet("{F10}", "_F10")
HotKeySet("{F11}", "_F11")
HotKeySet("{h}", "_h")
HotKeySet("{j}", "_j")
HotKeySet("{v}", "_v")
HotKeySet("{c}", "_c")
HotKeySet("{q}", "_q")
HotKeySet("{m}", "_m")
HotKeySet("{t}", "_t")
HotKeySet("{k}", "_k")
HotKeySet("{u}", "_u")
HotKeySet("{x}", "_x")
HotKeySet("{o}", "_o")
HotKeySet("{l}", "_l")
HotKeySet("{p}", "_p")
HotKeySet("{z}", "_z")

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton
Exit
EndSelect
Sleep(100)
WEnd

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton
Exit
EndSelect
WEnd
;;;;;;;;

Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Script is "Paused"', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause

Func Terminate()
Exit 0
EndFunc ;==>Terminate

Func _z()
Send("HESOYAM") ; Can , zırh ve para verir.
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
Send("HESOYAM")
EndFunc ;==>_z

Func _F2()
Send("BAGUVIX") ; Ölümsüzlük verir.
EndFunc ;==>_F2

Func _F3()
Send("BAGUVIX") ; Ölümsüzlük kapatma.
EndFunc ;==>_F3

Func _F4()
Send("JAVENJQ") ; Mega yumruk verir.
EndFunc ;==>_F4

Func _F5()
Send("JYSDSOD") ; Mega güç verir.
Send("JYSDSOD") ; Mega güç verir.
Send("JYSDSOD") ; Mega güç verir.
Send("JYSDSOD") ; Mega güç verir.
Send("JYSDSOD") ; Mega güç verir.
EndFunc ;==>_F5

Func _F6()
Send("KANGAROO") ; Mega zıplama verir.
EndFunc ;==>_F6

Func _F7()
Send("CVWKXAM") ; Sınırsız oksijen verir.
EndFunc ;==>_F7

Func _F8()
Send("AEDUWNV") ; Asla acikmazsiniz.
EndFunc ;==>_F8

Func _F9()
Send("EHIBXQS") ; Çekicilik verir.
EndFunc ;==>_F9

Func _F10()
Send("OGXSDAG") ; Güven verir.
EndFunc ;==>_F10

Func _F11()
Send("ROCKETMAN") ; Roket verir.
Send("AIYPWZQP") ; Paraşüt verir.
EndFunc ;==>_F11

Func _h()
Send("UZUMYMW") ; Silah verir ve silah seviyesi artar.(NUTTERTOOLS)
Send("NCSDAG") ; Silah verir ve silah seviyesi artar.(NUTTERTOOLS)
EndFunc ;==>_h

Func _j()
Send("WANRLTW") ; Sinirsiz mermi verir.
Send("OUIQDMW") ; Arac kullanirken nisan alma.
EndFunc ;==>_j

Func _v()
Send("MUNASEF") ; Adrenalin modu.
Send("VQIMAHA") ; Tüm araçların seviyesini maximum yapar.
EndFunc ;==>_v

Func _c()
Send("VKYPQCF") ; Taksilere nitro verir.
Send("COXEFGU") ; Tüm araçlara nitro verir.
EndFunc ;==>_c

Func _q()
Send("MROEMZH") ; Her bölgede çeteniz olur.
EndFunc ;==>_q

Func _m()
Send("OHDUDE") ; Helikopter verir.
EndFunc ;==>_m

Func _t()
Send("AKJJYGLC") ; ATV verir.
EndFunc ;==>_t

Func _k()
Send("VPJTQWV") ; Yarış arabası verir.
Send("PDNEJOH") ; Yarış arabası verir.
EndFunc ;==>_k

Func _u()
Send("AGBDLCID") ; Canavar araba verir.
EndFunc ;==>_u

Func _x()
Send("EEGCYXT") ; Dozer verir.
EndFunc ;==>_x

Func _o()
Send("AMOMHRER") ; Tanker verir.
EndFunc ;==>_o

Func _l()
Send("KGGGDKP") ; Hovercraft verir.
EndFunc ;==>_l

Func _p()
Send("RZHSUEW") ; Caddy verir.
EndFunc ;==>_p[/codebox]

Edited November 23, 2011 by blue_life

[blue_life]

@avLa

Ilgili oyun bende olmadığından net bir şey söyleyemem! Oyunda, klevyeden ilgili tuşlara basınca (yani entera vs. basmdan) hile gerçekleşiyor muydu?
Neyse autoit forumundan örnek bakalım...

Bir tane buldum. Bak bakalım çalışıyor mu?
[codebox]Opt("WinTitleMatchMode",2)

HotKeySet("{END}", "_Exit")
HotKeySet("{HOME}", "Cheat")

WinActivate("GTA")

While 1
Sleep(1000)
WEnd

Func _Exit()
Exit 0
EndFunc ;==>_Exit

Func Cheat()
Send("uzumymw")
Sleep(200)
Send("hesoyam")
Sleep(200)
EndFunc ;==>Cheat[/codebox]

Edited November 23, 2011 by blue_life