引用microsoft internet control Dim dWinFolder As New ShellWindows Dim objDoc As Object Dim objIE As Object Private Sub Command1_Click() On Error Resume Next For Each objIE In dWinFolder List1.AddItem objIE.Document.Title List2.AddItem objIE.LocationURL
Next End Sub Private Sub List2_Click() For Each objIE In dWinFolder If objIE.LocationURL = List2.List(List2.ListIndex) Then objIE.Quit End If Next End Sub
Dim objDoc As Object Dim objIE As Object
Private Sub Command1_Click()
On Error Resume Next
For Each objIE In dWinFolder
List1.AddItem objIE.Document.Title
List2.AddItem objIE.LocationURL
Next
End Sub
Private Sub List2_Click()
For Each objIE In dWinFolder
If objIE.LocationURL = List2.List(List2.ListIndex) Then
objIE.Quit
End If
Next
End Sub
http://blog.csdn.net/online/archive/2004/08/05/66373.aspx
我的VB(SP6)不知道什么原因不能使用API,一用就提示错误(XP系统),能不能顺便帮我解决这个问题,我不想用XP以外的系统编程!