判断扫描仪 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 判断扫描仪

共有2586人关注过本帖树形打印复制链接主题：判断扫描仪

nxqtxwz

小大 11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1492 积分：12149 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2020/1/21 10:34:00 [只看该作者]

以下是引用有点蓝在2020/1/20 20:20:00的发言：
系统控制面板设备和打印机里显示什么内容？能不能看到连接的扫描仪？

在开始菜单中显示：HP scan

在设备和打印机中显示：HP LaserJet MFP M129-M134

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105936 积分：538749 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/21 10:40:00 [只看该作者]

那么msgbox(Functions.Execute("CheckedPrinter","HP LaserJet MFP M129-M134"))能不能正常显示是否连接状态？

nxqtxwz

小大 13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1492 积分：12149 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2020/1/21 10:47:00 [只看该作者]

以下是引用有点蓝在2020/1/21 10:40:00的发言：
那么msgbox(Functions.Execute("CheckedPrinter","HP LaserJet MFP M129-M134"))能不能正常显示是否连接状态？

老师，我做的这个是个网络的，项目很多人在用，他们可能用的扫描仪不一样。我的想法是不管什么扫描仪，能调用就行。如果直接判断一指定的扫描仪，会不会就我这台能用，其它人都不能用呢。

有点蓝

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105936 积分：538749 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/21 11:00:00 [只看该作者]

这个没有办法的。不然就建一个表，存储对应的电脑和扫描仪名称的对应关系

nxqtxwz

小大 15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1492 积分：12149 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2020/1/21 11:00:00 [只看该作者]

以下是引用有点蓝在2020/1/21 10:40:00的发言：
那么msgbox(Functions.Execute("CheckedPrinter","HP LaserJet MFP M129-M134"))能不能正常显示是否连接状态？

老师，显示打印机正常！

[此贴子已经被作者于2020/1/21 11:02:09编辑过]

有点蓝

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105936 积分：538749 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/21 11:03:00 [只看该作者]

命令窗口执行看看这台电脑安装的所有打印设备名称

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)

nxqtxwz

小大 17楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1492 积分：12149 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2020/1/21 11:06:00 [只看该作者]

以下是引用有点蓝在2020/1/21 11:03:00的发言：
命令窗口执行看看这台电脑安装的所有打印设备名称

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)

npi7cdae5 (hp laserjet mfp m132nw) (副本 1)
npi7cdae5 (hp laserjet mfp m132nw)
microsoft xps document writer
hp laserjet mfp m129-m134 pclms (网络副本 1) '我的打印机
hp laserjet mfp m129-m134 pclms
hp color laserjet cp5220 series pcl 6
fax
\\210-3\hp deskjet 5810 series

[此贴子已经被作者于2020/1/21 11:07:07编辑过]

有点蓝

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105936 积分：538749 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/21 11:13:00 [只看该作者]

msgbox(Functions.Execute("CheckedPrinter","hp laserjet mfp m129-m134 pclms (网络副本 1)"))

nxqtxwz

小大 19楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1492 积分：12149 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2020/1/21 11:25:00 [只看该作者]

以下是引用有点蓝在2020/1/21 11:13:00的发言：
msgbox(Functions.Execute("CheckedPrinter","hp laserjet mfp m129-m134 pclms (网络副本 1)"))

显示打印机正常。

nxqtxwz

小大 20楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1492 积分：12149 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2020/1/21 14:21:00 [只看该作者]

老师，调用扫描仪就用了下面的两行代码，我在两台计算机上试了一下，两台计算机连接的扫描仪不一样，但都可以调用扫描仪。

Dim name As String = format(Date.now,"yyyyMMddHHmmssfff") & ".jpg"
Dim scanner As new TwainGui.MainFrame(projectPath & "attachments/" & name ,False)
scanner.Showdialog

1、如果按前面条件词句来判断，只能是检测一台扫描仪，哪其它扫描仪都可能检测不到而不能用。我看代码中是Twain的调用方式，能不能采取模糊检测的方式，只检测到连接了扫描仪就可以调用（条件成立）。

2、我调用扫描仪功能一切正常，但调用以后，不扫描退出则一下子退出的项目，这个问题怎么解决。

下一主题 >> << 上一主题

总数 21 上一页 1 2 3 下一页

主题：判断扫描仪