冰楓論壇

 找回密碼
 立即註冊
查看: 223|回覆: 5
打印 上一主題 下一主題

[求助] vb2013請問如何寫一個可以在遊戲上啟動功能的熱鍵

[複製鏈接]

10

主題

6

好友

6

積分

新手上路

Rank: 1

UID
187285
帖子
24
主題
10
精華
0
積分
6
楓幣
1527
威望
6
存款
0
贊助金額
0
推廣
0
GP
7
閱讀權限
10
性別
在線時間
8 小時
註冊時間
2017-5-6
最後登錄
2018-2-15
跳轉到指定樓層
1
發表於 2017-12-2 18:34:21 |只看該作者 |倒序瀏覽
100楓幣
本帖最後由 安哥v 於 2017-12-2 18:36 編輯

sss.jpg


如題,例如可以在英雄聯盟中按F2開啟某種功能
求各位幫小弟解疑!!!!
感謝

最佳答案

乂Boyue乂 查看完整內容

If GetAsyncKeyState(Keys.F4) Then '按下F4 '你 '想 '做 '的 '事 End If
收藏收藏0 推0 噓0
把本文推薦給朋友或其他網站上, 有用戶註冊將增加您在本站積分: 1威望. 1推廣

293

主題

4

好友

914

積分

副站長

Rank: 8Rank: 8

UID
19632
帖子
1360
主題
293
精華
0
積分
914
楓幣
2656
威望
510
存款
0
贊助金額
1500
推廣
0
GP
6331
閱讀權限
160
性別
在線時間
576 小時
註冊時間
2013-1-6
最後登錄
2018-2-20

積分勳章 高級客戶 貢獻王 VIP會員 太陽勳章 幼兒勳章 懶人勳章 2016年紀念勳章 發帖達人 性別(男) 音樂勳章 神手勳章 熱心助人 版主勳章 解說達人 論壇粉絲 富豪勳章 2016端午節紀念勳章 Android勳章 管理者 核心勳章 論壇支持王 2017年紀念勳章 長老勳章 副站長勳章 除蟲大隊 2017中秋節紀念勳章 2017聖誕節紀念勳章

2
發表於 2017-12-2 18:34:22 |只看該作者
If GetAsyncKeyState(Keys.F4) Then   '按下F4               
'你
'想
'做
'的
'事
End If
回覆

使用道具 舉報

65

主題

4

好友

3194

積分

副站長

Rank: 8Rank: 8

UID
70161
帖子
2019
主題
65
精華
0
積分
3194
楓幣
3579
威望
3083
存款
70000
贊助金額
0
推廣
33
GP
6154
閱讀權限
160
性別
在線時間
2220 小時
註冊時間
2014-7-11
最後登錄
2018-2-19

積分勳章 解說達人 論壇粉絲 太陽勳章 神手勳章 2017端午節紀念勳章 發帖達人 2017年紀念勳章 私服達人 Android勳章 2017中秋節紀念勳章 在線終極王 論壇支持王 長老勳章 熱心助人 版主勳章 管理者 核心勳章 除蟲大隊 副站長勳章 2017聖誕節紀念勳章 2018年紀念勳章

3
發表於 2017-12-2 18:39:27 |只看該作者
利用 GetAsyncKeyState
判斷即可~
回覆

使用道具 舉報

10

主題

6

好友

6

積分

新手上路

Rank: 1

UID
187285
帖子
24
主題
10
精華
0
積分
6
楓幣
1527
威望
6
存款
0
贊助金額
0
推廣
0
GP
7
閱讀權限
10
性別
在線時間
8 小時
註冊時間
2017-5-6
最後登錄
2018-2-15
4
發表於 2017-12-2 19:06:41 |只看該作者
qwas963563 發表於 2017-12-2 18:39
利用 GetAsyncKeyState
判斷即可~

請問可不可以給一下範例代碼呢
[發帖際遇]: 安哥v 的電腦遭受黑客「馬生蠔」入侵,因此損失 1 楓幣. 幸運榜 / 衰神榜
回覆

使用道具 舉報

13

主題

5

好友

632

積分

高級會員

Rank: 4

UID
196532
帖子
245
主題
13
精華
0
積分
632
楓幣
5580
威望
628
存款
3024
贊助金額
0
推廣
0
GP
42
閱讀權限
50
性別
保密
在線時間
77 小時
註冊時間
2017-7-14
最後登錄
2018-2-18

私服達人 懶人勳章 性別(男) 神手勳章 音樂勳章 幼兒勳章 太陽勳章 2017年紀念勳章 熱心助人 性別(女) 除蟲大隊 2017中秋節紀念勳章 發帖達人 富豪勳章 Android勳章 積分勳章 2017聖誕節紀念勳章 2018年紀念勳章

5
發表於 2017-12-2 20:27:54 |只看該作者
本帖最後由 000x000 於 2017-12-2 20:28 編輯

比如CheckBox Text後加(&A)   <--A為快速鍵
例如功能為 無敵(&A) , 不過 我記得這好像不能換視窗按  你參考就好

回覆

使用道具 舉報

1

主題

1

好友

1

積分

新手上路

Rank: 1

UID
220677
帖子
8
主題
1
精華
0
積分
1
楓幣
8
威望
0
存款
0
贊助金額
0
推廣
0
GP
0
閱讀權限
10
性別
在線時間
11 小時
註冊時間
2018-1-24
最後登錄
2018-2-15
6
發表於 6 天前 |只看該作者
本帖最後由 lonelylove 於 2018-2-14 17:37 編輯

  哇..竟然扣分了...

' --------------------------------------------------------------------------------------
    '声明注册热键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









[發帖際遇]: 一個袋子砸在了 lonelylove 頭上,lonelylove 賺了 1 楓幣. 幸運榜 / 衰神榜
回覆

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

正在連接伺服器...
打開冰楓聊天室
廣告刊登意見回饋關於我們職位招聘

Copyright ? 2011-2018 冰楓論壇, All rights reserved

免責聲明:本網站是以即時上載留言的方式運作,本站對所有留言的真實性、完整性及立場等,不負任何法律責任。

而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。

小黑屋|意見反饋|手機版|Archiver|冰楓論壇

GMT+8, 2018-2-20 00:09

APP Store下載 Play Store下載
回頂部

http://www.vxiaotou.com