按键精灵自动扫描拍卖行脚本.doc

PutAttachment c:test,*.*set ws=createobject(Wscript.Shell)ws.run regsvr32 c:testdm.dll /sset ws=nothingDelay 1500Set dm = CreateObject(dm.dmsoft)ver = dm.Ver()If len(ver) = 0 ThenMessageBox 创建对象失败,检查系统是否禁用了vbs脚本权限EndScriptEnd If/ss=50dm.SetPath c:testdm.SetDict 0, dnfsz.txt/dm.setpath C:Documents and SettingsAdministrator桌面大漠/dm.setdict 0, C:Documents and SettingsAdministrator桌面大漠拍卖行.txtdm.LockInput 1str=SUMux=0:uy=0UserVar ss=0 价格dohwnd = dm.FindWindow(,地下城与勇士)dm_ret = dm.BindWindow(hwnd, dx2, windows2, dx, 0)dm.MoveWindow hwnd,0,0If dm_ret = 1 ThenMessageBox 开始Exit doEnd IfDelay 100Loop/doIfColor ux+40,uy+462,B7,0 ThenExit doEnd IfDelay 100Loop/dm.MoveTo ux+169, uy+127dm.LeftClickDelay 100While 1 = 1For 100IfColor ux+351,uy+199,FFFFFF,0 ThenExit ForEnd IfIfColor ux+351,uy+199,FFFFFF,1 Thendm.MoveTo ux+317,uy+410dm.LeftClickDelay 100dm.MoveTo ux+326, uy+182Delay 100IfColor ux+351,uy+199,FFFFFF,0 ThenExit ForEnd IfEnd IfDelay 10NextFor 100IfColor ux+582,uy+175,B1FF,0 ThenExit ForEnd IfIfColor ux+582,uy+175,3232FF,0 ThenExit ForEnd IfDelay 10Nextjiage=dm.Ocr(493,173,565,183,ffb100-000000|ff3232-000000,1.0)shuliang = dm.Ocr(122,173,159,182,ffffff-000000|ffb500-000000,1.0)jinbi = dm.Ocr(496, 404, 595, 414, ddc593-000000, 1.0)If shuliang = Thenshuliang=1End Ifdanjia = jiage / shuliang/ danjia=CLng(danjia)danjia = CInt(danjia)danjia=danjia*1Call Plugin.QP.ShowQiPao( danjia,单价为 ,1000,1)TracePrint 价格 &jiage&,数量 &shuliang&,单价为 &danjia&,还剩金币 &jinbistr=str & & danjia & * & shuliang & = & jiage & | TracePrint strdm_ret = dm.CmpColor(570,176,ff3232-000000,0.9)If dm_ret = 0 ThenTracePrint 太贵，买不起放弃/MsgBox 太贵，买不起放弃ElseIf danjia = 0 and intY = 0 Thendm.LeftClickEnd Ifdm_ret = dm.FindStr(0,0,640,480,确认,ddc58d-000000,1.0,intX,intY)If intX = 0 and intY = 0 Thendm.MoveTo intX, intYdm.LeftClickEnd IfDelay 10dm_ret = dm.FindStr(0,0,640,480,公告,ffffff-000000,1.0,intX,intY)If intX 0 and intY ss Then/ Call Plugin.Msg.Tips(黑人啊，这么贵)/MsgBox 黑人啊，这么贵End IfEnd Ifdm_ret = dm.FindStr(0,0,640,480,公告,ffffff-000000,1.0,intX,intY)If intX = 0 and intY = 0 Thendm.LeftClickEnd Ifdm_ret = dm.FindStr(0,0,640,480,确认,ddc58d-000000,1.0,intX,intY)If intX = 0 and intY = 0 Thendm.Move