天堂海滩修改器vb源码 v1.0 绿色版 xx

【概括介绍】
天堂海滩修改器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