[VB6/VB.NET] การแสดงรายชื่อเครื่องพิมพ์ และสถานะด้วยการใช้งาน WMI

thongkorn

สำหรับบทความนี้จะมีโค้ดทั้ง VB6 และ VB.Net เพราะใช้กระบวนคิดแบบเดียวกันหมด แตกต่างแค่คำสั่งที่ใช้งานเท่านั้น โดยใช้งานติดต่อผ่านทาง WMI หรือ Windows Management Instrumentation แอดมินเตรียมเอาไว้สำหรับโปรเจคใหม่ ซึ่งโปรแกรมตัวเดียวจะต้องส่งพิมพ์งานออกทางหลายเครื่องพิมพ์ ขึ้นอยู่กับลักษณะของงานนั้นๆ และเพืออำนวยความสะดวกให้กับผู้ใช้งาน รายละเอียดมันมีเยอะ แอดมินตัดมาให้ได้รับชมในส่วนสำคัญๆ เช่น การตรวจสอบสถานะของเครื่องพิมพ์ เรียนรู้ศึกษารายละเอียดเพิ่มเติมเกี่ยวกับ Win32_Printer class (สำคัญและจำเป็นมาก) ...

แนะนำการใช้งานและดาวน์โหลด WMI Code Creator Tool



กรณี VB.Net จะต้องเลือก References คือ System.Management


มาดูโค้ดในส่วนของ VB.NET (2010)

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Listing printer with WMI.
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. 
    
14. Imports System.Management
    
15. Public Class frmListPrinter
    
16. 
    
17.     ' / ตั้งค่า ListView Control
    
18.     Sub InitListView()
    
19.         '/ Initialize ListView Control
    
20.         With lvwData
    
21.             .View = View.Details
    
22.             .GridLines = True
    
23.             .FullRowSelect = True
    
24.             .HideSelection = False
    
25.             .MultiSelect = False
    
26.             '/ ใช้ทั้งหมด 3 หลัก โดยหลักแรก มีค่า Index = 0
    
27.             .Columns.Add("Printer Name", lvwData.Width \ 3 + 90)
    
28.             .Columns.Add("Printer Status", lvwData.Width \ 3 - 60)
    
29.             .Columns.Add("Default Printer", lvwData.Width \ 3 - 60)
    
30.         End With
    
31.     End Sub
    
32. 
    
33.     Private Sub btnListPrinter_Click(sender As System.Object, e As System.EventArgs) Handles btnListPrinter.Click
    
34.         Dim WmiQuery As String = "SELECT * FROM Win32_Printer"
    
35.         Dim WmiSearcher As New ManagementObjectSearcher(WmiQuery)
    
36.         lvwData.Items.Clear()
    
37.         WmiSearcher = New ManagementObjectSearcher(WmiQuery)
    
38.         '// Win32_Printer class
    
39.         '// https://docs.microsoft.com/en-us/windows/desktop/cimwin32prov/win32-printer (See ExtendedPrinterStatus)
    
40.         Dim PrinterStatuses As String() = {"Other", "Unknown", "Idle", "Printing", "WarmUp", "Stopped Printing", "Offline"}
    
41.         For Each Info As ManagementObject In WmiSearcher.Get()
    
42.             Try
    
43.                 Dim LV As ListViewItem
    
44.                 LV = lvwData.Items.Add(Info("Name"))  '// สร้างโหนดหลัก คือ ชื่อเครื่องพิมพ์
    
45.                 Dim status As UInt16 = CType(Info.Properties("PrinterStatus").Value - 1, UInt16)
    
46.                 LV.SubItems.Add(PrinterStatuses(status))    '// Printer Status
    
47.                 LV.SubItems.Add(Info("Default"))        '// Default Printer
    
48.             Catch ex As Exception
    
49.             End Try
    
50.         Next
    
51.     End Sub
    
52. 
    
53.     Private Sub frmListPrinter_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
54.         Me.Dispose()
    
55.         Application.Exit()
    
56.     End Sub
    
57. 
    
58.     Private Sub frmListPrinter_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
59.         Call InitListView()
    
60.     End Sub
    
61. 
    
62.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
63.         Me.Close()
    
64.     End Sub
    
65. End Class

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

มาดูโค้ดในส่วนของ VB6

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose:  List Printers with WMI.
   
8. ' / Microsoft Visual Basic 6.0 (SP6)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Option Explicit
    
14. 
    
15. '/ Initial ListView
    
16. Sub SetupListView()
    
17.     With Me.lvwPrinter
    
18.         ' Coding with Run Time
    
19.         .View = lvwReport
    
20.         .Arrange = lvwNone
    
21.         .LabelEdit = lvwManual
    
22.         .BorderStyle = ccFixedSingle
    
23.         .Appearance = cc3D
    
24.         
    
25.         .HideColumnHeaders = False
    
26.         .HideSelection = False
    
27.         .LabelWrap = False
    
28.         .MultiSelect = False
    
29.         .Enabled = True
    
30.         .AllowColumnReorder = True
    
31.         .Checkboxes = False
    
32.         .FlatScrollBar = False
    
33.         .FullRowSelect = True
    
34.         .GridLines = True
    
35.         .HotTracking = False
    
36.         .HoverSelection = False
    
37.         
    
38.         .Sorted = False 'True
    
39.         .SortKey = 0
    
40.         .SortOrder = lvwAscending
    
41.         
    
42.         '/ Add header
    
43.         .ColumnHeaders.Add , , "Printer Name", .Width \ 3 + 1500
    
44.         .ColumnHeaders.Add , , "Printer Status", .Width \ 3 - 600
    
45.         .ColumnHeaders.Add , , "Default Printer", .Width \ 3 - 1000, lvwColumnLeft
    
46.     End With
    
47.    
    
48. End Sub
    
49. 
    
50. Private Sub cmdListPrinter_Click()
    
51.     Dim objItem As Object
    
52.     Dim colItems As Object
    
53.     Dim objWMIService As Object
    
54.     Dim strComputer As String
    
55.     strComputer = "."
    
56.     Dim LV As ListItem
    
57.     '// Clear Item ListView
    
58.     lvwPrinter.ListItems.Clear
    
59.     '// Win32_Printer class
    
60.     '// https://docs.microsoft.com/en-us/windows/desktop/cimwin32prov/win32-printer (See ExtendedPrinterStatus)
    
61.     Dim PrinterStatuses(7) As String
    
62.     PrinterStatuses(1) = "Other"
    
63.     PrinterStatuses(2) = "Unknown"
    
64.     PrinterStatuses(3) = "Idle"
    
65.     PrinterStatuses(4) = "Printing"
    
66.     PrinterStatuses(5) = "WarmUp"
    
67.     PrinterStatuses(6) = "Stopped Printing"
    
68.     PrinterStatuses(7) = "Offline"
    
69.     '//
    
70.     Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
    
71.     Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer", , 48)
    
72.     '//
    
73.     For Each objItem In colItems
    
74.         Set LV = lvwPrinter.ListItems.Add(, , Trim(objItem.Name))   '// Printer Name
    
75.         LV.SubItems(1) = PrinterStatuses(objItem.PrinterStatus) '// Printer Status
    
76.         LV.SubItems(2) = objItem.Default    '// Default Printer
    
77.     Next
    
78. End Sub
    
79. 
    
80. Private Sub Form_Load()
    
81.     '// Initial ListView Control
    
82.     Call SetupListView
    
83. End Sub
    
84. 
    
85. Private Sub Form_Resize()
    
86.     On Error Resume Next
    
87.     If Me.WindowState = vbMinimized Then Exit Sub
    
88.     ' Width
    
89.     If Me.Width <> 8625 Then Me.Width = 8625
    
90.     ' Height
    
91.     If Me.Height <> 6750 Then Me.Height = 6750
    
92. End Sub
    
93. 
    
94. Private Sub Form_Unload(Cancel As Integer)
    
95.     Set frmListPrinter = Nothing
    
96.     End
    
97. End Sub
    
98. 
    
99. Private Sub cmdExit_Click()
    
100.     Unload Me
     
101. End Sub

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

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