排行榜 -

您的位置:天涯明月刀捏脸女 > ppt下載 > PPT課件 > 課件PPT > 按鍵精靈ppt課件

天涯明月刀故事梗概:按鍵精靈ppt課件下載

素材大?。?/dt>
343.5 KB
素材授權:
免費下載
素材格式:
.ppt
素材上傳:
lipeier
上傳時間:
2019-05-28 14:05:14
素材編號:
231822
素材類別:
課件PPT
網友評分:

天涯明月刀捏脸女 www.icjsx.icu 素材預覽

按鍵精靈ppt課件

這是按鍵精靈ppt課件,包括了基本命令,操作系統,使用方法,腳本例子多多滴,屏幕涂鴉,隨機輸出數字且不重復直到全部輸出等內容,歡迎點擊下載。

按鍵精靈ppt課件是由紅軟PPT免費下載網推薦的一款課件PPT類型的PowerPoint.

按鍵精靈命令大全第三版 基本命令 鍵盤命令鍵盤模擬命令[KeyPress]“按下再彈起”鍵[KeyDown]“按下”鍵[KeyUp]“彈起”鍵鍵盤控制命令[WaitKey]等待按鍵[GetLastKey]獲取上一次按鍵碼 鼠標命令鼠標模擬命令[LeftClick]模擬點擊鼠標左鍵 [RightClick]模擬點擊鼠標右鍵 [MiddleClick]模擬點擊鼠標中鍵 [LeftDoubleClick]模擬雙擊鼠標左鍵[LeftDown]模擬按下鼠標左鍵[LeftUp]模擬松開鼠標左鍵[RightDown]模擬按下鼠標右鍵[RightUp]模擬松開鼠標右鍵 [MoveTo]移動鼠標[MoveR]鼠標相對移動[MouseWheel]滾動鼠標滾輪鼠標控制命令[WaitClick]等待按鼠標[GetLastClick]獲取上一次按下的鼠標代碼鼠標輔助命令[SaveMousePos]保存當前鼠標位置 [RestoreMousePos]將鼠標移動到上一次保存的鼠標位置[LockMouse]鎖定鼠標位置[UnlockMouse]解除鼠標鎖定控制命令流程控制命令[If]判斷語句[Goto]跳轉語句[Rem]Goto命令的標記,也可以做注釋[While] ... [EndWhile]循環[For] ... [EndFor]循環[EndScript]腳本結束顏色控制命令[IfColor]判斷屏幕x,y坐標的某點的顏色,來執行后面的動作或控制過程[Sub] . [Return]定義過程[Gosub]調用過程 其他命令[Delay]腳本暫停執行[MessageBox]彈出一個窗口[SayString]輸入文字,支持變量[Import]導入VBS或插件命令[VBSBegin] ...[VBSEnd]VBS區塊[VBS]單行VBS指令[VBSCall]執行外部VBScript函數[Plugin]調用一個外部插件提供的函數[UserVar]用戶自定義設置[PutAttachment]展開附件[//]注釋命令[TracePrint]調試窗口顯示文字VBS命令[VBSCall Delay] 腳本停止執行一段時間,支持變量[VBSCall FindCenterColor] 從屏幕某個區域的中間開始找色[VBSCall FindColor] 在屏幕指定區域從左到右找色[VBSCall FindColorEx] 模糊找色功能[VBSCall FindPic] 找圖片,可設定相似度[VBSCall GetCursorPos] 獲得當前鼠標的坐標[VBSCall GetPixelColor] 獲得指定位置點的顏色[VBSCall GetScreenResolution] 獲得當前屏幕分辨率[VBSCall InputBox] “彈出”對話框允許用戶輸入文字[VBSCall MessageBox] 彈出對話框,支持變量[VBSCall ReadMemory] 讀取本機指定內存地址的數值[VBSCall RunApp] 運行一個程序,或打開一個文件[VBSCall SayString] 輸入文本.[VBSCall SetCursorPos] 設置鼠標位置[VBSCall GetCursorShape] 獲得鼠標形狀 ps:每個命令解釋在文本前面 按鍵精靈是一個模擬鼠標鍵盤動作的軟件。通過制作腳本,可以讓按鍵精靈代替雙手,自動執行一系列鼠標鍵盤動作。按鍵精靈簡單易用,不需要任何編程知識就可以作出功能強大的腳本。只要在電腦前用雙手可以完成的動作,按鍵精靈都可以替代完成目前按鍵精靈已經更新到9.33最新版本!從編程的角度看,集合一些插件的腳本編輯、調試工具。代碼不公開。生成的小精靈,模式化界面。 使用環境 操作系統:(Windows 98/98SE/Me/2000/XP/2003/Vista/win7 )軟件支持:支持絕大多數軟件,部分網絡游戲中可能失效,但可嘗試“神盾”功能,提高按鍵精靈的兼容性 使用方法 第一步:設計腳本功能   寫腳本之前要想清楚自己要做什么功能。在這里來制作一個每隔5秒自動按F5刷新網頁的腳本。 第二步:設計腳本 為制作了組圖來說明如何制作這個腳本。 任何腳本都是兩步: 第一步先設計功能,第二步就是用按鍵精靈提供的命令完成這些功能。 腳本例子多多滴: 屏幕涂鴉: Dim aa,bb,cc,dd:aa=0:bb=0:cc=aa+14:dd=bb+15 MessageBox "在圖片左上角按1次鼠標中鍵獲取起始坐標"&chr(13)&"在圖片右下角按1次鼠標中鍵獲取末尾坐標" Call Plugin.Msg.HideScrTXT():Call 獲取坐標():Set wsh = CreateObject("WScript.Shell"):wsh.popup "接下來別動鼠標哦.....仔細看?。?!(自動關閉)",2,"2秒自動關閉!!",64 For yy-uy x=ux aa=0 cc=aa+14 For xx-ux MoveTo x,y GetColor=GetPixelColor(x,y) Call Plugin.Msg.ShowScrTXT(aa, bb, cc, dd, "■", GetColor) aa=aa+14 cc=aa+14 Delay 20 x=x+1 Next y=y+1 bb=bb+15 dd=bb+15 Next Sub 獲取坐標 Rem 獲取坐標 a=WaitClick If a=32777 Then GetCursorPos ux,uy Call Plugin.Msg.ShowScrTXT(610, 70, 624, 85, "■", "0000FF") Else Goto 獲取坐標a End if Rem 獲取坐標b b=WaitClick () If b=32777 Then GetCursorPos xx,yy Call Plugin.Msg.ShowScrTXT(624, 70, 638, 85, "■", "E6962CF") Else Goto 獲取坐標b End if For 15 MoveTo ux,uy Delay 50 MoveTo xx,yy Delay 50 Next x=ux y=uy End Sub  [按鍵8] - Beep - 諾基亞經典鈴聲  特別的隨機姓名生成器 [General] SyntaxVersion=2 BeginHotkey=121 BeginHotkeyMod=0 PauseHotkey=0 PauseHotkeyMod=0 StopHotkey=123 StopHotkeyMod=0 RunOnce=1 EnableWindow= MacroID=59d9a3a8-1cf7-4bd1-b41e-35834a8f4647 Description=隨機姓名生成器 Enable=1 AutoRun=0 [Repeat] Type=0 Number=1 [SetupUI] Type=1 QUI=Form1 [Relative] SetupOCXFile= [Comment] 接上頁: [Attachment] UEsDBBQAAgAIANS4aD8AAAAAAgAAAAAAAAAOABEAyfqzybXE0NXD+y50eHRVVA0ABxK2uU65orlOuaK5TgMAUEsBAhcLFAACAAgA1LhoPwAAAAACAAAAAAAAAA4ACQAAAAAAAAAgAICBAAAAAMn6s8m1xNDVw/sudHh0VVQFAAcStrlOUEsFBgAAAAABAAEARQAAAD8AAAAAAA== [UIPackage] UEsDBBQAAgAIAMA7aT+x5Imd2AAAAEQBAAAJABEAVUlQYWNrYWdlVVQNAAcILLpOCCy6Tggsuk5jYmBgYARiNiBmccsvymUFEYaMIDEkYAjkfwEpcyotKcnPY4dQIGUs+1ed2sMElJoKxPFA/AmIO4GY1ScxKTWHDUyCFHKe/LX55Km/B/dbMQNlrYE4C4gLgLgKiDk88wpKS5zyKzhhDCOgHiZTAxagZDEQZwJxLxBXM6CZDVInfH3LmTWLd209seUvyDnXLujp6YF9BMRGQKwGdL4jmj5joD7D01sPf7cCOWzrkQtXD//euHjLsyu3Lizct/rgy9M/r9w6sv/QHoSsXklFCTvU1DVQU3cBaQBQSwECFwsUAAIACADAO2k/seSJndgAAABEAQAACQAJAAAAAAAAAAAAAIAAAAAAVUlQYWNrYWdlVVQFAAcILLpOUEsFBgAAAAABAAEAQAAAABABAAAAAA== [Script] Event Form1.Button1.Click i = 0 If i < Form1.InputBox2.Text Then Form1.Button1.Enabled = Fales Form1.Label2.Caption = "狀態:" & "開始生成姓名..." End If While i < Form1.InputBox2.Text Form1.Label2.Caption = "狀態:" & "正在生成第" & i+1 & "個姓名," & "已經生成:" & i & "/" & Form1.InputBox2.Text & "個!" Delay 50 Call Plugin.File.WriteFileEx("生成的姓名.txt", Lib.算法.隨機取姓名()) Delay 50 i = i + 1 Wend If i = Form1.InputBox2.Text Then Form1.Button1.Enabled = True Form1.Label2.Caption = "狀態:" & "全部姓名生成完畢,完成率" & i & "/" & Form1.InputBox2.Text & ",謝謝使用!" End If End Event Event Form1.InputBox2.Change If Form1.InputBox2.Text > 250 Then Form1.InputBox2.Text = 250 MessageBox "每次生成個數不得超過250" End If End Event Event Form1.Load:PutAttachment "","生成的姓名.txt“:End Event  按鍵精靈寫的讀心術小游戲 s="☆;★;○;◎;◇;◆;■;△;▲;※;⊙;→;←;↑;↓;〓;〖;〗;【;】;『;』;≡;∑;∈;∵;∴;A;B;C;D;E;F;G;H;I;J;K;L;M;N;O;P;Q;R;S;T;U;V;W;X;Y;Z;①;②;③;④;⑤;⑥;⑦;⑧;⑨;⑩" th=Split(s,";") aa=msgbox("請在以下符號中選擇一個牢記在心中。記住后請點“確定”,退出程序請點“取消”。"&vbcrlf&vbcrlf _ &"☆ ★ ○ ◎ ◇ ◆ ■ △ ▲ ※ ⊙ → ← ↑ ↓ 〓 〖 〗【 】『』≡ ∑ ∈ ∵ ∴ " _ &"A B C D E F G H I J K L M N O P Q R S T U V W X Y Z ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩",vbokcancel+4096,"讀心術") if aa=vbcancel then wscript.quit end if a=msgbox("以下符號中有你選擇的符號嗎?如果有請點“是”沒有點“否”,退出程序請點“取消”。"&vbcrlf&vbcrlf _ &"☆ ○ ◇ ■ ▲ ⊙ ← ↓ 〖 【 『 ≡ ∈ ∴ B D F H J L N P R T V X Z ② ④ ⑥ ⑧ ⑩",vbyesnocancel+4096,"讀心術") if a=vbyes then nl=nl+1 elseif a=vbcancel then wscript.quit end if b=msgbox("以下符號中有你選擇的符號嗎?如果有請點“是”沒有點“否”,退出程序請點“取消”。"&vbcrlf&vbcrlf _ &"★ ○ ◆ ■ ※ ⊙ ↑ ↓ 〗 【 』 ≡ ∵ ∴ C D G H K L O P S T W X ① ② ③ ⑤ ⑥ ⑨ ⑩",vbyesnocancel+4096,"讀心術") if b=vbyes then nl=nl+2 elseif b=vbcancel then wscript.quit end if c=msgbox("以下符號中有你選擇的符號嗎?如果有請點“是”沒有點“否”,退出程序請點“取消”。"&vbcrlf&vbcrlf _ &"◎ ◇ ◆ ■ → ← ↑ ↓ 】 『 』 ≡ A B C D I J K L Q R S T Y Z ① ② ⑦ ⑧ ⑨ ⑩",vbyesnocancel+4096,"讀心術") if c=vbyes then nl=nl+4 elseif c=vbcancel then wscript.quit end if d=msgbox("以下符號中有你選擇的符號嗎?如果有請點“是”沒有點“否”,退出程序請點“取消”。"&vbcrlf&vbcrlf _ &"△ ▲ ※ ⊙ → ← ↑ ↓ ∑ ∈ ∵ ∴ A B C D M N O P Q R S T ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩",vbyesnocancel+4096,"讀心術") if d=vbyes then nl=nl+8 elseif d=vbcancel then wscript.quit end if e=msgbox("以下符號中有你選擇的符號嗎?如果有請點“是”沒有點“否”,退出程序請點“取消”。"&vbcrlf&vbcrlf _ &"〓 〖 〗 【 】 『 』 ≡ ∑ ∈ ∵ ∴ A B C D U V W X Y Z ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩",vbyesnocancel+4096,"讀心術") if e=vbyes then nl=nl+16 elseif e=vbcancel then wscript.quit end if f=msgbox("以下符號中有你選擇的符號嗎?如果有請點“是”沒有點“否”,退出程序請點“取消”。"&vbcrlf&vbcrlf _ &"E F G H I J K L M N O P Q R S T U V W X Y Z ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩",vbyesnocancel+4096,"讀心術") if f=vbyes then nl=nl+32 elseif f=vbcancel then wscript.quit end if if nl<>0 then msgbox "您選擇的符號是:"&th(nl-1),4096,"讀心術" else msgbox "您沒有記住您選擇的符號!",16+4096,"讀心術" end if 超級無敵掌門人猜數字游戲, MessageBox "派斯盒之數字猜[110510]" MessageBox "KIS 制造"&vbcr&"QQ:644328850" 人數=INT(INPUTBOX ("規則:2人以上進行游戲,每人輪流輸入一個指定范圍的數,每次將會縮小范圍提示,猜中的人就會輸."&vbcr&"請輸入游戲人數,按下確定開始游戲","")) Rem QU Randomize 隨機值=Int((99 * Rnd) + 1) If  隨機值<0 Then     Goto QU End If  //隨機A為一個1至100的數 第二個數 =100:第一個數 =1:幾 = 1:次=1 Rem BJA If 次>人數 Then  次=1 End If  輸入值=Cint (InputBox("按下確定后,輸入一個"& 第一個數 &"~"& 第二個數 &"范圍之內的數."& VBCR &"輸入后按下確定繼續"& VBCR &"輸入999按下確定后結束游戲","總共第"& 幾 &"次猜數,第"&次&"個人進行輸入")) If 輸入值>第一個數 AND 輸入值<第二個數 Then     If 輸入值>隨機值 Then         第二個數=輸入值         幾=幾+1         次=次+1   ElseIf 輸入值<隨機值 Then        第一個數=輸入值         幾=幾+1         次=次+1     Elseif  輸入值=隨機值 Then         MessageBox "boom!!!,你輸了"& vbcr &"那個數就是"& 隨機值         MessageBox "感謝使用!"&vbcr&"------------"&vbcr&"清文 制造"&vbcr&"QQ:644328850"         EndScript     End If     Goto BJA ElseIf 輸入值=999 Then      MessageBox "感謝使用!"&vbcr&"------------"&vbcr&"清文 制造"&vbcr&"QQ:644328850"     EndScript End If MessageBox "輸入錯誤,請重新輸入!!!"& vbcr &"按下F12或在輸入框中輸入999結束游戲" Goto BJA 計算器: UserVar cifangshu=0 "幾次方" UserVar cifang=0 "次方數" number = cifang exponent=cifangshu result = number ^ exponent If cifang and cifangshu = 0 Then MessageBox "沒有進行次方運算" Else Message = Message & "次方運算結果:"&cifang&"的"&cifangshu&"次方=" & result & vbCrlf Message6 = Message6 & cifang & "的" & cifangshu & "次方" &"="& result Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\新建文件夾\計算器記錄.log",Message6) SayString Message6 End If UserVar +=0 "一個加數" UserVar ++=0 "另一個加數" a =+ b = ++ + = a + b If a = 0 and b = 0 Then MessageBox "加法沒有運算" Else Message = Message & "加法運算結果:" & + & vbCrlf Message1 = Message1 & a & "+" & b & "=" & + Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\新建文件夾\計算器記錄.log",Message1) SayString Message1 End If UserVar -=0 "減數" UserVar --=0 "被減數" c =- d = -- - = d - c If c = 0 and d = 0 Then MessageBox "減法沒有運算" Else 接上頁: Message = Message & "減法運算結果:" & - & vbCrlf Message2 = Message2 & c & "-" & d & "=" & - Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\新建文件夾\計算器記錄.log",Message2) SayString Message2 end if UserVar ×=0 "一個乘數" UserVar ××=0 "另一個乘數" e =× f = ×× × = e * f If e = 0 and f = 0 Then MessageBox "乘法沒有運算" Else Message = Message & "乘法運算結果:" & × & vbCrlf Message3 = Message3 & e& "*" & f & "=" & × Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\新建文件夾\計算器記錄.log",Message3) SayString Message3 end if UserVar ÷=0 "除數" UserVar ÷÷=0 "被除數" g =÷ h = ÷÷ ÷ = h / g If e = 0 and f = 0 Then MessageBox "除法沒有運算" Else Message = Message & "除法運算結果:" & ÷ & vbCrlf Message4 = Message4 & g & "/" & h & "=" & ÷ Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\新建文件夾\計算器記錄.log",Message4) SayString Message4 Message5 = Message5 &"=======我是分界線========" Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\新建文件夾\計算器記錄.log",Message5) SayString Message5 End If MessageBox Message MessageBox" 記錄文件在C:\Documents Settings\Administrator\桌面\新建文件夾\計算器記錄.log里" y1 = inputbox("是否打開記錄(填“是”或“否”)") If y1 = "是" Then RunApp "C:\Documents and Settings\Administrator\桌面\新建文件夾\計算器記錄.log" ElseIf y1 = "否" Then EndScript End If 簡易鬧鐘: UserVar sound=8 設置默認音量 UserVar plan=06:19:00 設置鬧鈴時間 UserVar wc=10 設置允許鬧鈴時間誤差(建議最小設為5秒) UserVar remind=1 設置關上鈴聲多少分鐘后重新提醒 UserVar path=E:\音樂\DIR0.MP3\FIL31.MP3 設置鬧鈴音樂完整路徑 sound=int(sound) SetEnv "sound",sound Plugin Media.Vol(sound) BeginThread "調節音量" While time

按鍵精靈ppt:這是按鍵精靈ppt,包括了按鍵精靈-基本使用,創建腳本,腳本的運行與中止,鍵盤命令,抓抓輔助工具,控制命令,其他命令等內容,歡迎點擊下載。

下載地址

推薦PPT

PPT分類Classification

Copyright:2009-2015 www.icjsx.icu Corporation,All Rights Reserved 紅軟PPT免費下載網版權所有

粵ICP備14102101號