• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 8 رای - 2.75 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: لیست باکس
حالت موضوعی
#1
سلام ,
توی یک لیست باکس چندتا آدرس سایت است و میخوام با 1 وب براوزر internet control به این سایت ها برود
 
پاسخ
#2
سلام

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


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سه فیلتر در نمایس لیست باکس aghamali 0 947 07-11-2017، 10:39 PM
آخرین ارسال: aghamali
  کد یافتن عدد در تکست باکس aghamali 0 858 07-09-2017، 04:00 PM
آخرین ارسال: aghamali
  جابجایی در لیست باکس aghamali 0 2,005 03-14-2016، 07:41 PM
آخرین ارسال: aghamali
  انتخاب رندوم از لیست باکس aghamali 0 1,674 04-16-2015، 06:30 AM
آخرین ارسال: aghamali
  جستجو و تغیر متن تکست باکس aghamali 1 2,257 12-02-2014، 01:52 PM
آخرین ارسال: aghamali
  تکست باکس a.adhami 3 3,638 03-24-2014، 03:01 PM
آخرین ارسال: omid_student
  لیست کاربرهای کلوب tiktak990 6 5,725 03-21-2014، 01:04 PM
آخرین ارسال: a.adhami
  فراخوانی ساب از طریق تکس باکس semolina 1 2,702 08-24-2013، 10:03 PM
آخرین ارسال: Amin_Mansouri
  سورس کلوب اسپمر یا افزایش لیست اعضا با ویژوال بیسیک tiktak990 1 5,348 08-11-2013، 12:14 PM
آخرین ارسال: Amin_Mansouri
Bug جمع اوری لیست اعضا tiktak99 3 5,424 02-16-2013، 08:20 PM
آخرین ارسال: rap0661

پرش به انجمن:


Browsing: 1 مهمان