练习 暴爽坦克坐标输入脚本

djy3180

//变量定义区

Dim 输入框特征码()



//变量赋值区

输入框特征码 = Array("492|12|0B7DF2,543|12|279BFB,494|450|0C7EF2,546|450|279BFB")
//@随机数初始化
Randomize




输入列坐标 110

输入行坐标 119
'单击搜索图标
鼠标_单击 915,483,17,29,1000





'在指定范围内随机点击鼠标单击间隔也随机
'参数：
'     @横坐标最小位置
'     @纵坐标最小位置
'     @单击范围的宽度
'     @单击范围的高度
'     @单击延时，最小时间150毫秒，内定

Sub 鼠标_单击(x, y, w, h, t)
    Dim RouX,RouY,e
    RouX=Int((x+w - x + 1) * Rnd() + x)
    RouY = Int((y + h - y + 1) * Rnd() + y)
    TracePrint "当前X：" & RouX & ",当前Y：" & RouY
    Tap RouX,RouY
    e = Int((t - 150 + 1) * Rnd() + 150)
    TracePrint "延时时间为：" & e
    Delay e
End Sub
'横坐标输入框的操作过程
'参数：
'     @第几列   
Sub 输入列坐标(第几列)
    '单击X输入框
    鼠标_单击 896, 278, 29, 52, 1000
    if 等待输入框出现() Then
        删除内容
        键盘_模拟按键 第几列
    End If
End Sub
'纵坐标输入框的操作过程
'参数：
'     @第几行
Sub 输入行坐标(第几行)
    鼠标_单击 894, 373, 24, 49, 1000
    等待输入框出现
    删除内容
    键盘_模拟按键 第几行
End Sub
'把输入的字符串一个一个地按键
'参数：
'     @输入的数字 整数型
Sub 键盘_模拟按键(输入数字)
    //txt:文本，n:文本长度,Value: 键名
    Dim txt,n,Value
    //把传入的数字转换成文本
    txt = CStr(输入数字)
    //计算文本有几个字组成
    //如果n=3，分割文本3次
    //第一次，从第一个字符开始，分割1个字
    //然后按键
    n = Len(txt)
    Select Case n
    Case 3
        Value = Mid(txt, 1, 1)
        击键 Value,500,150
        Value = Mid(txt, 2, 1)
        击键 Value,500,150
        Value = Mid(txt, 3, 1)
        击键 Value,500,150
    Case 2
        Value = Mid(txt, 1, 1)
        击键 Value,500,150
        Value = Mid(txt, 2, 1)
        击键 Value,500,150
    Case Else
        Value = txt
        击键 Value,500,150
    End Select
    //模拟回车确认
    鼠标_单击 498,479,36,38,1000
End Sub

'模拟键盘按键
' 键名
'MaxDelay 最大延时时间
'MinDelay 最小延时时间
Sub 击键(键名,MaxDelay,MinDelay)
    Dim DelayTime
    DelayTime = Int((MaxDelay - MinDelay + 1) * Rnd() + MinDelay)
    TracePrint "击键延时长是：" & DelayTime & ": 键名" & 键名
    KeyPress 键名
    Delay DelayTime       
End Sub


Function 输入框是否出现(特征码)
        输入框是否出现 = False
        If CmpColorEx(特征码, 0.9) = 1 Then
        输入框是否出现 = True
        End If
End Function

Function  等待输入框出现()
dim DelayTime       
        DelayTime = TickCount()
       
        Do
                If 输入框是否出现(输入框特征码(0)) Then
                        等待输入框出现 = True
                        Exit Do
                Else
                If TickCount() - DelayTime > 5000 Then
                        等待输入框出现 = False
                        Exit Do
                End If
                End If
                Delay 100
        Loop
End Function

Sub 删除内容()
        击键 ("Del",500,150)
        击键 ("Del",500,150)
        击键 ("Del",500,150)
End Sub
——————————————————————————————————————————————————————————————————————
您的脚本在运行过程中产生如下信息：
当前脚本第38行：当前X：914,当前Y：328
当前脚本第41行：延时时间为：480

当前脚本第105行：击键延时长是：354: 键名Del

当前脚本第105行：击键延时长是：316: 键名Del

当前脚本第105行：击键延时长是：463: 键名Del

当前脚本第105行：击键延时长是：308: 键名1

当前脚本第105行：击键延时长是：280: 键名1

当前脚本第105行：击键延时长是：196: 键名0

当前脚本第38行：当前X：520,当前Y：516

当前脚本第41行：延时时间为：479

当前脚本第38行：当前X：897,当前Y：404

当前脚本第41行：延时时间为：524

当前脚本第105行：击键延时长是：174: 键名Del

当前脚本第105行：击键延时长是：183: 键名Del

当前脚本第105行：击键延时长是：425: 键名Del

当前脚本第105行：击键延时长是：495: 键名1

当前脚本第105行：击键延时长是：206: 键名1

当前脚本第105行：击键延时长是：257: 键名9

当前脚本第38行：当前X：526,当前Y：487

当前脚本第41行：延时时间为：405

当前脚本第38行：当前X：932,当前Y：504

当前脚本第41行：延时时间为：326

脚本运行结束

xiewei131

piaoguo wewwwwwwww