Sub Process_Globals
Dim Server_IP As String
Dim Server_Port As Int
Dim Connection_Timeout As Int
Dim SendCommand As String
End Sub
Sub Globals
Dim AStreams As AsyncStreams
Dim Socket1 As Socket
Dim Success As Boolean
Dim CommandWait As Boolean
Dim strBuilder As StringBuilder
End Sub
Sub Activity_Create(FirstTime As Boolean)
Success=False
Socket1.Initialize("Socket1")
Socket1.Connect(Server_IP , Server_Port, Connection_Timeout)
Do Until Success=True
DoEvents
Loop
Return Success
End Sub
Sub Socket1_Connected (Successful As Boolean)
If Successful = False Then
Success=False
Return
Else
Success=True
Return
End If
End Sub