Jump to content

How to check if a http server is online ?

Recommended Posts

I have a http server running on on port 18080

how can i check remotly from within the lan, if the website is still up ?

The page i want to check is account.htm

I wanted to use Wouters _InetGetSource, but that function doenst support port numbers.

And the _InetGetSource that comes with the latest beta doesnt even support, non exsistant pages :P

Any help would be apreciated ;)

Link to post
Share on other sites

Just send a Get request via the TCP* functions

Dim $header
$header = "GET / HTTP/1.1" & @CRLF & _
"Host: www.w3c.org" & @CRLF & _
"Connection: close" & @CRLF & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-shockwave-flash, */*" & @CRLF & _
"Accept-Language: en-us" & @CRLF & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) Web-Sniffer/1.0.22" & @CRLF & _
"Referer: http://web-sniffer.net/" & @CRLF & @CRLF

$socket = TCPConnect('',18080)
TCPSend($socket, $header)
$return = TCPRecv($socket, 5000)
MsgBox(0, 'test', $return)

No guarantees, off the top of my head

Edit2: Used the web-sniffer.net services for this (as seen in Referer...)

Edited by MSLx Fanboy

Writing AutoIt scripts since

_DateAdd("d", -2, _NowCalcDate())
Link to post
Share on other sites

You are right ;)

Must have been blind while looking at the Autoit-helpfile.. that i missed it.

The code is straightforward.

$server_IP = ""
$server_http_port = "18080"


$socket = TCPConnect( $server_IP, $server_http_port )
If $socket = -1 Then 
MsgBox(0, "", "Error")
MsgBox(0, "", $socket)
Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

  • Create New...