冰楓論壇»論壇 › PC遊戲/線上遊戲討論 › 爆爆王(BNB) › 舊版外掛存放區 › 讓外掛有快速鍵(按鍵精靈版)

查看: 1880|回覆: 10

[討論] 讓外掛有快速鍵(按鍵精靈版)

19 主題	0 好友	14 積分

新手上路

Rank: 1

UID: 111222
帖子: 57
主題: 19
精華: 0
積分: 14
楓幣: 713
威望: 14
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 14
閱讀權限: 10
性別: 保密
在線時間: 7 小時
註冊時間: 2015-8-20
最後登入: 2022-12-4

發消息

電梯直達

1樓

發表於 2018-2-13 02:27:54 |只看該作者 |倒序瀏覽

本方式以洋洋技術 BNB111 基本功能程式為例
(如有冒犯請告知，在下會盡快刪除)
安裝按鍵精靈，編輯一個腳本(....廢話)

收藏0 推0 噓0

把本文推薦給朋友或其他網站上,每次被點擊增加您在本站積分: 1彩票

回覆

使用道具舉報

複製連結並發給好友，以賺取推廣點數

簡單兩步驟，註冊、分享網址，即可獲得獎勵！一起推廣文章換商品、賺$$

qwas963563

4406 主題	10 好友	3371 積分

副站長

Rank: 8 Rank: 8

UID: 70161
帖子: 33743
主題: 4406
精華: 0
積分: 3371
楓幣: 7283
威望: 1994
存款: 270000
贊助金額: 0
推廣: 87
ＧＰ: 13257
閱讀權限: 180
性別: 男
在線時間: 27532 小時
註冊時間: 2014-7-11
最後登入: 2024-11-26

發消息

2樓

發表於 2018-2-13 02:56:38 |只看該作者

可以建議作者添加快捷鍵
我相信作者會看見你的想法的

回覆

使用道具舉報

qwas963563

4406 主題	10 好友	3371 積分

副站長

Rank: 8 Rank: 8

UID: 70161
帖子: 33743
主題: 4406
精華: 0
積分: 3371
楓幣: 7283
威望: 1994
存款: 270000
贊助金額: 0
推廣: 87
ＧＰ: 13257
閱讀權限: 180
性別: 男
在線時間: 27532 小時
註冊時間: 2014-7-11
最後登入: 2024-11-26

發消息

3樓

發表於 2018-2-13 03:09:34 |只看該作者

很用心圖文解說棒~
另外句柄的部分可以這樣寫這樣就不用每次都要用抓抓工具抓一次句柄了

Hwnd = Plugin.Window.Find(0, "洋洋技術 BNB v111 基本功能")
HwndEx = Plugin.Window.FindEx(Hwnd, 0, 0, "無限光盾") // 一樣以無限光盾為例
Call Plugin.Bkgnd.KeyPress(HwndEx, 32)

複製代碼

[發帖際遇]: qwas963563 在「爆尿公社」隨意爆假卦，被無腦管理員轉發遭「受害者」控告，支付罰金 1 楓幣

幸運榜 / 衰神榜

回覆

使用道具舉報

jeff4899

頭像被屏蔽

11 主題	0 好友	12 積分

禁止訪問

UID: 139030
帖子: 46
主題: 11
精華: 0
積分: 12
楓幣: 1366
威望: 11
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 11
閱讀權限: 0
性別: 保密
在線時間: 13 小時
註冊時間: 2016-5-11
最後登入: 2018-5-26

發消息

4樓

發表於 2018-2-13 09:58:13 |只看該作者

提示: 作者被禁止或刪除內容自動屏蔽

回覆

使用道具舉報

style966

19 主題	0 好友	14 積分

新手上路

Rank: 1

UID: 111222
帖子: 57
主題: 19
精華: 0
積分: 14
楓幣: 713
威望: 14
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 14
閱讀權限: 10
性別: 保密
在線時間: 7 小時
註冊時間: 2015-8-20
最後登入: 2022-12-4

發消息

5樓

發表於 2018-2-13 10:14:08 |只看該作者

#2F  我也想跟作者建議，不過不好意思麻煩作者
#3F  多謝你又學到新的東西
#4F  我用的是舊版(阿榮福利社下載的)，後台都還可以用

回覆

使用道具舉報

洋洋技術

263 主題	118 好友	2641 積分

技術師

萌寶貝惡魔熊(熊熊技術)#3774

Rank: 15

UID: 210863
帖子: 985
主題: 263
精華: 0
積分: 2641
楓幣: 1507
威望: 2611
存款: 5000
贊助金額: 0
推廣: 102
ＧＰ: 1172
閱讀權限: 100
性別: 男
在線時間: 593 小時
註冊時間: 2017-10-24
最後登入: 2024-11-16

發消息

6樓

發表於 2018-2-14 17:11:17 |只看該作者

不錯唷~~

洋洋技術歡迎妳來
Discord:萌寶貝惡魔熊(熊熊技術)#3774
Line : a520250520
一起討論數據 更新數據 各種遊戲
個人影片傳送

回覆

使用道具舉報

洋洋技術

263 主題	118 好友	2641 積分

技術師

萌寶貝惡魔熊(熊熊技術)#3774

Rank: 15

UID: 210863
帖子: 985
主題: 263
精華: 0
積分: 2641
楓幣: 1507
威望: 2611
存款: 5000
贊助金額: 0
推廣: 102
ＧＰ: 1172
閱讀權限: 100
性別: 男
在線時間: 593 小時
註冊時間: 2017-10-24
最後登入: 2024-11-16

發消息

7樓

發表於 2018-2-14 17:12:44 |只看該作者

之後我會新增快捷鍵的~~

洋洋技術歡迎妳來
Discord:萌寶貝惡魔熊(熊熊技術)#3774
Line : a520250520
一起討論數據 更新數據 各種遊戲
個人影片傳送

回覆

使用道具舉報

lonelylove

3 主題	0 好友	4 積分

新手上路

Rank: 1

UID: 220677
帖子: 31
主題: 3
精華: 0
積分: 4
楓幣: 77
威望: 2
存款: 0
贊助金額: 0
推廣: 0
ＧＰ: 2
閱讀權限: 10
性別: 男
在線時間: 41 小時
註冊時間: 2018-1-24
最後登入: 2020-3-21

發消息

8樓

發表於 2018-2-14 17:22:41 |只看該作者

洋洋技術發表於 2018-2-14 17:12
之後我會新增快捷鍵的~~

' --------------------------------------------------------------------------------------
'声明注册热键API函数
Public Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Integer, ByVal id As Integer,
                                                ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer
'声明注销热键API函数
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Integer, ByVal id As Integer) As Integer

Public Const WM_HOTKEY As Short = &H312S '热键消息ID，此值固定，不能修改

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

      RegisterHotKey(Me.Handle.ToInt32, 1, Nothing, Keys.F3) '注册的热键为F3
      RegisterHotKey(Me.Handle.ToInt32, 2, Nothing, Keys.F5) '注册的热键为F5
      RegisterHotKey(Me.Handle.ToInt32, 3, Nothing, Keys.F2) '注册的热键为F2
End Sub

'窗体的消息处理函数
Protected Overrides Sub WndProc(ByRef m As Message)

      If m.Msg = WM_HOTKEY Then '判断是否为热键消息
         Select Case m.WParam.ToInt32 '判断热键消息的注册ID
            Case 1
                  If CheckBox5.Checked = True Then
                     CheckBox5.Checked = False
                  Else
                     CheckBox5.Checked = True
                  End If

                  ' 计数1 = 计数1 + 1    '两种方法
                  ' CheckBox5.Checked = True
                  ' If 计数1 > 1 Then
                  ' CheckBox5.Checked = False
                  ' 计数1 = 0
                  ' End If
            Case 2
                  If CheckBox7.Checked = True Then
                     CheckBox7.Checked = False
                  Else
                     CheckBox7.Checked = True
                  End If

            Case 3
                  If CheckBox4.Checked = True Then
                     CheckBox4.Checked = False
                  Else
                     CheckBox4.Checked = True
                  End If

         End Select
      End If

      MyBase.WndProc(m) '循环监听消息
End Sub

'最后别忘记注销热键哦
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
      UnregisterHotKey(Me.Handle.ToInt32, Keys.F3)
      UnregisterHotKey(Me.Handle.ToInt32, Keys.F2)
      UnregisterHotKey(Me.Handle.ToInt32, Keys.F5)
End Sub