Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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
|Need Help,, i m beginner in vba,, i'm writing a code for exporting the data from Userform to Access Database||13||127|
|to transfer string from C lanaguage to VBA||4||77|
|Can we place a tooltip on the actual vb6 form||5||50|
|MS Access - loop through contents of table and iteratively find/replace words from second table||6||92|