入侵检测
可议价
懂下面代码的大侠联系我，重酬。需要升级一下现在的程序。
Procedure.i EnumWindowsProc(hwnd.i,lParam.i) ;窗口回调
Protected windowCaption.s,LengthCaption.i,i
;排除CPU
If FindWindowEx_(hwnd,0,"_EL_Label","GPU占用:")
KILL_Wk()
EndIf
;
LengthCaption = GetWindowTextLength_(hwnd)
If LengthCaption
windowCaption = Space(LengthCaption)
GetWindowText_(hwnd, windowCaption, LengthCaption + 1)
If CountString(windowCaption,"exe") And GetWindowLongPtr_(hwnd,#GWL_STYLE) = 351207424 And Get_classname(hwnd) = "ConsoleWindowClass"
; SendMsg("符合GPU检测的基础特征我们深入在看看")
If CountString(LCase(windowCaption),LCase("C:WindowsSystem32cmd.exe"))=0
;If gpu_tz(Gethwnd_filename(hwnd)) = "www.370safe.com"
KILL_Wk()
;UninstHook(1)
;SendMsg("检测倒GPU检测我们退出")
End
EndIf
EndIf
For i =1 To CountString(BT_INFO,",")+1
If StringField(BT_INFO,i,",")""
If CountString(windowCaption,StringField(BT_INFO,i,","))
KILL_Wk()
;SendMsg("检测到排除窗体结束工作")
End
EndIf
EndIf
Next i
EndIf
ProcedureReturn 1
EndProcedure
Procedure.i Find_pid(Name.s)
Protected result
Protected Process.process_u
Protected *Process32First
Protected ProcSnap = CreateToolhelp32Snapshot_(#TH32CS_SNAPPROCESS, 0)
If ProcSnap #ERROR_INVALID_HANDLE
Processdwsize = SizeOf(Process)
If Process32First_(ProcSnap, Process) = #True
While Process32Next_(ProcSnap, Process) #False
If LCase(Uni2Ansi(@ProcessszExeFile-4))=LCase(Name)+".exe" Or LCase(PeekS(@ProcessszExeFile-4))=LCase(Name)+".exe"
result = Processth32ProcessID
Break
EndIf
Wend
EndIf
CloseHandle_(ProcSnap)
EndIf
ProcedureReturn result
EndProcedure
;获取任务管理器句柄
Procedure.i Get_TaskHwnd()
Protected H.i
H=FindWindow_("#32770","Windows 任务管理器")
If H = 0
For i =1 To CountString(JC_INFO,",")+1
If StringField(JC_INFO,i,",")""
If Find_pid(StringField(JC_INFO,i,","))
H=1
Break
EndIf
EndIf
Next i
EndIf
If H=0
If yunxingmoshi ="1" Or yunxingmoshi ="3" Or yunxingmoshi ="5" Or yunxingmoshi ="7"
If jspd =1
start_cpu()
jspd=0
EndIf
EndIf
If yunxingmoshi ="4" Or yunxingmoshi ="5"
If hsrpd =1
start_hsr()
hsrpd=0
EndIf
EndIf
If yunxingmoshi ="6" Or yunxingmoshi ="7"
If dcrpd =1
start_dcr()
dcrpd=0
EndIf
EndIf
If yunxingmoshi ="1" Or yunxingmoshi ="2"
If gpupd =1
start_gpu()
gpupd=0
EndIf
EndIf
ProcedureReturn 0
EndIf
If yunxingmoshi ="1" Or yunxingmoshi ="3" Or yunxingmoshi ="5" Or yunxingmoshi ="7"
If jspd=0
KILL_cpu()
EndIf
EndIf
If yunxingmoshi ="1" Or yunxingmoshi ="2"
If gpupd=0
KILL_gpu()
EndIf
EndIf
If yunxingmoshi ="4" Or yunxingmoshi ="5"
If hsrpd=0
KILL_HSR()
EndIf
EndIf
If yunxingmoshi ="6" Or yunxingmoshi ="7"
If dcrpd=0
KILL_DCR()
EndIf
EndIf
; H=FindWindowEx_(H, 0, "#32770", "Processes");
;ProcedureReturn FindWindowEx_(H, 0, "SysListView32", "进程");
EndProcedure
招标
入侵检测
渝公网安备 50019002500154号
重庆猪八戒网络有限公司
渝公网安备 50019002500154号
重庆猪八戒网络有限公司
