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


  共有3431人关注过本帖树形打印复制链接

主题：判断扫描仪
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109505 积分：557193 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/20 13:50:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109505 积分：557193 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/20 15:57:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109505 积分：557193 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/20 16:31:00 [显示全部帖子]

和打印机用法一样

msgbox(Functions.Execute("CheckedPrinter","这里改为扫描仪的名称，一样在系统控制面板设备和打印机里"))

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109505 积分：557193 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/20 17:37:00 [显示全部帖子]

同一个设备安装后的名称应该都是固定的，到系统控制面板设备和打印机里看看。不同设备名称肯定不一样的，扫描仪也风型号的。不然一台电脑连接多台扫描仪要怎么区分呢

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109505 积分：557193 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/20 20:20:00 [显示全部帖子]

系统控制面板设备和打印机里显示什么内容？能不能看到连接的扫描仪？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109505 积分：557193 威望：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"))能不能正常显示是否连接状态？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109505 积分：557193 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/21 11:00:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109505 积分：557193 威望：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)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109505 积分：557193 威望：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)"))

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109505 积分：557193 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/21 14:46:00 [显示全部帖子]

1、添加一个表，把当前电脑的机器码（ComputerID）和连接的打印机名称保存下来，根据机器码获取当前电脑使用的是哪个扫描仪。
2、我这边没有扫描仪测试，使用虚拟扫描仪软件测试没有发现有退出项目的情况
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询