vbs脚本中如何调用DLL

置顶/标星公众号，不错过每一条消息

本文分享一下vbs脚本中如何调用动态链接库DLL

大家知道在C脚本中调用动态链接库DLL很方便，方式如下：

#pragma code("<name>.dll")

<type of="" returned="" value[="" span]=""> <function_name 1[="" span]="">(...);

<type of="" returned="" value[="" span]=""> <function_name2>(...); ..................<type of="" returned="" value[="" span]=""> <function_name n="">(...);

#pragma  code()  

这里的DLL指的是不需要注册的主要提供一些API的标准文件，不包括服务类型（扩展名）为DLL的组件对象模型COM（这类组件用vbs脚本操作更简单）。

那在vbs脚本中如何调用DLL？下面给大家介绍一种方法

这里要用到一个名为dynwrap.dll的组件，就是上面说的COM。COM必须在系统中注册后才能在vbs中调用。

首先把dynwrap.dll放到C:\Windows\System32目录下，然后使用regsvr32命令完成注册。

写一个vbs脚本测试一下：调用Win32 API kernel32.dll中GetUserDefaultUILanguage函数读取当前用户的用户UI语言的语言标识符。

Sub OnClick(Byval Item)

Dim WrapDim DefaultUILanguage

Set Wrap = CreateObject("DynamicWrapper")

Wrap.Register "Kernel32.dll", "GetUserDefaultUILanguage", "f=s", "r=l"

DefaultUILanguage=Wrap.GetUserDefaultUILanguage()

HMIRuntime.Trace DefaultUILanguage & vbCrLf

Set Wrap = Nothing

End Sub

返回的值为2052表示中文简体

当遇到脚本需要用vbs完成（如对office、sql操作，因为这比用c脚本要容易），而又要调用一些DLL的时候，这个组件可以帮上忙。

推荐阅读：

1关于ANSIC

2关于ANSIC预定义宏

最后

扫描下面二维码、关注后，在底部菜单中可查看更多内容!  

长按识别图中二维码关注

</function_name></type></function_name2></type></function_name></type></name>

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！