[عبدالله الصافي]

جرب هذا الكود وأبلغنا.

PHP كود :

Private Sub Command1_Click()

Dim dd As String

dd = InStr(Text1, "google")

If Not dd = 0 Then

MsgBox "لايمكنك التصفح بذلك الموقع"

Exit Sub

Else

WebBrowser1.Navigate Text1

End If

End Sub

Private Sub Form_Load()

Timer1.Interval = 1

WebBrowser1.Navigate "www.vb4arb.com\vb\"

End Sub

Private Sub Text2_Change()

Dim dd As String

dd = InStr(Text2, "google")

If Not dd = 0 Then

WebBrowser1.Navigate "www.vb4arb.com\vb\"

MsgBox "لايمكنك التصفح بذلك الموقع"

End If

End Sub

Private Sub Timer1_Timer()

Text2 = WebBrowser1.LocationURL

End Sub