Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
cH!cus Trainer v2.0 for GTAVC - Form1.frm

Form1.frm

Caricato da:
Scarica il programma completo

  1. '-----------------------------------------------------
  2. '   TRAINER PER IL GIOCO GRAND THEFT AUTO VICE CITY
  3. '   PROGRAMMED BY CH!CUS
  4. '
  5. '   Licenza: totalmente freeware, fateci cosa vi pare!
  6. '-----------------------------------------------------
  7.  
  8. 'Con questo ogni variabile del programam deve essere dichiarata
  9. Option Explicit
  10.  
  11. Const strTitle As String = "cH!cus Trainer v2.0 for GTA:VC -"
  12.  
  13. 'Funzione API che intercetta la pressione dei tasti
  14. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  15.  
  16. 'Procedure che controlla se al tasto premuto è assegnata una cheat
  17. Private Sub TastoCheat(CodiceTasto)
  18.     If CodiceTasto >= 48 And CodiceTasto <= 221 Then
  19.        Select Case CodiceTasto
  20.          Case 220: SendKeys "{BS}": SendKeys "GRIPISEVERYTHING"
  21.          Case 49: SendKeys "{BS}": SendKeys "THUGSTOOLS"
  22.          Case 50: SendKeys "{BS}": SendKeys "PROFESSIONALTOOLS"
  23.          Case 51: SendKeys "{BS}": SendKeys "NUTTERTOOLS"
  24.          Case 52: SendKeys "{BS}": SendKeys "PRECIOUSPROTECTION"
  25.          Case 53: SendKeys "{BS}": SendKeys "ASPIRINE"
  26.          Case 54: SendKeys "{BS}": SendKeys "YOUWONTTAKEMEALIVE"
  27.          Case 55: SendKeys "{BS}": SendKeys "LEAVEMEALONE"
  28.          Case 56: SendKeys "{BS}": SendKeys "GETTHEREFAST"
  29.          Case 57: SendKeys "{BS}": SendKeys "GETTHEREVERYFASTINDEED"
  30.          Case 48: SendKeys "{BS}": SendKeys "GETTHEREAMAZINGLYFAST"
  31.          Case 219: SendKeys "{BS}": SendKeys "SEAWAYS"
  32.          Case 221: SendKeys "{BS}": SendKeys "PANZER"
  33.        End Select
  34.     End If
  35. End Sub
  36.  
  37. 'L'oggetto Timer. Esegue le istruzioni ogni 50 millisecondi
  38. Private Sub Timer1_Timer()
  39.  
  40.     'Constante contenente il valore che indica il tasto premuto
  41.     Const TastoPremuto As Integer = -32767
  42.    
  43.     'Variabile intera che conterrà il codice del tasto
  44.     Dim CodiceTasto As Integer
  45.    
  46.     'Controlla solo i tasti numerati della tastiera, la slash a sinistra, il punto
  47.     'interrogativo e la i accentata. Di questi, se premuti, ne vengono eseguite le
  48.     'istruzioni assegnate per ogni tasto. Guarda la procedure TastoCheat.
  49.     For CodiceTasto = 48 To 221
  50.         If GetAsyncKeyState(CodiceTasto) = TastoPremuto Then TastoCheat (CodiceTasto)
  51.     Next CodiceTasto
  52. End Sub
  53.  
  54. 'Se cliccato il pulsante esso attivo o disattiva il timer facendo funzionare
  55. 'o non funzionare le cheat.
  56. Private Sub cmdEnable_Click()
  57.     If cmdEnable.Caption = "&Enable" Then
  58.         cmdEnable.Caption = "&Disable"
  59.         Timer1.Enabled = True
  60.         frmMain.Caption = strTitle + " ENABLED"
  61.     Else
  62.         cmdEnable.Caption = "&Enable"
  63.         Timer1.Enabled = False
  64.         frmMain.Caption = strTitle + " DISABLED"
  65.     End If
  66. End Sub
  67.  
  68. Private Sub cmdAbout_Click()
  69.     Dim msgAbout As String
  70.    
  71.     'Messaggio visualizzato quandi si clicca sul pulsante About
  72.    
  73.     msgAbout = _
  74.     "cH!cus Trainer v2.0" & vbNewLine _
  75.     & "================" & vbNewLine _
  76.     & "Game Trained: Grand Theft Auto: Vice City" & vbNewLine _
  77.     & "Trained & c0ded by: cH!cus" & vbNewLine _
  78.     & "Version: 2.0" & vbNewLine _
  79.     & "Data: 17/04/2004 at 19:36" & vbNewLine & vbNewLine _
  80.     & "Contacts:" & vbNewLine _
  81.     & "=========" & vbNewLine _
  82.     & "Web: http://thechicus.nigx.net" & vbNewLine _
  83.     & "E-Mail: thechicus@gmail.com" & vbNewLine & vbNewLine _
  84.     & "Thanks to all people that helped me on this" & vbNewLine _
  85.     & "program. Thanks also to Squaller, Seraph and" & vbNewLine _
  86.     & "the Marine Sky Hawks Clan." & vbNewLine & vbNewLine _
  87.     & "Tested only on WinXP Professional Edition"
  88.    
  89.     'Si visualizza la finestrina contenente il messagio sopra scritto
  90.     MsgBox msgAbout, vbInformation
  91. End Sub
  92.  
  93. Private Sub cmdExit_Click()
  94.     'Se premuto il tasto Exit il programma termina
  95.     Unload Me
  96. End Sub
  97.  
  98. Private Sub Form_Load()
  99.     App.Title = "cH!cus Trainer v2.0"
  100.     frmMain.Caption = strTitle + " ENABLED"
  101.     cmdEnable.Caption = "&Disable"
  102.    
  103.     Label1.Caption = vbNewLine _
  104.     & "Key \  --------------->  Give some features to your car" & vbNewLine _
  105.     & "Key 1  --------------->  Give Weapons Type #1" & vbNewLine _
  106.     & "Key 2  --------------->  Give Weapons Type #2" & vbNewLine _
  107.     & "Key 3  --------------->  Give Weapons Type #3" & vbNewLine _
  108.     & "Key 4  --------------->  Give full armor" & vbNewLine _
  109.     & "Key 5  --------------->  Give full healt" & vbNewLine _
  110.     & "Key 6  --------------->  Increse the wanted stars" & vbNewLine _
  111.     & "Key 7  --------------->  Leave wanted stars" & vbNewLine _
  112.     & "Key 8  --------------->  Give Sabre Turbo" & vbNewLine _
  113.     & "Key 9  --------------->  Very quickly car" & vbNewLine _
  114.     & "Key 0  --------------->  Very very quickly car" & vbNewLine _
  115.     & "Key ?  --------------->  Drive on water" & vbNewLine _
  116.     & "Key ^  --------------->  Give a tank"
  117. End Sub