Help me with TCPConnect

[Venix]

I am trying to create an application that will let me know if a friend’s Minecraft server is online, it will achieve this by trying to connect to the server and if it receives an error then it will change the label accordingly. Unfortunately the code I tried to connect to the server is always returning an error and displaying offline, I'm not quite sure what I am doing wrong as this is the first time I’ve tried to use a TCP connection in a program.

Please note that I am only trying to connect to an I.P and it has nothing to do with game automation.

Thanks for any help.

$ServerStatus = TCPConnect("randomserver.net", 25565)
If $ServerStatus = -1 Then
GUICtrlSetData($StatusLabel, "Status: Offline")
Else
GUICtrlSetData($StatusLabel, "Status: Online")
EndIf

[PhoenixXL]

maybe you forgot

TCPStartup()

BTW i'm not even good in this remote stuff

But then too I think

Ping

might be more useful Edited July 30, 2012 by PhoenixXL

[Venix]

I tried adding TCPStartup() Before my TCP command recently with no luck, and although ping is useful it wont allow me to assign a port which is important.

Thanks for the help though.

[PhoenixXL]

This works for me

Opt ('TrayIconDebug',1)
; Start The TCP Services
;==============================================
TCPStartup()
;Convert Website to IP
Local $g_IP = TCPNameToIP("www.autoitscript.com")
If @error Then
MsgBox(16,'Unable To Connect','Wrong Server Address')
Exit TCPShutdown()
EndIf


; Connect to Port 80
;==============================================
Local $socket = TCPConnect($g_IP, 80)
Switch $socket
Case -1
MsgBox(16,'Unable To Connect','ReturnCode: '&$socket)
Case Else
MsgBox(64,'Connection Successful','Socket Identifier: '&$socket)
EndSwitch

TCPShutdown()

If doesnt help then

Can you give the Server Address and the Port Number

Regards

Phoenix XL

[Venix]

This worked fine Pheonix thank you, the problem was that I didnt use TCPNameToIP.

Edited July 30, 2012 by Venix

[Attckdog]

Opt ('TrayIconDebug',1)
; Start The TCP Services
;==============================================
TCPStartup()
;Convert Website to IP
Local $g_IP = TCPNameToIP("www.autoitscript.com")
If @error Then
MsgBox(16,'Unable To Connect','Wrong Server Address')
Exit TCPShutdown()
EndIf


; Connect to Port 80
;==============================================
Local $socket = TCPConnect($g_IP, 80)
Switch $socket
Case -1
MsgBox(16,'Unable To Connect','ReturnCode: '&$socket)
Case Else
MsgBox(64,'Connection Successful','Socket Identifier: '&$socket)
EndSwitch

TCPShutdown()

Phoenix XL

Someone add this to the Snippets !