Option Explicit
Dim WG As New Class1 '声明模块对象
Private Const JIZHI = &H6A9EC0 '游戏地址
'声明 ...........
'类模块名..... 通用外挂模块
类模块'作者: '来水美树 QQ:659354953
'作者 '来水美树 QQ:659354953
Private Sub Form_Load()
WG.GameProcessWindowName "MainWindow", vbNullString '窗口句柄
Call DrawWindowForm
End Sub
Private Sub DrawWindowForm() '画一个边框
Dim Rgn As Long
Dim Brush As Long
Dim W, H As Long
W = Me.ScaleWidth / Screen.TwipsPerPixelX
H = Me.ScaleHeight / Screen.TwipsPerPixelY
Rgn = CreateRoundRectRgn(0, 0, W, H, 6, 6)
SetWindowRgn Me.hwnd, Rgn, True
DeleteObject Rgn
Rgn = CreateRoundRectRgn(0, 0, W, H, 6, 6)
Brush = CreateSolidBrush(vbWhite)
植物大战僵尸无尽版秘籍FrameRgn Me.Hdc, Rgn, Brush, 2, 2
DeleteObject Rgn
DeleteObject Brush
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
'移动没有边框的窗体
SendMessage Me.hwnd, &HA1, 2, 0
End Sub
Private Function ShowCaption(n As Integer) As String '显示所有功能项
Select Case n
Case 1
ShowCaption = "快捷键F1启动无限太阳"
Case 2
ShowCaption = "快捷键F2启动无限金币"
Case 3
ShowCaption = "快捷键F3启动无限花肥"
Case 4
ShowCaption = "快捷键F4启动无限树肥"
Case 5
ShowCaption = "快捷键F5启动无限杀虫"
Case 6
ShowCaption = "快捷键F6启动无限巧克力"
Case 7
ShowCaption = "快捷键F7启动花瓶透明"
Case 8
ShowCaption = "快捷键F8启动无冷却"
Case 9
ShowCaption = "快捷键F9启动快速生长阳光"
Case 10
ShowCaption = "快捷键F10全部瞬间秒杀"
End Select
End Function
Private Sub Label2_Click()
Unload Me
End Sub
Private Sub T1_Timer() '无限太阳
Dim Addres As Long
Addres = WG.ReadAddress(JIZHI)
Addres = WG.ReadAddress(Addres + &H768)
WG.WriteAddress Addres + &H5560, 9999
End Sub
Private Sub T2_Timer() '无限金币
Dim Addres As Long
Addres = WG.ReadAddress(JIZHI)
Addres = WG.ReadAddress(Addres + &H82C)
WG.WriteAddress Addres + &H28, 99999
End Sub
Private Sub T3_Timer() '无限花肥
Dim Addres As Long
Addres = WG.ReadAddress(JIZHI)
Addres = WG.ReadAddress(Addres + &H82C)
WG.WriteAddress Addres + &H1F8, 9999
End Sub
Private Sub T4_Timer() '无限树肥
Dim Addres As Long
Addres = WG.ReadAddress(JIZHI)
Addres = WG.ReadAddress(Addres + &H82C)
WG.WriteAddress Addres + &H230, 9999
End Sub
Private Sub T5_Timer() '无限杀虫
Dim Addres As Long
Addres = WG.ReadAddress(JIZHI)
Addres = WG.ReadAddress(Addres + &H82C)
WG.WriteAddress Addres + &H1FC, 9999
End Sub
Private Sub T6_Timer()
Dim Addres As Long
Addres = WG.ReadAddress(JIZHI)
Addres = WG.ReadAddress(Addres + &H82C)
WG.WriteAddress Addres + &H228, 9999
End Sub
Private Sub T7_Timer() '花瓶透明看到僵尸
Dim Addres As Long
Dim I As Long
Addres = WG.ReadAddress(JIZHI)
Addres = WG.ReadAddress(Addres + &H768)
Addres = WG.ReadAddress(Addres + &H11C)
For I = 1 To 35
WG.WriteAddress Addres + &H4C + &HEC * I, 100
Next I
End Sub
Private Sub T8_Timer() '0秒使用物品
Dim Addres As Long
Addres = WG.ReadAddress(JIZHI)
Addres = WG.ReadAddress(Addres + &H768)
Addres = WG.ReadAddress(Addres + &H144)
WG.WriteAddress Addres + &H70, 1
WG.WriteAddress Addres + &HC0, 1
WG.WriteAddress Addres + &H110, 1
WG.WriteAddress Addres + &H160, 1
WG.WriteAddress Addres + &H1B0, 1
WG.WriteAddress Addres + &H200, 1
WG.WriteAddress Addres + &H250, 1
WG.WriteAddress Addres + &H2A0, 1
WG.WriteAddress Addres + &H2F0, 1
WG.WriteAddress Addres + &H340, 1
End Sub
Private Sub T9_Timer() '向日葵快速产阳光
Dim Addres As Long
Addres = WG.ReadAddress(JIZHI)
Addres = WG.ReadAddress(Addres + &H768)
Addres = WG.ReadAddress(Addres + &HAC)
WG.WriteAddress Addres + &H58, 10
End Sub
Private Sub Timer1_Timer()
Static I As Integer
Label1.Top = Label1.Top - 10
If Label1.Top <= 0 - Label1.Height Then
Label1.Top = Label1.Height
I = I + 1
Label1.Caption = ShowCaption(I)
If I >= 10 Then
I = 0
End If
End If
End Sub
Private Sub Timer2_Timer() '
Dim Addres As Long
Addres = WG.ReadAddress(JIZHI)
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论