- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Öncelikle Arşivimde bulduğumu belirteyim belki birilerinin ihtiyacı olur diye paylaşayım dedim. PvP Server açarken,Radyo ve ts 3 Serverlar açarken size yardımcı olabilir..
Tamamen kodlardan ibarettir.
Kod:
Dim delay, port As IntegerPrivate Sub Command1_Click()List1.ClearTimer1.Interval = delayTimer2.Interval = delayTimer3.Interval = delayTimer4.Interval = delayTimer1.Enabled = TrueTimer2.Enabled = TrueTimer3.Enabled = TrueTimer4.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseTimer2.Enabled = FalseTimer3.Enabled = FalseTimer4.Enabled = FalseEnd SubPrivate Sub Form_Load()port = 80delay = 600End SubPrivate Sub Winsock1_Close()Winsock1.CloseEnd SubPrivate Sub Winsock1_Connect()List1.AddItem Winsock1.RemoteHostIPWinsock1.CloseEnd SubPrivate 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)Winsock1.CloseEnd SubPrivate Sub Winsock2_Close()Winsock2.CloseEnd SubPrivate Sub Winsock2_Connect()List1.AddItem Winsock2.RemoteHostIPWinsock2.CloseEnd SubPrivate Sub Winsock2_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)Winsock2.CloseEnd SubPrivate Sub Winsock3_Close()Winsock3.CloseEnd SubPrivate Sub Winsock3_Connect()List1.AddItem Winsock3.RemoteHostIPWinsock3.CloseEnd SubPrivate Sub Winsock3_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)Winsock3.CloseEnd SubPrivate Sub Winsock4_Close()Winsock4.CloseEnd SubPrivate Sub Winsock4_Connect()List1.AddItem Winsock4.RemoteHostIPEnd SubPrivate Sub Winsock4_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)Winsock4.CloseEnd SubPrivate Sub Timer1_Timer()Winsock1.CloseWinsock1.Connect getip, portEnd SubPrivate Sub Timer2_Timer()Winsock2.CloseWinsock2.Connect getip, portEnd SubPrivate Sub Timer3_Timer()Winsock3.CloseWinsock3.Connect getip, portEnd SubPrivate Sub Timer4_Timer()Winsock4.CloseWinsock4.Connect getip, portEnd SubPublic Function getip() As Stringgetip = ip1.Text & "." & ip2.Text & "." & ip3.Text & "." & ip4.TextIf ip4.Text < 255 Thenip4.Text = ip4.Text + 1ElseIf ip4.Text = 255 Thenip4.Text = 0If ip3.Text < 255 Thenip3.Text = ip3.Text + 1ElseIf ip3.Text = 255 Thenip3.Text = 0If ip2.Text < 255 Thenip2.Text = ip2.Text + 1ElseIf ip2.Text = 255 Thenip2.Text = 0End IfEnd IfEnd IfEnd Function
Tamamen kodlardan ibarettir.
Kod:
Dim delay, port As IntegerPrivate Sub Command1_Click()List1.ClearTimer1.Interval = delayTimer2.Interval = delayTimer3.Interval = delayTimer4.Interval = delayTimer1.Enabled = TrueTimer2.Enabled = TrueTimer3.Enabled = TrueTimer4.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseTimer2.Enabled = FalseTimer3.Enabled = FalseTimer4.Enabled = FalseEnd SubPrivate Sub Form_Load()port = 80delay = 600End SubPrivate Sub Winsock1_Close()Winsock1.CloseEnd SubPrivate Sub Winsock1_Connect()List1.AddItem Winsock1.RemoteHostIPWinsock1.CloseEnd SubPrivate 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)Winsock1.CloseEnd SubPrivate Sub Winsock2_Close()Winsock2.CloseEnd SubPrivate Sub Winsock2_Connect()List1.AddItem Winsock2.RemoteHostIPWinsock2.CloseEnd SubPrivate Sub Winsock2_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)Winsock2.CloseEnd SubPrivate Sub Winsock3_Close()Winsock3.CloseEnd SubPrivate Sub Winsock3_Connect()List1.AddItem Winsock3.RemoteHostIPWinsock3.CloseEnd SubPrivate Sub Winsock3_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)Winsock3.CloseEnd SubPrivate Sub Winsock4_Close()Winsock4.CloseEnd SubPrivate Sub Winsock4_Connect()List1.AddItem Winsock4.RemoteHostIPEnd SubPrivate Sub Winsock4_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)Winsock4.CloseEnd SubPrivate Sub Timer1_Timer()Winsock1.CloseWinsock1.Connect getip, portEnd SubPrivate Sub Timer2_Timer()Winsock2.CloseWinsock2.Connect getip, portEnd SubPrivate Sub Timer3_Timer()Winsock3.CloseWinsock3.Connect getip, portEnd SubPrivate Sub Timer4_Timer()Winsock4.CloseWinsock4.Connect getip, portEnd SubPublic Function getip() As Stringgetip = ip1.Text & "." & ip2.Text & "." & ip3.Text & "." & ip4.TextIf ip4.Text < 255 Thenip4.Text = ip4.Text + 1ElseIf ip4.Text = 255 Thenip4.Text = 0If ip3.Text < 255 Thenip3.Text = ip3.Text + 1ElseIf ip3.Text = 255 Thenip3.Text = 0If ip2.Text < 255 Thenip2.Text = ip2.Text + 1ElseIf ip2.Text = 255 Thenip2.Text = 0End IfEnd IfEnd IfEnd Function