UC知道vb编程 清除上网痕迹
来源：百度知道 编辑：UC知道 时间：2024/06/21 01:11:18
请大家帮个帮,我想学一下怎么用VB写出一个可以清除上网痕迹的程序.
但是,我不会,一点头绪都没有,请高人指点,
如果有源码的被采用了,我要追加分的.
或者,高手帮我看一下这个,(成功了一样追加分)
http://www.applevb.com/sourcecode/delete%20history.zip
(有可能控件错误,去SYSTEM32里面把那个控件复制到目录下就好了)
怎样用里面的DeleteURL
回 :我指的是历史记录
谢谢, FlamesHsu.你说的是可以的,再请你看一下,假如我要删除指定的一条记录,该怎么做.(成功了,我会追加最高的分),麻烦了.
我也没成功,但是Clear 是可以的，
但是,我不会,一点头绪都没有,请高人指点,
如果有源码的被采用了,我要追加分的.
或者,高手帮我看一下这个,(成功了一样追加分)
http://www.applevb.com/sourcecode/delete%20history.zip
(有可能控件错误,去SYSTEM32里面把那个控件复制到目录下就好了)
怎样用里面的DeleteURL
回 :我指的是历史记录
谢谢, FlamesHsu.你说的是可以的,再请你看一下,假如我要删除指定的一条记录,该怎么做.(成功了,我会追加最高的分),麻烦了.
我也没成功,但是Clear 是可以的，
你是指IE输入条的记录
还是历史记录?
CURLHistory里面有个Clear时间
Dim History As CURLHistory
History.Clear
你试试
DeleteURL 包含在Remove里,
用Remove就可以了
Private Sub Command1_Click()
Dim AA As URLHistoryItem
AA = History.Remove(1)
End Sub
我看过
这样应该是对的,,
不知道怎么我就是没成功!1
call tiwen()
On Error Resume Next
dim wshshell
set wshshell=wscript.createobject("wscript.shell")
wshshell.popup "已经将上网留下的痕迹清除，请重新启动计算机！",,"系统提示"
wshshell.Regdelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs\"
wshshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs\"
sub tiwen()
dim okcancel
okcancel=msgbox ("您的操作将清除上网留下的痕迹，继续吗？",vbokcancel + 32 + 4096,"系统提示")
if okcancel=vbcancel then
wscript.quit
end if
end sub
&#