返回首页
当前位置: Novell迷 > 站长博客 >

写个脚本实现扫描仪自动扫描

时间:2009-11-04 11:56来源:未知 作者:Novell迷 点击:
在公司用的一款Espon的扫描仪。常有同事要求帮助扫描文档。 在放完文档之后,我要做的一系列动作是。找到扫描程序的快捷方式,双击运行,等待Logo图片,出现程序界面,点击扫描按

在公司用的一款Espon的扫描仪。常有同事要求帮助扫描文档。

http://novell.me

在放完文档之后,我要做的一系列动作是。找到扫描程序的快捷方式,双击运行,等待Logo图片,出现程序界面,点击扫描按钮,开始扫描,扫描完毕,到扫描路径下拷贝文件,通过网络共享文件夹或者email的方式发送给同事。

版权所有,未经Novell迷允许,不得转载!

整个过程比较耗时,于是想到了偷懒。想简化整个过程的人为操作时间。

版权所有,未经Novell迷允许,不得转载!

好了,AutoIT 派上用场了。下面是脚本。

CopyRight http://novell.me


$dropbox=Inputbox ("Please Input:","Please type user name (eg:http://novell.me)" & @CRLF & "By de","novell.me")
$dropboxpath="\\myserver\Dropbox"  & "\" & $dropbox

run("C:\WINDOWS\TWAIN_32\ESCNDV\ESCNDV.EXE")
Winwait("EPSON Scan - EPSON Perfection 1270")
WinActivate("EPSON Scan - EPSON Perfection 1270")
Send ("!S")
Do
    sleep ("2000")
Until FileExists("C:\Temp\ScanTemp\*.pdf")
if $dropbox="lhu" then
    filemove("C:\Temp\ScanTemp\*.pdf",@DesktopDir)
else   
Filemove("C:\Temp\ScanTemp\*.pdf",$dropboxpath)
Endif
winclose("EPSON Scan - EPSON Perfection 1270") Novell迷网站內容,版权所有

----- Novell迷网站原创内容,未经允许,谢绝转载!

好了,将它编辑成EXE后,在做好文档扫描准备之后,双击运行该程序就可以实现自动扫描并拷贝文档到指定网络的Dropbox啦。 Novell迷网站原创内容,未经允许,谢绝转载!

转载请注明出处!
本文地址 http://novell.me/master-diary/2009-11-04/scaner-auto-scan.html
(责任编辑:Novell迷)
对我有帮助
(2)
100%
没什么帮助
(0)
0%
------分隔线----------------------------
发表评论
验证码:点击我更换图片
赞助商链接