按键精灵5级考题及答案

//ÀûÓÃShowScrTXTÃüÁîÖÆ×÷Ò»¸ö·Å´ó¾µ,Ч¹ûÀàËÆ×¥×¥¹¤¾ßµÄ·Å´ó¾µ,¿ÉÒÔ·Å´óÏÔʾÊó±êÖ¸ÏòµÄ5*5ÇøÓòµÄÑÕÉ«.Çëд³ö´úÂë//·Å´ó·¶Î§5*5WhileTrueCallFDJ()Delay5Wend//·Å´ó¾µº¯ÊýFunctionFDJ()//·Å´ó¾µµÄÆðµã×ø±êst_x=10st_y=10//»ñÈ¡Êó±êµÄ×ø±êGetCursorPosx,y//¼ÆËã5*5ÇøÓò·¶Î§x1=x-2x2=x+2y1=y-2y2=y+2//»ñÈ¡²¢Êä³ö5*5ÇøÓòÄÚËùÓÐÑÕÉ«Fora=x1Tox2Forb=y1Toy2RtColor=Plugin.Color.GetPixelColor(a,b,1)//ÆäÖУº4-x2+a=5-(x2-a+1)£¬ÒÔÏÂͬÀíscr_x1=st_x+(14-x2+a)*16scr_y1=st_y+(14-y2+b)*16scr_x2=scr_x1+16scr_y2=scr_y1+16CallPlugin.Msg.ShowScrTXT(scr_x1,scr_y1,scr_x2,scr_y2,"¨€",RtColor)NextNextEndFunction//¡¢(API)ÀûÓÃSendMessageº¯ÊýÏòQQ¶Ô»°´°¿Ú·¢ËÍÎı¾ÀïµÄËùÓÐÄÚÈÝ(QQÏûÏ¢·¢ËÍÆ÷),Çëд³ö´úÂë//¾ÙÀý£ºa=·¢ËÍqqÏûÏ¢("ƯÁÁÃÃ×Ó","d:\123.txt")//˵Ã÷£ºQQ·¢ËÍÏûÏ¢·½Ê½ÐèÉèÖÃΪ°´¡°enter¡±·¢ËÍÏûÏ¢PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsstring)AsLongfunction·¢ËÍqqÏûÏ¢(qqÃû³Æ,Îļþ·¾¶)Hwnd=Plugin.Window.Find("TXGuiFoundation",qqÃû³Æ)IfHwnd=0ThenMessageBox"δÕÒµ½¸ÃÓû§£º"&qqÃû³ÆExitFunctionEndIfText=Plugin.File.ReadFileEx(Îļþ·¾¶)//CallPlugin.Window.SendString(Hwnd,text)CallPlugin.Sys.SetCLB(Text)SendMessagehwnd,&H302,0,0CallPlugin.Window.SendKeyPress(Hwnd,13)EndFunction//дһ¸ö×Ó³ÌÐò,¿ÉÒÔʹÊó±ê´Óµ±Ç°µÄ×ø±êÖðµãµÄÒƶ¯µ½Ä¿µÄ×ø±ê(´ø¹ì¼£µÄÊó±êÒƶ¯),Çëд³ö´úÂëSubÊó±ê´Óµ±Ç°Î»ÖÃÔÈËÙÒƶ¯µ½Ä¿±ê(x2,y2)GetCursorPosx1,y1Fori=1to50dx=(x2-x1)/50dy=(y2-y1)/50MoveToint(x1+i*dx),int(y1+i*dy)Delay10NextEndSubдһ¸öº¯Êý£¬ÒªÇó£ºÊ¹Óõ¥µãÕÒÉ«¹¦ÄÜд³ö¶àµãÕÒɫЧ¹û¡£Ìáʾ£º¶àµãÕÒÉ«ÃüÁFindMutiColorExFunctionFindMutiColorEx(x1,y1,x2,y2,ÑÕÉ«)FindMutiColorEx=""Ifinstr(ÑÕÉ«,"|")<0ThenFindColorx1,y1,x2,y2,ÑÕÉ«,intX,intYIfintX>0AndintY>0ThenFindMutiColorEx=ÑÕÉ«&","&intX&","&intYElseFindMutiColorEx=0EndIfExitFunctionEndifss=split(ÑÕÉ«,"|")index=0count=UBound(ss)+1DoWhileindex<countFindColorx1,y1,x2,y2,ss(index),intX,intYIfintX>0AndintY>0ThenFindMutiColorEx=FindMutiColorEx&ss(index)&","&intX&","&intY&"|"Endifindex=index+1LoopIfright(FindMutiColorEx,1)="|"ThenFindMutiColorEx=left(FindMutiColorEx,len(FindMutiColorEx)-1)EndIfEndFunction//±àдһ¸ö½Å±¾£¬¶ÔÖÁÉÙÈý¸öÒÔÉϼÇʱ¾´°¿Ú×öÏàͬ²Ù×÷£¬¶ÔÈÎÒâÒ»¸ö´°¿Ú½øÐÐÊÖ¶¯²Ù×÷£¬ÆäÓà´°¿ÚÓɽű¾Ö´ÐÐÏàͬ²½ÖèµÄ¼üÊó²Ù×÷£¬¼ÇµÃÊǼüÅ̲Ù×÷+Êó±ê²Ù×÷£¬ÒªÇó²»Ê¹ÓöàÏß³ÌʵÏÖ¸ÃЧ¹û¡£num=3//ÉèÖüÇʱ¾ÊýÁ¿Îª3£¬¿É¸ü¸ÄFornumRunApp"notepad.exe"//Æô¶¯3¸ö¼Çʱ¾²âÊÔÓÃnextDelay2000//µÈ´ý3¸ö¼Çʱ¾¹¤¾ß´ò¿ªHwndEx=Plugin.Window.Search("¼Çʱ¾")hwnd=Split(HwndEx,"|")////IfUBound(Hwnd)>=0Then//ÅжÏÊÇ·ñËѵ½¾ä±ú£¿Fori=0ToUBound(hwnd)-1CallPlugin.Window.Move(Hwnd(i),0,0)Hwnd(i)=Plugin.Window.FindEx(Hwnd(i),0,"Edit",0)NextEndIf//Ñ­»·ÅжϼüÅÌÊó±ê²Ù×÷doanjian=GetLastKey()Ifanjian<>0ThenFori=0Tonum-1callmykeypress(hwnd(i),anjian)NextEndifMouse=GetLastClick()IfMouse<>0ThenFori=0Tonum-1IfMouse=32770OrMouse=32769ThenGetCursorPosx,yCallPlugin.Bkgnd.leftClick(Hwnd(i),x-8,y-51)//Ïà¶Ôǰ̨×ø±êEndIfIfMouse=32774OrMouse=32773ThenGetCursorPosx,yCallPlugin.Bkgnd.RightClick(Hwnd(i),x-8,y-51)//Ïà¶Ôǰ̨×ø±êEndIfNextEndifLoopsubmykeypress(hwnd,text)//×÷ÓÃÊǼì²âµ±Ç°´°¿Ú£¬²»Öظ´ÊäÈëHwndnote=Plugin.Window.MousePoint()Ifhwnd=HwndnoteThenExitsubEndIfCallPlugin.Bkgnd.KeyPress(Hwnd,text)EndSub