Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
'37
Dim string1 As Long
Dim string2 As Integer
Try
string1 = readdll("cshell.dll")
string2 = "&H" + Hex(string1 + &H1B2B89C)
Call VBPNBQKCVD(string2, 569900, 4)
Catch
End Try
End Sub
Private Sub Prestige4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Prestige4.Click
'4
Dim string1 As Long
Dim string2 As Integer
Try
string1 = readdll("cshell.dll")
string2 = "&H" + Hex(string1 + &H1B2B8A4)
Call VBPNBQKCVD(string2, 4, 4)
Catch
End Try
End Sub
mov [x],y
Private Sub pr2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pr2.Click
Try
string1 = readdll("cshell.dll")
string2 = "&H" + Hex(string1 + &H1B2B8A4)
Call OIBGHGEJUO(string2, 2, 4)
Catch
MsgBox(ErrorToString)
End Try
End Sub
