> lResult = (ws_connect(THIS.hSocket, @cBuffer, LEN(cBuffer))=0) >>
> PROCEDURE INIT() > DECLARE INTEGER gethostbyname IN ws2_32 STRING HOST > DECLARE STRING inet_ntoa IN ws2_32 INTEGER in_addr > DECLARE INTEGER socket IN ws2_32 INTEGER af, INTEGER tp, INTEGER pt > DECLARE INTEGER closesocket IN ws2_32 INTEGER s > DECLARE INTEGER WSACreateEvent IN ws2_32 > DECLARE INTEGER WSACloseEvent IN ws2_32 INTEGER hEvent > DECLARE GetSystemTime IN kernel32 STRING @lpSystemTime > DECLARE INTEGER inet_addr IN ws2_32 STRING cp > DECLARE INTEGER htons IN ws2_32 INTEGER hostshort > DECLARE INTEGER WSAStartup IN ws2_32 INTEGER wVerRq, STRING lpWSAData > DECLARE INTEGER WSACleanup IN ws2_32 > > DECLARE INTEGER CONNECT IN ws2_32 AS ws_connect ; > INTEGER s, STRING @sname, INTEGER namelen > > DECLARE INTEGER SEND IN ws2_32; > INTEGER s, STRING @buf, INTEGER buflen, INTEGER flags > > DECLARE INTEGER recv IN ws2_32; > INTEGER s, STRING @buf, INTEGER buflen, INTEGER flags > > DECLARE INTEGER WSAEventSelect IN ws2_32; > INTEGER s, INTEGER hEventObject, INTEGER lNetworkEvents > > DECLARE INTEGER WSAWaitForMultipleEvents IN ws2_32; > INTEGER cEvents, INTEGER @lphEvents, INTEGER fWaitAll,; > INTEGER dwTimeout, INTEGER fAlertable > > DECLARE RtlMoveMemory IN kernel32 AS CopyMemory; > STRING @DEST, INTEGER Src, INTEGER nLength >>