تقييم الموضوع :
  • 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
تم نقل الموضوع لقسم الاسئلة 
الرد
تم الشكر بواسطة: elgokr , elgokr
#6
شكرا عل التنبيه وان شاء في المرة القادمه يتم وضع الموضوع في المكان المناسب 
جزاكم الله خير علي التعاون المتصفح اشتغل تمام باقي شيء بسيط تعديل مهم كيف اعدل علي الامان للموقع وفتح تصريح معين او جميع التصريحات 
مثلا عندي كود لتحديد مكان الجهاز ويحتاج الي تصريح كي يعمل هل يمكن فتح التصريحات له
وهل يمكن جعل Supports JavaScript 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اداة الweb browser اسامه الهرماوي 3 37 أمس, 03:32 PM
آخر رد: elgokr
  طلب مساعدة في عمل chart محمد خيري 6 90 أمس, 01:28 AM
آخر رد: elgokr
  زيادة ونقص اداة التاريخ عند تغيير تاريخ اداة التاريخ الاخري atefkhalf2004 2 64 22-02-19, 10:54 PM
آخر رد: atefkhalf2004
  مساعدة في موقع panels على الفورم ؟؟؟ abdullhadi999 2 73 16-02-19, 02:45 AM
آخر رد: أحمد النجار
Information [VB.NET] مساعدة : حساب الناتج الاجمالي georgos 4 93 15-02-19, 11:35 PM
آخر رد: georgos
  مساعدة بمشكلة مكتبات الوورد و الاكسل محمد خيري 0 52 12-02-19, 12:39 AM
آخر رد: محمد خيري
  مساعدة هامة احتاج كود يقوم بعمل طباعة تلقائية ل ReportViwer مجرد فتح الفورم mohamedgadain61 1 99 11-02-19, 09:47 AM
آخر رد: mohamedgadain61
  مساعدة في اتمام المشروع georgos 0 85 11-02-19, 01:32 AM
آخر رد: georgos
  مساعدة بخصوص امر show سمير جمال 3 116 07-02-19, 03:53 AM
آخر رد: حريف برمجة
  [VB.NET] مساعدة في كود الحفظ Hamoody 2 108 06-02-19, 02:45 AM
آخر رد: Hamoody

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


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