Question

vb监视进程是否正在运行代码该怎么写？？

监视进程game.exe是否正在运行，如果是，一直等待
如果发现进程game.exe结束，则Name (App.Path & "\D2Fild.dll") As (App.Path & "\D2Fald.dll")
然后结束程序

求这段代码。。。，希望详细点。。。
另外问下如果一直监视进程是不是会很让电脑很慢，杀毒软件是不是会判定为毒？

Answer 1

给你一个思路：
在代码中用到一个API函数 FindWindow，其命令格式为：FindWindow （类名，窗口名称）。
在Form中添加一个Timer控件，将其Interval属性设置为1000，在Timer事件中使用类似如下的代码：

dim l as Long
l=FindWindow ("","游戏窗口的名称")
if l=0 then Name (App.Path & "\D2Fild.dll") As (App.Path & "\D2Fald.dll"):end

用以上的方法就能监视指定游戏窗口是否已经关闭了！
以上方法对CPU消耗不大，可以忽略！至于能不能被杀毒软件判断为病毒，这个就不好说了！取决于杀毒软件公司对软件的行为设定。

追问

大神，我是小白，能否全部写出来，实在看不懂。。，，，

追答

游戏窗口的名称是什么？ 包括窗口中所有的字符和空格，一个不能少！

追问

Diablo II

追答

新建一工程，在窗口中添加一个Timer控件和一个CommandButton控件；
然后在代码窗口中复制粘贴如下代码：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
Command1.Caption = "开始监控"
End Sub

Private Sub Timer1_Timer()
Dim l As Long
l = FindWindow(vbNullString, "Diablo II")
If l = 0 Then Name (App.Path & "\D2Fild.dll") As (App.Path & "\D2Fald.dll"): MsgBox "游戏程序已经关闭！已完成文件重命名！", vbInformation + vbOKOnly: End
End Sub

追问

试过了可以用！不过我想在暗中进行，这样写的，但怎么不起作用了。。。？还有希望加一个如果该进程被强制关闭，则游戏被关闭，（这个vb程序窗口是隐藏的）

 

追答

这个程序必须在游戏程序运行以后才能执行的，看你的代码没有啥问题的，应该没问题吧？

我找到你的问题所在了,修改代码:
... D2fald.DLL):end
把后面的
Form1.hide
End
删除了！

追问

额，不过删了eng以后会有一个找不到文件的提示，不过我已经改过了。。。
还有希望加一个如果该进程被强制关闭，则游戏被关闭，这个可以吗？

Answer 2

可以使用按键精灵很简单完成这个脚本，免费的。

脚本如下：

Dim HWND
While true
HWND = Plugin.Window.Find(0, "XXXX") 'XXXX是GAME.exe窗口标题，如记事本就是：无标题 - 记事本
If HWND <> 0 Then
Delay 4000
Else
Call Plugin.File.ReNameFile("C:\D2Fild.dll", "C:\D2Fald.dll") '此处文件路径是例子，按需填写
Delay 1000
EndScript
End If

wend