کد دریافت اطلاعات سایت

سلام من یک کد میخوام که روی بتون کلیک کرد اینتر کنه و اطلاعات تکست باکس سایت رو در تکست باکس نرم افزار نمایش بده ممنون میشم بهم بدید :افسرده: خواهشــــــ مـــــکنم

سلام عرض شد
برای این کار شما به یک webbrowser , textbox ,command نیاز دارین !

Private Sub Command1_Click()

Text1.Text = WebBrowser1.Document.All("test").Value

End Sub



Private Sub Form_Load()

WebBrowser1.Navigate ("http://for--test.mihanblog.com/")

End Sub

میشه یک کد بزاری هر 2 ثانیه صفحه رو ریلود کنه

یه تایمر بزار و هر چند میلی ثانیه ای که میخای تو خاصیت interval ( اگه اشتباه ننوشته باشم ) بزاریم و تو رویداد تایمر بزارین وب بروزر یا هر کدی که میخاین رفرش بشه :

Private Sub timer1_timer ()

''''''''''' code hayi ke mikhay refresh she

timer1.enable = true

end sub



Private Sub Form_Load()

timer1.interval = 2000  ''''''' 2000 msec = 2 sec

timer1.enable = true

end sub