|
本帖最后由 bill.chen 于 2016-10-10 18:20 编辑
向各位请教一个问题,我写了一个检查杀毒软件进程的代码,想实现在弹出消息框点确定时,能退出这个最外面的while循环,代码如下,请各位指点一下
;==========判断杀毒软件进程是否正常运行
global $r
while 1
if processexists("clamscan.exe") Then
MsgBox($MB_SYSTEMMODAL, "","杀毒软件正在运行")
Else
$pingtime=ping("mail.test.com")
if $pingtime>0 Then
;========发邮件模块==================
Local $msg = ObjCreate ("JMail.Message")
If IsObj($msg) Then
$msg.Charset = "gb2312"
$msg.Silent = true
$msg.Priority = 3
$msg.MailServerUserName = "bill.chen@test.com" ; SMTP验证用户名
$msg.MailServerPassword = "123456" ; SMTP验证密码
$msg.From = "bill.chen@test.com" ; 发件人地址
$msg.FromName=@ComputerName & @UserName ;当前计算机名加用户名
;$msg.FromName = @UserName ; 发件人名称
$msg.AddRecipient("bill.chen@test.com", "1234567") ; 收件人信息
$msg.Subject = "请注意这台PC杀毒软件异常,请注意检查" ; 邮件标题
$msg.Body = "这是测试邮件" & @CRLF ; 邮件内容第1行
$msg.AppendText("这是附加的信息") ; 邮件内容第n行
If $msg.Send("mail.test.com") Then
;run(@ComSpec & " /c " &' netsh interface set interface "本地连接" disabled', "", @SW_HIDE)
;run(@ComSpec & " /c " &' netsh interface set interface "无线网络连接" disabled', "", @SW_HIDE)
MsgBox(48, "网络通的情况", "由于没能未检测到杀到软件运行,已将网络断开,请及时与管理员联系")
;local $r
if $r=1 Then
ExitLoop
endif
Else
MsgBox(0, "", "发送失败")
EndIf
Else
MsgBox(0, "", "ObjCreate Jmail.Message失败")
EndIf
else
;run(@ComSpec & " /c " &' netsh interface set interface "本地连接" disabled', "", @SW_HIDE)
; run(@ComSpec & " /c " &' netsh interface set interface "无线网络连接" disabled', "", @SW_HIDE)
MsgBox(48, "网络不通的情况", "由于没能未检测到杀到软件运行,已将网络断开,请及时与管理员联系")
;local $s
if $r=1 Then
Exit
endif
EndIf
EndIf
sleep(6000)
WEnd
根据杀毒软件进程,弹出相对应的消息框,点一次确定就可以退出这个while循环,不然一直在弹出这个消息框,想了好久也没有实现,请各位指点一下。
同时这个程序 还有一个问题在,域里普通用户运行的话,会提示ObjCreate Jmail.Message失败,这个有什么处理办法不? |
|