• 0
هاوي!

تغير بروكسي الويندوز من خلال الفيجول

سؤال

الســلام عليكم اخواني الكرام

لدي استفسار او سؤال بسـيط ارجو افادتي

هذه هي نافذه البروكسي في الويندوز

Proxy.gif

اريد منكم كود برمجي .. بحيث عندا اضغط على Command1 يتم تعبأة التكست الخاص بالبروكسي والبورت ببيانات تم تعريفها في الكود البرمجي لنفرض ان البوكسي هو 10.10.15.1 والبورت 8080

اريد اني يتم وضع هذا البروكسي في نافذه البروكسي من خلال برنامجي ..

تلقائيــاً .. بدون اي تدخل مني ..

ارجو انكم قد فهمتموني .. وكذلك ارجو اعطاي الكود المناسب ..

اروج افادتي

.. هاوي ..

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

180.gifاخ هاوي!

هذا الكود لآظهار Proxy المسجل مسبقا

شفرة في المديول

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegOpenKeyA Lib "advapi32.dll" (ByVal hKey As Long, ByVal SubKey As String, Result As Long) As Long
Public Declare Function RegQueryValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal KVName As String, ByVal Rvd As Long, Tpe As Long, Dta As Any, cbDta As Long) As Long

Public Function ReadRegistry(hKey As Long, KeyPath As String, SValue As String, Optional Default As String) As String
On Error Resume Next
Dim Buffr As String
RegOpenKeyA hKey, KeyPath, hCurKey
RegQueryValueExA hCurKey, SValue, 0&, lngValueType, ByVal 0&, lngDataBufferSize
Buffr = String(lngDataBufferSize, " ")
RegQueryValueExA hCurKey, SValue, 0&, 0&, ByVal Buffr, lngDataBufferSize
ZPos = InStr(Buffr, Chr$(0))
ReadRegistry = Left$(Buffr, ZPos - 1)
RegCloseKey hCurKey 'close Key !!
End Function

شفرة في الفورم

Private Sub Form_Load()
Text1.Text = ReadRegistry(&H80000001, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
End Sub

---------------------------

وهذه الشفرة لأنشاء Proxy جديد بشرط

ان يكون Use Proxy Server في وضع True

Private Sub Command1_Click()
Dim Create
Dim Key
Dim Key2

Const ProxyServer = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer"
Const ProxyEnable = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
Key2 = "192.168.43.224:8080"
Set Create = CreateObject("wscript.shell")
Key = ProxyEnable
Create.RegWrite Key, 1, "REG_DWORD"

Key = ProxyServer
Create.RegWrite Key, Key2, "REG_SZ"
End Sub

تم تعديل بواسطه HnHn
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما شاء الله عليك اخي HnHn .. يامبدع

شكراً لك من الاعماااق

:lol: :lol: :lol: :lol:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
thanku.gif وياريت كل الاعضاء مثلك ان يتم الرد بعد أن تحل مشاكلهم ... بالتوفيق
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .