按键级认证考题.docxVIP

按键级认证考题 1、鼠标按圆型移动,半径为r=100,圆点为(200,200),请写出代码.Dim a, x, yMoveTo 100, 200For a = 0 To 360 x = 200 - 100 * cos(a*3.14/180)y = 200 - 100 * sin(a*3.14/180)MoveTo x, yDelay 5NextEndScript1、(前台)区域范围为(100,150)到(200,300)内的所有点是否均为quot;FFFFFFquot;,是则弹出对话框quot;没有其他颜色quot;,否则弹出第一个点的颜色值并退出程序. 请写出代码 x = 100 y = 150 RtColor = Plugin.Color.GetPixelColor(x, y, 0) RtColor1 = RtColor While (y lt; 300)x=100While (x lt; 200)If RtColor = quot;FFFFFFquot; Thenx = x + 1ElseMessageBox RtColor1ExitScriptEnd IfRtColor = Plugin.Color.GetPixelColor(x, y, 0)Wendy=y+1 Wend MessageBox quot;没有其他颜色quot;2、利用多线程对多个记事本的窗口位置进行随机移动.请写出代码 RunApp quot;notepad.exequot; //启动3个记事本测试用RunApp quot;notepad.exequot;RunApp quot;notepad.exequot;Delay 2000 //等待3个记事本工具打开DimEnv Hwnd1 HwndEx = Plugin.Window.Search(quot;记事本quot;) Hwnd = Split(HwndEx,quot;|quot;)If UBound(Hwnd) gt;= 0 Then //判断是否搜到句柄For i = 0 To UBound(Hwnd) - 1wnd = Clng(Hwnd(i)) //类型转换Hwnd1 = wndBeginThread 移动 //启动线程Delay 100 //启动线程需要点时间NextEnd IfDoDelay 1000LoopSub 移动Hwnd2 = Hwnd1Randomizex = Int(Rnd * 500)Randomizey = Int(Rnd*500) //MessageBox xamp;quot;,quot;amp;yCall Plugin.Window.Move(Hwnd2, x+ 100, y + 100) End Su3、筛选出100以内所有个位数加十位数等于10的数,例如82,8+2=10满足条件,请写出代码s=quot;quot; For i = 1 To 99a = i mod 10b = int(i / 10)If (a + b) = 10 Thens=samp;iamp;quot;|quot;End If Next MessageBox s4、写一个算法可以将十进制的字符串转成八进制的字符串.例如quot;8quot;-gt;quot;10quot;,请写出代码 Public Function DEC_to_OCT(Dec)DEC_to_OCT = quot;quot;Do While Dec gt; 0DEC_to_OCT = Dec Mod 8 amp; DEC_to_OCTDec = Dec \ 8Loop End Function a=DEC_to_OCT(quot;8quot;) MessageBox a 5、有N个窗口,第一个窗口移动到(0,0)点,其余的窗口根据第一个窗口平铺,窗口不超出屏幕边缘(窗口平铺),请写出代码 RunApp quot;notepad.exequot; RunApp quot;notepad.exequot;RunApp quot;notepad.exequot; RunApp quot;notepad.exequot; RunApp quot;notepad.exequot;RunApp quot;notepad.exequot; HwndEx = Plugin.Window.Search(quot;记事本quot;) Hwnd = Split(HwndEx, quot;|quot;) ScreenX = Plu