پیدا کردن نام سایت بوسیله webBrowser

[tehran2009]

دوستان من می خوام بوسیله webBrowser وقتی وارد یک سایتی بشم و عنوانش مثلا well come to google باشه ، می خوام وقتی کلمه google توی عنوانش باشه برنامه یک ارور بده و بگه ok و در غیر این صورت ( یعنی کلمه google توش نباشه ) بزنه (ok).
(اروور منظورم msgbox منظورمه)

[IamOverlord]

سلام دوست عزیز!
فکر می کنم منظورتون این باشه:

Private Sub w_TitleChange(ByVal Text As String)
If CheckStr(Mid$(Text, 1, 1), "google") = True Then
' agar Google dar onvan bashad
Else
' agar Google dar onvan nabashad
End If
End Sub

Public Function CheckStr(Str1 As String, Str2 As String) As Boolean
S1 = LCase(Str1)
S2 = LCase(Str2)
For i = 1 To Len(S1) - Len(S2) + 1
If Mid$(S1, i, Len(S2)) = S2 Then CheckStr = True: Exit Function
Next i
CheckStr = False
End Function
یه مثال کوچیک هم از msgbox (به جای vbOkOnly هر نوع دیگه ای می تونید بذارید مثلا vbOkCancel) :

MsgBox "Payam", vbOKOnly, "Onvan"

[tehran2009]

ممنون از جواب خوبتون
من اینجا وی بی ندارم . هنوز کار کرد این سورسو ندیدم . اما در کل منظور من اینه.
اگر در عنوان سایت باز شده google بوده بزن Ok در غیر اینصورت بزن No

[tehran2009]

میشه یکمی در موردش توضیح بدی !
برا من که کار نکرد ؟؟

[xxxxx_xxxxx]

سلام،


If InStr(1, UCase(WebBrowser1.LocationName), UCase("google")) > 0 Then MsgBox "OK"

WebBrowser1.LocationName به عنوان WebBrowser اشاره می کند.
UCase یک رشته را به حروف بزرگ تبدیل می کند.
دلیل اینکه از Ucase استفاده کردم این هست که ممکن است در عنوان کلمه Google باشد و شما google را جستجو کرده باشید در این صورت شرط برقرار نیست. برای همین هر دو را به حروف بزرگ تبدیل می کنیم.

موفق باشید/