تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad محتاج كود فى اداة ال vlc Mohamed Magdy 0 15 أمس, 05:40 PM
آخر رد: Mohamed Magdy
  مساعدة السعيدي 12 295 08-12-18, 12:01 AM
آخر رد: السعيدي
  شباب محتاج مساعدة فى اداة ال vlc Mohamed Magdy 2 72 05-12-18, 10:49 AM
آخر رد: Mohamed Magdy
  مساعدة ضرورية بخصوص برنامج Aminsoft 4 173 04-12-18, 06:40 AM
آخر رد: asemshahen5
  محتاج مساعدة فى عمل بسورد لى برنامجى+رابط قاعدة البينات من الاسطضافة Mohamed Magdy 14 286 29-11-18, 10:36 PM
آخر رد: Mohamed Magdy
  مساعدة في تحويل مشروع فيجوال 6 samira20 6 141 29-11-18, 09:56 PM
آخر رد: asemshahen5
  محتاج مساعدة فى تفعيل لى البرنامج Mohamed Magdy 8 183 27-11-18, 09:27 PM
آخر رد: Mohamed Magdy
  محتاج مساعدة فى تشفير برنامجي تشفير قوى Mohamed Magdy 2 67 27-11-18, 09:15 PM
آخر رد: mero5000
  الاستغناء عن webbrowser farfour 1 64 25-11-18, 11:09 PM
آخر رد: elgokr
  محتاج مساعدة فى عمل اكثر من بسورد لى البرنامج Mohamed Magdy 2 70 23-11-18, 09:41 AM
آخر رد: Mohamed Magdy

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


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