冰楓論壇

 找回密碼
 立即註冊
搜索
查看: 1635|回覆: 5

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

[複製鏈接]
頭像被屏蔽

14

主題

6

好友

10

積分

禁止訪問

UID
187285
帖子
32
主題
14
精華
0
積分
10
楓幣
2207
威望
9
存款
0
贊助金額
0
推廣
0
GP
10
閱讀權限
0
性別
在線時間
11 小時
註冊時間
2017-5-6
最後登入
2021-6-21
發表於 2017-12-2 18:34:21 |顯示全部樓層
提示: 作者被禁止或刪除 內容自動屏蔽
複製連結並發給好友,以賺取推廣點數
簡單兩步驟,註冊、分享網址,即可獲得獎勵! 一起推廣文章換商品、賺$$

352

主題

11

好友

598

積分

副站長

Rank: 8Rank: 8

UID
19632
帖子
2073
主題
352
精華
0
積分
598
楓幣
59
威望
123
存款
0
贊助金額
1500
推廣
5
GP
11
閱讀權限
180
性別
在線時間
2007 小時
註冊時間
2013-1-6
最後登入
2024-7-23

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

發表於 2017-12-2 18:34:22 |顯示全部樓層
If GetAsyncKeyState(Keys.F4) Then   '按下F4               
'你
'想
'做
'的
'事
End If

點評

乂Boyue乂  我自己是丟Timer裡面=3= 你可以參考看看 因為我是新手 不一定是對的 哈哈  發表於 2017-12-2 20:31
點評回覆

使用道具 舉報

4262

主題

10

好友

3332

積分

副站長

Rank: 8Rank: 8

UID
70161
帖子
33060
主題
4262
精華
0
積分
3332
楓幣
7154
威望
1976
存款
260000
贊助金額
0
推廣
87
GP
12946
閱讀權限
180
性別
在線時間
27120 小時
註冊時間
2014-7-11
最後登入
2024-7-21

積分勳章 解說達人 論壇粉絲 太陽勳章 神手勳章 2017端午節紀念勳章 發帖達人 2017年紀念勳章 私服達人 Android勳章 2017中秋節紀念勳章 在線終極王 論壇支持王 長老勳章 熱心助人 版主勳章 管理者 核心勳章 除蟲大隊 副站長勳章 2017聖誕節紀念勳章 2018年紀念勳章 Apple勳章 2018端午節紀念勳章 懶人勳章 幼兒勳章 性別(女) 性別(男) 音樂勳章 富豪勳章 富可敵國 2018中秋節紀念勳章 中秋節紀念勳章 2018萬聖節紀念勳章 2018聖誕節紀念勳章 2019年紀念勳章 2019端午節紀念勳章 2019中秋節紀念勳章 2019聖誕節紀念勳章 2020年紀念勳章 屁孩勳章 2020端午節紀念勳章 2020中秋節紀念勳章 2020聖誕節紀念勳章 2021年紀念勳章 2021端午節紀念勳章 2021中秋節紀念勳章 2021聖誕節紀念勳章 2022年紀念勳章 2022端午節紀念勳章 2022中秋節紀念勳章 2022聖誕節紀念勳章 2023年紀念勳章 2023端午節紀念勳章 2023中秋節紀念勳章 2023聖誕節紀念勳章 2024年紀念勳章 2024端午節紀念勳章

發表於 2017-12-2 18:39:27 |顯示全部樓層
利用 GetAsyncKeyState
判斷即可~
點評回覆

使用道具 舉報

頭像被屏蔽

14

主題

6

好友

10

積分

禁止訪問

UID
187285
帖子
32
主題
14
精華
0
積分
10
楓幣
2207
威望
9
存款
0
贊助金額
0
推廣
0
GP
10
閱讀權限
0
性別
在線時間
11 小時
註冊時間
2017-5-6
最後登入
2021-6-21
發表於 2017-12-2 19:06:41 |顯示全部樓層
提示: 作者被禁止或刪除 內容自動屏蔽
[發帖際遇]: 安哥v 欲向「咬蚊子」購買機關槍,卻不慎購買到「Togi」,花費 1 楓幣 幸運榜 / 衰神榜
點評回覆

使用道具 舉報

3

主題

0

好友

4

積分

新手上路

Rank: 1

UID
220677
帖子
31
主題
3
精華
0
積分
4
楓幣
77
威望
2
存款
0
贊助金額
0
推廣
0
GP
2
閱讀權限
10
性別
在線時間
41 小時
註冊時間
2018-1-24
最後登入
2020-3-21
發表於 2018-2-14 17:35:34 |顯示全部樓層
本帖最後由 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 楓幣. 幸運榜 / 衰神榜
點評回覆

使用道具 舉報

高級模式
B Color Image Link Quote Code Smilies |上傳

廣告刊登意見回饋關於我們管群招募本站規範DMCA隱私權政策

Copyright © 2011-2024 冰楓論壇, All rights reserved

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

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

小黑屋|手機版|冰楓論壇

GMT+8, 2024-7-23 01:46

回頂部