سرچ در محتوی وب بروزر

[ameri110]

سلام
من همونطور که تو سوال های قبلی گفتم :لبخند: دارم یه روبات میسازم
حالا می خواهم تو صفحه یه سرچی بکنه اگه به عبارتی که می گم بر بخوره یه عملی انجام بشه
من این کد رو داشتم ولی مربوط به این کار نبود و ازش سر در نیووردم:
Dim i As Integer
Dim str As String

List1.Clear

For i = 0 To WebBrowser1.Document.links.length - 1
str = WebBrowser1.Document.links.Item(i)
If Left$(LCase(str), 4) = "http" And InStr(1, LCase(str), ".blogfa.com") > 0 Then
List1.AddItem (WebBrowser1.Document.links.Item(i))
End If
Next i

این کد مربوط میشه به روباتی که وبلاگ های بروز شده رو پیدا میکنه

[ameri110]

Private Sub Command1_Click()
Dim strfindword As String
strfindword = InputBox("What are you looking for?", "Find", "") ' what word to find?
If WebPageContains(strfindword) = True Then 'check if the word is in page
MsgBox "The webpage contains the text" 'string is in page
Else
MsgBox "The webpage doesn't contains the text" 'string is not in page
End If
End Sub
Private Function WebPageContains(ByVal s As String) As Boolean
Dim i As Long, EHTML
For i = 1 To WebBrowser1.Document.All.length
Set EHTML = _
WebBrowser1.Document.All.Item(i)


If Not (EHTML Is Nothing) Then
If InStr(1, EHTML.innerHTML, _
s, vbTextCompare) > 0 Then
WebPageContains = True
Exit Function
End If
End If
Next i
End Function
Private Sub Form_Load()
WebBrowser1.Navigate2 "www.msn.com"
End Sub





من این کد رو هم پیدا کردم اما کار نمی کنه
لطفا یکی یه فایل وی بی پی بده

[ameri110]

اگه کسی نمیتونه کمک کنه حداقل بگه چجوری سورس صفحه رو بگیرم
لطفا فایل وی بی پی بدید
با تشکر

[butterfly8528]

سلام دوست عزیز .

برای گرفتن سورس صفحه :


Text1.Text = WebBrowser1.Document.Body.innerHTML

موفق باشی .