>* put an instance of the WinSock (located on an invisible form) in a array >THIS.a_WinSocks(m.nNextRow, 2) = NEWOBJECT("WinSock", THIS.CLASSLIBRARY) > >* *** >SELE 0 >USE devicelist ALIAS Tbl_DeviceList AGAIN >SET ORDER TO ID >SEEK m.nWinSockId > >WITH THIS.a_WinSocks(m.nNextRow, 2).oWinSock > > * *** telnet port = 23 > * *** IP is in format ###.###.###.### > .CONNECT(ALLT(Tbl_DeviceList.ip), "23") > > USE IN Tbl_DeviceList > > nTime = SECONDS() > DO WHILE .state = 0 .AND. m.nTime + This.nTimeOut >= SECONDS() > WAIT WIND TRANS(.state) NOWAIT > DOEVENTS > ENDDO > > MESSAGEBOX(TRANS(.state)) >endwith>