天堂海滩修改器vb源码

天堂海滩修改器vb源码，VB高手做的天堂海滩的游戏修改器的源码，发出来供广大VB爱好者分享！

窗体：

Dim GameWinTitle As String
Dim Gamepid As Long

Private Sub Form_Initialize()
InitCommonControls 'xp样式外观
End Sub


Private Sub Form_Load() '这个函数就不用解释了吧

GameWinTitle = "游戏窗体名称" '游戏运行时显示的标题

ToKen '提升权限
Timer1_Timer
End Sub

Private Sub Form_Unload(Cancel As Integer)
'ViewIE "http://bbs.52miji.com/?fromuid=1"
End Sub

Private Sub Timer1_Timer()
Gamepid = GetPid(vbNullString, GameWinTitle)
If Gamepid = 0 Then '游戏没有运行

Else '游戏已运行

End If
End Sub

作者自述：

因为我比较笨，不会用CE生成修改器，我就教大家用VB来制作吧，很强大的哦