أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تغيير إعدادات البروكسي Change Proxy Settings Using VBA

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله الكود التالي يفيد في عملية ضبط البروكسي باستخدام الـ VBA ، حيث ي ..



28-08-2019 03:43 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 

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

إخواني وأحبابي في الله
الكود التالي يفيد في عملية ضبط البروكسي باستخدام الـ VBA ، حيث يسمح بالتعديل في الريجستري ، وبالكود خيارات متعددة
ها هو الكود بين أيديكم
#If VBA7 Then
    Private Declare PtrSafe Function InternetSetOptionA Lib "wininet.dll" (ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer
#Else
    Private Declare Function InternetSetOptionA Lib "wininet.dll" (ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer
#End If

Sub Change_Proxy_Settings_Using_VBA()
    Dim vUser1, vUser2, ans%
   
    ans = MsgBox("To Enable Proxy Settings Click 'Yes'." & Chr(13) & "To Disable Proxy Settings Click 'No'", vbYesNoCancel + vbQuestion)
   
    If ans = vbYes Then
        vUser1 = InputBox("Enter The Proxy Server You Want To Use.", "Proxy Server", "http://excel-egy.com:8080")
        If vUser1 = "" Then Exit Sub
       
        Rem Proxy Server Exceptions
        MsgBox "The URLs You Would Like To Override Should Be In Cell A1. Use Semi-Colons (;) To Separate Entries", 64
        vUser2 = ActiveSheet.Range("A1").Value
       
        ProxySettings True, vUser1, vUser2
    ElseIf ans = vbNo Then
        ProxySettings False
    Else
        Exit Sub
    End If
End Sub
 
Sub ProxySettings(bEnable As Boolean, Optional sProxyServer, Optional sProxyOverride)
    Dim objShell As Object, regPath$, regServer$, regOverride$, regEnable$
   
    Set objShell = CreateObject("WScript.Shell")
    InternetSetOptionA 0, 39, 0, 0
   
    regPath$ = "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet Settings"
    regServer = regPath$ & "ProxyServer"
    regOverride = regPath$ & "ProxyOverride"
    regEnable = regPath$ & "ProxyEnable"
   
    If bEnable = False Then GoTo Skipper
   
    objShell.RegWrite regServer, sProxyServer, "REG_SZ"
    objShell.RegWrite regOverride, sProxyOverride & "<local>", "REG_SZ"
   
Skipper:
    objShell.RegWrite regEnable, IIf(bEnable, "1", "0"), "REG_DWORD"
    MsgBox "Proxy Is " & IIf(bEnable, "Enabled", "Disabled")
   
    Shell "C:Program FilesInternet Exploreriexplore.exe -nohome", vbNormalFocus
End Sub


ولدعم صاحب الموضوع يرجى النقر على الرابط التالي للحصول على الكود

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

إعداد / ياسر خليل أبو البراء

أثارت هذه المشاركة إعجاب: ali mohamed ali، عبدالرحمن صبحى،





28-08-2019 04:45 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif تغيير إعدادات البروكسي Change Proxy Settings Using VBA
بارك الله فيك استاذ ياسر وزادك الله من علمه
 

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


28-08-2019 06:38 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif تغيير إعدادات البروكسي Change Proxy Settings Using VBA
تسلم أخي الحبيب محمود 
شكلك الوحيد اللي متابعني في المنتدى .. بارك الله فيك وجزيت خيراً

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




30-08-2019 01:51 مساء
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1212
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5719
الاعجاب : 716
 Online 
look/images/icons/i1.gif تغيير إعدادات البروكسي Change Proxy Settings Using VBA
أحسنت استاذ ياسر كود وعمل ممتازين جعله الله فى ميزان حسناتك وغفر الله لك

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


30-08-2019 01:53 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif تغيير إعدادات البروكسي Change Proxy Settings Using VBA
ولك بمثل ما دعوت لي وزيادة أخي المتميز علي







الكلمات الدلالية
Using ، Settings ، Proxy ، Change ، البروكسي ، إعدادات ، تغيير ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 10:15 مساء

أعلن هنا
أعلن هنا
أعلن هنا