20CN网络安全小组论坛 - 编程破解 - 为什么我做的进程监控器不能在98上运行?

论坛: 编程破解标题: 为什么我做的进程监控器不能在98上运行?

作者: ljfgl [ljfgl]

论坛用户

本网吧用万象,有几个无奈可以通过CTRL+ALT+DELETE结束client.exe进程上机，因此做了这个监控器，作用是当结束了client.exe进程后自动又把它运行。这个监控器在2000上有用，在98上运行会死机，请大家帮帮我，以下是代码
Dim MaxNumberOfProcesses As Integer

Private Sub Form_Load()
ListKillProcess1.List_Processes = True
Text1.Text = ""
Text2.Text = "0"
For i = 1 To ListKillProcess1.Number_Of_Processes
ListKillProcess1.Get_Process_Info = i
Text1.Text = ListKillProcess1.Process_Name
If Text1.Text = "client.exe" Then Exit Sub
Next i
Shell "c:\client.exe", vbNormalFocus

End Sub

Private Sub Timer1_Timer()
DoEvents
ListKillProcess1.List_Processes = True
If ListKillProcess1.Number_Of_Processes > MaxNumberOfProcesses Then
ListKillProcess1.Get_Process_Info = MaxNumberOfProcesses + 1
ListKillProcess1.ID_To_Kill = ListKillProcess1.Process_ID
ListKillProcess1.Kill_Process = True
End If

Text1.Text = ""
For i = 1 To ListKillProcess1.Number_Of_Processes
ListKillProcess1.Get_Process_Info = i
Text1.Text = ListKillProcess1.Process_Name
If Text1.Text = "client.exe" Then Exit Sub
Next i
On Error GoTo tt
Shell "c:\client.exe", vbNormalFocus
Text2.Text = Text2.Text + 1
Exit Sub
tt:
MsgBox Error

End Sub

地主发表时间: 04-08-17 16:53