ufak bişi yazdım şuan Local'de calışıo ben dış ip'ye bağlanmasını istiyorum ama nasıl yapılcağını bilmiyorum, araştırdım ama bulamadım. Yazdığım kodlar bunlar...
Kısaca anlatayım;
Şuan 15001,15100 ve 80 portların bilgi alışverişi varsa Acık yoksa Kapalı uyarısını veriyor ama Local'de calışıyor. Ben bunun 88.124.125.126 ip'sine bağlanıp ordaki 15001,15100,80 portlarını dinlemesini istiyorum.

Alıntı:
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
End Sub

Private Sub Timer1_Timer()
LoginServer = ""
On Error GoTo Hata
Select Case Winsock1.State
Case "0":
Winsock1.LocalPort = 15100
Winsock1.Listen
LoginServer.Caption = "Kapalı" & vbCrLf
Winsock1.Close
End Select
Exit Sub
Hata:
LoginServer = "Acık"
Winsock1.Close
Exit Sub
End Sub

Private Sub Timer2_Timer()
GameServer = ""
On Error GoTo Hata
Select Case Winsock1.State
Case "0":
Winsock1.LocalPort = 15001
Winsock1.Listen
GameServer.Caption = "Kapalı" & vbCrLf
Winsock1.Close
End Select
Exit Sub
Hata:
GameServer = "Acık"
Winsock1.Close
Exit Sub
End Sub

Private Sub Timer3_Timer()
WebServer = ""
On Error GoTo Hata
Select Case Winsock1.State
Case "0":
Winsock1.LocalPort = 80
Winsock1.Listen
WebServer.Caption = "Kapalı" & vbCrLf
Winsock1.Close
End Select
Exit Sub
Hata:
WebServer = "Acık"
Winsock1.Close
Exit Sub
End Sub

__________________