Question

让vb该段监视进程代码隐藏在暗中？？

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

原代码：
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

我改的，但是不能用。。求按照前面说的帮我改下。。。。

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
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

Answer 1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
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

无需改动代码，只是将End指令放到冒号之后就行了！像这样： " vbInformation + vbOKOnly:End " ,如果换行的话，END指令将在Timer第一个周期就会被执行而退出程序了！当然就不会起作用了！
如果希望加一个该进程被强制关闭，则游戏被关闭的功能的话，那就需要使用到挂钩程序技术！单程序是做不到自己的进程被终止了，还去关闭游戏进程的！

追问

那能不能加一个提示“如果强制关闭该程序，文件将损坏，你确定要关闭吗？”
这样强制结束进程还会有这个提示吧？

追答

一样不行，结束进程是强制结束程序。被结束的进程根本就执行不到有提示代码那块，还是需要用到挂钩程序技术！

追问

哦。。。再问下
If Dir(App.Path & "\D2Fild.dll") = "" Or Dir(App.Path & "\2.mpq") = "" Then
能否给判断这两个文件再加上判断其大小？就是 If Dir（D2Fild.dll存在并且大小为zzz） or（2.mpa存在并且大小为xxx） 该怎么写？

追答

将下列代码复制到相应的事件代码中

If Dir(App.Path & "\D2Fild.dll") "" Then
If FileLen(App.Path & "\D2Fild.dll") 数值 Then 你所需要的处理结果指令
Else
MsgBox "D2Fild.dll 文件没有找到！"
End If

If Dir(App.Path & "\2.mpq") "" Then
If FileLen(App.Path & "\2.mpq") 数值 Then 你所需要的处理结果指令
Else
MsgBox "2.mpq 文件没有找到！"
End If
说明： 代码中的【数值】是表示你所指定文件的原始大小，比如25k，在程序中要写作：25000 因为FileLen函数获取到的数值是以字节为单位的~~ 【你所需要的处理结果指令】这个必须跟在 Then 指令之后而不能换行写！不然会引起逻辑错误，有多条指令就用 ： 来间隔！