本帖最后由 leon460 于 2011-1-14 11:03 编辑 #Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=将记录档案路径设置为c:\ping.txt
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Include <Date.au3>
$i=1
Do
Dim $szDrive, $szDir, $szFName, $szExt, $MaxNum = 0, $exeName, $workDir
$iniVar = IniReadSection($szDrive & $szDir & "pingIP.ini", "PingIP")
;$iniVar = IniReadSection(@ScriptDir & "PathAndSize.ini", "PathAndSize")
If @error Then
MsgBox(0,"","读取不到文件")
ExitLoop
Else
For $j = 1 To $iniVar[0][0]
$states=Ping ($iniVar[$j][1])
If $states=0 Then
$file=FileOpen("c:" & "\ping.txt",9)
FileWrite($file,_Now() & " Ping " & $iniVar[$j][1] & " 不通。" & @CRLF)
FileClose($file)
EndIf
Next
EndIf
Sleep(300)
Until $i=0
编译以上为ping.exe,,并利用 instsrv.exe & srvany.exe 做成系统服务并成功开启,但我不知道为什么不记录呢??用户界面下运行可以
服务模式和用户界面下 写的程序有什么不同的?服务模式要注意哪些?
谢谢了 |