天堂海灘修改器vb源碼

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

窗體：

Dim GameWinTitle As String
Dim Gamepid As Long

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


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

GameWinTitle = "游戲窗體名稱(chēng)" '游戲運(yùn)行時(shí)顯示的標(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 '游戲沒(méi)有運(yùn)行

Else '游戲已運(yùn)行

End If
End Sub

作者自述：

因?yàn)槲冶容^笨，不會(huì)用CE生成修改器，我就教大家用VB來(lái)制作吧，很強(qiáng)大的哦