找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1622|回复: 1

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

[复制链接]

1

主题

3

回帖

5

积分

按键手机班学员

鲜花
0
猫粮
81
发表于 2018-7-9 01:59:04 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
//变量定义区

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

脚本运行结束


2

主题

13

回帖

17

积分

学前班

鲜花
0
猫粮
9
发表于 2018-8-21 18:27:04 | 显示全部楼层
piaoguo wewwwwwwww
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学园

GMT+8, 2024-3-29 04:58

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表