VBS操作大漠插件抓取網(wǎng)頁數(shù)據(jù)

注冊大漠插件

  1. 注冊dm.dll
  • 管理員運(yùn)行命令提示符
  • 執(zhí)行Regsvr32 d:\dmcj\dm.dll
  1. 64位系統(tǒng)修改注冊表，讓VBS能調(diào)用DMCJ
  • regedit
  • HKCR\VBSFile\Shell\Open\Command
  • 將"%SystemRoot%\System32\WScript.exe" "%1" %*
  • 修改成"%SystemRoot%\SysWow64\WScript.exe" "%1" %*
  1. 測試代碼，
    Set dm = CreateObject("dm.dmsoft")
    ver = dm.Ver()
    msgbox ver

VBS操作大漠插件抓取網(wǎng)頁數(shù)據(jù)

Set dm = CreateObject("dm.dmsoft")
dm_ret=dm.SetDict(0,"D:\DMCJ\dm_soft.txt")
'注冊dm以及字庫位置確認(rèn)
riqi = now()
Set ie=WScript.CreateObject("internetexplorer.application") 
    ie.menubar=0 '不顯示IE對象菜單欄 
    ie.AddressBar=0 '不顯示IE對象地址欄 
    ie.ToolBar=0 '不顯示IE對象工具欄 
    ie.StatusBar=0 '不顯示IE對象狀態(tài)欄 
    ie.FullScreen= 0 '全屏化IE對象 
    ie.Width=800 '設(shè)置IE對象寬度 
    ie.Height=800 '設(shè)置IE對象高度 
    ie.Resizable=0 '設(shè)置IE對象大小是否可以被改動(dòng) 
    ie.visible=1 '設(shè)置是否可見 
    ie.Navigate "192.168.0.3" '設(shè)置IE對象默認(rèn)指向的頁面
'設(shè)置打開IE，并初始化窗口參數(shù)
'綁定窗口句柄
hwnd = dm.FindWindow("","Internet")
dm_ret = dm.BindWindow(hwnd,"normal","normal","normal",0)
WScript.Sleep 200
if dm_ret<>1 then
    msgbox "窗口綁定沒成功，程序結(jié)束"
    wscript.quit
end if
'激活賬號密碼輸入框
dm.MoveTo 350,330
WScript.Sleep 200
dm.LeftClick
'輸入用戶名
WScript.Sleep 200
dm.KeyPress 49
dm.KeyPress 49
dm.KeyPress 49
dm.KeyPress 49
dm.KeyPress 49
dm.KeyPress 9
'輸入密碼
dm.KeyPress 88
dm.KeyPress 189
dm.KeyPress 65
dm.KeyPress 68
dm.KeyPress 77
dm.KeyPress 73
dm.KeyPress 78
dm.KeyPress 13
'對彈出的確認(rèn)窗口進(jìn)行操作
WScript.Sleep 200
dm.KeyPress 13
WScript.Sleep 200
dm.KeyPress 13
dm.UnBindWindow() 
WScript.Sleep 300
hwnd = dm.FindWindow("","Internet")
dm_ret = dm.BindWindow(hwnd,"normal","normal","normal",0)
'識別消耗品三個(gè)字并點(diǎn)擊
Do
    dm_ret = dm.FindStrFast(19,207,77,229,"消耗品","333333-000000",1.0,intX,intY)
    WScript.Sleep 300
Loop Until dm_ret = 0
dm.moveto intx+10,inty+10
dm.LeftClick
WScript.Sleep 1000
'識別（K）黑色
b1=dm.Ocr(293,259,373,283,"b@e3e7f1-000000",1.0)
z1=dm.Ocr(459,257,512,282,"b@e3e7f1-000000",1.0)
y1=dm.Ocr(565,263,606,278,"b@e3e7f1-000000",1.0)
'識別（C）青色
b2=dm.Ocr(292,293,372,310,"b@e3e7f1-000000",1.0)
z2=dm.Ocr(466,290,508,313,"b@e3e7f1-000000",1.0)
y2=dm.Ocr(567,287,605,316,"b@e3e7f1-000000",1.0)
'識別（M）洋紅
b3=dm.Ocr(291,325,394,344,"b@e3e7f1-000000",1.0)
z3=dm.Ocr(465,324,513,344,"b@e3e7f1-000000",1.0)
y3=dm.Ocr(560,321,607,346,"b@e3e7f1-000000",1.0)
'識別（Y）黃色
b4=dm.Ocr(292,352,385,378,"b@e3e7f1-000000",1.0)
z4=dm.Ocr(466,356,506,375,"b@e3e7f1-000000",1.0)
y4=dm.Ocr(561,352,607,378,"b@e3e7f1-000000",1.0)
'識別廢粉盒
b5=dm.Ocr(292,455,353,478,"b@e3e7f1-000000",1.0)
z5=dm.Ocr(466,454,522,479,"b@e3e7f1-000000",1.0)
'識別黑色感光鼓
b6=dm.Ocr(292,554,368,577,"b@e3e7f1-000000",1.0)
z6=dm.Ocr(469,554,517,580,"b@e3e7f1-000000",1.0)
'識別青色感光鼓
b7=dm.Ocr(292,582,374,612,"b@e3e7f1-000000",1.0)
z7=dm.Ocr(471,580,516,608,"b@e3e7f1-000000",1.0)
'識別紅色感光鼓
b8=dm.Ocr(293,614,388,640,"b@e3e7f1-000000",1.0)
z8=dm.Ocr(471,617,516,638,"b@e3e7f1-000000",1.0)
'識別黃色感光鼓
b9=dm.Ocr(294,646,367,662,"b@e3e7f1-000000",1.0)
z9=dm.Ocr(468,645,517,663,"b@e3e7f1-000000",1.0)
ie.Navigate "192.168.0.5" '設(shè)置IE對象默認(rèn)指向的頁面
Set fso=CreateObject("Scripting.FileSystemObject") 
yn=fso.FileExists("./耗材使用情況.txt")
if yn = 0 then
    set txtfile=fso.createtextfile("./耗材使用情況.txt",ture)
end if
Set txtfile=fso.opentextfile("./耗材使用情況.txt",8)
txtfile.writeline riqi&" 3375 "&b1&" 狀態(tài):"&z1&" 余量:"&y1
txtfile.writeline riqi&" 3375 "&b2&" 狀態(tài):"&z2&" 余量:"&y2
txtfile.writeline riqi&" 3375 "&b3&" 狀態(tài):"&z3&" 余量:"&y3
txtfile.writeline riqi&" 3375 "&b4&" 狀態(tài):"&z4&" 余量:"&y4
txtfile.writeline chr(10)
txtfile.writeline riqi&" 3375 "&b5&" 狀態(tài):"&z5
txtfile.writeline riqi&" 3375 "&b6&" 狀態(tài):"&z6
txtfile.writeline riqi&" 3375 "&b7&" 狀態(tài):"&z7
txtfile.writeline riqi&" 3375 "&b8&" 狀態(tài):"&z8
txtfile.writeline riqi&" 3375 "&b9&" 狀態(tài):"&z9
txtfile.writeline chr(10)
txtfile.close 
WScript.Sleep 1500
dm.KeyDown 17
WScript.Sleep 200
dm.KeyPress 87
WScript.Sleep 200
dm.KeyUp 17
WScript.Sleep 200
dm.UnBindWindow()
'綁定窗口句柄
hwnd = dm.FindWindow("","Internet")
dm_ret = dm.BindWindow(hwnd,"normal","normal","normal",0)
WScript.Sleep 200
if dm_ret<>1 then
    msgbox "窗口綁定沒成功,程序自動(dòng)結(jié)束"
    wscript.quit
end if
'激活賬號密碼輸入框
dm.MoveTo 350,330
WScript.Sleep 200
dm.LeftClick
'輸入用戶名
WScript.Sleep 200
dm.KeyPress 49
dm.KeyPress 49
dm.KeyPress 49
dm.KeyPress 49
dm.KeyPress 49
dm.KeyPress 9
'輸入密碼
dm.KeyPress 88
dm.KeyPress 189
dm.KeyPress 65
dm.KeyPress 68
dm.KeyPress 77
dm.KeyPress 73
dm.KeyPress 78
dm.KeyPress 13
'對彈出的確認(rèn)窗口進(jìn)行操作
WScript.Sleep 200
dm.KeyPress 13
WScript.Sleep 200
dm.KeyPress 13
dm.UnBindWindow() 
WScript.Sleep 300
hwnd = dm.FindWindow("","Internet")
dm_ret = dm.BindWindow(hwnd,"normal","normal","normal",0)
'識別消耗品三個(gè)字并點(diǎn)擊
Do
    dm_ret = dm.FindStrFast(19,207,77,229,"消耗品","333333-000000",1.0,intX,intY)
    WScript.Sleep 300
Loop Until dm_ret = 0
dm.moveto intx+10,inty+10
dm.LeftClick
WScript.Sleep 1000
'識別（K）黑色
b1=dm.Ocr(291,255,422,280,"b@e3e7f1-000000",1.0)
z1=dm.Ocr(478,258,643,283,"b@e3e7f1-000000",1.0)
y1=dm.Ocr(643,258,704,279,"b@e3e7f1-000000",1.0)
'識別（C）青色
b2=dm.Ocr(290,286,402,316,"b@e3e7f1-000000",1.0)
z2=dm.Ocr(492,289,636,313,"b@e3e7f1-000000",1.0)
y2=dm.Ocr(651,285,704,314,"b@e3e7f1-000000",1.0)
'識別（M）洋紅
b3=dm.Ocr(293,317,400,348,"b@e3e7f1-000000",1.0)
z3=dm.Ocr(493,318,655,346,"b@e3e7f1-000000",1.0)
y3=dm.Ocr(653,321,706,343,"b@e3e7f1-000000",1.0)
'識別（Y）黃色
b4=dm.Ocr(291,349,420,379,"b@e3e7f1-000000",1.0)
z4=dm.Ocr(504,351,642,378,"b@e3e7f1-000000",1.0)
y4=dm.Ocr(662,353,706,377,"b@e3e7f1-000000",1.0)
'識別廢粉盒
b5=dm.Ocr(292,451,388,480,"b@e3e7f1-000000",1.0)
z5=dm.Ocr(490,453,591,480,"b@e3e7f1-000000",1.0)
'識別黑色感光鼓
b6=dm.Ocr(290,553,404,584,"b@e3e7f1-000000",1.0)
z6=dm.Ocr(491,549,576,578,"b@e3e7f1-000000",1.0)
'識別青色感光鼓
b7=dm.Ocr(292,582,385,612,"b@e3e7f1-000000",1.0)
z7=dm.Ocr(487,577,594,610,"b@e3e7f1-000000",1.0)
'識別紅色感光鼓
b8=dm.Ocr(292,607,412,642,"b@e3e7f1-000000",1.0)
z8=dm.Ocr(489,611,582,640,"b@e3e7f1-000000",1.0)
'識別黃色感光鼓
b9=dm.Ocr(287,639,389,674,"b@e3e7f1-000000",1.0)
z9=dm.Ocr(486,642,581,667,"b@e3e7f1-000000",1.0)
Set txtfile=fso.opentextfile("./耗材使用情況.txt",8)
txtfile.writeline riqi&" 3373 "&b1&" 狀態(tài):"&z1&" 余量:"&y1
txtfile.writeline riqi&" 3373 "&b2&" 狀態(tài):"&z2&" 余量:"&y2
txtfile.writeline riqi&" 3373 "&b3&" 狀態(tài):"&z3&" 余量:"&y3
txtfile.writeline riqi&" 3373 "&b4&" 狀態(tài):"&z4&" 余量:"&y4
txtfile.writeline chr(10)
txtfile.writeline riqi&" 3373 "&b5&" 狀態(tài):"&z5
txtfile.writeline riqi&" 3373 "&b6&" 狀態(tài):"&z6
txtfile.writeline riqi&" 3373 "&b7&" 狀態(tài):"&z7
txtfile.writeline riqi&" 3373 "&b8&" 狀態(tài):"&z8
txtfile.writeline riqi&" 3373 "&b9&" 狀態(tài):"&z9
txtfile.writeline chr(10)
txtfile.close 
dm.KeyDown 17
WScript.Sleep 200
dm.KeyPress 87
WScript.Sleep 200
dm.KeyUp 17
WScript.Sleep 200
dm.UnBindWindow()
msgbox "程序運(yùn)行結(jié)束"
wscript.quit
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請結(jié)合常識與多方信息審慎甄別。
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡書系信息發(fā)布平臺，僅提供信息存儲(chǔ)服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容