سلام ,
توی یک لیست باکس چندتا آدرس سایت است و میخوام با 1 وب براوزر internet control به این سایت ها برود
سلام
با کلیک کردن روی ایتم ها وارد بشه؟
نه از اولین سایت بصورت اتوماتیک بره
کد:
Private Sub Command1_Click()
For I = O To List1.ListCount - 1
WebBrowser1.Navigate (List1.List(I))
Next
End Sub
این کد ایراد داره وقتی میزنم رو کامند میره تو سایت آخر و بازدید میکنه ولی سایتای دیگرو نمیره فقط سایت آخریو میاره
Ay baba engar kasi nemikhad javabamo bede
سلام
اقا من مریضم تب شدید کردم
بفرمایید :
کد:
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
Bekhoda bebakhshid ke mozahem shodam ishala zood tar khoob shi
bebakhshid kodesh kheili sangine mizanam proje miterke close program baiad bokonam
بفرمایید:
لطفا فارسی تایپ کنید وعنوان مناسب برای تایپک استفاده کنید.
اینم کد:
کد:
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