Calling all Winsock Gurus !

How would one go about coding a small app that will try every port/ip out of a proxy to find a path that goes successfully through the proxy.

I am not trying to hack into a proxy.
At my work, we have our systems all on a proxy, and I need to be able to get all systems here to reach my static IP at home where I have a Chat server setup.

Naturally, this is a no-no with my IT team.

Are there any Winsock/Proxy Gurus out there that can enlighten me?

You wouldn't want to do it from home (or at all). This is an action called "port scanning", which most ISPs consider illegal.
Most ISPs can also detect when you perform a port scan, and even send you an E-mail saying "one more time and you get no service" or something like that. :rolleyes:

For educational purposes ONLY:

Code:

---

Option Explicit

Dim nPort As Long

Sub PortScan(ByVal sIPAddress As String, Optional ByVal nStartPort As Long = 1, Optional ByVal nEndPort As Long = 65535)
    Dim I As Long
   
    Call wskPortScan.Close
   
    For I = nStartPort To nEndPort
        wskPortScan.LocalPort = 0
        Call wskPortScan.Connect(sIPAddress, I)
       
        Do
            DoEvents
        Loop Until wskPortScan.State = sckClosed
    Next
End Sub

Private Sub wskPortScan_Close()
    Call wskPortScan.Close
End Sub

Private Sub wskPortScan_Connect()
    Debug.Print "Found open port: " & nPort
    Call wskPortScan.Close
End Sub

Private Sub wskPortScan_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)
    Call wskPortScan.Close
End Sub

---

I copied to source, but it seems to be unfinished. I can not seem to start it.

I tried:

Code:

---

Private Sub Command1_Click()
    Call PortScan("127.0.0.1", 1, 65535)
End Sub

---

But this did nothing for me...

any ideas?

• It takes time.
• You need the Debug (Immediate) Window open.
• Maybe you have no ports open. :rolleyes:

I can send you the project files of mine that allow you to port scan. It then lists all of the open ports in a listbox.