Ni jedan port ne bi trebalo da bude otvoren po defaultu. Inače "korisnički" programi ne bi trebalo da koriste portove ispod 1024
evo koda koji sam ja koristio za otvaranje porta 8080. Mislim da ti je najlakše za početak da korsitiš ovo.
Code:
Private Sub Timer1_Timer()
Dim x As Long
Dim bFound8080 As Boolean
Dim theNatter As NATUPNPLib.UPnPNAT
Set theNatter = New NATUPNPLib.UPnPNAT
Dim mappingPorts As NATUPNPLib.IStaticPortMapping
For Each mappingPorts In theNatter.StaticPortMappingCollection
If mappingPorts.ExternalPort = 8080 Then bFound8080 = True
DoEvents
Next
If bFound8080 = False Then
theNatter.StaticPortMappingCollection.Add 8080, "TCP", 80, "192.168.32.3", True, ""
End If
Set theNatter = Nothing
End Sub
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu