- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 使用共享打印机,对方电脑关机了无法链接打印机后无法关闭提示窗口, (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118836)
-- 发布时间：2018/5/11 21:03:00
-- 使用共享打印机,对方电脑关机了无法链接打印机后无法关闭提示窗口,
此主题相关图片如下：011.png
状态如图,是否有参数判断打印机状态
打印进程状态窗口无法关闭
[此贴子已经被作者于2018/5/11 21:06:12编辑过]
-- 发布时间：2018/5/11 21:33:00
--
建一个内部函数，名称CheckedPrinter，外部引用添加：System.Management.dll
Dim name As String = args(0)
Dim scope As new System.Management.ManagementScope("\\root\\cimv2")
scope.Connect()
Dim searcher As new System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Printer")
Dim hasPrint As Boolean
For Each printer As System.Management.ManagementObject In searcher.Get()
Dim printerName = printer("Name").ToString().ToLower()
\'Output.Show(printerName)
If printerName = name
If printer("WorkOffline").ToString().ToLower() = "true"
Return ("打印机【" & name & "】无法连接!")
Else
Return ("打印机正常!")
End If
End If
Next
Return "无此打印机"
调用
msgbox(Functions.Execute("CheckedPrinter","fax"))