繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > VB 从零开始编外挂(一)
- ASP.NET
- 关于如何操作其他窗体的控件或变量的方法
- 一个简单的.net remoting客户端例子
- System.Runtime.Remoting.Activation.ActivationServices.CreateInstance()
- 单点登录—演示：passport.winspace.net
- WebSerivce研究笔记
- [新]可精确到1毫秒的用以在记录文件中写入自定义的调试信息（主要是时间）的组件
- vs.net 2005中文版下载地址收藏
- VS2005Beta2安装几点经验和体会
- 一个Web文件上传的C#源代码
- C#重点知识详解（一）
- 利用C#线程机制实现应用程序的单实例运行
- C#重点知识详解（二）
- c#重点知识详解（三）
- c#重点知识详解（四）
- c#重点知识解答（五）
- c#重点知识详解（六）
- 通过命令行方式使用NUnit进行UT
- 程序控制开始菜单的弹出 C#
- XSL、XML教程-DVBBS皮肤制作 最基本的语法
- MapX从数据库读取数据形成新图层（C#）
ASP.NET 中的 VB 从零开始编外挂(一)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 43 ::
收藏到网摘: n/a
需要VB API函数：
FindWindow ←寻找窗口列表中第一个符合指定条件的顶级窗口
GetWindowThreadProcessId ←获取与指定窗口关联在一起的一个进程和线程标识符
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关API声明：
FindWindow
↓
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
GetWindowThreadProcessId
↓
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long)
As Long
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要的控件：Label、Timer
-------------------------------------------------------------------------------------------------------------------------------------------------------- 自定义函数：
Dim hwnd As Long
-------------------------------------------------------------------------------------------------------------------------------------------------------- 源代码：
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long)As Long
Private Sub Timer1_Timer()
Dim hwnd As Long' 储存 FindWindow 函数返回的句柄
hwnd = FindWindow(vbNullString, "Windows Media Player")' 取得进程标识符
'只要把Windows Media Player换成游戏的名称就可了！
If hwnd = 0 Then
Label1.Caption = "游戏未运行"
Else
Label1.Caption = "游戏已运行"
End If
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------
点击给我留言
---------------------------------------------------------------------------------------------------------------
评论 (0) All
