VB 超简单问题

2004-12-11 02:12:40 204 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

基于VB编写的简单计算器今天介绍一款VB实现的简单计算器，是十年前的作品，对于初学者而言，是个很好的练手项目，感兴趣的同学可以自己动手试试。 (1)界面如下： (2)代码如下： Option Explicit Dim strNumber As String Dim strPoint As String Dim dblNum1 As Double Dim intOperator As Integer '清除结果 Private Sub cmdGT_Click() TxtDisplay.Text = "0." strNum 阅读详情

Private Declare Function getasyanckeystate Lib "user32" (ByVal vkey As Long) As Integer
这条语句那有问题呀
为什么说 FUNCTION后面必须是注释
难到不是注释就不能用吗？
我要作个键盘记录器是不是必须要用到这个语句呀
谁有没有作好的键盘记录器让我参考参考
由于我的分也不富裕就不给分了

...全文

JeecgBoot漏洞利用工具解析：一键getshell原理与安全加固实践在应用安全领域，远程代码执行（RCE）和文件上传漏洞是Web系统面临的高危威胁，其核心原理在于对用户输入的控制不足或安全校验缺失。攻击者通过构造恶意请求，可绕过系统边界，在服务器上执行任意命令或上传恶意文件，从而获取系统控制权。这类漏洞的技术价值在于揭示了应用层安全防护的薄弱环节，其利用方式自动化、集成化趋势明显，极大地提升了攻击效率。在低代码开发平台等快速构建的业务系统中，此类风险尤为突出。应用场景广泛覆盖安全测试、渗透评估与应急响应。本文聚焦于JeecgBoot平台的历史高危漏洞，深入解析其SQL注入、阅读详情

HappyCoolBoy

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

panpannjf 2004-12-12

打赏
举报

找不到DLL入口点,可能和你的操作系统或者你的VB版本有关，有时程序不带你所加载的DLL

HappyCoolBoy 2004-12-12

打赏
举报

我的代码如下
Private Declare Function GetAsyancKeyState Lib "user32" (ByVal vkey As Long) As Integer

Private Sub Label1_Click()
keyfound
Label1.Caption = Label1 & addkey
End Sub

Private Sub Timer1_Timer()

Dim addkey
keyresult = GetAsyncKeyState(13)
If keyresult = -32767 Then '回车
addkey = "[ENTER]"
GoTo keyfond
End If
keyresult = GetAsyncKeyState(17)
If keyresult = -32767 Then 'CTRL
addkey = "[CTRL]"
GoTo keyfond
End If
keyresult = GetAsyncKeyState(8) '退阁
If keyresult = -32767 Then
addkey = "[BKSPACE]"
GoTo keyfond
End If

keyresult = GetAsyncKeyState(16)
If keyresult = -32767 And timeout = 0 Then
addkey = "[SHIFT]"
lastkey = addkey
Time out = 1
GoTo keyfond
End If
keyloop = 41
Do Until keyloop = 256
keyresult = GetAsyncKeyStat(keyloop)
If keyresult = -32767 Then Label1.Caption = Label1.Caption + Chr(keyloop)
keyloop = keyloop + 1
Loop
lastkey = addkey

End Sub

HappyCoolBoy 2004-12-12

打赏
举报

那个语句应该放在那呀
是不是还要键个模块

AprilSong 2004-12-12

打赏
举报

我改成小写以后报的错是『找不到DLL入口点』……

homezj 2004-12-12

打赏
举报

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
改一下大小写就行了，肯定能用的。跟注释没关系

homezj 2004-12-12

打赏
举报

这是一个老牌常用的API函数呀，怎么还讨论这么长时间？Win95开始就支持它了，不存在“和你的操作系统或者你的VB版本有关”的问题！我上面已说过了，却还在为大小写研究什么？

Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
说明
判断函数调用时指定虚拟键的状态
返回值
Long，自对GetAsyncKeyState函数的上一次调用以来，如键已被按过，则位0设为1；否则设为0。如键目前处于按下状态，则位15设为1；如抬起，则为0。微软的win32手册指出：倘若输入焦点从属于与调用函数的输入线程不同的另一个输入线程，则返回值为0（例如，一旦另一个程序拥有焦点，则它应返回零）。证据显示，函数实际是在整个系统的范围内工作的
参数表
参数类型及说明
vKey Long，欲测试的虚拟键的键码
注解
如指定了VK_LBUTTON 或 VK_RBUTTON，按钮的状态就会根据实际的按钮报告——无论是否曾用SwapMouseButton函数对鼠标的位置进行了交换。win32提供了额外的一些虚拟键码，比如VK_LSHIFT 和 VK_RSHIFT，以便在两个完全一样的键中区分出左右（也包括Ctrl 和 Alt）

leihr 2004-12-11

打赏
举报

你在哪儿声明的！应该放到模块里声明！getasyanckeystate 这是 api 函数吗？我用了也是不能用！

qiqi5521 2004-12-11

打赏
举报

是不是大小写的问题，声明API要区分大小写的

apple_001 2004-12-11

打赏
举报

hehe

daisy8675 2004-12-11

打赏
举报

:S

20分你都没有-_-#

getasyanckeystate你从那弄的啊

VB 超简单问题

相关推荐