简单的CallByName

最新推荐文章于 2018-07-31 19:22:00 发布

原创最新推荐文章于 2018-07-31 19:22:00 发布 · 838 阅读

0 ·

CC 4.0 BY-SA版权

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