按键精灵5级试题及答案 按键精灵5.docx

本文格式为Word版，下载可任意编辑按键精灵5级试题及答案 按键精灵5 按键精灵5级试题及答案 按键精灵5 1、写一个脚本，在画图工具中画圆半径不小于100，而后在圈内画正方形四角务必与圈重合 提醒：推荐使用Bkgnd命令来键鼠操作可选) //测试操作系统windows 8.1 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, MSPaintView , 0) Hwnd3 = Plugin.Window.FindEx(Hwnd2, 0, Afx:cf0000:8 , 0) TracePrint Hwnd , Hwnd2 , Hwnd3 //-----------------------------------------画圆 //设置圆心坐标 x0=110:y0=110 //设置点间距 l=5 //初始化角度 n=0 //设置第一圈半径 r=100 While n x2 or y y2 Then Do While true Get(转 载 于:wWW.zw2.Cn :按键精灵5级试题及答案 按键精灵5)CursorPos x, y TracePrint x | y TracePrint x2 | y2 GetCursorPos x2, y2 If x x2 or y y2 Then t1=time x1 = x y1 = y Else t2 = time If DateDiff( s , t1, t2) > 2 Then exit for End If End If loop End If next dx =x2-x1 dy = y2 - y1 ScreenW = Plugin.Sys.GetScRX() ScreenH = Plugin.Sys.GetScRY() i=0 Do While true x=x2 + dx*i y = y2 + dy * i If x = ScreenW Then x = ScreenW i = (ScreenW - x2) / dx y = y2 + dy * (ScreenW - x2) / dx Exit Do End If If — 3 —。