تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود خاص بالمتصفح
#1
لو سمحتم اريد كود ضروري وهو


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



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


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم