Can't get it to work, and I seem to be duplicating what works for you guys.
:-(
:-(
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
#Includes Includes/functions.vb Sub Main(byVal args As String) hs.WriteLog("TEST","Starting") End Sub
Sub LogIt(byVal Message As String, byVal Severity As Integer) hs.WriteLog("test","found /include") Dim ID As String = "Info" Dim strScript As String = "Test.vb" If Severity = 0 Then hs.WriteLogEx(ID," -- " & strScript & " -- " & Message,"#80800") 'Black If Severity = 1 Then hs.WriteLogEx(ID," -- " & strScript & " -- " & Message,"#0000FF") 'Blue If Severity = 2 Then hs.WriteLogEx(ID," -- " & strScript & " -- " & Message,"#ADD8E6") 'Light Blue If Severity = 3 Then hs.WriteLogEx(ID," -- " & strScript & " -- " & Message,"#FF0000") 'Red If Severity = 4 Then hs.WriteLogEx(ID," -- " & strScript & " -- " & Message,"#FFA500") 'Orange End Sub
#Include functions.vb
Comment