۲۳-اردیبهشت-۱۳۸۸, ۱۲:۳۵:۱۳
دوستان عزیز سلام
سورس یه برنامه Socks Chacker میخوام.
خیلی ممنون میشم بذارید
من خودم یه دونه دارم , ولی کار نمیکنه هرچی تقیر بلد بودم دادم ولی بازهم کار نمیکنه
حالا سورس اون یه تیکه که تست می کنه رو میذارم ببینید اشکال از کجاست!
ببینید اول از لیست یه دونه بر میداره و تست میکنه!
ولی خوب اصلا نمیتونه سالم بودن و یا سوخته بودنشون رو مشخص کنه!
!!
سورس یه برنامه Socks Chacker میخوام.
خیلی ممنون میشم بذارید
من خودم یه دونه دارم , ولی کار نمیکنه هرچی تقیر بلد بودم دادم ولی بازهم کار نمیکنه
حالا سورس اون یه تیکه که تست می کنه رو میذارم ببینید اشکال از کجاست!
کد:
Private Sub Command5_Click()
On Error Resume Next
If running = True Then Exit Sub
running = True
StatusBar1.Panels(1).Text = "Status - Checking Proxies..."
If running = True And List1.ListCount > 0 Then
For x = 1 To Combo1.Text
Winsock1(x).Close
Winsock1(x).RemoteHost = Split(List1.List(0), ":")(0)
Winsock1(x).RemotePort = Split(List1.List(0), ":")(1)
Winsock1(x).Connect
Timer1(x).Interval = Combo2.Text * 1000
Timer1(x).Enabled = True
List1.RemoveItem 0
DoEvents
Next x
End If
End Subببینید اول از لیست یه دونه بر میداره و تست میکنه!
ولی خوب اصلا نمیتونه سالم بودن و یا سوخته بودنشون رو مشخص کنه!
!!
