[VB6] โค้ดในการกำหนดให้ไฟล์ EXE สามารถ Run As Administrator ได้

thongkorn

ตั้งแต่ Windows 10 มันสร้างความปลอดภัยที่สูงขึ้นมาก ทำให้ผู้ใช้ต้องมาคลิ๊กเมาส์ขวาเพื่อสั่ง Run As Administrator หรือต้องไปกำหนดในคุณสมบัติ (Properties) เพื่อตั้งค่า Compatibility ให้ Run this program as an administrator ซึ่งยุ่งยากเสียเวลาต่อผู้ใช้งาน แต่เราสามารถกำหนดสิ่งนี้ได้โดยตรงผ่านโค้ดโปรแกรม ซึ่งจะต้องใช้ WinAPI32 เพื่อทำการ Read/Write เข้าสู่ระบบ Registry อาจจะดูยากสำหรับหลายๆคนในการทำความเข้าใจ ก็ค่อยๆเรียนรู้กันไป เพราะเจ้าตัว WinAPI32 นี่แหละคือพลังอันล้ำเลิศของ VB6 แม้แต่ .Net Framework ในปัจจุบันยังต้องพึ่งพามันอยู่เลยครับ ...

[คำเตือน: อย่าลืม Make EXE ก่อนด้วยครับ]

มาดูโค้ดในส่วนฟอร์มหลัก

1. Option Explicit
   
2. 
   
3. Private Sub Form_Load()
   
4.     Call RunAsAdministrator
   
5. End Sub
   
6. 
   
7. '// ปรับให้ Run As Administrator
   
8. Function RunAsAdministrator()
   
9.     Dim strValue As String
   
10.     Dim strProgramName As String
    
11.     Dim SubKey As String
    
12.     SubKey = "Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers"
    
13.     strProgramName = App.Path & "\RunAsAdmin.exe"
    
14.     '// หรือกำหนด strProgramName = "C:\ตำแหน่งโปรเจค\RunAsAdmin.exe"
    
15.     strValue = "~ RUNASADMIN"
    
16.    
    
17.     Call SetKeyDataValue(&H80000001, SubKey, 1, strProgramName, strValue)
    
18. 
    
19. End Function

คัดลอกไปที่คลิปบอร์ด

โค้ดในส่วนของ Module

1. Option Explicit
   
2. 
   
3. '// -----------------------------------------------------------------------------------------------------
   
4. '// Windows API Declarations for Read And Write to the Registry.
   
5. '// -----------------------------------------------------------------------------------------------------
   
6. Public Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" ( _
   
7.     ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
   
8.     ByVal samDesired As Long, ByRef phkResult As Long) As Long
   
9. 
   
10. Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( _
    
11.     ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
    
12. 
    
13. Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _
    
14.     ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
    
15.     ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
    
16. 
    
17. Public Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" ( _
    
18.     ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, _
    
19.     ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
    
20. 
    
21. Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" ( _
    
22.     ByVal hKey As Long, ByVal lpValueName As String) As Long
    
23. 
    
24. Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" ( _
    
25.     ByVal hKey As Long, ByVal lpSubKey As String) As Long
    
26. 
    
27. Public Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
    
28. 
    
29. Public Const KEY_ALL_ACCESS = &H2003F
    
30. 
    
31. Public Sub SetKeyDataValue(RegKeyRoot As Long, RegKeyName As String, KeyDataType As Long, KeyValueName As String, KeyValueDate As Variant)
    
32.    
    
33.     Dim OpenKey As Long, SetValue As Long, hKey As Long
    
34.    
    
35.     OpenKey = RegOpenKeyEx(RegKeyRoot, RegKeyName, 0, KEY_ALL_ACCESS, hKey)
    
36.    
    
37.     If (OpenKey <> 0) Then Call RegCreateKey(RegKeyRoot, RegKeyName, hKey)
    
38.    
    
39.     Select Case KeyDataType
    
40.         Case 1:
    
41.             SetValue = RegSetValueEx(hKey, KeyValueName, 0&, KeyDataType, ByVal CStr(KeyValueDate & Chr$(0)), Len(KeyValueDate))
    
42.         Case 3:
    
43.             SetValue = RegSetValueEx(hKey, KeyValueName, 0&, KeyDataType, ByVal CStr(KeyValueDate & Chr$(0)), Len(KeyValueDate))
    
44.         Case 4:
    
45.             SetValue = RegSetValueEx(hKey, KeyValueName, 0&, KeyDataType, CLng(KeyValueDate), 4)
    
46.     End Select
    
47.    
    
48.     SetValue = RegCloseKey(hKey)
    
49.    
    
50. End Sub

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB6 ได้ที่นี่ ...