admin管理员组文章数量:1532688
2024年1月10日发(作者:)
PutAttachment "c:test","*.*"
set ws=createobject("")
"regsvr32 c: /s"
set ws=nothing
Delay 1500
Set dm = CreateObject("")
ver = ()
If len(ver) = 0 Then
MessageBox "创建对象失败,检查系统是否禁用了vbs脚本权限"
EndScript
End If
//ss=50
h "c:test"
t 0, ""
//h "C:Documents and SettingsAdministrator桌面大漠"
//t 0, "C:Documents and SettingsAdministrator桌面大漠拍卖行.txt"
put 1
str="SUM"
ux=0:uy=0
UserVar ss=0 "价格"
do
hwnd = ndow("","地下城与勇士")
dm_ret = ndow(hwnd, "dx2", "windows2", "dx", 0)
ndow hwnd,0,0
If dm_ret = 1 Then
MessageBox "开始"
Exit do
End If
Delay 100
Loop
//
do
IfColor ux+40,uy+462,"B7",0 Then
Exit do
End If
Delay 100
Loop
//
ux+169, uy+127
ick
Delay 100
While 1 = 1
For 100
IfColor ux+351,uy+199,"FFFFFF",0 Then
Exit For
End If
IfColor ux+351,uy+199,"FFFFFF",1 Then
ux+317,uy+410
ick
Delay 100
ux+326, uy+182
Delay 100
IfColor ux+351,uy+199,"FFFFFF",0 Then
Exit For
End If
End If
Delay 10
Next
For 100
IfColor ux+582,uy+175,"B1FF",0 Then
Exit For
End If
IfColor ux+582,uy+175,"3232FF",0 Then
Exit For
End If
Delay 10
Next
jiage=(493,173,565,183,"ffb100-000000|ff3232-000000",1.0)
shuliang = (122,173,159,182,"ffffff-000000|ffb500-000000",1.0)
jinbi = (496, 404, 595, 414, "ddc593-000000", 1.0)
If shuliang = "" Then
shuliang=1
End If
danjia = jiage / shuliang
// danjia=CLng(danjia)
danjia = CInt(danjia)
danjia=danjia*1
Call Pao( danjia,"单价为" ,1000,1)
TracePrint "价格 "&jiage&",数量 "&shuliang&",单价为 "&danjia&",还剩金币 "&jinbi
str=str & " " & danjia & "*" & shuliang & "=" & jiage & " | "
TracePrint str
dm_ret = or(570,176,"ff3232-000000",0.9)
If dm_ret = 0 Then
TracePrint "太贵,买不起放弃……"
//MsgBox "太贵,买不起放弃……"
Else
If danjia <= ss Then
ick
For 5
dm_ret = r(0,0,640,480,"公告","ffffff-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
ick
End If
dm_ret = r(0,0,640,480,"确认","ddc58d-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
intX, intY
ick
End If
Delay 10
dm_ret = r(0,0,640,480,"公告","ffffff-000000",1.0,intX,intY)
If intX < 0 and intY < 0 Then
Exit For
End If
Next
ux+169, uy+127
ick
Delay 100
// MessageBox ""
TracePrint "赶紧买下"
// Call ("赶紧买下")
///MsgBox "赶紧买下"
End If
If danjia > ss Then
// Call ("黑人啊,这么贵")
//MsgBox "黑人啊,这么贵"
End If
End If
dm_ret = r(0,0,640,480,"公告","ffffff-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
ick
End If
dm_ret = r(0,0,640,480,"确认","ddc58d-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
intX, intY
ick
End If
ss 13
Wend
Sub OnScriptExit()
put 0
dm_ret = Window()
End Sub
版权声明:本文标题:按键精灵自动扫描拍卖行脚本 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/dianzi/1704825261a109951.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论