VB6 Vip codes!

[oualidf3]

VIP Hack Code's (Visual Basic 6 Only!!)
-------------------------------------------------
Very Weak Bypass:
Call Shell(Environ$("COMSPEC") & " /c net stop PnkBstrA", vbHide)
-------------------------------------------------
Auto medic/Auto repair:
Call writeabyte("Warrock", &HAdress, &HOffset)
Call writeabyte("Warrock", &HAdress, &HOffset)
-------------------------------------------------
S.T.W. (Shoot Through Walls)
Call writeabyte("warrock", &HAdress, &HOffset)
Call writeabyte("warrock", &HAdress, &HOffset)
Call writeabyte("warrock", &HAdress, &HOffset)
-------------------------------------------------
Premium CrossHair:
Call writeabyte("warrock", &HAdress, &HOffset)
Call writeabyte("warrock", &HAdress, &HOffset)
Call writeabyte("warrock", &HAdress, &HOffset)
-------------------------------------------------
Gold Premium:
Dim prem As Long
Dim prem1 As Long
Call readalong("WarRock", &HAdress, prem)
prem1 = prem + &HOffset
Call writealong("WarRock", prem1, 3)
-------------------------------------------------
0 Delay:
Call writeabyte("warrock", &HAdress, &HOffset)
Call writeabyte("warrock", &HAdress, &HOffset)
Call writeabyte("warrock", &HAdress, &HOffset)
-------------------------------------------------
OPK:
Call writeabyte("warrock", &HAdress, &HOffset)
Call writeabyte("warrock", &HAdress, &HOffset)
Call writeabyte("warrock", &HAdress, &HOffset)

DONT LEECH PLZ!

VB6 spambot tut:

Your Module will need this :
Code:
Private Declare Function GetKey Lib "user32" (ByVal vkey As Long) As Integer


Create a Timer (Timer1) and a Text Box
Properties : Enabled = True | Interval = 6000 [1000 = 1 miliseccond]

Code:
Private Sub Timer1_Timer()
If GetKey(vbKeyEnd) Then
SendKeys Text1.Text
SendKeys "{enter}"
End If
End Sub


OR



Private Sub Timer1_Timer()
SendKeys (Text2.Text & "{enter}")
End Sub





Now make 2 buttons [Caption = START]:
Code:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub


2nd button [caption = STOP]:
Code:
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub



and suppose u want to change ur timer1 Interval

Make a 3rd Button & 2nd Text Box:

Code:
Private Sub Command3_Click()
Timer1.Interval = Text2.Text
End Sub

Compile & Make *.exe
Done!

plz thank me!