vbscript dll

2023年4月3日发(作者：迈克菲官方卸载)

vbs怎么调用api函数





让VBS或VBScript也能调用Windows API或Win32 API，只要把它放在system32文件夹，然后运行 注册。





VB中对CopyFile这个api做的说明如下：



CopyFile



VB声明



Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long



说明



复制文件。与vb的filecopy命令相似



返回值



Long，非零表示成功，零表示失败。会设置GetLastError



参数表



参数t 类型及说明

lpExistingFileNametString，源文件名

lpNewFileNamet String，目标文件名

bFailIfExistst Long，如果设为TRUE（非零），那么一旦目标文件已经存在，则函数调用会失败。否则目标文件被改写



所以我们的vbs的代码就是:



Set Wrap = CreateObject("DynamicWrapper")

er "", "CopyFileA","i=ssl","R=l"

'"i=ssl","R=l"是CopyFileA的API注册参数。

a=leA ("c:","c:",1)

If a=1 Then MsgBox "copy 成功"