PC2014关于全局变量的问题 _ 综合讨论

查看: 120\|回复: 3	[已解决] PC2014关于全局变量的问题 [复制链接]

发送短消息 UID 9010148 帖子 110 精华 0 鲜花 59 朵铜币 147 个银币 127 个性别在线时间 0 注册时间 2023-04-06 最后登录 2025-11-15 查看公共资料搜索主题搜索帖子指尖的花瓣组别小学五年级 UID9010148 帖子110 精华0 鲜花59 朵铜币147 个银币127 个在线时间0 注册时间2023-04-06	1^# 字体大小: t T 发表于 2025-11-13 12:13 \| \|只看楼主想做个中控界面，自己画个启动按钮，但是这串API,变量的声明代码无法放到Sub ，Event里执行，只能放在脚本开头，那如何在不使用按键精灵自带的启动按钮的情况下，用自己的画的按钮启动脚本，能成功声明这些变量和API呢？ ' API声明 Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long Private Declare Function LoadCursor Lib "user32" Alias " LoadCursorA" (ByVal hInstance As Long, lpCursorName As Any) As Long ' modified Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long Private Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long Declare Function 获取键鼠信息 Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer PutAttachment ".\plugin","RegDll.dll" Public Declare Function SetDllPathW Lib ".\plugin\RegDll.dll" Alias "SetDllPathW" (ByVal path As String, ByVal mode As Long) As Long ' 全局环境变量定义 Dimenv 开始时间(30), 累计时间(30), 副线程ID(30), 暂停状态(30), gCurrentRow,主线程ID(30) ' 初始化变量复制代码
	点赞

	回顶部

发送短消息 UID 9374445 帖子 33 精华 0 鲜花 60 朵铜币 130 个银币 80 个性别在线时间 0 注册时间 2024-12-04 最后登录 2025-11-13 查看公共资料搜索主题搜索帖子程序自动化C#VB 组别小学二年级 UID9374445 帖子33 精华0 鲜花60 朵铜币130 个银币80 个在线时间0 注册时间2024-12-04	2^# 字体大小: t T 发表于 2025-11-13 17:10 \| \|只看该用户加我QQ 527524938，可以写个DLL给按键调用


	回顶部

瑞祥幽冥狼

按键工程师 ● 兼职

组别超级版主
UID1228894
帖子27064
精华25
鲜花8240 朵
铜币36318 个
银币4935 个
在线时间421340
注册时间2012-07-18

3^#

字体大小: t T

发表于 2025-11-14 08:18 | |只看该用户

想做个中控界面，自己画个启动按钮，但是这串API,变量的声明代码无法放到Sub ，Event里执行，只能放在脚本开头，那如何在不使用按键精灵自带的启动按钮的情况下，用自己的画的按钮启动脚本，能成功声明这些变量和API......
指尖的花瓣发表于 2025/11/13 12:13:41

Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer'API直接开头声明即可，数组通过组成字符串和分解成数组的方式传递，不支持定义为环境变量
Event Form1.Button1.Click
KeyPress "A", 1
a = GetAsyncKeyState(65)
MsgBox a
KeyDown "A", 1
a = GetAsyncKeyState(65)
MsgBox a
KeyUp "A", 1
a= GetAsyncKeyState(65)
MsgBox a
End Event

瑞祥幽冥狼最后编辑于 2025-11-14 08:26:52

收徒索引 ← ← ← ← ← ← ← ← ← ← 点击

个人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］
个人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］

回顶部

发送短消息 UID 9010148 帖子 110 精华 0 鲜花 59 朵铜币 147 个银币 127 个性别在线时间 0 注册时间 2023-04-06 最后登录 2025-11-15 查看公共资料搜索主题搜索帖子指尖的花瓣组别小学五年级 UID9010148 帖子110 精华0 鲜花59 朵铜币147 个银币127 个在线时间0 注册时间2023-04-06	4^# 字体大小: t T 发表于 2025-11-15 00:00 \| \|只看楼主 , 话说论坛上的帖子怎么都不见了，现在想搞个后台多开游戏脚本纯粹闭门造车，记得前几年论坛上源码挺多的


	回顶部

上一主题| 下一主题

[已解决] PC2014关于全局变量的问题 [复制链接]