+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : طلب كود خاص بالمتصفح (/showthread.php?tid=6956)
طلب كود خاص بالمتصفح - nablion - 13-11-12
لو سمحتم اريد كود ضروري وهو
اذا المستخدم فتح موقع غوغل مثلا
يقوم باغلاق المتصف
واظهار رساله انه لا يمكنه التصفح بهذا الموقع
متصفح فايروفوكس واكسبلور
وشكرا
طلب كود خاص بالمتصفح - عبدالله الصافي - 14-11-12
جرب هذا الكود وأبلغنا.
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
طلب كود خاص بالمتصفح - nablion - 14-11-12
يعطيك العافيه
ولكن انا لا اريد المتصفح داخل البرنامج
بل المتصفح الحقيقي على جهاز الكمبيوتر
يرجى تعديل الكود لو سمحت
طلب كود خاص بالمتصفح - nablion - 14-11-12
مافي كود؟؟
؟؟؟؟؟؟؟؟؟؟؟