用户在浏览一个网页,当然可以是除了IE以外其他的浏览器我怎么能获得该网页的地址和网页源码呢??
解决方案 »
- 在Access中利用自动功能调用Excel程序时,如何使Excel窗口最大后包含在Access窗口内?
- 关于text在form中的位置的问题 !!!
- Access2.0数据库升级成Access2000后打开数据库看不到表,象隐藏了一样?
- vb打开html文件
- 询问一个VB连接ORA数据库的问题
- 制作安装程序的小问题?
- 如何判断打印机状态(是打印机状态,不是winspool管理器的状态)
- 如何使计算机的蜂鸣器发出声音?就像 QB 里面的 PlaySound 一样?
- inputbox,黨按取消,或按確定但文本框為空時,得到的值都為空.如何判斷用戶按得失取消還是按的確定(文本框為空)
- VB6.0写代码求指导,求教育
- 请大家推荐一种好的vb界面控件(免费 付费均可)。谢谢了
- 怎样在Label控件里显示变量的平均符号,如x的平均应该怎么表示?谢谢!
If Text1.Text <> "" Then
WebBrowser1.Navigate2 Text1.Text
WebBrowser1.Visible = True
Text2.Visible = False
End If
End SubPrivate Sub Command2_Click()
Text2.Visible = True
Text2.Text = Inet1.OpenURL(Text1.Text)
WebBrowser1.Visible = False
End SubPrivate Sub Command3_Click()
End
End Sub
Dim IE As SHDocVw.InternetExplorer Private Sub Form_Load()
dim Doc
List1.clear
List2.Cleartext1.text=sws.countfor each ie in sws
list1.additem,ie,locationname
set doc=ie.document
if typeofdoc is htmldocument then
list2.additem doc.title
end if
next
end sub打字太累了所以后来就不区分大小写了可能打字还有错太累了,总之一句话用这2个控件解决
这段代码不是我产的,但是已经不知道作者了,感谢他吧
http://community.csdn.net/Expert/topic/3607/3607031.xml?temp=.6927149
Dim IEList As New ShellWindows
Dim browser
On Error Resume Next
'遍历当前地浏览器窗口
For Each browser In IEList Next
End Sub
如何获得MyIE2或腾讯TE打开的当前网页的源码及网址(网址不知)?