dnf易語言源碼

⑴ 誰有易語言DNF輔助源碼

.版本 2

.程序集 窗口
.程序集變數 進程ID, 整數型
.程序集變數 觸發, 整數型
.程序集變數 人偶, 整數型
.程序集變數 位元組集轉換, 位元組集
.程序集變數 人偶武器, 整數型
.程序集變數 開啟, 整數型
.程序集變數 人偶數據, 整數型
.程序集變數 數據保存, 整數型

.子程序 _窗口1_創建完畢

內存操作.提升許可權 ()
內存操作.打開進程 ()
進程ID ＝ 取進程ID (「DNF.exe」)
窗口1.左邊 ＝ 0
窗口1.頂邊 ＝ 0
監視熱鍵 (&人偶倍攻, #F1鍵)
監視熱鍵 (&召喚人偶, #F2鍵)
監視熱鍵 (&倍攻初始, #F3鍵)
監視熱鍵 (&修改評分, #F4鍵)
監視熱鍵 (&消滅, #F5鍵)
監視熱鍵 (&出售, #F6鍵)
監視熱鍵 (&子程序1, #鍵1, 1)

.子程序 召喚人偶

物品CALL (十六到十 (#人物基址 ＋ 「+3AEC+20+C+14」), 2600028)
延時 (3000)
人偶 ＝ 返回BOSS地址 (273) ' APC地址
人偶數據 ＝ 內存操作.讀代碼 (十到十六 (人偶)) ' APC數據
.如果真 (人偶數據 ＞ 1)
物品CALL (人偶, 到整數 (2600027))
.如果真結束

.子程序 倍攻初始

.判斷開始 (內存操作.讀代碼 (#指針基址 ＋ 「+14」) ＝ 27567)
寫內存小數型 (-1, 內存操作.讀代碼 (#指針基址 ＋ 「+4D0+14+4+34」) ＋ 0, 16)
寫內存小數型 (-1, 內存操作.讀代碼 (#指針基址 ＋ 「+4D0+14+4+24」) ＋ 12, 到整數 (編輯框1.內容)) ' 傷害
寫內存小數型 (-1, 內存操作.讀代碼 (#指針基址 ＋ 「+4D0+14+4+14」) ＋ 4, 100)
寫內存小數型 (-1, 內存操作.讀代碼 (#指針基址 ＋ 「+4D0+14+4+24」) ＋ 4, 3)
寫內存小數型 (-1, 內存操作.讀代碼 (#指針基址 ＋ 「+4D0+14+4+24」) ＋ 4, 8)
寫內存小數型 (-1, 內存操作.讀代碼 (#指針基址 ＋ 「+4D0+14+4+34」) ＋ 4, 4543)
內存操作.寫代碼 (#人物基址 ＋ 「2084+4D0」 ＋ #指針基址 ＋ 「+4D0=12」)
冰心公告 (「初始化成功.」)
.默認
冰心公告 (「初始化失敗.請初始化 炙炎梵天劍 」)
.判斷結束

.子程序 人偶倍攻

.判斷開始 (開啟 ＝ 0)
開啟 ＝ 1
時鍾1.時鍾周期 ＝ 1000
冰心公告 (「開啟人偶倍攻」)
.默認
開啟 ＝ 0
時鍾1.時鍾周期 ＝ 0
冰心公告 (「關閉人偶倍攻」)
.判斷結束

.子程序 _時鍾1_周期事件
.局部變數 APC力量, 整數型
.局部變數 APC智力, 整數型

人偶 ＝ 返回BOSS地址 (273) ' APC地址
人偶數據 ＝ 內存操作.讀代碼 (十到十六 (人偶)) ' APC數據

.如果 (人偶數據 ＞ 1)
APC智力 ＝ VIP內存.讀代碼 (十到十六 (人偶)) ＋ 改偏移 (「120C」)
加密22 (APC智力, 到整數 (編輯框1.內容) × 10)
APC力量 ＝ VIP內存.讀代碼 (十到十六 (人偶)) ＋ 改偏移 (「122C」)
加密22 (APC力量, 到整數 (編輯框1.內容) × 10)

.否則
開啟 ＝ 0
時鍾1.時鍾周期 ＝ 0

.如果結束

.子程序 修改評分

.如果真 (內存操作.讀代碼 (#評分基址 ＋ 「+5c」) ≠ 1149239296)
內存操作.寫代碼 (#評分基址 ＋ 「+5c=1149239296」)
冰心公告 (「評分以開啟,打怪即可」)
.如果真結束

.子程序 消滅
.局部變數 p1, 整數型
.局部變數 基址, 整數型
.局部變數 計次, 整數型
.局部變數 偏移, 整數型
.局部變數 怪ESI, 整數型
.局部變數 臨時變數1, 整數型
.局部變數 x, 整數型
.局部變數 y, 整數型
.局部變數 z, 整數型
.局部變數 次數, 整數型

基址 ＝ 內存操作.讀代碼 (#人物基址 ＋ 「+E0+90」)
.變數循環首 (0, 256, 1, 計次)
偏移 ＝ 4 ＋ 4 × 計次
怪ESI ＝ 內存操作.讀整數 (基址 ＋ 偏移)
.如果真 (怪ESI ＜ 16777216)
到循環尾 ()
.如果真結束
臨時變數1 ＝ 內存操作.讀整數 (怪ESI ＋ 1232)
.如果真 (臨時變數1 ＝ 0 或 臨時變數1 ＝ 100)
到循環尾 ()
.如果真結束
臨時變數1 ＝ 內存操作.讀整數 (怪ESI ＋ 188)
.如果 (臨時變數1 ＝ 1057)
內存操作.寫整數 (怪ESI ＋ 十六到十 (「170」), 0)
.否則

.如果結束

.變數循環尾 ()

.子程序 _按鈕2_被單擊
.局部變數 c1, 整數型
.局部變數 c2, 整數型
.局部變數 c3, 整數型
.局部變數 loc1, 整數型
.局部變數 ebp_14, 整數型

c1 ＝ 十六到十 (#X軸參數) ' 0128 X軸參數十進制
c2 ＝ 十六到十 (#Y軸參數) ' 0128 Y軸參數十進制' ..
c3 ＝ 十六到十 (#Z軸參數) ' 0128 Z軸參數十進制
loc1 ＝ 0
ebp_14 ＝ 十六到十 (#一級參數) ' 0128 頭部參數
置入代碼 ({ 139, 77, 236, 139, 9 }) ' ecx
置入代碼 ({ 106, 38, 255, 85, 252 }) ' 0x26是城內移動；0x7是返回角色 0x0f是打開選圖 0x2D是回城
' ..
loc1 ＝ 2 ' 區域[1=埃爾文防線，2=赫爾馬頓，3=西海岸，4=阿法利亞，5=斯頓雪域，6=根特，7=末日之都，8=倉庫？]
置入代碼 ({ 139, 77, 236, 139, 9 }) ' ecx
置入代碼 ({ 106, 1, 141, 85, 240, 82, 255, 85, 248 }) ' 1位元組
' ..
loc1 ＝ 1 ' 區域中的位置。6在格蘭就是進副本那。就是區域中的小區域。7是西海岸的塔 遺跡門口（4，3），雪域門口（5，2）

置入代碼 ({ 139, 77, 236, 139, 9 }) ' ecx
置入代碼 ({ 106, 1, 141, 85, 240, 82, 255, 85, 248 }) ' 1位元組

loc1 ＝ 1500 ' x
置入代碼 ({ 139, 77, 236, 139, 9 }) ' ecx
置入代碼 ({ 106, 2, 141, 85, 240, 82, 255, 85, 248 }) ' 2位元組

loc1 ＝ 200 ' y
置入代碼 ({ 139, 77, 236, 139, 9 }) ' ecx
置入代碼 ({ 106, 2, 141, 85, 240, 82, 255, 85, 248 }) ' 2位元組

loc1 ＝ 5 ' z？這個沒什麼效果，不知道是不 是 Z 軸，注意是1位元組。反正游戲里都是5。
置入代碼 ({ 139, 77, 236, 139, 9 }) ' ecx
置入代碼 ({ 106, 1, 141, 85, 240, 82, 255, 85, 248 }) ' 1位元組
置入代碼 ({ 255, 85, 244 }) ' send

.子程序 出售

寫內存整數型 (取進程ID (「DNF.exe」), 讀內存整數型 (取進程ID (「DNF.exe」), 十六到十 (#商店基址)) ＋ 十六到十 (#買賣偏移), 5)

.子程序 _按鈕3333_被單擊

寫內存小數型 (-1, 數據保存 ＋ 24, 到小數 (編輯框1.內容))

.子程序 子程序1
.局部變數 觸發_值, 整數型
.局部變數 基址, 整數型
.局部變數 計次, 整數型
.局部變數 偏移, 整數型
.局部變數 遍歷地址, 整數型
.局部變數 變數, 整數型
.局部變數 次數, 整數型
.局部變數 次數2, 整數型
.局部變數 隊友地址, 整數型, , "1"
.局部變數 遞增值, 整數型
.局部變數 表達式, 整數型
.局部變數 傻瓜物理, 整數型

觸發_值 ＝ 匯編讀整數型 (十六到十 (#人物基址))
.如果真 (觸發_值 ＜ 1)
返回 ()

.如果真結束
基址 ＝ 讀內存整數型 (取自身進程ID (), 匯編讀整數型 (匯編讀整數型 (十六到十 (#人物基址)) ＋ 224) ＋ 144)
遞增值 ＝ 0
次數 ＝ 0
次數2 ＝ 0
.判斷循環首 (次數2 ＝ 0)
表達式 ＝ 讀內存整數型 (取自身進程ID (), 基址 ＋ 遞增值, )
.如果真 (表達式 ＞ 16777216)
.如果真 (讀內存整數型 (取自身進程ID (), 表達式 ＋ 1232) ＝ 0 且 觸發_值 ≠ 表達式)
隊友地址 [1] ＝ 基址 ＋ 遞增值
.變數循環首 (0, 180, 1, 計次)
偏移 ＝ 4 ＋ 4 × 計次
遍歷地址 ＝ 讀內存整數型 (取自身進程ID (), 基址 ＋ 偏移)
.如果真 (遍歷地址 ＜ 16777216)
到循環尾 ()
.如果真結束
變數 ＝ 讀內存整數型 (取自身進程ID (), 遍歷地址 ＋ 1232)
.如果真 (變數 ＝ 0 或 變數 ＝ 200)
到循環尾 ()
.如果真結束
變數 ＝ 讀內存整數型 (取自身進程ID (), 遍歷地址 ＋ 188)
.如果真 (變數 ≠ 529 且 變數 ≠ 273 且 變數 ≠ 545)
到循環尾 ()
.如果真結束
變數 ＝ 讀內存整數型 (取自身進程ID (), 遍歷地址 ＋ 468)
.如果真 (變數 ＝ 1)
到循環尾 ()
.如果真結束
傻瓜物理 ＝ 遍歷地址 ＋ 7520 ' 『物理攻擊
加密 (傻瓜物理, -100000)
次數 ＝ 次數 ＋ 1
.如果真 (次數 ≥ 30)
跳出循環 ()
.如果真結束

.變數循環尾 ()
次數2 ＝ 1

.如果真結束

.如果真結束
遞增值 ＝ 遞增值 ＋ 4
.判斷循環尾 ()

.子程序 匯編讀整數型, 整數型, , 失敗返回-1
.參數 讀取地址, 整數型

置入代碼 ({ 139, 68, 36, 8, 61, 0, 0, 16, 0, 126, 8, 133, 192, 116, 4, 139, 0, 235, 5, 184, 255, 255, 255, 255, 139, 229, 93, 194, 4, 0 })

返回 (-1)

.子程序 _城鎮飛機組合_列表項被選擇

.如果真 (城鎮飛機組合.現行選中項 ＝ 0)
超級瞬移CALL (1, 0)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 1)
超級瞬移CALL (1, 2)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 2)
超級瞬移CALL (2, 0)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 3)
超級瞬移CALL (2, 6)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 4)
超級瞬移CALL (2, 4)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 5)
超級瞬移CALL (3, 0)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 6)
超級瞬移CALL (3, 3)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 7)
超級瞬移CALL (3, 4)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 8)
超級瞬移CALL (3, 7)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 9)
超級瞬移CALL (3, 9)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 10)
超級瞬移CALL (3, 10)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 11)
超級瞬移CALL (4, 0)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 12)
超級瞬移CALL (4, 2)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 13)
超級瞬移CALL (4, 3)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 14)
超級瞬移CALL (4, 4)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 15)
超級瞬移CALL (5, 0)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 16)
超級瞬移CALL (5, 2)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 17)
超級瞬移CALL (6, 0)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 18)
超級瞬移CALL (6, 3)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 19)
超級瞬移CALL (7, 0)
.如果真結束
.如果真 (城鎮飛機組合.現行選中項 ＝ 20)
超級瞬移CALL (9, 0)
.如果真結束

.子程序 _選擇框1_被單擊

.如果 (選擇框1.選中 ＝ 真)
窗口1.總在最前 ＝ 真
.否則
選擇框1.選中 ＝ 假
窗口1.總在最前 ＝ 假
.如果結束

.子程序 _按鈕1_被單擊

物品CALL (十六到十 (#人物基址), 2600051)

⑵ 易語言dnf技能源碼

[設置]
;注:當DLL處於目標進程中才會載入,重啟程序後生效!
進程名=DNF.exe

;注:以下設置均在修改後直接生效!

[屬性]
標題=小煩專用DNF輔助模型
熱鍵=36

熱鍵1=96
熱鍵1恢復時間=100
熱鍵1地址=007B35D0=49984|007B3620=49984
熱鍵2=113
熱鍵2恢復時間=0
熱鍵2地址=
熱鍵3=114
熱鍵3恢復時間=0
熱鍵3地址=
熱鍵4=115
熱鍵4恢復時間=0
熱鍵4地址=
熱鍵5=116
熱鍵5恢復時間=0
熱鍵5地址=

[技能地址]
;十六進制技能地址

魔法星彈=01B3FAED
光電鰻=01D303E4
傑克爆彈=006A0B61
反重力裝置=00694235
魔法師 - 反重力裝置=006942C5
魔法師 - 舒露露吸怪=00A14611
;搜:技能代碼+E8

念氣環繞=005A1B2B
;搜:技能代碼+8D

十字斬=0079556D
烈波斬=007951B4
銀光落刃=00799F38
抓頭前爆=00796D61
小邪光斬=0079CC5A
波動劍=0061DBD8
鎖人球=00794F8E
不動明王的球=0079481F
格擋氣波=00793CF2
光球=007978EE
出血捉頭=00796D5A
小崩山=00795CD9
;搜:技能代碼+8B

小機器人=860554
神槍手 - 銀彈=00682466
神槍手 - 狙擊槍爆炸=00686BEB
神槍手 - 爆炎彈=00682961
神槍手 - 冰凍彈=00682677
;搜:技能代碼+8B

落鳳錘=00620D47
意念驅動=00763C0A
藍旋風=01C5D7DA
破魔符=01DBA3CC
＊＊球=006B0890
虎襲=00769D2E
;搜:技能代碼+8B

[技能代碼]
;十進制整數型數值,修改技能地址中的值可實現修改技能
冰落刺=8022
固定風暴=8142
全屏爆(秒友)=8362
扔炸彈=8462
念氣波(群體)=8485
天雷(秒無敵)=8498
定身叉=8602
地毒(秒友)=8625
亂刺=8654
輪子=20057
風暴=21017
黑洞=23025
火岩漿(秒)=23044
岩漿爆=30495
冰秒=30554
全屏秒殺=22227
全秒1=88543
全秒2=860143
爆炎=860330
分針=860622
氣空炮=860816
*石化=899987
*睡覺=899988
*混亂100%=899989
*冰凍100%=899993
^天落震^=30054
￠大叔覺醒=24029
￠驅魔覺醒=24030
￠女機械覺醒=22269
¤招喚火精靈=8090
¤招喚土龍-復仇之騎士阿勒克圖=8075
¤招喚赤龍-復仇之騎士提西福涅=8076
¤招喚暗龍-復仇之騎士墨該拉=8077
集中隊友=8071
[招喚倉庫]=51200

;以下參數支持自定義內存代碼
;示例:0512F1BC+56B+17D={12,25,0,141,32}
;其中:0512F1BC是基址,56B是一級偏移,17D是二級偏移(十六進制)
;而{12,25,0,141,32}是要寫入到內存的位元組集數據(易語言格式)
;示例:我的地址=0512F1BC+17D=123
;其中123表示欲寫入的整數型數值
;示例:010CEE1C+373c+50={1}|010CEE1C+3738={0}
;|分割兩個代碼,分別是010CEE1C+373c+50={1}與010CEE1C+3738={0}
;示例:010CEE1C+2FC4+8+C+204=010CEE1C+2FC4+8+C+388=4
;=號左邊的010CEE1C+2FC4+8+C+204表示寫入到的內存基址加偏移量
;=號中間的010CEE1C+2FC4+8+C+388表示讀取數據的基址加偏移量
;=號右邊的4表示讀取的長度
;表示將010CEE1C+2FC4+8+C+388中4位元組讀取出來寫入010CEE1C+2FC4+8+C+204中

[保護屬性]
;時鍾周期內不斷讀取數值顯示在進度條上,鎖定後會不斷寫入
HP地址=014D1D84
HP最大值=014D1D84
MP地址=014D1F80
MP最大值=014D1F80

[加倍功擊]
;可由滑塊條自由修改攻擊倍數
物理倍數地址=0
物理輔助地址=0=-1008535808
魔法倍數地址=0
魔法輔助地址=0=-1008535808

[周期地址]
;時鍾周期內不斷寫入內存
人物透明(穩定)=010CF69C+219C=010CF69C+21A4=4
城鎮無限加速=010CF69C+1964=010CF69C+1754=4
鎖定無敵狀態(高封號率)=010CF69C+2184=010CF69C+4a8=4
鎖定MP藍值=007B3620=457752961
鬼劍士開雙刀=010CF69C+398c=1
鎖定連發=010CF69C+9056=0
攻擊加速=010CF69C+O3518D1F+O5582FF=010CF69C+OB402C9=4
A鍵技能免CD=010CF69C+2FC4+8+0+204=010CF69C+2FC4+8+0+388=4
S鍵技能免CD=010CF69C+2FC4+8+4+204=010CF69C+2FC4+8+4+388=4
D鍵技能免CD=010CF69C+2FC4+8+8+204=010CF69C+2FC4+8+8+388=4
F鍵技能免CD=010CF69C+2FC4+8+C+204=010CF69C+2FC4+8+C+388=4
G鍵技能免CD=010CF69C+2FC4+8+10+204=010CF69C+2FC4+8+10+388=4
H鍵技能免CD=010CF69C+2FC4+8+14+204=010CF69C+2FC4+8+14+388=4
F1鍵技能免CD=010CF69C+2FC4+8+360+204=010CF69C+2FC4+8+360+388=4
F2鍵技能免CD=010CF69C+2FC4+8+364+204=010CF69C+2FC4+8+364+388=4
F3鍵技能免CD=010CF69C+2FC4+8+368+204=010CF69C+2FC4+8+368+388=4
F4鍵技能免CD=010CF69C+2FC4+8+36C+204=010CF69C+2FC4+8+36C+388=4
F5鍵技能免CD=010CF69C+2FC4+8+370+204=010CF69C+2FC4+8+370+388=4
F6鍵技能免CD=010CF69C+2FC4+8+374+204=010CF69C+2FC4+8+374+388=4
修改武器屬性(攻擊石化)=10CF69C+1E38+390=7|10CF69C+1E38+3A0=010CF69C+196C=9
修改武器屬性(迴避率)PK=010CF69C+1E38+300=010CF69C+1E38+188=7
修改武器屬性(回血)=10CF69C+1E38+331=100
修改武器屬性(附加物理攻擊)=010CF69C+1E38+410=0|010CF69C+1E38+420=010CF69C+1E44+50=4|010CF69C+1E38+418=010CF69C+380=4
修改武器屬性(減少物理攻擊)=010CF69C+1E38+410=2|010CF69C+1E38+418=010CF69C+380=4

[固定地址]
;只寫一次內存

遠程賣裝備=01080FD4+1CA8=5
遠程修裝備=01080FD4+1CA8=6
裝備鎖耐久=010CF69C+OC517CF9+OE393EC=010CF69C+O26D2A5=4
3S評分(所有隊友有效)=01775108={144,144,144}
無限霸體狀態(穩定)=010CF69C+4F0=1
全屏秒怪鎖滿血(刷塔穩定)=007B3510=49984
鎖滿藍=007B3620=49984
使用S鍵技能讓別人掉線(PK場)=010CF69C+2fc4+8+4=010CF69C+27B8=4|010CF69C+27B8+324=010CF69C+27B8+44=4
修改A鍵技能及等級=010CF69C+2fc4+8+0=010CF69C+276c=4|010CF69C+276c+324=010CF69C+276c+44=4
;在A鍵上添加大神技能,提升A鍵上技能等級
;上面的276c,從2700開始一直往上找,全是各種技能

⑶ 急急急 dnf 連發程序 易語言源碼

這個你要下載個E模塊或著載入WINIO不然普通的按鍵消息會被游戲屏蔽掉

下面是用易自帶的命令寫的連發源碼但中間的按鍵你要改下

.版本2

.支持庫shellEx

.支持庫eAPI

.子程序__啟動窗口_創建完畢

注冊熱鍵(_啟動窗口.取窗口句柄(),標簽1.取窗口句柄(),0,#F鍵)

'按下F鍵就可以連續按x鍵再按下F鍵就可以停下按x鍵

.子程序_標簽1_反饋事件,整數型

.參數參數一,整數型

.參數參數二,整數型

.如果(時鍾1.時鍾周期＝0)

時鍾1.時鍾周期＝1

.否則

時鍾1.時鍾周期＝0

.如果結束

.子程序_時鍾1_周期事件

模擬按鍵(#X鍵,,)'這里改成E模塊里的按鍵命令

⑷ 易語言DNF連發工具源碼拜託各位大神

.版本 2 .程序集 窗口程序集1 .程序集變數 按鍵 .子程序 __啟動窗口_創建完畢 HOOK.安裝鍵盤鉤子 (&連發開關) .子程序 連發開關 .參數 鍵代碼, 整數型 .參數 狀態, 整數型 .如果真 (選擇框1.選中 ＝真) .如果真 (狀態 ≠ 257 且 鍵代碼 ＝ 按鍵) .如果真 (時鍾1.時鍾周期 ≠ 到整數 (編輯框1.內容)) 時鍾1.時鍾周期 ＝ 到整數 (編輯框1.內容) .如果真結束 .如果真結束 .如果真 (狀態 ＝ 257 且 鍵代碼 ＝ 按鍵) 時鍾1.時鍾周期 ＝ 0 .如果真結束 .如果真結束 .子程序 __啟動窗口_將被銷毀 HOOK.卸載鍵盤鉤子 () .子程序 _時鍾1_周期事件 按鍵(按鍵, 3) 超級延時 (100, 0) 按鍵(按鍵, 4) .子程序 _按鈕1_被單擊 信息框 (「請點擊確定後，按下需要連發的按鍵」, 0, ) .子程序 __啟動窗口_按下某鍵, 邏輯型 .參數 鍵代碼, 整數型 .參數 功能鍵狀態, 整數型 按鍵＝ 鍵代碼 信息框 (「設置成功！」, 0, ) .子程序 _按鈕1_按下某鍵, 邏輯型 .參數 鍵代碼, 整數型 .參數 功能鍵狀態, 整數型 按鍵＝ 鍵代碼 信息框 (「設置成功！」, 0, ) .子程序 _選擇框1_按下某鍵, 邏輯型 .參數 鍵代碼, 整數型 .參數 功能鍵狀態, 整數型 按鍵＝ 鍵代碼 信息框 (「設置成功！」, 0, ) .子程序 _編輯框1_獲得焦點 編輯框1.內容 ＝「」 .子程序 _選擇框1_被單擊 .如果真 (按鍵 ＝ 0) 信息框 (「請設置按鍵！」, 0, ) 選擇框1.選中 ＝假 返回() .如果真結束 .如果真 (到整數 (編輯框1.內容) ＜ 1) 信息框 (「請輸入正確速度！」, 0, ) .如果真結束 .如果 (選擇框1.選中 ＝真) 編輯框1.禁止 ＝真 .否則 編輯框1.禁止 ＝假 ------------------------------------------------------------------------------- 組件： 編輯框1 （速度） 按鈕1 （確定） 選擇框1 （開始連發）