Type conn_desc
     dql_socket_t as string
     sqe as long
     status as long
     act_flag as char
EndType
Private Declare Function connect Lib "API.dll" (ByVal HOST As String, ByVal port As Long, Byref conn As conn_desc) As Integer
dim conn as conn_desc,stas as int
stat=connect("192.168.0.1",80,conn)
試試看.