• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.6.0
软件大小:29.2M
更新时间:07-29

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已回复] 刚考五级交卷了,好累。里面是试卷,请进 [复制链接]

1#
为了安全起见,这里再交一次卷
///-----------///////5级//////-----------//
//
//1,写一个脚本,在画图工具中画圆半径不小于100,而后在圈内画正方形四角必须与圈重合。
//提示:推荐使用Bkgnd命令来键鼠操作。不得使用画图中自带的绘制工具进行绘制
RunApp "mspaint.exe"
Delay 1500
Hwnd = Plugin.Window.Find(0, "无标题 - 画图")
HwndEx = Plugin.Window.FindEx(Hwnd, 0, "MSPaintView", 0)
HwndEx1 = Plugin.Window.FindEx(HwndEx, 0, 0, 0)
Call Plugin.Window.Max(Hwnd)
sRect = Plugin.Window.GetClientRect(HwndEx1)
dim MyArray
MyArray = Split(sRect, "|")
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)): B = Clng(MyArray(3))
Msgbox "左" & L & ",右 " & R & ",上" & T & ",下" & B
x = L + 300
y = T + 100
起始位置
r = 100
半径
buchang = 1
步长调整
Delay 500
While n<3.14159265*2
x1 = x + r * cos(n)
y1 = y - r * sin(n)
Call Plugin.Bkgnd.MoveTo(HwndEx1, x1, y1)
Call Plugin.Bkgnd.LeftDown(HwndEx1, x1, y1)
n = n + buchang / r
Wend
Call Plugin.Bkgnd.LeftUp(HwndEx1, x1, y1)
fyx = x1
fyy = y1
fsx = x1-r
fsy = y1 - r
fdx = x1-r * 2
fdy = y1
fxx = x1 - r
fxy = y1 + r
方块四个点
Call Plugin.Bkgnd.LeftDown(HwndEx1, fyx, fyy)
Call Plugin.Bkgnd.MoveTo(HwndEx1, fsx, fsy)
Call Plugin.Bkgnd.MoveTo(HwndEx1, fdx, fdy)
Call Plugin.Bkgnd.MoveTo(HwndEx1, fxx, fxy)
Call Plugin.Bkgnd.MoveTo(HwndEx1, fyx, fyy)
Call Plugin.Bkgnd.LeftUp(HwndEx1, fyx, fyy)
//win10环境下正常运行
//2,写一个脚本,要求生成一个动态数组,最大下标数为5~10,每个元素值范围是100以内随机偶数,计算返回值为数组类型,数组元素排列顺序从大到小。
//提示:For循环与Rnd函数的应用。
MessageBox 一百以内五到十个动态
Function 一百以内五到十个动态
Do
For i = 0 To 9
Randomize
a = int(rnd * 99 + 1)
If a mod 2 = 0 Then
//偶数
c=c&(a)&","
End If
Next
c1 = split(c, ",")
a1=ubound(c1)
If a1 >= 5 Then
For l = 0 To ubound(c1)-1
k=l
For j = l+1 To ubound(c1)
If c1(k) < c1(j) Then k=j
Next
t = c1(l)
c1(l) = c1(k)
c1(k) = t
排序=排序&c1(l)&","
Next
一百以内五到十个动态=排序
Exit Do
Else
c=""
End If
Loop
End Function
//3,有两个txt文本文件,一行内容代表一个数据,将两个文件合并为一个,同时去掉所有重复的行。
Text1 = Plugin.File.ReadFileEx("d:\txt1.txt")
Delay 100
Text2 = Plugin.File.ReadFileEx("d:\txt2.txt")
Delay 100
tet = Text1 + Text2
tete = split(tet, "|")
xb=ubound(tete)
For i = 0 To xb - 1
For j = i+1 To xb
If tete(i) = tete(j) Then
For k = j To xb - 1
tete(k) = tete(k + 1)
Next
Redim Preserve tete(xb - 1)
xb=xb-1
End If
Next
Next
For Each a In tete
TracePrint a
c=c&a&vbcrlf
Next
Call Plugin.File.WriteFileEx("d:\txt3.txt", c)
Delay 300
RunApp "d:\txt3.txt"
//4,写一个函数,要求:返回一个数值范围内所有偶数之和。
//参数1、参数2:整数型,数字
//提示:For循环与VBS命令函数应用
MessageBox 范围内所有偶数之和(20, 100)
Function 范围内所有偶数之和(起始数, 最大数)
For i = 起始数 To 最大数
If i mod 2 = 0 Then
// c=c&i&","
c=c+i
End If
Next
范围内所有偶数之和 = c
End Function
//5,写一个子程序,可以使鼠标从当前的坐标逐点的移动到目的坐标(带轨迹的鼠标移动),请写出代码
//(要求:轨迹为一条直线)
Call 轨迹的鼠标移动(444, 222)
Sub 轨迹的鼠标移动(终点x, 终点y)
GetCursorPos x, y
If abs(x - 终点x) > abs(y - 终点y) Then
a = abs(x - 终点x)
Else
a = abs(y - 终点y)
End If
ax = (终点x - x) / a
ay = (终点y - y) / a
While x <> 终点x and y <>终点y
x = x + ax
y = y + ay
MoveTo x , y
Delay 20
Wend
End Sub

2#

新手学的累,我爱考试啊,有目标可以学着玩,写着玩,还可以装逼嘿嘿
沙发我要了

3#

这里交卷好像没用的吧?


以建会友,共同学习,共同进步。

4#

这里只是交流讨论的地方呢~不是导师评卷的地方哦。 加油~

5#

好强大的新手啊

6#


7#

ddddddddddddddddddddd

8#

版主说,等会来查水表。

---------------------5年多的编程经验,专业定制pc、安卓、模拟器脚本。
-
---------------------经济实惠有偿解决按键精灵基础问题。
-
---------------------联系QQ:3277595608
9#

看看

10#

顶一下版主。六六六。

发新话题 回复该主题