在vb中如何编写注册命令-星旺坡

管理首页

蓝色光线 23:34:22
你换图像了吗？
蓝色光线 23:37:16
在vb中如何编写注册命令，比如如下的命令在如何写
regsvr32 actxprxy.dll
菜鸟多媒体 23:36:08
将这个dll先拷到windows的system32 目录下
菜鸟多媒体 23:36:09
Dim winsys$, aa$
Private Sub Form_Load()
   winsys = Environ("windir") & "\system32\"
   aa = "regsvr32 " & winsys & "actxprxy.dll"
   Call Shell(aa, 3)
End Sub
蓝色光线 23:41:54
如果这个文件在当前目录下如何写
蓝色光线 23:43:39
如果这个dll在当前目录下如何写
菜鸟多媒体 23:40:24
Dim appdisk$
Private Sub Form_Load()
   appdisk = Trim(App.Path)
   If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
   aa = "regsvr32 " & appdisk & "actxprxy.dll"
   Call Shell(aa, 3)
End Sub

蓝色光线 23:49:27
要注册多个dll,比如shdocvw.dll，oleaut32.dll
是这样加吗
appdisk & "actxprxy.dll"
appdisk & "shdocvw.dll"
appdisk & "oleaut32.dll"

菜鸟多媒体 23:45:33
各别操作
菜鸟多媒体 23:46:43
Dim winsys$, aa$
Private Sub Form_Load()
   winsys = Environ("windir") & "\system32\"
   aa = "regsvr32 " & appdisk & "actxprxy.dll"
   Call Shell(aa, 3)
End Sub

菜鸟多媒体 23:47:01
aa = "regsvr32 " & appdisk & "shdocvw.dll"
  Call Shell(aa, 3)

菜鸟多媒体 23:47:26
aa = "regsvr32 " & appdisk & "oleaut32.dll"
  Call Shell(aa, 3)

菜鸟多媒体 23:50:22
Dim winsys$, aa$
Private Sub Form_Load()
   appdisk = Trim(App.Path)
   If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
   aa = "regsvr32 " & appdisk & "actxprxy.dll"
   Call Shell(aa, 3)
   aa = "regsvr32 " & appdisk & "shdocvw.dll"
   Call Shell(aa, 3)
   aa = "regsvr32 " & appdisk & "oleaut32.dll"
   Call Shell(aa, 3)
End Sub

蓝色光线 23:55:53
明白了
蓝色光线 00:01:10
copy c:\xld.txt d:\xld.txt
这个命令在dos如何写
菜鸟多媒体 23:57:08
这样就对啦
蓝色光线 00:02:31
在vb中如何写
菜鸟多媒体 23:58:18
copyfile "c:\xld.txt","d:\xld.txt"
菜鸟多媒体 23:58:56
FileCopy
菜鸟多媒体 23:59:04
不是copyfile
蓝色光线 00:04:37
在dos下
del xld.txt
在vb中如何写
菜鸟多媒体 00:00:05
kill "d:\xld.txt"