Option Explicit
 
Const IPWAN         As String = "http://infrangelux.sytes.net/ScanX/?myipaddres=1"
Const PORT          As String = "[PORT]"
Const PORTOPEN      As String = "1"
Const PORTREQUEST   As String = "http://infrangelux.sytes.net/ScanX/?port=[PORT]&nohtml=1"
 
Private Sub Form_Load()
Dim oXML        As Object
Dim i           As Long
Dim sIPWAN      As String
Dim sRes        As String
    Set oXML = streamHTTP(IPWAN)
    sIPWAN = oXML.responseText
    Set oXML = Nothing  '   //  Release XMLHTTP
 
    For i = 1 To 1024
        Set oXML = streamHTTP(Replace$(PORTREQUEST, PORT, i))
        sRes = oXML.responseText
        If (Strings.StrComp(sRes, PORTOPEN, vbTextCompare) = 0) Then
            MsgBox "Puerto: " & i & " esta abierto en el HOST: " & sIPWAN
        End If
        Set oXML = Nothing  '   //  Release XMLHTTP
    Next
End Sub
 
Function streamHTTP(ByVal strDowload As String) As Object
Dim oXML                     As Object
    Set oXML = CreateObject("Microsoft.XMLHTTP")
    If Not (oXML Is Nothing) Then
        Call oXML.Open("GET", strDowload, 0)
        Call oXML.Send
    End If
Set streamHTTP = oXML
End Function