2 Attachment(s)
Check if server online without A3 Client
Hi guys,
I made a simple prog to test if an FTP server is online. You can use it with any type of server, web, Ftp, SMTP and of course with A3 Servers.
It's made using autoit, all you have to do is enter IP address and port.
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 411, 106, 192, 114)
$Label1 = GUICtrlCreateLabel("Server IP", 8, 16, 48, 17)
$Label2 = GUICtrlCreateLabel("Server port", 193, 16, 56, 17)
$IPort = GUICtrlCreateInput("21", 254, 14, 41, 21)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 56, 14, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, "192.168.1.1")
$Button1 = GUICtrlCreateButton("Check ", 312, 16, 75, 25)
GUICtrlSetOnEvent($Button1, "CheckClicked")
$LbResult = GUICtrlCreateLabel("Result:", 72, 56, 269, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
Opt("GUIOnEventMode", 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
sleep(1000)
WEnd
Func CheckClicked()
;Note: at this point @GUI_CTRLID would equal $okbutton,
;and @GUI_WINHANDLE would equal $mainwindow
TCPStartup()
$serverip = _GUICtrlIpAddress_Get($IPAddress1) ;GUICtrlRead($IPAddress1)
GUICtrlSetBkColor($LbResult, 0xFFFFFF)
GUICtrlSetData($LbResult, "Checking please wait...")
$serverport = GUICtrlRead($IPort)
TCPConnect($serverip, $serverport) ;replace port with the port number
If @Error Then
TCPShutdown()
GUICtrlSetBkColor($LbResult, 0xFF0000)
GUICtrlSetData($LbResult, "O F F L I N E")
Else
GUICtrlSetBkColor($LbResult, 0x00FF00)
GUICtrlSetData($LbResult, "O N L I N E")
EndIf
EndFunc
Func CLOSEClicked()
;Note: at this point @GUI_CTRLID would equal $GUI_EVENT_CLOSE,
;and @GUI_WINHANDLE would equal $mainwindow
;MsgBox(0, "GUI Event", "You clicked CLOSE! Exiting...")
Exit
EndFunc
Download autoit, copy/paste code and run :thumbup:
Attachment 79959
Attachment 79960