diff --git a/webb.txt b/webb.txt index d694c02..ce43964 100644 --- a/webb.txt +++ b/webb.txt @@ -1,4 +1,4 @@ -1.获取WebBrowser加载网页的内容 +1.获取WebBrowser加载网页的内容 WebBrowser1.Document.getElementById("kw").Value = "VB编程" @@ -137,6 +137,7 @@ Headers As Variant, _ Cancel As Boolean) + If TypeName(pDisp) = "WebBrowser" And Headers = "" Then pDisp.Stop @@ -316,323 +317,64 @@ LPUNKNOWN lpUnknownDC = NULL; lpUnknown = m_webBrowser.GetControlUnknown(); - - - - - - - ASSERT(lpUnknown); - - - - - - - - - - if (lpUnknown) - - - - - - - { - - - - - - - // Get the pointer to the IUnknown interface of the WebBrowser - - - - - - - - // control being hosted. The pointer to the IUnknown returned from - - - - - - - - // GetControlUnknown is not the pointer to the IUnknown of the - - - - - - - - // WebBrowser control. It's actually a pointer to the IOleObject. - - - - - - - - // - - - - - - - - hr = lpUnknown->QueryInterface(IID_IUnknown, - - - - - - - - (LPVOID*)&lpUnknownWB); - - - - - - - - - - - ASSERT(SUCCEEDED(hr)); - - - - - - - - - - - if (FAILED(hr)) - - - - - - - - return; - - - - - - - - - - - // Get the pointer to the IUnknown of the object that fired this - - - - - - - - // event. - - - - - - - - // - - - - - - - - - - - - - - - hr = lpDispatch->QueryInterface(IID_IUnknown, - - - - - - - - (LPVOID*)&lpUnknownDC); - - - - - - - - - - - ASSERT(SUCCEEDED(hr)); - - - - - - - - - - - if (SUCCEEDED(hr) && lpUnknownWB == lpUnknownDC) - - - - - - - - { - - - - - - - - // The document has finished loading. - - - - - - - - - - - - - - - // - - - - - - - - MessageBox("The document has finished loading."); - - - - - - - - } - - - - - - - - - - - if (lpUnknownWB) - - - - - - - - lpUnknownWB->Release(); - - - - - - - - - - - if (lpUnknownDC) - lpUnknownDC->Release(); } } @@ -798,10 +540,6 @@ m_dlgNewWB->Create(IDD_MYDLG_DIALOG); 记住当你完成打开的新对话框后删除(delete) m_dlgNewWB . 且不要在CMyDlg::OnInitDialog 方法中导航, 因为这样代码将不会工作. - - - - ProgressChange ProgressChange 事件通告你的应用程序下在操作状态已经更新. ProgressChange 有两个参数: @@ -813,8 +551,4 @@ ProgressMax. 最大进度值 事件发生序列 下图展示了IE的事件发生序列.但这仅仅为不包含帧的普通网页浏览. (没有包含诸如 ProgressChange , CommandStateChange , OnToolBar , 等等事件.)不是所有事件都会被激发. 但是 BeforeNavigate2 和DocumentComplete 每次浏览都会被激发. - - - - Figure 7-5. The sequence of events fired by the WebBrowser control during a typical navigation. \ No newline at end of file diff --git a/首图导出工具.vbw b/首图导出工具.vbw index d4589a4..6cddf97 100644 --- a/首图导出工具.vbw +++ b/首图导出工具.vbw @@ -1,5 +1,5 @@ -Frm_Main = 0, 0, 984, 374, Z, 0, 0, 918, 535, C -TzDownload = 22, 22, 1006, 396, , 75, 75, 961, 524, C -TzListBox = 88, 88, 1072, 462, C, 22, 22, 940, 557, C -Frm_Download = 174, 51, 1224, 550, , 44, 44, 1028, 418, C -TzProgressBar = 88, 88, 1139, 462, , 0, 0, 0, 0, C +Frm_Main = 0, 0, 984, 374, , 0, 0, 918, 535, C +TzDownload = 0, 0, 0, 0, C, 0, 0, 0, 0, C +TzListBox = 0, 0, 0, 0, C, 0, 0, 0, 0, C +Frm_Download = 0, 0, 0, 0, C, 0, 0, 0, 0, C +TzProgressBar = 0, 0, 0, 0, C, 0, 0, 0, 0, C