اللينك في أداة web browser

#129 مارس 2011 في 04:42 صاحب الموضوع

السلام و عليكم

اريد ان أسألكم اخواني كيف يمكنني أن أجعل اي رابط موجود في أداة web browser يفتح في المتصفح الافتراضي للجهاز و لا يفتح في الأداة

شكرا لكم

http://www.alefya.net

#229 مارس 2011 في 09:46

جرب هذا الكود

    Dim loaded As Boolean

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        loaded = True
    End Sub

    Private Sub WebBrowser1_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
        If loaded Then
            Process.Start(e.Url.ToString)
            e.Cancel = True
        End If
    End Sub

تم استخدام المتغير loaded لتحميل الصفحة الافتراضية فقط أى أول صفحة تقوم الأداة بفتحها

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

#330 مارس 2011 في 01:17

شكرا لك أخي على هذا المجهود و لكن أنا اردته ان يفتح في المتصفح الافتراضي للجهاز و ليس في Internet Explorer

http://www.alefya.net

#430 مارس 2011 في 11:46

الكود فعلا يفتح فى المتصفح الافتراضى وبما أن المتصفح الافتراضى عندك هو IE لذلك هو الذى يتم فتحه

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

#51 أبريل 2011 في 05:20

اعذرني أخي و لكن المتصفح الأفتراضي لدي هو FireFox و مع ذلك فهو يفتح في IE

http://www.alefya.net

#62 أبريل 2011 في 20:29

السلام عليكم ورحمه الله وبركاته

جرب الكود التالي

Public Sub openUrl(ByVal url As String)
Dim p As New Process()
Dim browser As String
browser = GetDefaultBrowser()
If (browser = "") Then
browser = "Explorer.exe"
End If
p.StartInfo.FileName = browser
p.StartInfo.Arguments = url
p.Start()
End Sub

Friend Function GetDefaultBrowser() As String
Dim browser As String = [String].Empty
Dim key As Microsoft.Win32.RegistryKey = Nothing
Dim Quote As String = Chr(34)
Try

key = My.Computer.Registry.ClassesRoot.OpenSubKey("HTTP\shell\open\command", False)

' trim off quotes
browser = key.GetValue(Nothing).ToString().ToLower().Replace(Quote, "")
If (browser = "") Then
Return browser
End If
If Not browser.EndsWith("exe") Then
' get rid of everything after the 'exe'
browser = browser.Substring(0, browser.LastIndexOf(".exe") 4)

End If

Finally
If key IsNot Nothing Then
key.Close()
End If
End Try

Return browser

End Function

ومن ثم استدعي الاجراء

openUrl("http://www.google.com")

.:: Wish to become better and better ::.

اللينك في أداة web browser

مواضيع مشابهة