文章列表
设为主页代码及添加到收藏夹代码大全
- 博客分类:
- 技术杂绘
设为主页代码及添加到收藏夹代码大全
2010年06月28日
function addfavorite()
{
if (document.all)
{
window.external.addFavorite('http://www.XXX.com','XXX);
}
else if (window.sidebar)
{
window.sidebar.addPanel('XXX, 'http://w ...
VB钓鱼
2010年04月08日
Private Sub Command1_Click()
WebBrowser1.Navigate "http://你的网站/add.asp?"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
List1.Clear
For i = 0 To vDoc. ...
VB 获取 Internet Explorer_Server 里面的内容
2009年08月22日
最近几天,在群里有很多朋友询问如何通过“Internet Explorer_Server”类控件的句柄得到网页内容的问题。今天有时间,在网上搜索了一下,综合多方资料,我写了个模块用以解决上述问题。
呵呵,请看过的朋友回个贴哦,增加一下我空间的人气。^-^哈哈,不多说了,言归正传,请看代码:
'
' 模块代码:
'
Option Explicit'
' 要求:使用本模块时需要在工程中引用 Microsoft HTML Object Library。
'Priv ...