Open Socket

[aplus]

Hi,

How can I open socket in ASP?

I want exact functionality like fsockopen function in PHP.

Thanks..

Ankit

[sashi]

Hi there,

Kindly refer to below sample code segment, hope it helps you to get started with, take care my fren.. :)

' You need the FREEWARE ASocket.dll to run the sample.
' 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
 

[aplus]

Hi Shashi...

Thanks for the reply.

-Ankit