按键精灵开发认证题目

在编辑器中可以使用哪个功能设置自定义关键的提示和突出颜色显示?2时间类型的数据中可以取出多少种信息?3使用哪条命令可以通过返回数字判断变量的数据类型?4使用Msgbox命... 在编辑器中可以使用哪个功能设置自定义关键的提示和突出颜色显示?
2时间类型的数据中可以取出多少种信息?
3使用哪条命令可以通过返回数字判断变量的数据类型?
4使用 Msgbox 命令可以弹出对话框,并自定很多样式,他的第三个参数表示?
5将字符串强制转换为长整型数字应该使用哪条命令?
6下列哪一个自定义标识符命名是不合法的?
7FindPic 命令查找 100x100 大小的图片,精确度指定为0.8,则最少成功匹配多少点才算找图成功?
8哪个运算符可以实现多个逻辑全部为真时返回真?
9在脚本开头中加入代码 Msgbox Ture ,弹出的值为?
10以下哪一种循环语句写法被称为“死循环”?
11下列计算式中哪一个可以正确实现返回整数的除法运算?
13部分结构化语句支持在执行的过程中跳出,这一操作使用哪一个前缀的代码进行?
14使用按键抓抓工具不能正常获取到屏幕颜色时,可以尝试勾选哪个选项?
15对代码执行流程发晕,可以使用哪项功能帮助阅读代码?
16FindColorEx 命令查找类型设置为1时,与下列哪条命令的功能是相同的?
17使用按键抓抓工具不能正常获取到屏幕颜色时,可以尝试勾选哪个选项?
18使用VarType命令判断一个数据,返回值为0说明这个数据?
这是按键精灵开发认证考题 答了很多遍还是不知道 会的大神 请回答下 谢谢 (别告诉我错的)
展开
 我来答
山水阿锐
2015-06-07 · TA获得超过34.3万个赞
知道顶级答主
回答量:23.7万
采纳率:91%
帮助的人:3.2亿
展开全部
//写一个脚本,在画图工具中画圆半径不小于100,而后在圈内画正方形四角必须与圈重合。
//提示:推荐使用Bkgnd命令来键鼠操作。(可选)
Dim Hwnd, Hwnd2, Hwnd3
Dim x, y, x0, y0, l, n, r
Dim v, i, j, k

SetSimMode 1

Call RunApp("mspaint.exe")
Delay 1000

//查找子窗口句柄
Hwnd = Plugin.Window.Find("MSPaintApp", 0)
Hwnd2 = Plugin.Window.FindEx(Hwnd,0,"AfxFrameOrView42u", 0)
Hwnd3 = Plugin.Window.FindEx(Hwnd2,0,"Afx:1000000:8", 0)

//-----------------------------------------画圆
//设置圆心坐标
x0=110:y0=110
//设置点间距
l=5
//初始化角度
n=0
//设置第一圈半径
r=100

While n < 3.1415926 * 2
x=x0+r*cos(n)
y = y0 - r * sin(n)

Plugin.Bkgnd.Moveto Hwnd3, x, y
Plugin.Bkgnd.LeftDown Hwnd3, x, y

Delay 5

// l/r:点距除以半径,取得2点间相对圆心的角度
n = n + l / r

Wend

Call Plugin.Bkgnd.LeftUp(Hwnd3, x, y)

//-----------------------------------------画正方形
//根据圆心和边长,计算正方形的4个角,根号2取1.41421356
l = 100 / 1.41421356
x = 110 - l '横左
y = 110 - l '纵坐标上
x0 = 110 + l '横右
y0 = 110 + l '纵坐标下

'横线上
For i = x to x0
Plugin.Bkgnd.Moveto Hwnd3, i, y
Plugin.Bkgnd.LeftDown Hwnd3, i, y
i = i + 2
Next
Call Plugin.Bkgnd.LeftUp(Hwnd3, i, y)

//2013-8-16补充,因为是直线,直接给出开始坐标和结束坐标就好,不需要循环... ... 如下:
Plugin.Bkgnd.Moveto Hwnd3, x, y
Plugin.Bkgnd.LeftDown Hwnd3, x, y
Plugin.Bkgnd.Moveto Hwnd3, x, y0
Plugin.Bkgnd.LeftUp(Hwnd3,x , y0)

//省略部分,同上
EndScript

4、利用 ShowScrTXT 命令制作一个放大镜,效果类似抓抓工具的放大镜,可以放大显示鼠标指向的5*5区域的颜色.请写出代码
[vb] view plaincopyprint?
Dim x, y, x1, x2, y1, y2, st_x, st_y
Dim scr_x1, scr_y1, scr_x2, scr_y2

MessageBox "【确定】后开始运行放大镜,【F12】键退出。"

While True
Call FDJ()
Delay 10
Wend

//放大镜函数
Function FDJ()
//放大镜的起点坐标
st_x = 0
st_y = 0

//获取鼠标的坐标
GetCursorPos x, y

//计算5*5区域范围
x1 = x - 2
x2 = x + 2
y1 = y - 2
y2 = y + 2

//获取并输出5*5区域内所有颜色
For a = x1 To x2
For b = y1 To y2
RtColor = Plugin.Color.GetPixelColor(a, b, 1)
//其中:4 - x2 + a = 5 - (x2 - a + 1),以下同理
scr_x1 = st_x + (4 - x2 + a) * 6
scr_y1 = st_y + (4 - y2 + b) * 6
scr_x2 = scr_x1 + 6
scr_y2 = scr_y1 + 6
Call Plugin.Msg.ShowScrTXT(scr_x1, scr_y1, scr_x2, scr_y2, "█", RtColor)
Next
Next
End Function
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式