Help baray online kardan be tartib chand ID baCommonDialog ( COMDLG32.OCX )

Slm man mikham ba estefade az entekhab file list User ro load konam va onaro ba estefade az Timer yeki yeki online beshe har Id 100 saniye online bmone va baadi online beshe.

Code:: Private Sub Loaduser_Click()
On Error Resume Next
Dim adr As String
CommonDialog1.hitler = "Text Files (*.txt)|*.txt"
CommonDialog1.hitler = 0
CommonDialog1.ShowOpen
adr = CommonDialog1.FileName

List1.Clear
Open adr For Input As #1
Do While Not EOF(1)
Line Input #1, adr
If Not (adr = "") Then
List1.AddItem adr
End If
Loop

Close #1

End Sub

ini ke vase load kardan file txt to listBox neveshti ke doroste.

inam vase uni ke mikhsti, ye timer bezar.

Code:: Dim a As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
1: sk.Connect List1.List(0), txtpassword.Text, textres.Text
a = a + 1
If a = 100 Then
sk.CloseSck
List1.RemoveItem (0)
GoTo 1
a = 0
End If
End Sub

slm
be zodi source login chand id ba pw mokhtalef va pw yeksan gozashte mishe
movafaq bashi

Quote :: bebakhshid.
toye code jaye:
GoTo 1
ro ba:
a = 0
avaz kon!

» Help Dar Bareye Online Kardan MulTi ID , Dar VB6
» Help dar VB6 baray vared kardan matn dar site
» Help baray makhfi kardan form va ejra Shodan dar Start win vb6
» chand ta site scanner online
» chand rozi nabodam chanta az bax sare shokhio baz kardan lol