منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب كود خاص بالمتصفح
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لو سمحتم اريد كود ضروري وهو


اذا المستخدم فتح موقع غوغل مثلا
يقوم باغلاق المتصف
واظهار رساله انه لا يمكنه التصفح بهذا الموقع
متصفح فايروفوكس واكسبلور
وشكرا
جرب هذا الكود وأبلغنا.



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 
يعطيك العافيه
ولكن انا لا اريد المتصفح داخل البرنامج
بل المتصفح الحقيقي على جهاز الكمبيوتر
يرجى تعديل الكود لو سمحت
مافي كود؟؟
؟؟؟؟؟؟؟؟؟؟؟