0

これはバックグラウンドで実行したいコードなので、ウィンドウメッセージはありません。その意味は、接続をチェックすることです。接続がない場合、エラーがファイルに書き込まれます。イベントエラーを作成する必要がある5行がある場合、関数はそのファイルを読み取ります。問題は、最後の部分が正しく機能しないことです。

私の質問は、誰かがそれを修正するか、修正するのを手伝ってくれるかということです. コードは次のとおりです。

strDirectory = "Z:\text2"
strFile = "\foutmelding.txt"
strText = "De connectie is verbroken" 
strWebsite = "www.helmichbeens.com"


If PingSite(strWebsite) Then WScript.Quit    'Website is pingable - no further action required
Set objFSO = CreateObject("Scripting.FileSystemObject")

RecordSingleEvent
If EventCount >= 5 Then
    objFSO.DeleteFile strDirectory & strFile
    Set WshShell = WScript.CreateObject("WScript.Shell")
    strCommand = "eventcreate /T Error /ID 100 /L Scripts /D " & _
    Chr(34) & "Test event." & Chr(34)
    WshShell.Run strcommand
End if
'------------------------------------
'Record a single event in a text file
'------------------------------------
Sub RecordSingleEvent
    If Not objFSO.FolderExists(strDirectory) Then objFSO.CreateFolder(strDirectory)
    Set objTextFile = objFSO.OpenTextFile(strDirectory & strFile, 8, True)
    objTextFile.WriteLine(Now & strText)
    objTextFile.Close
End sub
'----------------
'Ping my web site
'----------------
Function PingSite( myWebsite )
    Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
    objHTTP.Open "GET", "http://" & myWebsite & "/", False
    objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MyApp 1.0; Windows NT 5.1)"
    On Error Resume Next
    objHTTP.Send
    PingSite = (objHTTP.Status = 200)
    On Error Goto 0
End Function
'-----------------------------------------------
'Counts the number of lines inside the text file
'-----------------------------------------------
Function EventCount()
    strData = objFSO.OpenTextFile(strDirectory & strFile,ForReading).ReadAll
    arrLines = Split(strData,vbCrLf)
    EventCount = UBound(arrLines)
    Set objFSO = Nothing
End Function

これは、コピーして自分で確認できるコードです。あなたの時間と関心に感謝します

ヘルミヒに挨拶

4

3 に答える 3

0

Shell オブジェクトの logevent メソッドを使用する

If EventCount >= 5 Then
    objFSO.DeleteFile strDirectory & strFile
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Call WshShell.LogEvent(1, "Test Event")
End if

別のコマンドを実行する必要はありません

于 2013-10-31T14:11:57.450 に答える