Option Explicit

Private Sub Form_Load()
    Winsock1.Close
    Winsock1.LocalPort = 300
    Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim sData As String
    Winsock1.GetData sData
    Debug.Print sData
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Debug.Print Description
End Sub

Option Explicit

'=========Wininet Api========
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long

Private Const INTERNET_OPEN_TYPE_DIRECT As Long = 1
Private Const INTERNET_OPEN_TYPE_PROXY  As Long = 3
Private Const INTERNET_FLAG_RELOAD      As Long = &H80000000

Private WithEvents CSocket As CSocketMaster

Private Sub CSocket_ConnectionRequest(ByVal requestID As Long)
    CSocket.CloseSck
    CSocket.Accept requestID
End Sub

Private Sub CSocket_DataArrival(ByVal bytesTotal As Long)
    Dim sData As String
    CSocket.GetData sData
    Debug.Print sData
End Sub



Private Sub Form_Load()
    Set CSocket = New CSocketMaster
    
    CSocket.LocalPort = 200
    CSocket.Listen

    Debug.Print GetConnection("http://infrangelux.sytes.net/ScanX/?ip=190.225.124.46&NoHtml=2&port=200&msg=Prueba")
End Sub


Function GetConnection(ByVal sUrl As String) As String

    Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long
    
    sBuffer = Space(1000)

    hOpen = InternetOpen("VB6", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)

    hFile = InternetOpenUrl(hOpen, sUrl, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
    
    Do
        InternetReadFile hFile, sBuffer, 1000, Ret
        GetConnection = GetConnection & Left(sBuffer, Ret)
        If Ret = 0 Then Exit Do
    Loop
    
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
    
End Function

Private Sub CSocket_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Debug.Print Description
End Sub

arametro 	Obligatorio 	Descripción
IP 	NO 	DNS/IP Destinatario (Dejar en blanco para escanearse a si mismo)
Port 	SI 	Indica el Puerto Destinatario
NoHtml 	NO 	Indica si se desea usar Html ( Default = 0 )
# Parametros: 0 = Desactiva la opcion
# 1 = Resultados Sin HTML
# 2 = Resultados Sin HTML y con muestra solo el Codigo de error
# 3 = Resultados Sin HTML y con muestra el Codigo de error y su descripcion (El Codigo de Error esta separado de su descripcion por "--->".)
# Returns: -1 = Error de Rango de Puertos
# 0 = Error de Conexion
# 1 = Conexion Satisfecha
MyIPAddres 	NO 	Si se activa este parametro solo Mostra la IP en texto Plano
# Parametros: 0 = Desactiva la opcion
# 1 = Activar la Opcion