4題是抄的，只是為了過(guò)級(jí)。最后得93分，可能代碼還是不夠最優(yōu)，有看出的大大希望能不吝指點(diǎn)。

1、寫(xiě)一個(gè)腳本，要求啟動(dòng)時(shí)，記錄（錄制）當(dāng)前鼠標(biāo)的移動(dòng)軌跡，記錄結(jié)束時(shí)，執(zhí)行反相操作，注意操作速度不可偏差過(guò)大。

//就是循環(huán)記錄鼠標(biāo)位置再移動(dòng)的過(guò)程，代碼略
2、請(qǐng)?zhí)峁┲辽賰煞N判斷程序卡死(無(wú)響應(yīng))的思路,請(qǐng)寫(xiě)出關(guān)鍵代碼.請(qǐng)寫(xiě)出代碼 //1 顏色判斷，目標(biāo)程序中經(jīng)常變動(dòng)的2個(gè)點(diǎn)顏色，如果在一定的時(shí)間內(nèi)沒(méi)有變化，說(shuō)明程序卡死/*---------------------------------------------------------------------------------------*/ MessageBox "以下是第一種判斷方式，顏色判斷" & vbcrlf & vbcrlf _ & "為了正常結(jié)束腳本，請(qǐng)不要在運(yùn)行期間手動(dòng)操作" & vbcrlf & vbcrlf _ & "點(diǎn)擊確定繼續(xù)。" /*---------------------------------------------------------------------------------------*/Dim err err = true counts=0'回到桌面 KeyDown "Win", 1 KeyPress "D", 1 KeyUp "Win", 1While errIfColor 450,200,"ffffff",1 Then counts = counts + 1 End IfIfColor 250,260,"ffffff",1 Then counts = counts + 1 End If'多次驗(yàn)證防止誤判If counts > 5 Then err = FalseMessageBox Hwnd & " 檢測(cè)到已經(jīng)卡死，點(diǎn)擊確定繼續(xù)。"End IfDelay 500Wend/*------------------------------------------------------------------------------------------------------*/ MessageBox "以下是第二種判斷方式，API檢測(cè)目標(biāo)程序是否掛起" & vbcrlf & "點(diǎn)擊確定繼續(xù)。" /*------------------------------------------------------------------------------------------------------*///2 API看目標(biāo)程序是否掛起Private Declare Function IsHungAppWindow Lib "user32.dll" (ByVal hwnd As Long) As LongDim HwndHwnd = Plugin.Window.MousePoint()If IsHungAppWindow(Hwnd) = 0 Then '0正常；1無(wú)響應(yīng)MessageBox Hwnd & " 正常，點(diǎn)擊確定退出腳本。"Else MessageBox Hwnd & " 卡死(無(wú)響應(yīng))，點(diǎn)擊確定退出腳本。"'相關(guān)處理代碼End IfEndScript
?3、寫(xiě)一個(gè)腳本，在畫(huà)圖工具中畫(huà)圓半徑不小于100，而后在圈內(nèi)畫(huà)正方形四角必須與圈重合。
提示：推薦使用Bkgnd命令來(lái)鍵鼠操作。（可選） //寫(xiě)一個(gè)腳本，在畫(huà)圖工具中畫(huà)圓半徑不小于100，而后在圈內(nèi)畫(huà)正方形四角必須與圈重合。 //提示：推薦使用Bkgnd命令來(lái)鍵鼠操作。（可選） Dim Hwnd, Hwnd2, Hwnd3 Dim x, y, x0, y0, l, n, r Dim v, i, j, kSetSimMode 1Call 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)//-----------------------------------------畫(huà)圓 //設(shè)置圓心坐標(biāo) x0=110:y0=110 //設(shè)置點(diǎn)間距 l=5 //初始化角度 n=0 //設(shè)置第一圈半徑 r=100While n < 3.1415926 * 2 x=x0+r*cos(n)y = y0 - r * sin(n)Plugin.Bkgnd.Moveto Hwnd3, x, yPlugin.Bkgnd.LeftDown Hwnd3, x, yDelay 5// l/r：點(diǎn)距除以半徑，取得2點(diǎn)間相對(duì)圓心的角度n = n + l / rWendCall Plugin.Bkgnd.LeftUp(Hwnd3, x, y)//-----------------------------------------畫(huà)正方形 //根據(jù)圓心和邊長(zhǎng)，計(jì)算正方形的4個(gè)角，根號(hào)2取1.41421356 l = 100 / 1.41421356 x = 110 - l '橫左 y = 110 - l '縱坐標(biāo)上 x0 = 110 + l '橫右 y0 = 110 + l '縱坐標(biāo)下'橫線上 For i = x to x0Plugin.Bkgnd.Moveto Hwnd3, i, yPlugin.Bkgnd.LeftDown Hwnd3, i, yi = i + 2 NextCall Plugin.Bkgnd.LeftUp(Hwnd3, i, y)//2013-8-16補(bǔ)充，因?yàn)槭侵本€，直接給出開(kāi)始坐標(biāo)和結(jié)束坐標(biāo)就好，不需要循環(huán)... ... 如下： 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 命令制作一個(gè)放大鏡,效果類似抓抓工具的放大鏡,可以放大顯示鼠標(biāo)指向的5*5區(qū)域的顏色.請(qǐng)寫(xiě)出代碼 Dim x, y, x1, x2, y1, y2, st_x, st_y Dim scr_x1, scr_y1, scr_x2, scr_y2MessageBox "【確定】后開(kāi)始運(yùn)行放大鏡，【F12】鍵退出。"While TrueCall FDJ()Delay 10 Wend//放大鏡函數(shù) Function FDJ()//放大鏡的起點(diǎn)坐標(biāo)st_x = 0st_y = 0//獲取鼠標(biāo)的坐標(biāo)GetCursorPos x, y//計(jì)算5*5區(qū)域范圍x1 = x - 2x2 = x + 2y1 = y - 2y2 = y + 2//獲取并輸出5*5區(qū)域內(nèi)所有顏色For a = x1 To x2For b = y1 To y2RtColor = Plugin.Color.GetPixelColor(a, b, 1)//其中：4 - x2 + a = 5 - (x2 - a + 1)，以下同理scr_x1 = st_x + (4 - x2 + a) * 6scr_y1 = st_y + (4 - y2 + b) * 6scr_x2 = scr_x1 + 6scr_y2 = scr_y1 + 6Call Plugin.Msg.ShowScrTXT(scr_x1, scr_y1, scr_x2, scr_y2, "█", RtColor)NextNext End Function

5、篩選出100以內(nèi)所有個(gè)位數(shù)加十位數(shù)等于10的數(shù),例如82,8+2=10滿足條件,請(qǐng)寫(xiě)出代碼

//代碼略

總結(jié)

以上是生活随笔為你收集整理的按键精灵的5级开发认证，笔试题参考的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。