植物大战僵尸中文版外挂

admin管理员组

文章数量:1531705

2023年12月18日发(作者：)

Option Explicit

Dim WG As New Class1 '声明模块对象

Private Const JIZHI = &H6A9EC0 '游戏地址

'声明 ...........

'类模块名..... 通用外挂模块

类模块'作者: '来水美树 QQ:659354953

'作者 '来水美树 QQ:659354953

Private Sub Form_Load()

ocessWindowName "MainWindow", vbNullString '窗口句柄

Call DrawWindowForm

End Sub

Private Sub DrawWindowForm() '画一个边框

Dim Rgn As Long

Dim Brush As Long

Dim W, H As Long

W = idth / erPixelX

H = eight / erPixelY

Rgn = CreateRoundRectRgn(0, 0, W, H, 6, 6)

SetWindowRgn , Rgn, True

DeleteObject Rgn

Rgn = CreateRoundRectRgn(0, 0, W, H, 6, 6)

Brush = CreateSolidBrush(vbWhite)

FrameRgn , 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 , &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 = dress(JIZHI)

Addres = dress(Addres + &H768)

ddress Addres + &H5560, 9999

End Sub

Private Sub T2_Timer() '无限金币

Dim Addres As Long

Addres = dress(JIZHI)

Addres = dress(Addres + &H82C)

ddress Addres + &H28, 99999

End Sub

Private Sub T3_Timer() '无限花肥

Dim Addres As Long

Addres = dress(JIZHI)

Addres = dress(Addres + &H82C)

ddress Addres + &H1F8, 9999

End Sub

Private Sub T4_Timer() '无限树肥

Dim Addres As Long

Addres = dress(JIZHI)

Addres = dress(Addres + &H82C)

ddress Addres + &H230, 9999

End Sub

Private Sub T5_Timer() '无限杀虫

Dim Addres As Long

Addres = dress(JIZHI)

Addres = dress(Addres + &H82C)

ddress Addres + &H1FC, 9999

End Sub

Private Sub T6_Timer()

Dim Addres As Long

Addres = dress(JIZHI)

Addres = dress(Addres + &H82C)

ddress Addres + &H228, 9999

End Sub

Private Sub T7_Timer() '花瓶透明看到僵尸

Dim Addres As Long

Dim I As Long

Addres = dress(JIZHI)

Addres = dress(Addres + &H768)

Addres = dress(Addres + &H11C)

For I = 1 To 35

ddress Addres + &H4C + &HEC * I, 100

Next I

End Sub

Private Sub T8_Timer() '0秒使用物品

Dim Addres As Long

Addres = dress(JIZHI)

Addres = dress(Addres + &H768)

Addres = dress(Addres + &H144)

ddress Addres + &H70, 1

ddress Addres + &HC0, 1

ddress Addres + &H110, 1

ddress Addres + &H160, 1

ddress Addres + &H1B0, 1

ddress Addres + &H200, 1

ddress Addres + &H250, 1

ddress Addres + &H2A0, 1

ddress Addres + &H2F0, 1

ddress Addres + &H340, 1

End Sub

Private Sub T9_Timer() '向日葵快速产阳光

Dim Addres As Long

Addres = dress(JIZHI)

Addres = dress(Addres + &H768)

Addres = dress(Addres + &HAC)

ddress Addres + &H58, 10

End Sub

Private Sub Timer1_Timer()

Static I As Integer

= - 10

If <= 0 - Then

=

I = I + 1

n = ShowCaption(I)

If I >= 10 Then

I = 0

End If

End If

End Sub

Private Sub Timer2_Timer() '

Dim Addres As Long

Addres = dress(JIZHI)

Addres = dress(Addres + &H768)

n = "当前太阳数:" & dress(Addres + &H5560)

Addres = dress(JIZHI)

Addres = dress(Addres + &H82C)

n = "当前金钱数:" & dress(Addres + &H28)

Addres = dress(JIZHI)

Addres = dress(Addres + &H768)

n = "出现的僵尸数:" & dress(Addres + &HA0)

Addres = dress(JIZHI)

Addres = dress(Addres + &H768)

n = "种下的植物数:" & dress(Addres + &HBC)

End Sub

Private Sub Timer3_Timer() '热键设置F1到F10

If (vbKeyF1) = True Then

If al = 0 Then

al = 100

Else

al = 0

End If

ElseIf (vbKeyF2) = True Then

If al = 0 Then

al = 100

Else

al = 0

End If

ElseIf (vbKeyF3) = True Then

If al = 0 Then

al = 100

Else

al = 0

End If

ElseIf (vbKeyF4) = True Then

If al = 0 Then

al = 100

Else

al = 0

End If

ElseIf (vbKeyF5) = True Then

If al = 0 Then

al = 100

Else

al = 0

End If

ElseIf (vbKeyF6) = True Then

If al = 0 Then

al = 100

Else

al = 0

End If

ElseIf (vbKeyF7) = True Then

If al = 0 Then

al = 100

Else

al = 0

End If

ElseIf (vbKeyF8) = True Then

If al = 0 Then

al = 100

Else

al = 0

End If

ElseIf (vbKeyF9) = True Then

If al = 0 Then

al = 100

Else

al = 0

End If

ElseIf (vbKeyF10) = True Then

Dim I As Long

Dim Addres As Long

Addres = dress(JIZHI)

Addres = dress(Addres + &H768)

Addres = dress(Addres + &H90)

For I = 0 To 120

ddress Addres + &H28 + &H15C * I, 3

Next I

End If

End Sub

'瞬间秒杀120只僵尸

本文标签： 快捷键启动无限僵尸模块