欢迎来到瑞博软件站,找素材,搜软件,就上瑞博软件站!
天堂海滩修改器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来制作吧,很强大的哦