繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > VB 从零开始编外挂(一)
- ASP.NET
- Eric的无限级Tree演示
- C#中操作Excel的方法（一）
- Data Access Application Block V2 类库中文文档(转贴 ）
- 大文件上传浅谈，以及遇到的问题
- 做软件的困难：非技术困惑
- 走进C# （我的C#学习之旅）之二
- Northwind中一个特别之处
- .net中取当前系统的想关信息的类
- 写组件时需要的注释与属性书写方法
- XPath序列之五
- 使用CommandBuilder为DataAdaper生成的Command更新数据源时的注意事项!
- 如何列举出网络上所有的SQL Server服务器
- XPath序列之一
- 如何在C#里面象js一样可以直接计算字符串的值
- XPath序列之三
- 电子秤和PC之间的数据通讯（应答）
- 从SQL Server中读写大数据列。
- 通过CDO组件对NNTP服务器发送消息
- Singleton深入浅出
- 悲观观定SQL Server和Oracle
ASP.NET 中的 VB 从零开始编外挂(一)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 118 ::
收藏到网摘: 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
