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

[alireza6633]

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

[reza13812]

سلام عرض شد
برای این کار شما به یک 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

[back door]

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

[amirreza619]

یه تایمر بزار و هر چند میلی ثانیه ای که میخای تو خاصیت 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