可以用VB资源的方法
首先打开VB资源编辑器(在外接程序里,没有的话请进管理器加载),添加“自定义资源”,然后把DLL添加进取,然后用这种方法
Dim TempFile() As Byte
TempFile=LoadResData(101,"CUSTOM")
Open "C:\Windows\SYSTEM32\sth.dll" For Binary Access Write As #1
Put #1, , TempFile
Close #1
这个文件就写入了,之后
Shell "regsvr32 C:\Windows\SYSTEM32\sth.dll"
注册这个组件就完成了