[a.adhami]

سلام ,
توی یک لیست باکس چندتا آدرس سایت است و میخوام با 1 وب براوزر internet control به این سایت ها برود

[Amin_Mansouri]

سلام

با کلیک کردن روی ایتم ها وارد بشه؟

[a.adhami]

نه از اولین سایت بصورت اتوماتیک بره

[Amin_Mansouri]

کد:

Private Sub Command1_Click()
For I = O To List1.ListCount - 1
WebBrowser1.Navigate (List1.List(I))
Next
End Sub

[a.adhami]

این کد ایراد داره وقتی میزنم رو کامند میره تو سایت آخر و بازدید میکنه ولی سایتای دیگرو نمیره فقط سایت آخریو میاره

[a.adhami]

Ay baba engar kasi nemikhad javabamo bede

[Amin_Mansouri]

 سلام
اقا من مریضم تب شدید کردم
بفرمایید : 

کد:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
For i = O To List1.ListCount - 1
Sleep 8000
MsgBox List1.List(i)
WebBrowser1.Navigate (List1.List(i))
Next
End Sub

[a.adhami]

Bekhoda bebakhshid ke mozahem shodam ishala zood tar khoob shi

[a.adhami]

bebakhshid kodesh kheili sangine mizanam proje miterke close program baiad bokonam

[Amin_Mansouri]

بفرمایید:
لطفا فارسی تایپ کنید وعنوان مناسب برای تایپک استفاده کنید.
اینم کد: 

کد:

Private Declare Function GetTickCount Lib "kernel32" () As Long

 Public Sub Wait(Time As Long)
 Dim StartTime As Long

 StartTime = GetTickCount()

 While (StartTime + Time) > GetTickCount()
 DoEvents
 Wend
 End Sub
 
 Private Sub Command1_Click()
 For i = O To List1.ListCount - 1
Wait 8000
 MsgBox List1.List(i)
 WebBrowser1.Navigate (List1.List(i))
 Next
 End Sub