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

djy3180 · 发表于 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

脚本运行结束

xiewei131 · 发表于 2018-8-21 18:27:04

piaoguo wewwwwwwww

		自动登录	找回密码
密码			立即注册

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

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

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