مساعدة في تطبيق هذا الدرس لتحديث اداة WebBrowser

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في تطبيق هذا الدرس لتحديث اداة WebBrowser
#1
السلام عليكم 
شاهدت الموضوع في مايكروسوفت وفي هذا الموقع ولم استطيع تطبيق ما فيه واين اضع الاكواد 
احتاج الي من يحول الدرس الي مثال يتم تحميله والعمل عليه وجزاكم الله خير 
وهذا هو رابط الموضوع وجزاكم الله خيرا
https://www.codeproject.com/Articles/118...-in-VB-NET
الرد
تم الشكر بواسطة:
#2
(10-08-18, 02:08 AM)ahmedhhh2 كتب : السلام عليكم 
شاهدت الموضوع في مايكروسوفت وفي هذا الموقع ولم استطيع تطبيق ما فيه واين اضع الاكواد 
احتاج الي من يحول الدرس الي مثال يتم تحميله والعمل عليه وجزاكم الله خير 
وهذا هو رابط الموضوع وجزاكم الله خيرا
https://www.codeproject.com/Articles/118...-in-VB-NET



ملخص الرابط:

أنشئ كلاس وألصق فيه هذا الكود:
PHP كود :
Imports System.Runtime.InteropServices
Public Class WebBrowserUpdater
    Shared is64BitProcess 
As Boolean = (IntPtr.Size 8)
 
   Shared is64BitOperatingSystem As Boolean is64BitProcess OrElse InternalCheckIsWow64()

 
   <DllImport("kernel32.dll")> _
    Private Shared 
Function IsWow64Process(<[In]()> ByVal hProcess As IntPtr, <Out()> ByRef wow64Process As Boolean) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End 
Function

 
   Public Shared Function InternalCheckIsWow64() As Boolean
        If 
(Environment.OSVersion.Version.Major 5 AndAlso Environment.OSVersion.Version.Minor >= 1OrElse Environment.OSVersion.Version.Major >= 6 Then
            Using p 
As Process Process.GetCurrentProcess()
 
               Dim retVal As Boolean
                If Not IsWow64Process
(p.HandleretValThen
                    Return False
                End 
If
 
               Return retVal
            End Using
        Else
            Return False
        End 
If
 
   End Function

 
   Public Shared Function GetEmbVersion() As Integer
        Dim ieVer 
As Integer GetBrowserVersion()

 
       If ieVer 9 Then
            Return ieVer 
1000 1
        End 
If

 
       If ieVer 7 Then
            Return ieVer 
1111
        End 
If

 
       Return 7000
    End 
Function
 
   ' End Function GetEmbVersion
    Public Shared Sub FixBrowserVersion()
        Dim appName As String = System.IO.Path.GetFileNameWithoutExtension(System.Reflection.Assembly.GetExecutingAssembly().Location)
        FixBrowserVersion(appName)
    End Sub

    Public Shared Sub FixBrowserVersion(ByVal appName As String)
        FixBrowserVersion(appName, GetEmbVersion())
    End Sub
    ' 
End Sub FixBrowserVersion
    Public Shared Sub FixBrowserVersion
(ByVal appName As StringByVal ieVer As Integer)
 
       FixBrowserVersion_Internal("HKEY_LOCAL_MACHINE"appName Convert.ToString(".exe"), ieVer)
 
       FixBrowserVersion_Internal("HKEY_CURRENT_USER"appName Convert.ToString(".exe"), ieVer)
 
       FixBrowserVersion_Internal("HKEY_LOCAL_MACHINE"appName Convert.ToString(".vshost.exe"), ieVer)
 
       FixBrowserVersion_Internal("HKEY_CURRENT_USER"appName Convert.ToString(".vshost.exe"), ieVer)
 
   End Sub
    
' End Sub FixBrowserVersion 
    Private Shared Sub FixBrowserVersion_Internal(ByVal root As String, ByVal appName As String, ByVal ieVer As Integer)
        Try
            '
For 64 bit Machine 
            If InternalCheckIsWow64
() Then
                Microsoft
.Win32.Registry.SetValue(root Convert.ToString("\Software\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION"), appNameieVer)
 
           Else
                
'For 32 bit Machine 
                Microsoft.Win32.Registry.SetValue(root & Convert.ToString("\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION"), appName, ieVer)


            End If
        Catch generatedExceptionName As Exception
            MessageBox.Show("You have to be administrator to run start this process. Please close the software. Right click on the iGiftCard icon and select RUN AS ADMINISTRATOR .", "Administrator", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        End Try
    End Sub
    ' 
End Sub FixBrowserVersion_Internal 
    Public Shared 
Function GetBrowserVersion() As Integer
        Dim strKeyPath 
As String "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer"
 
       Dim ls As String() = New String() {"svcVersion""svcUpdateVersion""Version""W2kVersion"}

 
       Dim maxVer As Integer 0
        For i 
As Integer 0 To ls.Length 1
            Dim objVal 
As Object Microsoft.Win32.Registry.GetValue(strKeyPathls(i), "0")
 
           Dim strVal As String System.Convert.ToString(objVal)
 
           If strVal IsNot Nothing Then
                Dim iPos 
As Integer strVal.IndexOf("."c)
 
               If iPos 0 Then
                    strVal 
strVal.Substring(0iPos)
 
               End If

 
               Dim res As Integer 0
                If Integer
.TryParse(strValresThen
                    maxVer 
Math.Max(maxVerres)
 
               End If
 
           End If
 
       Next
        Return maxVer
    End 
Function
 
   ' End Function GetBrowserVersion 
End Class 

استخدام الكلاس كالتالي:
PHP كود :
WebBrowserUpdater.FixBrowserVersion() 

قد تحتاج لصلاحيات لتشغيل المشروع كمسئول
PHP كود :
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" /> 

هذا الكود متوافق مع إصدارات دوت نت من 2 إلى 4.5
الرد
تم الشكر بواسطة: elgokr , sendbad100 , sendbad100
#3
شكرا اشتغل تمام تسلم وجزاك الله كل خير 
لاكن اين اضع هذا الكود يظهر به خطأ اضعه داخل الكلاس ام داخل فروم  

كود :
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
الرد
تم الشكر بواسطة: elgokr , elgokr
#4
(10-08-18, 06:36 AM)ahmedhhh2 كتب : شكرا اشتغل تمام تسلم وجزاك الله كل خير 
لاكن اين اضع هذا الكود يظهر به خطأ اضعه داخل الكلاس ام داخل فروم  

كود :
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />


هذا الكود لجعل البرنامج يعمل كا مسؤل Administrator


تابع الرابط التالى

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }


ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: YousefOkasha , sendbad100
#5
تم نقل الموضوع لقسم الاسئلة 
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
تم الشكر بواسطة: elgokr , elgokr
#6
شكرا عل التنبيه وان شاء في المرة القادمه يتم وضع الموضوع في المكان المناسب 
جزاكم الله خير علي التعاون المتصفح اشتغل تمام باقي شيء بسيط تعديل مهم كيف اعدل علي الامان للموقع وفتح تصريح معين او جميع التصريحات 
مثلا عندي كود لتحديد مكان الجهاز ويحتاج الي تصريح كي يعمل هل يمكن فتح التصريحات له
وهل يمكن جعل Supports JavaScript 

true بدلا من False
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن مساعدة في ارسال رسالة بي لغة العربية الزوي 22 316 12-08-18, 04:56 AM
آخر رد: الزوي
  مساعدة في جملة إستعلام نور الهدى الهدى 20 395 09-08-18, 12:09 PM
آخر رد: نور الهدى الهدى
  [سؤال] كود البحث بالتاريخ عقدني هل من مساعدة بكود البحث بالتاريخ vb.net and sql essawq 3 94 04-08-18, 04:01 PM
آخر رد: aljzazy
  مساعدة في حل sqlite add datetime مشكلة annaba2015 9 105 04-08-18, 08:55 AM
آخر رد: elgokr
  [VB.NET] ممكن مساعدة في كتابة كود يمنعني من كتابة تاريخ يكون اصغر من اخر تاريخ أدخلته في الدات annaba2015 3 82 28-07-18, 03:17 AM
آخر رد: elgokr
  طلب مساعدة واجهتني مشكلة في واجهة تسجيل الدخلو للبرنامج فراس الغزي 4 88 26-07-18, 10:02 PM
آخر رد: aljzazy
Exclamation ما هذا ؟ مشكلة في اداة ShockwaveFlash لعرض فيديوهات الـ Youtube YousefOkasha 6 148 22-07-18, 04:59 PM
آخر رد: YousefOkasha
  ممكن مساعدة طباعة دفاتر صكوك مصرفية الزوي 12 196 22-07-18, 06:44 AM
آخر رد: elgokr
  مساعدة من فضلكم ! ! hichem1 1 93 17-07-18, 04:35 AM
آخر رد: elgokr
  [نقاش] بخصوص اضافه خرائط جوجل الى برنامجك webbrowser control dametucorazon 12 156 08-07-18, 06:30 AM
آخر رد: dametucorazon

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


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