مشكلة فى كود خاص تخطى الاعلان - mostfa1995 - 17-04-16
المشكلة بعد ميفتح الموقع واجى اضغط على الاعلان مش بينقل على الفروم الثانى
الكود المستخدم
انا مستخدم GeckoWebBrowser عشان WebBrowser مش بيفتح الموقع صح فى غلط
كود :
Imports Gecko
Imports Microsoft
Imports System
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GeckoWebBrowser1.Navigate("http://ouo.io/ziobl")
End Sub
Private Sub GeckoWebBrowser1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeckoWebBrowser1.Click
If GeckoWebBrowser1.Url.AbsoluteUri = "https://www.google.com.eg/" Then
Me.Hide()
Form2.Show()
MsgBox("مرحبا")
Me.Close()
End If
End Sub
End Class
RE: مشكلة فى كود خاص تخطى الاعلان - hassan - 17-04-16
(17-04-16, 09:41 PM)mostfa1995 كتب :
المشكلة بعد ميفتح الموقع واجى اضغط على الاعلان مش بينقل على الفروم الثانى
الكود المستخدم
انا مستخدم GeckoWebBrowser عشان WebBrowser مش بيفتح الموقع صح فى غلط
كود :
Imports Gecko
Imports Microsoft
Imports System
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GeckoWebBrowser1.Navigate("http://ouo.io/ziobl")
End Sub
Private Sub GeckoWebBrowser1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeckoWebBrowser1.Click
If GeckoWebBrowser1.Url.AbsoluteUri = "https://www.google.com.eg/" Then
Me.Hide()
Form2.Show()
MsgBox("مرحبا")
Me.Close()
End If
End Sub
End Class
اخي الكود صحيح لاكن الحدث GeckoWebBrowser1.Click هو الخطا قم بتغييره الى حدث DocumentCompleted
عندك وضعك على كود GeckoWebBrowser1.Click تسجد فوق خيارات الاحداث قم بتغييره الى DocumentCompleted
اذا لم تعرف ارفقع المشروع
شكرا لك
RE: مشكلة فى كود خاص تخطى الاعلان - mostfa1995 - 17-04-16
(17-04-16, 11:37 PM)hassan كتب : (17-04-16, 09:41 PM)mostfa1995 كتب :
المشكلة بعد ميفتح الموقع واجى اضغط على الاعلان مش بينقل على الفروم الثانى
الكود المستخدم
انا مستخدم GeckoWebBrowser عشان WebBrowser مش بيفتح الموقع صح فى غلط
كود :
Imports Gecko
Imports Microsoft
Imports System
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GeckoWebBrowser1.Navigate("http://ouo.io/ziobl")
End Sub
Private Sub GeckoWebBrowser1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeckoWebBrowser1.Click
If GeckoWebBrowser1.Url.AbsoluteUri = "https://www.google.com.eg/" Then
Me.Hide()
Form2.Show()
MsgBox("مرحبا")
Me.Close()
End If
End Sub
End Class
اخي الكود صحيح لاكن الحدث GeckoWebBrowser1.Click هو الخطا قم بتغييره الى حدث DocumentCompleted
عندك وضعك على كود GeckoWebBrowser1.Click تسجد فوق خيارات الاحداث قم بتغييره الى DocumentCompleted
اذا لم تعرف ارفقع المشروع
شكرا لك
شكراااااااااااا تمام انت فنان بمعنى الكلمة
RE: مشكلة فى كود خاص تخطى الاعلان - hassan - 17-04-16
(17-04-16, 11:40 PM)mostfa1995 كتب : (17-04-16, 11:37 PM)hassan كتب : (17-04-16, 09:41 PM)mostfa1995 كتب :
المشكلة بعد ميفتح الموقع واجى اضغط على الاعلان مش بينقل على الفروم الثانى
الكود المستخدم
انا مستخدم GeckoWebBrowser عشان WebBrowser مش بيفتح الموقع صح فى غلط
كود :
Imports Gecko
Imports Microsoft
Imports System
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GeckoWebBrowser1.Navigate("http://ouo.io/ziobl")
End Sub
Private Sub GeckoWebBrowser1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeckoWebBrowser1.Click
If GeckoWebBrowser1.Url.AbsoluteUri = "https://www.google.com.eg/" Then
Me.Hide()
Form2.Show()
MsgBox("مرحبا")
Me.Close()
End If
End Sub
End Class
اخي الكود صحيح لاكن الحدث GeckoWebBrowser1.Click هو الخطا قم بتغييره الى حدث DocumentCompleted
عندك وضعك على كود GeckoWebBrowser1.Click تسجد فوق خيارات الاحداث قم بتغييره الى DocumentCompleted
اذا لم تعرف ارفقع المشروع
شكرا لك
شكراااااااااااا تمام انت فنان بمعنى الكلمة
العفووووووو اخي بارك الله فيك
|