Damein Posted June 13, 2016 Share Posted June 13, 2016 So I recently started using the COMMG UDF and yesterday it was working 100% with my device (A small transmitter/receiver) as of today though I can no longer communicate with it at all? Nothing has been changed on my PC (No updates, on Windows 7) The Example script no longer works either. If I open the port the window just sits there blank whereas yesterday it was constantly updating with data. I can't think of why this would be, any help would be appreciated! I guess what I am mainly looking for is any troubleshooting I can do to find out why.. I don't really know much about how the devices/script works as far as what BAUD is and everything but I did try all the different variation of BAUD's to make sure it wasn't miss communicating or something. Example Source via Martin expandcollapse popup;Example program showing how to use some of the commMg3.au3 UDF functions ;this example is a very simple terminal ;Version 2 26th July 2006 ;changes- ;change flow control checkbox to combo and add NONE ;correct error in call to _CommSetPort - stop bits were missing which meant th eflow control was used for stop bits ;Dec 2013 - correct setting of Parity and flow, thanks to MichaelXMike #include <GUIConstants.au3> #include 'CommMG.au3';or if you save the commMg.dll in the @scripdir use #include @SciptDir & '\commmg.dll' #include <GuiEdit.au3> #include <GuiComboBox.au3> #include <windowsconstants.au3> #include <buttonconstants.au3> Opt("WINTITLEMATCHMODE", 3) ;Opt("OnExitFunc","alldone") HotKeySet("{ESC}", "alldone") $result = '';used for any returned error message setting port Const $settitle = "COMMG listExample - set Port", $maintitle = "COMMG Example" $setflow = 2;default to no flow control Dim $FlowType[3] = ["Hardware (RTS, CTS)", "XOnXoff", "NONE"] Dim $ParityType[5] = ["odd", "even", "none", "Mark", "Space"] #region main program #Region ### START Koda GUI section ### Form=d:\my documents\miscdelphi\commg\ExampleComm.kxf $Form2 = GUICreate("COMMG Example", 473, 349, 339, 333, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_OVERLAPPEDWINDOW, $WS_TILEDWINDOW, $WS_POPUP, $WS_POPUPWINDOW, $WS_GROUP, $WS_TABSTOP, $WS_BORDER, $WS_CLIPSIBLINGS)) $Edit1 = GUICtrlCreateEdit("", 10, 25, 449, 223, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_HSCROLL, $WS_VSCROLL)) $BtnSend = GUICtrlCreateButton("Send", 380, 273, 53, 30, $BS_FLAT) $Input1 = GUICtrlCreateInput("", 18, 279, 361, 21) $Checkbox1 = GUICtrlCreateCheckbox("Add LF to incomming CR", 273, 4, 145, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlSetResizing(-1, $GUI_DOCKAUTO) $Label11 = GUICtrlCreateLabel("Text to send", 24, 261, 63, 17) $BtnSetPort = GUICtrlCreateButton("Set Port", 16, 312, 73, 30, $BS_FLAT) $Label21 = GUICtrlCreateLabel("Received text", 34, 6, 70, 17) $Label31 = GUICtrlCreateLabel("commg.dll version unknown", 272, 328, 135, 17) GUICtrlSetColor(-1, 0x008080) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### WinSetTitle($Form2, "", $maintitle & " UDF = " & _CommGetVersion(1)) While setport(0) = -1 If MsgBox(4, 'Port not set', 'Do you want to quite the program?') = 6 Then Exit WEnd ConsoleWrite("stage 1" & @CRLF) GUICtrlSetData($Label31, 'using ' & _CommGetVersion(1)) ConsoleWrite("stage 2" & @CRLF) Events() ConsoleWrite("at 64" & @CRLF) _CommSetXonXoffProperties(11, 13, 100, 100) ;consolewrite("return from set timeouts = " & _CommSetTimeouts(5,5,5,5,5) & @CR) GUICtrlSetState($Edit1, $GUI_FOCUS) ConsoleWrite("at 67" & @CRLF) While 1 ;sleep(40) ;gets characters received returning when one of these conditions is met: ;receive @CR, received 20 characters or 200ms has elapsed $instr = _commGetLine(@CR, 20, 200);_CommGetString() If $instr <> '' Then;if we got something If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then $instr = StringReplace($instr, @CR, @CRLF) GUICtrlSetData($Edit1, $instr, 1) Else Sleep(20) ;MichaelXMike EndIf WEnd Alldone() Func port11() ;MsgBox(0,'now set to channel',_CommSwitch(2)) _commSwitch(2) $s2 = "1 2 3 4";_CommGetString() ConsoleWrite("comm1 gets " & $s2 & @CRLF) _CommSendString($s2) _CommSwitch(1) EndFunc ;==>port11 #endregion main program Func Events() Opt("GUIOnEventMode", 1) GUISetOnEvent($GUI_EVENT_CLOSE, "justgo") GUICtrlSetOnEvent($BtnSend, "SendEvent") GUICtrlSetOnEvent($BtnSetPort, "SetPortEvent") EndFunc ;==>Events Func SetPortEvent() setport();needed because a parameter is optional for setport so we can't use "setport" for the event GUICtrlSetState($Edit1, $GUI_FOCUS) EndFunc ;==>SetPortEvent Func justgo() Exit EndFunc ;==>justgo Func SendEvent();send the text in the inputand append CR _CommSendstring(GUICtrlRead($Input1) & @CR) GUICtrlSetData($Input1, '');clear the input ;GUICtrlSetState($edit1,$GUI_FOCUS);sets the caret back in the terminal screen EndFunc ;==>SendEvent Func AllDone() ;MsgBox(0,'will close ports','') _Commcloseport(true) ;MsgBox(0,'port closed','') Exit EndFunc ;==>AllDone ; Function SetPort($mode=1) ; Creates a form for the port settings ;Parameter $mode sets the return value depending on whether the port was set ;Returns 0 if $mode <> 1 ; -1 If` the port not set and $mode is 1 Func SetPort($mode = 1);if $mode = 1 then returns -1 if settings not made Local $sportSetError Opt("GUIOnEventMode", 0);keep events for $Form2, use GuiGetMsg for $Form3 #Region ### START Koda GUI section ### Form=d:\my documents\miscdelphi\commg\examplecommsetport.kxf $Form3 = GUICreate("COMMG Example - set Port", 422, 279, 329, 268, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS, $DS_MODALFRAME), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) $Group1 = GUICtrlCreateGroup("Set COM Port", 18, 8, 288, 252) $CmboPortsAvailable = GUICtrlCreateCombo("", 127, 28, 145, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SORT)) $CmBoBaud = GUICtrlCreateCombo("9600", 127, 66, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL, $CBS_SORT, $WS_VSCROLL)) GUICtrlSetData(-1, "10400|110|115200|1200|128000|14400|150|15625|1800|19200|2000|2400|256000|28800|38400|3600|38400|4800|50|56000|57600|600|7200|75") $CmBoStop = GUICtrlCreateCombo("1", 127, 141, 145, 25) GUICtrlSetData(-1, "1|2|1.5") $CmBoParity = GUICtrlCreateCombo("", 127, 178, 145, 25) GUICtrlSetData(-1, "odd|even|none|Mark|Space") GUICtrlSetData(-1, "none") $Label2 = GUICtrlCreateLabel("Port", 94, 32, 23, 17) $Label3 = GUICtrlCreateLabel("baud", 89, 70, 28, 17) $Label4 = GUICtrlCreateLabel("No. Stop bits", 52, 145, 65, 17) $Label5 = GUICtrlCreateLabel("parity", 88, 182, 29, 17) $CmboDataBits = GUICtrlCreateCombo("8", 127, 103, 145, 25) GUICtrlSetData(-1, "7|8") $Label7 = GUICtrlCreateLabel("No. of Data Bits", 38, 107, 79, 17) $ComboFlow = GUICtrlCreateCombo("NONE", 127, 216, 145, 25) GUICtrlSetData(-1, "NONE|XOnXOff|Hardware (RTS, CTS)") $Label1 = GUICtrlCreateLabel("flow control", 59, 220, 58, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $BtnApply = GUICtrlCreateButton("Apply", 315, 95, 75, 35, $BS_FLAT) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $BtnCancel = GUICtrlCreateButton("Cancel", 316, 147, 76, 35, $BS_FLAT) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### WinSetTitle($Form3, "", $settitle);ensure a change to Koda design doesn't stop script working $mainxy = WinGetPos($Form2) WinMove($Form3, "", $mainxy[0] + 20, $mainxy[1] + 20) $portlist = _CommListPorts(0);find the available COM ports and write them into the ports combo If @error = 1 Then MsgBox(0, 'trouble getting portlist', 'Program will terminate!') Exit EndIf For $pl = 1 To $portlist[0] $portnum = StringReplace($portlist[$pl], "COM", '') if StringLen($portnum) = 1 then $portnum = ' ' & $portnum $portlist[$pl] = 'COM' & $portnum GUICtrlSetData($CmboPortsAvailable, $portlist[$pl]);_CommListPorts()) Next GUICtrlSetData($CmboPortsAvailable, $portlist[1]);show the first port found GUICtrlSetData($ComboFlow, $FlowType[$setflow]) _GUICtrlComboBox_SetMinVisible($CmBoBaud, 10);restrict the length of the drop-down list $retval = 0 While 1 $msg = GUIGetMsg() If $msg = $BtnCancel Then If Not $mode Then $retval = -1 ExitLoop EndIf If $msg = $BtnApply Then $comboflowsel = GUICtrlRead($ComboFlow) For $n = 0 To 2 If $comboflowsel = $FlowType[$n] Then $setflow = $n ConsoleWrite("flow = " & $setflow & @CRLF) ExitLoop EndIf Next $setport = StringReplace(GUICtrlRead($CmboPortsAvailable), 'COM', '') $ParitySel = GUICtrlRead($CmBoParity) For $n = 0 To 4 If $ParitySel = $ParityType[$n] Then $SetParity = $n ExitLoop EndIf Next $setStop = StringReplace(GUICtrlRead($CmBoStop), '.', '');replace 1.5 with 15 if needed $resOpen = _CommSetPort($setport, $sportSetError, GUICtrlRead($CmBoBaud), GUICtrlRead($CmboDataBits), $SetParity, $setStop, $setflow) ;$resOpen = _CommSetPort($setPort,$sportSetError,GUICtrlRead($CmBoBaud),GUICtrlRead($CmboDataBits),GUICtrlRead($CmBoParity),GUICtrlRead($CmBoStop),$setFlow) if $resOpen = 0 then ConsoleWrite($sportSetError & @LF) Exit EndIf Sleep(1000) ConsoleWrite('ok' & @CRLF) ;next $mode = 1; ExitLoop EndIf ;stop user switching back to $form2 If WinActive($maintitle) Then ConsoleWrite('main is active' & @CRLF) If WinActivate($settitle) = 0 Then MsgBox(0, 'not found', $settitle) EndIf WEnd ConsoleWrite(244 & @CRLF) GUIDelete($Form3) ConsoleWrite(247 & @CRLF) WinActivate($maintitle) ConsoleWrite(248 & @CRLF) Events() Return $retval EndFunc ;==>SetPort Most recent sig. I made Quick Launcher W/ Profiles Topic Movie Database Topic & Website | LiveStreamer Pro Website | YouTube Stand-Alone Playlist Manager: Topic | Weather Desktop Widget: Topic | Flash Memory Game: Topic | Volume Control With Mouse / iTunes Hotkeys: Topic | Weather program: Topic | Paws & Tales radio drama podcast mini-player: Topic | Quick Math Calculations: Topic Link to comment Share on other sites More sharing options...
Damein Posted June 15, 2016 Author Share Posted June 15, 2016 So I am attempting to read data coming from some wireless devices using a Transmitter / Receiver. I was using a UDF by Martin that allowed me to do this but it randomly stopped working. The only thing I can find that MAY give me a reason is that the devices apparently run off of a network? The devices came with its own software that when ran it displays that its listening to COM10 (The devices my computer is connected to) and Network: 1234. The only thing I haven't been able to decipher is this network ID (I think its a TCP port or something? So my question would be how can I tell my device or the UDF to listen to said port? Here is the source for Martin's example (Worked one day and stopped the next) expandcollapse popup;Example program showing how to use some of the commMg3.au3 UDF functions ;this example is a very simple terminal ;Version 2 26th July 2006 ;changes- ;change flow control checkbox to combo and add NONE ;correct error in call to _CommSetPort - stop bits were missing which meant th eflow control was used for stop bits ;Dec 2013 - correct setting of Parity and flow, thanks to MichaelXMike #include <GUIConstants.au3> #include 'CommMG.au3';or if you save the commMg.dll in the @scripdir use #include @SciptDir & '\commmg.dll' #include <GuiEdit.au3> #include <GuiComboBox.au3> #include <windowsconstants.au3> #include <buttonconstants.au3> #include <Array.au3> Opt("WINTITLEMATCHMODE", 3) ;Opt("OnExitFunc","alldone") HotKeySet("{ESC}", "alldone") $result = '';used for any returned error message setting port Const $settitle = "COMMG listExample - set Port", $maintitle = "COMMG Example" $setflow = 2;default to no flow control Dim $FlowType[3] = ["Hardware (RTS, CTS)", "XOnXoff", "NONE"] Dim $ParityType[5] = ["odd", "even", "none", "Mark", "Space"] #region main program #Region ### START Koda GUI section ### Form=d:\my documents\miscdelphi\commg\ExampleComm.kxf $Form2 = GUICreate("COMMG Example", 473, 349, 339, 333, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_OVERLAPPEDWINDOW, $WS_TILEDWINDOW, $WS_POPUP, $WS_POPUPWINDOW, $WS_GROUP, $WS_TABSTOP, $WS_BORDER, $WS_CLIPSIBLINGS)) $Edit1 = GUICtrlCreateEdit("", 10, 25, 449, 223, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_HSCROLL, $WS_VSCROLL)) $BtnSend = GUICtrlCreateButton("Send", 380, 273, 53, 30, $BS_FLAT) $Input1 = GUICtrlCreateInput("", 18, 279, 361, 21) $Checkbox1 = GUICtrlCreateCheckbox("Add LF to incomming CR", 273, 4, 145, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUICtrlSetResizing(-1, $GUI_DOCKAUTO) $Label11 = GUICtrlCreateLabel("Text to send", 24, 261, 63, 17) $BtnSetPort = GUICtrlCreateButton("Set Port", 16, 312, 73, 30, $BS_FLAT) $Label21 = GUICtrlCreateLabel("Received text", 34, 6, 70, 17) $Label31 = GUICtrlCreateLabel("commg.dll version unknown", 272, 328, 135, 17) GUICtrlSetColor(-1, 0x008080) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### WinSetTitle($Form2, "", $maintitle & " UDF = " & _CommGetVersion(1)) While setport(0) = -1 If MsgBox(4, 'Port not set', 'Do you want to quite the program?') = 6 Then Exit WEnd ConsoleWrite("stage 1" & @CRLF) GUICtrlSetData($Label31, 'using ' & _CommGetVersion(1)) ConsoleWrite("stage 2" & @CRLF) Events() ConsoleWrite("at 64" & @CRLF) _CommSetXonXoffProperties(11, 13, 100, 100) ;consolewrite("return from set timeouts = " & _CommSetTimeouts(5,5,5,5,5) & @CR) GUICtrlSetState($Edit1, $GUI_FOCUS) ConsoleWrite("at 67" & @CRLF) While 1 ;sleep(40) ;gets characters received returning when one of these conditions is met: ;receive @CR, received 20 characters or 200ms has elapsed $instr = _commGetLine(@CR, 20, 200);_CommGetString() If $instr <> '' Then;if we got something If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then $instr = StringReplace($instr, @CR, @CRLF) FileWrite(@ScriptDIr & "/Data.txt", $instr) GUICtrlSetData($Edit1, $instr, 1) Else Sleep(20) ;MichaelXMike EndIf WEnd Alldone() Func port11() ;MsgBox(0,'now set to channel',_CommSwitch(2)) _commSwitch(2) $s2 = "1 2 3 4";_CommGetString() ConsoleWrite("comm1 gets " & $s2 & @CRLF) _CommSendString($s2) _CommSwitch(1) EndFunc ;==>port11 #endregion main program Func Events() Opt("GUIOnEventMode", 1) GUISetOnEvent($GUI_EVENT_CLOSE, "justgo") GUICtrlSetOnEvent($BtnSend, "SendEvent") GUICtrlSetOnEvent($BtnSetPort, "SetPortEvent") EndFunc ;==>Events Func SetPortEvent() setport();needed because a parameter is optional for setport so we can't use "setport" for the event GUICtrlSetState($Edit1, $GUI_FOCUS) EndFunc ;==>SetPortEvent Func justgo() Exit EndFunc ;==>justgo Func SendEvent();send the text in the inputand append CR _CommSendstring(GUICtrlRead($Input1) & @CR) GUICtrlSetData($Input1, '');clear the input ;GUICtrlSetState($edit1,$GUI_FOCUS);sets the caret back in the terminal screen EndFunc ;==>SendEvent Func AllDone() ;MsgBox(0,'will close ports','') _Commcloseport(true) ;MsgBox(0,'port closed','') Exit EndFunc ;==>AllDone ; Function SetPort($mode=1) ; Creates a form for the port settings ;Parameter $mode sets the return value depending on whether the port was set ;Returns 0 if $mode <> 1 ; -1 If` the port not set and $mode is 1 Func SetPort($mode = 1);if $mode = 1 then returns -1 if settings not made Local $sportSetError Opt("GUIOnEventMode", 0);keep events for $Form2, use GuiGetMsg for $Form3 #Region ### START Koda GUI section ### Form=d:\my documents\miscdelphi\commg\examplecommsetport.kxf $Form3 = GUICreate("COMMG Example - set Port", 422, 279, 329, 268, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS, $DS_MODALFRAME), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) $Group1 = GUICtrlCreateGroup("Set COM Port", 18, 8, 288, 252) $CmboPortsAvailable = GUICtrlCreateCombo("", 127, 28, 145, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SORT)) $CmBoBaud = GUICtrlCreateCombo("9600", 127, 66, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL, $CBS_SORT, $WS_VSCROLL)) GUICtrlSetData(-1, "10400|110|115200|1200|128000|14400|150|15625|1800|19200|2000|2400|256000|28800|38400|3600|38400|4800|50|56000|57600|600|7200|75") $CmBoStop = GUICtrlCreateCombo("1", 127, 141, 145, 25) GUICtrlSetData(-1, "1|2|1.5") $CmBoParity = GUICtrlCreateCombo("", 127, 178, 145, 25) GUICtrlSetData(-1, "odd|even|none|Mark|Space") GUICtrlSetData(-1, "none") $Label2 = GUICtrlCreateLabel("Port", 94, 32, 23, 17) $Label3 = GUICtrlCreateLabel("baud", 89, 70, 28, 17) $Label4 = GUICtrlCreateLabel("No. Stop bits", 52, 145, 65, 17) $Label5 = GUICtrlCreateLabel("parity", 88, 182, 29, 17) $CmboDataBits = GUICtrlCreateCombo("8", 127, 103, 145, 25) GUICtrlSetData(-1, "7|8") $Label7 = GUICtrlCreateLabel("No. of Data Bits", 38, 107, 79, 17) $ComboFlow = GUICtrlCreateCombo("NONE", 127, 216, 145, 25) GUICtrlSetData(-1, "NONE|XOnXOff|Hardware (RTS, CTS)") $Label1 = GUICtrlCreateLabel("flow control", 59, 220, 58, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $BtnApply = GUICtrlCreateButton("Apply", 315, 95, 75, 35, $BS_FLAT) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") $BtnCancel = GUICtrlCreateButton("Cancel", 316, 147, 76, 35, $BS_FLAT) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### WinSetTitle($Form3, "", $settitle);ensure a change to Koda design doesn't stop script working $mainxy = WinGetPos($Form2) WinMove($Form3, "", $mainxy[0] + 20, $mainxy[1] + 20) $portlist = _CommListPorts(0);find the available COM ports and write them into the ports combo If @error = 1 Then MsgBox(0, 'trouble getting portlist', 'Program will terminate!') Exit EndIf For $pl = 1 To $portlist[0] $portnum = StringReplace($portlist[$pl], "COM", '') if StringLen($portnum) = 1 then $portnum = ' ' & $portnum $portlist[$pl] = 'COM' & $portnum GUICtrlSetData($CmboPortsAvailable, $portlist[$pl]);_CommListPorts()) Next GUICtrlSetData($CmboPortsAvailable, $portlist[1]);show the first port found GUICtrlSetData($ComboFlow, $FlowType[$setflow]) _GUICtrlComboBox_SetMinVisible($CmBoBaud, 10);restrict the length of the drop-down list $retval = 0 While 1 $msg = GUIGetMsg() If $msg = $BtnCancel Then If Not $mode Then $retval = -1 ExitLoop EndIf If $msg = $BtnApply Then $comboflowsel = GUICtrlRead($ComboFlow) For $n = 0 To 2 If $comboflowsel = $FlowType[$n] Then $setflow = $n ConsoleWrite("flow = " & $setflow & @CRLF) ExitLoop EndIf Next $setport = StringReplace(GUICtrlRead($CmboPortsAvailable), 'COM', '') $ParitySel = GUICtrlRead($CmBoParity) For $n = 0 To 4 If $ParitySel = $ParityType[$n] Then $SetParity = $n ExitLoop EndIf Next $setStop = StringReplace(GUICtrlRead($CmBoStop), '.', '');replace 1.5 with 15 if needed $resOpen = _CommSetPort($setport, $sportSetError, GUICtrlRead($CmBoBaud), GUICtrlRead($CmboDataBits), $SetParity, $setStop, $setflow) ;$resOpen = _CommSetPort($setPort,$sportSetError,GUICtrlRead($CmBoBaud),GUICtrlRead($CmboDataBits),GUICtrlRead($CmBoParity),GUICtrlRead($CmBoStop),$setFlow) if $resOpen = 0 then ConsoleWrite($sportSetError & @LF) Exit EndIf Sleep(1000) ConsoleWrite('ok' & @CRLF) ;next $mode = 1; ExitLoop EndIf ;stop user switching back to $form2 If WinActive($maintitle) Then ConsoleWrite('main is active' & @CRLF) If WinActivate($settitle) = 0 Then MsgBox(0, 'not found', $settitle) EndIf WEnd ConsoleWrite(244 & @CRLF) GUIDelete($Form3) ConsoleWrite(247 & @CRLF) WinActivate($maintitle) ConsoleWrite(248 & @CRLF) Events() Return $retval EndFunc ;==>SetPort UDF Source: Most recent sig. I made Quick Launcher W/ Profiles Topic Movie Database Topic & Website | LiveStreamer Pro Website | YouTube Stand-Alone Playlist Manager: Topic | Weather Desktop Widget: Topic | Flash Memory Game: Topic | Volume Control With Mouse / iTunes Hotkeys: Topic | Weather program: Topic | Paws & Tales radio drama podcast mini-player: Topic | Quick Math Calculations: Topic Link to comment Share on other sites More sharing options...
Developers Jos Posted June 15, 2016 Developers Share Posted June 15, 2016 Please stick with one topic/thread. Jos SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
spudw2k Posted June 16, 2016 Share Posted June 16, 2016 I'm prety sure COM doesn't talk TCP. I'd suspect there is a software component that is creating a virtual COM port and does the IP:port communication in the background. What is the device and software name? Spoiler Things I've Made: Always On Top Tool ◊ AU History ◊ Deck of Cards ◊ HideIt ◊ ICU ◊ Icon Freezer ◊ Ipod Ejector ◊ Junos Configuration Explorer ◊ Link Downloader ◊ MD5 Folder Enumerator ◊ PassGen ◊ Ping Tool ◊ Quick NIC ◊ Read OCR ◊ RemoteIT ◊ SchTasksGui ◊ SpyCam ◊ System Scan Report Tool ◊ System UpTime ◊ Transparency Machine ◊ VMWare ESX Builder Misc Code Snippets: ADODB Example ◊ CheckHover ◊ Detect SafeMode ◊ DynEnumArray ◊ GetNetStatData ◊ HashArray ◊ IsBetweenDates ◊ Local Admins ◊ Make Choice ◊ Recursive File List ◊ Remove Sizebox Style ◊ Retrieve PNPDeviceID ◊ Retrieve SysListView32 Contents ◊ Set IE Homepage ◊ Tickle Expired Password ◊ Transpose Array Projects: Drive Space Usage GUI ◊ LEDkIT ◊ Plasma_kIt ◊ Scan Engine Builder ◊ SpeeDBurner ◊ SubnetCalc Cool Stuff: AutoItObject UDF ◊ Extract Icon From Proc ◊ GuiCtrlFontRotate ◊ Hex Edit Funcs ◊ Run binary ◊ Service_UDF Link to comment Share on other sites More sharing options...
Damein Posted June 16, 2016 Author Share Posted June 16, 2016 The device is a Datalink Wireless Interface FCC Info And the software is the same name: Datalink. Most recent sig. I made Quick Launcher W/ Profiles Topic Movie Database Topic & Website | LiveStreamer Pro Website | YouTube Stand-Alone Playlist Manager: Topic | Weather Desktop Widget: Topic | Flash Memory Game: Topic | Volume Control With Mouse / iTunes Hotkeys: Topic | Weather program: Topic | Paws & Tales radio drama podcast mini-player: Topic | Quick Math Calculations: Topic Link to comment Share on other sites More sharing options...
Damein Posted June 16, 2016 Author Share Posted June 16, 2016 I just got off the phone with the technical support side of the company and they informed me that they run off of a Zigbee network? I'll look into that more but just throwing that out there. Most recent sig. I made Quick Launcher W/ Profiles Topic Movie Database Topic & Website | LiveStreamer Pro Website | YouTube Stand-Alone Playlist Manager: Topic | Weather Desktop Widget: Topic | Flash Memory Game: Topic | Volume Control With Mouse / iTunes Hotkeys: Topic | Weather program: Topic | Paws & Tales radio drama podcast mini-player: Topic | Quick Math Calculations: Topic Link to comment Share on other sites More sharing options...
Damein Posted June 20, 2016 Author Share Posted June 20, 2016 Still searching in vain Most recent sig. I made Quick Launcher W/ Profiles Topic Movie Database Topic & Website | LiveStreamer Pro Website | YouTube Stand-Alone Playlist Manager: Topic | Weather Desktop Widget: Topic | Flash Memory Game: Topic | Volume Control With Mouse / iTunes Hotkeys: Topic | Weather program: Topic | Paws & Tales radio drama podcast mini-player: Topic | Quick Math Calculations: Topic Link to comment Share on other sites More sharing options...
Damein Posted June 23, 2016 Author Share Posted June 23, 2016 To add more mystery as of today its working again. I am the only one with access to both devices so nothing has changed. No modifications were made to anything. Anyone know why this is? Is there something on the computer side that I got lucky on... like a variably changing frequency / channel? Most recent sig. I made Quick Launcher W/ Profiles Topic Movie Database Topic & Website | LiveStreamer Pro Website | YouTube Stand-Alone Playlist Manager: Topic | Weather Desktop Widget: Topic | Flash Memory Game: Topic | Volume Control With Mouse / iTunes Hotkeys: Topic | Weather program: Topic | Paws & Tales radio drama podcast mini-player: Topic | Quick Math Calculations: Topic Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now