2026年10月31日 · 今日 0 帖 · 会员 6.1万 · 主题 17.4万
登录 · 注册 · 游客,欢迎随便逛逛
返回版块
124537
Lv3畅意三江水等级图标
帖子
31
回复
411
积分
428
注册
2012-10-08
[怀旧国机]

【VB编程】制作外挂第一课

[复制链接]
查看 163 回复 1
楼主 发表于 | 查看全部
1 人收藏

需要工具: ///API函数:工具下载地址///FindWindow ←寻找窗口列表中第一个符合指定条件的顶级窗口///GetWindowThreadProcessId ←获取与指定窗口关联在一起的一个进程和线程标识符///相关API声明:FindWindow///↓///Private * Function FindWindow Lib “user32“ Alias “FindWindowA“ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long///GetWindowThreadProcessId///↓///Private * Function GetWindowThreadProcessId Lib “user32“ (ByVal hwnd As Long, lpdwProcessId As Long)///As Long///需要的控件:Label、Timer///自定义函数:Dim hwnd As Long///源代码:///Private * Function FindWindow Lib “user32“ Alias “FindWindowA“ (ByVal lpClassName As String, ByVal lpWindowName As String)///As Long///Private * Function GetWindowThreadProcessId Lib “user32“ (ByVal hwnd As Long, lpdwProcessId As Long)As LongPrivate Sub Timer1_Timer()///Dim hwnd As Long‘ 储存 FindWindow 函数返回的句柄///hwnd = FindWindow(vbNullString, “Windows Media Player“)‘ 取得进程标识符///‘只要把Windows Media Player换成游戏的名称就可了!///If hwnd = 0 ///ThenLabel1.Caption = “游戏未运行“.///Else///Label1.Caption = “游戏已运行“///End If///End Sub///第一课授课完毕,敬请关注下一节课

登录回复

登录后可以回复这个帖子。旧账号可使用原密码登录。

登录 注册新号
← 返回版块