پیدا کردن تکست های یک سایت

[tehran2009]

دوستان سلام
من می خوام یه برنامه ای بنویسم که یک تکس باکس داشته باشه و وقتی اونو اجرا کنم هر چی توی تکست سایت گوگل نوسته بشه رو توی تکست برنامم نشون بده. (فقط سایت گوگل یعنی اگه سایت یاهو یا هر سایت دیگه ای باشه نشون نده که چی توش نوشته شده.)یعنی اگر توی سایت گوگل بنویسم (تهران) توی برنامه و توی تکست باکس بنویسه (تهران)

[helane]

منم خیلی دنبال این میگردم

[محسن واژدی]

سلام علیکم
کد زیر را بررسی کنید

قبل از استفاده یک Timer هم روی فرم قرار بدین


Private Sub Form_Load()
WebBrowser1.Navigate "http://google.com"
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
With WebBrowser1
Dim sText$
sText$ = .Document.getElementById("q").Value
If sText$ <> Text1 Then Text1 = sText$
End With
End Sub


موفق باشید