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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج مساعدة فى عمل تحديث لى البرنامج عن بعد Mohamed Magdy 0 32 أمس, 10:23 AM
آخر رد: Mohamed Magdy
Exclamation [VB.NET] احتاج مساعدة في حساب رصيد اجازة لموظف algiloshy@gmail.com 0 40 19-10-18, 06:40 PM
آخر رد: algiloshy@gmail.com
  [VB.NET] مطلوب مساعدة في برنامج يحدث اخطاء ay.alhaj 29 644 17-10-18, 11:43 PM
آخر رد: عبد العزيز البسكري
  هل اسطتيع صنع متصفح لا يعتمد على WebBrowser Mohamed Magdy 5 164 16-10-18, 10:39 PM
آخر رد: Mohamed Magdy
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 2 94 16-10-18, 04:55 PM
آخر رد: mohamedgadain61
  مساعدة في datatGridviwe DOX.1 5 141 10-10-18, 12:23 AM
آخر رد: حريف برمجة
  تكبير العرض في اداة الويندوز ميديا بلاير معاذ_ابراهيم 2 58 07-10-18, 02:30 PM
آخر رد: معاذ_ابراهيم
  مطلوب شرح اضافة اداة فى الفيجول بيسك Mohamed Magdy 8 215 05-10-18, 12:26 AM
آخر رد: elgokr
  [VB.NET] مساعدة بخصوص كود الحفظ ay.alhaj 19 311 04-10-18, 10:22 PM
آخر رد: ay.alhaj
  [سؤال] مساعدة في كود تحديث برنامج ScreamVoice 9 169 03-10-18, 02:48 PM
آخر رد: ScreamVoice

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


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