• Home
 · 
• Miscellaneous
 · 
• Read web site contents in VBScript - shows how to connect to a website, read all information, displ

Read web site contents in VBScript - shows how to connect to a website, read all information, displ

Read web site contents in VBScript - shows how to connect to a website, read all information, display info and disconnect. Based on Winsock

Rate Read web site contents in VBScript - shows how to connect to a website, read all information, displ

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' Download it from http://www.vahland.com/pub/asocket.dll
' and register it on your machine.
' Read http://www.vahland.com/pub/asocket.htm for more info

' Constants: Connection states
Const asCONN_DISCONNECTED=1
Const asCONN_LISTENING=2
Const asCONN_CONNECTED=3

' Constants: Some Error codes
Const asERR_SUCCESS=0
Const asERR_INVALIDPARAMETER=1
Const asERR_CREATETHREADFAILED=2
Const asERR_EVALUATIONEXPIRED=3
Const asERR_INVALIDLICENSE=4

' Constants: Protocols
Const asPROTOCOL_RAW=1
Const asPROTOCOL_TELNET=2

' Create a socket instance
WScript.Echo "Be sure to have the FREEWARE ASocket.dll registered on your system"
WScript.Echo "Check out the code header about how to obtain the component."
Set asObj = CreateObject("ActivXperts.Socket")
asObj.Protocol = asPROTOCOL_TELNET

' Write some information to console
WScript.Echo "ActivSocket " & asObj.Version & " demo."

' Make a connection to port 1500 on remote server
asObj.Connect "www.activxperts.com", 80
Wscript.Echo "Connect to www.activxperts.com:80, result: " & asObj.LastError
If asObj.LastError = 11001 Then
WScript.Echo "Error 11001: Specify a valid hostname-parameter in the Connect-method."
End If

If asObj.LastError = asERR_SUCCESS And asObj.ConnectionState = asCONN_CONNECTED Then

    ' YES, connection established.
    WScript.Echo "Connection established" & vbCrLf

    strReceived = ""
    nCounter = nCounter + 1
	
    asObj.Sleep 1000
	
    asObj.SendString "GET /activsocket/demopage/ HTTP/1.1", True
    asObj.SendString "Host: www.activxperts.com" & vbCrlf, True
	
    asObj.Sleep 1000
	
    If asObj.HasData Then
        strReceived = asObj.ReceiveString
	  WScript.Echo "RECV: " & strReceived
    End If
      
    asObj.Sleep 1000

' And finally, disconnect
    asObj.Disconnect
End If