[VB.NET] โค้ดโปรแกรมในการแก้ปัญหา Network Printer บน Windows 11 Home

thongkorn

Project Properties --> View Windows Settings ...


การนำไปใช้งานจริง ...

โค้ดโปรแกรม VB.NET ในการแก้ปัญหา Network Printer บน Windows 11 Home จะมีอยู่ 2 ขั้นตอนคือ ...
1. สร้าง User Login Credentials เข้าไปเก็บในเครื่อง Windows 11 Home
2. ทำการ  Registry ค่า RPC (Remote Procedure Call) ทั้งเครื่องแม่และเครื่องลูก ... กรณีที่เครื่องแม่เป็น Windows 10 ให้รีสตาร์ทใหม่ด้วย

ขั้นตอนการทำงาน: สั่งรันไฟล์ reg-server.reg ที่เครื่องแม่แล้วทำการรีสตาร์ท ส่วนตัวโปรแกรมให้ไปรันที่เครื่องลูก

Registry สำหรับเครื่องแม่ ...

1. Windows Registry Editor Version 5.00
   
2. 
   
3. [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print]
   
4. "RpcAuthnLevelPrivacyEnabled"=dword:00000000

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

Registry สำหรับเครื่องลูก ...

1. Windows Registry Editor Version 5.00
   
2. 
   
3. [HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\Printers\RPC]
   
4. "RpcUseNamedPipeProtocol"=dword:00000001
   
5. "RpcAuthentication"=dword:00000000
   
6. "RpcProtocols"=dword:00000007
   
7. "ForceKerberosForRpc"=dword:00000000
   
8. "RpcTcpPort"=dword:00000000
   
9. 
   
10. [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print]
    
11. "RpcAuthnLevelPrivacyEnabled"=dword:00000000

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

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

1. Imports Microsoft.Win32
   
2. 
   
3. Public Class frmMain
   
4. 
   
5.     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
   
6.         '// ตรวจสอบค่าว่างของ TextBox Control แต่ละตัว
   
7.         Dim RequiredFields As Dictionary(Of TextBox, String) = New Dictionary(Of TextBox, String) From {
   
8.             {txtTarget, "Enter your Domain or IP Address."},
   
9.             {txtUserName, "Enter your Username."}
   
10.         }
    
11.         '// ใช้ For Each เพื่อลูปตรวจสอบทุก TextBox ใน Dictionary
    
12.         For Each Field In RequiredFields
    
13.             If String.IsNullOrWhiteSpace(Field.Key.Text) Then
    
14.                 MessageBox.Show(Field.Value, "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
15.                 Field.Key.Focus()
    
16.                 Return
    
17.             End If
    
18.         Next
    
19.         '//
    
20.         If CredentialManager.AddNetworkCredential(txtTarget.Text, txtUserName.Text, txtPassword.Text) Then
    
21.             MessageBox.Show("เพิ่ม Network Credential สำเร็จ", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
22.             '// เรียกไปโปรแกรมย่อยในการเขียนข้อมูลลง Registry
    
23.             Call RegistryRPC()
    
24.         End If
    
25.     End Sub
    
26. 
    
27.     ' / --------------------------------------------------------------------------------------
    
28.     ' / Registry RPC (Remote Procedure Call)
    
29.     ' / --------------------------------------------------------------------------------------
    
30.     Private Sub RegistryRPC()
    
31.         Try
    
32.             Dim RegPath As String = "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\Printers\RPC"
    
33.             '// การกำหนดค่าให้กับ Key
    
34.             '// ค่า 1 (เปิด) ใช้ Named Pipes เป็นโปรโตคอล RPC
    
35.             Registry.SetValue(RegPath, "RpcUseNamedPipeProtocol", 1, RegistryValueKind.DWord)
    
36.             '// ระบุวิธีการรับรองตัวตนของ RPC, 0 = ไม่มีการตรวจสอบสิทธิ์ (ไม่ปลอดภัย)
    
37.             Registry.SetValue(RegPath, "RpcAuthentication", 0, RegistryValueKind.DWord)
    
38.             '// ระบุว่าจะเปิดใช้งานโปรโตคอล RPC อะไรบ้าง (1 = TCP/IP, 2 = Named Pipes, 4 = LRPC (Local RPC), 7 = ทั้งหมด (1+2+4))
    
39.             Registry.SetValue(RegPath, "RpcProtocols", 7, RegistryValueKind.DWord)
    
40.             '// ค่า 1 จะบังคับใช้เฉพาะ Kerberos เท่านั้น, ค่า 0 = ไม่บังคับ
    
41.             Registry.SetValue(RegPath, "ForceKerberosForRpc", 0, RegistryValueKind.DWord)
    
42.             '// ใช้กำหนด TCP Port แบบคงที่ สำหรับ RPC, ค่า 0 หมายถึง ปล่อยให้ระบบกำหนดพอร์ตอัตโนมัติ
    
43.             Registry.SetValue(RegPath, "RpcTcpPort", 0, RegistryValueKind.DWord)
    
44. 
    
45.             '// Registry สำหรับ RpcAuthnLevelPrivacyEnabled
    
46.             '// 0 ปิดการเข้ารหัส (Privacy Disabled), 1 เปิดใช้งานการเข้ารหัส (Privacy Enabled)
    
47.             RegPath = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print"
    
48.             Registry.SetValue(RegPath, "RpcAuthnLevelPrivacyEnabled", 0, RegistryValueKind.DWord)
    
49. 
    
50.             MessageBox.Show("นโยบาย RPC ถูกกำหนดเรียบร้อย", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
51.         Catch ex As Exception
    
52.             MessageBox.Show("เกิดข้อผิดพลาด: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
53.         End Try
    
54.     End Sub
    
55. 
    
56.     Private Sub txtTarget_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtTarget.KeyPress
    
57.         If Asc(e.KeyChar) = Keys.Enter Then
    
58.             e.Handled = True
    
59.             SendKeys.Send("{TAB}")
    
60.         End If
    
61.     End Sub
    
62. 
    
63.     Private Sub txtUserName_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtUserName.KeyPress
    
64.         If Asc(e.KeyChar) = Keys.Enter Then
    
65.             e.Handled = True
    
66.             SendKeys.Send("{TAB}")
    
67.         End If
    
68.     End Sub
    
69. 
    
70.     Private Sub txtPassword_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress
    
71.         If Asc(e.KeyChar) = Keys.Enter Then
    
72.             e.Handled = True
    
73.             SendKeys.Send("{TAB}")
    
74.         End If
    
75.     End Sub
    
76. 
    
77.     Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
78.         txtTarget.Text = ""
    
79.         txtUserName.Text = ""
    
80.         txtPassword.Text = ""
    
81.     End Sub
    
82. 
    
83.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
84.         Me.Close()
    
85.     End Sub
    
86. 
    
87.     Private Sub frmMain_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
88.         Me.Dispose()
    
89.         GC.SuppressFinalize(Me)
    
90.         Application.Exit()
    
91.     End Sub
    
92. End Class

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

คลาสสำหรับการสร้าง User Login Credentials ...

1. Imports System.Net.NetworkInformation
   
2. Imports System.Runtime.InteropServices
   
3. Imports System.Text
   
4. Imports System.IO
   
5. 
   
6. Public Class CredentialManager
   
7.     <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
   
8.     Public Structure CREDENTIAL
   
9.         Public Flags As UInteger
   
10.         Public Type As UInteger
    
11.         Public TargetName As String
    
12.         Public Comment As String
    
13.         Public LastWritten As Long
    
14.         Public CredentialBlobSize As UInteger
    
15.         Public CredentialBlob As IntPtr
    
16.         Public Persist As UInteger
    
17.         Public AttributeCount As UInteger
    
18.         Public Attributes As IntPtr
    
19.         Public TargetAlias As String
    
20.         Public UserName As String
    
21.     End Structure
    
22. 
    
23.     <DllImport("advapi32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)>
    
24.     Public Shared Function CredWrite(ByRef credential As CREDENTIAL, ByVal flags As UInteger) As Boolean
    
25.     End Function
    
26. 
    
27.     ' / --------------------------------------------------------------------------------------
    
28.     ' / ส่วนของการเพิ่ม Target, Username และ Password เข้าไปใน Credential Manager ของ Windows 11 Home
    
29.     ' / --------------------------------------------------------------------------------------
    
30.     Public Shared Function AddNetworkCredential(target As String, username As String, password As String) As Boolean
    
31.         Cursor.Current = Cursors.WaitCursor
    
32.         Try
    
33.             '// ตรวจสอบการ ping ไปยังเป้าหมาย
    
34.             If Not PingHost(target) Then
    
35.                 MessageBox.Show("ไม่สามารถเชื่อมต่อกับ: " & target, "การตรวจสอบล้มเหลว", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
36.                 Return False
    
37.             End If
    
38.         Finally
    
39.             Cursor.Current = Cursors.Default
    
40.         End Try
    
41.         '// แปลงรหัสผ่านจาก String เป็นอาร์เรย์ของ Byte ด้วยการเข้ารหัสแบบ Unicode
    
42.         Dim PasswordBytes As Byte() = Encoding.Unicode.GetBytes(password)
    
43.         '// จองพื้นที่ในหน่วยความจำแบบ unmanaged เพื่อใช้เก็บ byte array ของ Password
    
44.         Dim PasswordPtr As IntPtr = Marshal.AllocCoTaskMem(PasswordBytes.Length)
    
45.         Marshal.Copy(PasswordBytes, 0, PasswordPtr, PasswordBytes.Length)
    
46. 
    
47.         '// Type เช่น 2 = CRED_TYPE_DOMAIN_PASSWORD
    
48.         '// Target เช่น 192.168.1.11 หรือ thongkorn-pc
    
49.         '// UserName เช่น admin หรือ everyone
    
50.         '// Persist เช่น 2 = CRED_PERSIST_LOCAL_MACHINE
    
51.         Dim cred As New CREDENTIAL With {
    
52.             .Type = 2,
    
53.             .TargetName = target,
    
54.             .UserName = username,
    
55.             .CredentialBlobSize = CUInt(PasswordBytes.Length),
    
56.             .CredentialBlob = PasswordPtr,
    
57.             .Persist = 2
    
58.         }
    
59. 
    
60.         '// เรียกใช้ ฟังก์ชัน Win32 API CredWrite (มาจาก advapi32.dll) ซึ่งใช้เพื่อบันทึกข้อมูล Credential (ชื่อผู้ใช้และรหัสผ่าน) ลงใน Windows Credential Manager
    
61.         Dim result = CredWrite(cred, 0)
    
62.         '// คืนพื้นที่หน่วยความจำแบบ unmanaged ที่จองไว้ก่อนหน้านี้ด้วย Marshal.AllocCoTaskMem
    
63.         Marshal.FreeCoTaskMem(PasswordPtr)
    
64. 
    
65.         If Not result Then MessageBox.Show("การเพิ่ม Network Credential ล้มเหลว: " & Marshal.GetLastWin32Error(), "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
66.         Return result
    
67.     End Function
    
68. 
    
69.     '// ตรวจสอบว่าเป้าหมายสามารถ ping ได้หรือไม่
    
70.     Public Shared Function PingHost(host As String) As Boolean
    
71.         Try
    
72.             Using ping As New Ping()
    
73.                 Dim reply = ping.Send(host, 1000) '// Timeout = 1 วินาที
    
74.                 Return reply.Status = IPStatus.Success
    
75.             End Using
    
76.         Catch
    
77.             Return False
    
78.         End Try
    
79.     End Function
    
80. End Class

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

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...