简单的CallByName

最新推荐文章于 2024-05-08 23:35:17 发布

佛魔尽诛

最新推荐文章于 2024-05-08 23:35:17 发布

阅读量834

点赞数

CC 4.0 BY-SA版权

分类专栏： VB6.0

本文链接：https://blog.youkuaiyun.com/Sa_1GHz/article/details/8330271

VB6.0 专栏收录该内容

1 篇文章

订阅专栏

本文展示了一个使用VBScript调用DLL文件中MessageBoxA函数的例子，通过加载user32.dll并获取函数地址，最终弹出消息框。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Dim hLib As Long
Dim addrProc As Long

hLib=LoadLibrary("user32.dll")
If hLib Then
  addrProc=GetProcAddress(hLib,"MessageBoxA")
  If addrProc Then
    Dim text() As Byte
    Dim title() As Byte
    text=StrConv("text" & chr(0),vbFromUnicode)
    title=StrConv("title" & chr(0),vbFromUnicode)
  Call CallWindowProc(addrProc,Me.hwnd,varptr(text(0)),varptr(title(0)),0&)
  End If
End If