นโยบายการจัดการความรู้ มหาวิทยาลัยสงขลานครินทร์ 1.ให้ใช้เครื่องมือการจัดการความรู้ผลักดัน คุณภาพคน และกระบวนทำงาน 2.ส่งเสริมการแลกเปลี่ยนประสบการณ์การทำงาน จากหน้างาน 3.ส่งเสริมให้มีเวทีเรียนรู้ร่วมกัน

Smarn
Ico64
Smarn Sen Ngam
รองศาสตราจารย์
มหาวิทยาลัยรังสิต
เครือข่าย
สมาชิก · ติดตาม: 0 · ผู้ติดตาม: 1

อ่าน: 1597
ความเห็น: 1

ชวนใช้:คลิกเดียว..สแกนเอกสารได้เลย

...ผู้รู้ช่วยแก้สคริปต์ ให้เป็นกด space bar แล้วเริ่มสแกนหน้าต่อไปได้ไหมครับ...

ให้รู้สึกรำคาญกะการสแกนเอกสารทีละหลาย ๆ หน้า...นั่นแหละครับ

เพราะถ้าเราไม่สแกนตามค่า เดิมของระบบ (default) ที่ตั้งไว้แค่ความละเอียด 150 dpi ก็ต้อง คลิก1..คลิก2..คลิก3.. จึงยอมสแกนให้ พอเริ่มหน้าใหม่ก็เอาอีกแล้ว คลิก1..คลิก2..คลิก3..

ให้นึกถึง paperport รุ่นแรก ๆ ที่สามารถทำได้ 1 คลิกแล้วสแกน... รุ่นใหม่ทำไม่ได้แฮะ แปลกจริง ๆ ...หรือใครรู้ว่าทำยังไง

แต่ไม่ต้องแล้วละครับ ตามอากู๋ ไปเจอแล้ว นั่นคือ CmdTwain ของ GssEzisoft ที่คลิกเดียวสแกนเลย หรือจะเอาดับเบิลคลิก แล้วสแกน 10 หน้า ตามตัวอย่างสคริปต์ข้างล่างก็ได้

วิธีใช้งาน

  1. หลังจาก download และ install เรียบร้อยแล้ว ก็ให้
  2. copy ไฟล์สคริปต์ชื่อ autoscan.vbs ตามตัวอย่างแปะไว้บน desktop

โดยอาจจะต้องแก้สคริปต์ตามความจำเป็น เช่น ที่อยู่จริงของโปรแกรม และ จำนวนหน้า ตามที่ระบายสีแดงไว้

ทีนี้ก็ขอมั่งครับ... ผู้รู้ช่วยแก้สคริปต์ ให้เป็นกด space bar แล้วเริ่มสแกนหน้าต่อไปได้ไหมครับ แทนการนับเวลาดีเลย์ และกด ESC ก็ยกเลิกการสแกนนะครับ

ขอบคุณ .... ล่วงหน้าครับ

ไฟล์ autoscan.vbs

'
' Zero-click Scanning (after you run this)
'

NumPages = 10      ' scan upto 10 pages (you might not want this to be 1000)
TimePerScan = 5000 ' 5000 mS ie 5 seconds to change pages

Dim FSO, SH
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SH  = WScript.CreateObject("WScript.Shell")

' outdir must end with a \
outdir=SH.ExpandEnvironmentStrings("%USERPROFILE%") & "\My Documents\"
opts  ="/DPI=300 /JPG100"
prog  ="C:\Program Files\GssEzisoft\CmdTwain\CmdTwain.exe"

for page = 1 to NumPages

    ' Get a filename that doesn't already exist
    for i=1 to 10000
        fn="scan-" & right("0000" & i,4) & ".jpg"
        if not FSO.FileExists(outdir & fn) then exit for
    next

   ' Quoting allows it to contain spaces
   SH.Run """" & prog & """ " & opts & " """ & outdir & fn & """",0,true

   ' Wait for next page
   WScript.Sleep TimePerScan

next

set SH  = nothing
set FSO = nothing

------------------------------

เพิ่มเติม หน้า download เมื่อเข้าไปแล้วให้ป้อน email ระบบจะส่ง link การ download มาให้ตามรูป


หมวดหมู่บันทึก: เรื่องทั่วไป
คำสำคัญ (keywords): scan  สแกน  สคริปต์  vbs
สัญญาอนุญาต: ซีซี: แสดงที่มา-ไม่ใช้เพื่อการค้า-อนุญาตแบบเดียวกัน Cc-by-nc-sa
สร้าง: 29 มิถุนายน 2555 10:56 แก้ไข: 19 มกราคม 2560 17:26 [ แจ้งไม่เหมาะสม ]
ดอกไม้
สมาชิกที่ให้กำลังใจ: Ico24 คนธรรมดา และ Ico24 โอ๋-อโณ.
สมาชิกที่ให้กำลังใจ
 
Facebook
Twitter
Google

บันทึกอื่นๆ

ความเห็น

แชร์คนอื่น ได้บุญครับ เรื่องนี้ ผมกลับมาหา "บันทึก" นี้ เนื่องจากเปลี่ยน harddisk ไปแล้ว ขอขอบคุณ Smarn ด้วย อิ อิ

ร่วมแสดงความเห็นในหน้านี้

ชื่อ:
อีเมล:
IP แอดเดรส: 107.23.37.199
ข้อความ:  
เรียกเครื่องมือจัดการข้อความ
   
ยกเลิก หรือ