Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Function CommandCode(PC As Long) Dim command As String Dim argPassedIn As String command = Worksheets("GUI").Cells(PC + 1, 2).Value argPassedIn = Worksheets("GUI").Cells(PC + 1, 3).Value If InStr(argPassedIn, ",") = False Then CallByName Me, command, VbMethod, argPassedIn If InStr(argPassedIn, ",") Then CallByName Me, command, VbMethod, Split(argPassedIn, ",") End Function Function MySend(ByVal data As String) If LCase(data) = "chr(13)" Then data = Chr(13) If LCase(data) = "chr(27)" Then data = Chr(27) wsTCP.SendData data End Function Function CheckWarning(word1 As String, word2 As String) 'Detect whether there is a warning. If there is, keep sending word2. Do While (InStr(sBuffer, word1) > 0) 'Gets out of loop when word1 no longer exists sBuffer = "" MySend word2 Call CheckBuffer Loop End Function