Originally posted by skavan
View Post
-David
HSPI_drhsIpPlugIn.zip
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.
Sub Main(param() As Object) Dim ConnectionName As String = param(0) Dim FromIp As String = param(1) Dim AsciiData As String = param(2) Dim BinaryData(UBound(param(3))) As Byte Array.Copy(param(3), BinaryData, BinaryData.Length) hs.WriteLog("Pass-thru", ConnectionName) hs.WriteLog("Pass-thru", FromIp) hs.WriteLog("Pass-thru", AsciiData) hs.WriteLog("Pass-thru", "There are " & BinaryData.Length.ToString & " bytes of binary data.") For n as Int16 = 0 to UBound(BinaryData) hs.WriteLog("Pass-thru b" & n.ToString, BinaryData(n).ToString) Next End Sub
Comment