'-----------------------------------------------------
' TRAINER PER IL GIOCO GRAND THEFT AUTO VICE CITY
' PROGRAMMED BY CH!CUS
'
' Licenza: totalmente freeware, fateci cosa vi pare!
'-----------------------------------------------------
'Con questo ogni variabile del programam deve essere dichiarata
Option Explicit
Const strTitle As String = "cH!cus Trainer v2.0 for GTA:VC -"
'Funzione API che intercetta la pressione dei tasti
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'Procedure che controlla se al tasto premuto è assegnata una cheat
Private Sub TastoCheat(CodiceTasto)
If CodiceTasto >= 48 And CodiceTasto <= 221 Then
Select Case CodiceTasto
Case 220: SendKeys "{BS}": SendKeys "GRIPISEVERYTHING"
Case 49: SendKeys "{BS}": SendKeys "THUGSTOOLS"
Case 50: SendKeys "{BS}": SendKeys "PROFESSIONALTOOLS"
Case 51: SendKeys "{BS}": SendKeys "NUTTERTOOLS"
Case 52: SendKeys "{BS}": SendKeys "PRECIOUSPROTECTION"
Case 53: SendKeys "{BS}": SendKeys "ASPIRINE"
Case 54: SendKeys "{BS}": SendKeys "YOUWONTTAKEMEALIVE"
Case 55: SendKeys "{BS}": SendKeys "LEAVEMEALONE"
Case 56: SendKeys "{BS}": SendKeys "GETTHEREFAST"
Case 57: SendKeys "{BS}": SendKeys "GETTHEREVERYFASTINDEED"
Case 48: SendKeys "{BS}": SendKeys "GETTHEREAMAZINGLYFAST"
Case 219: SendKeys "{BS}": SendKeys "SEAWAYS"
Case 221: SendKeys "{BS}": SendKeys "PANZER"
End Select
End If
End Sub
'L'oggetto Timer. Esegue le istruzioni ogni 50 millisecondi
Private Sub Timer1_Timer()
'Constante contenente il valore che indica il tasto premuto
Const TastoPremuto As Integer = -32767
'Variabile intera che conterrà il codice del tasto
Dim CodiceTasto As Integer
'Controlla solo i tasti numerati della tastiera, la slash a sinistra, il punto
'interrogativo e la i accentata. Di questi, se premuti, ne vengono eseguite le
'istruzioni assegnate per ogni tasto. Guarda la procedure TastoCheat.
For CodiceTasto = 48 To 221
If GetAsyncKeyState(CodiceTasto) = TastoPremuto Then TastoCheat (CodiceTasto)
Next CodiceTasto
End Sub
'Se cliccato il pulsante esso attivo o disattiva il timer facendo funzionare
'o non funzionare le cheat.
Private Sub cmdEnable_Click()
If cmdEnable.Caption = "&Enable" Then
cmdEnable.Caption = "&Disable"
Timer1.Enabled = True
frmMain.Caption = strTitle + " ENABLED"
Else
cmdEnable.Caption = "&Enable"
Timer1.Enabled = False
frmMain.Caption = strTitle + " DISABLED"
End If
End Sub
Private Sub cmdAbout_Click()
Dim msgAbout As String
'Messaggio visualizzato quandi si clicca sul pulsante About
msgAbout = _
"cH!cus Trainer v2.0" & vbNewLine _
& "================" & vbNewLine _
& "Game Trained: Grand Theft Auto: Vice City" & vbNewLine _
& "Trained & c0ded by: cH!cus" & vbNewLine _
& "Version: 2.0" & vbNewLine _
& "Data: 17/04/2004 at 19:36" & vbNewLine & vbNewLine _
& "Contacts:" & vbNewLine _
& "=========" & vbNewLine _
& "Web: http://thechicus.nigx.net" & vbNewLine _
& "E-Mail: thechicus@gmail.com" & vbNewLine & vbNewLine _
& "Thanks to all people that helped me on this" & vbNewLine _
& "program. Thanks also to Squaller, Seraph and" & vbNewLine _
& "the Marine Sky Hawks Clan." & vbNewLine & vbNewLine _
& "Tested only on WinXP Professional Edition"
'Si visualizza la finestrina contenente il messagio sopra scritto
MsgBox msgAbout, vbInformation
End Sub
Private Sub cmdExit_Click()
'Se premuto il tasto Exit il programma termina
Unload Me
End Sub
Private Sub Form_Load()
App.Title = "cH!cus Trainer v2.0"
frmMain.Caption = strTitle + " ENABLED"
cmdEnable.Caption = "&Disable"
Label1.Caption = vbNewLine _
& "Key \ ---------------> Give some features to your car" & vbNewLine _
& "Key 1 ---------------> Give Weapons Type #1" & vbNewLine _
& "Key 2 ---------------> Give Weapons Type #2" & vbNewLine _
& "Key 3 ---------------> Give Weapons Type #3" & vbNewLine _
& "Key 4 ---------------> Give full armor" & vbNewLine _
& "Key 5 ---------------> Give full healt" & vbNewLine _
& "Key 6 ---------------> Increse the wanted stars" & vbNewLine _
& "Key 7 ---------------> Leave wanted stars" & vbNewLine _
& "Key 8 ---------------> Give Sabre Turbo" & vbNewLine _
& "Key 9 ---------------> Very quickly car" & vbNewLine _
& "Key 0 ---------------> Very very quickly car" & vbNewLine _
& "Key ? ---------------> Drive on water" & vbNewLine _
& "Key ^ ---------------> Give a tank"
End Sub