天堂海灘修改器vb源碼

天堂海灘修改器vb源碼，VB高手做的天堂海灘的游戲修改器的源碼，發(fā)出來供廣大VB愛好者分享！

窗體：

Dim GameWinTitle As String
Dim Gamepid As Long

Private Sub Form_Initialize()
InitCommonControls 'xp樣式外觀
End Sub


Private Sub Form_Load() '這個函數(shù)就不用解釋了吧

GameWinTitle = "游戲窗體名稱" '游戲運行時顯示的標(biāo)題

ToKen '提升權(quán)限
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來制作吧，很強大的哦