九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

步驟 說明
　GoBack 無異于IE的“退后”旋鈕，使你在目前歷史列表中退后一項(xiàng)

　GoForward 等同于IE的“前行”旋鈕，使你在目前歷史列表中前行一項(xiàng)
　GoHome 等同于IE的“首頁”旋鈕，聯(lián)接用戶默許的首頁
　GoSearch 無異于IE的“搜尋”旋鈕，聯(lián)接用戶默許的搜尋頁面
　Navigate 聯(lián)接到指定的URL
　Refresh 刷新現(xiàn)階段頁面
　Refresh二 同上，只是可以指定刷新級別，所指定的刷新級別的值來源于RefreshConstants枚舉表，
該表定義在ExDisp.h中，可以指定的不同值如次：
REFRESH_NORMAL 實(shí)施簡略的刷新，不將HTTP pragma: no-cache毛發(fā)送給服務(wù)器
REFRESH_IFEXPIRED 惟獨(dú)在網(wǎng)頁逾期后才開展簡略的刷新
REFRESH_CONTINUE 僅作內(nèi)部運(yùn)用。在MSDN里寫著DO NOT USE! 切莫運(yùn)用
REFRESH_COMPLETELY 將包孕pragma: no-cache頭的請求發(fā)送到服務(wù)器

　Stop 無異于IE的“終止”旋鈕，終止現(xiàn)階段頁面及其內(nèi)容的載入
屬性 說明
　Application 如其該對象有效，則回到主持WebBrowser控件的應(yīng)用程序兌現(xiàn)的自動(dòng)化對象(IDispatch)。如果在宿主對象中自動(dòng)化對象無效，這個(gè)程序?qū)⒒貋鞼ebBrowser
控件的自動(dòng)化對象
　Parent 回來WebBrowser控件的父自動(dòng)化對象，通常是一個(gè)器皿，比如是宿主或IE窗口
　Container 回來WebBrowser控件器皿的自動(dòng)化對象。正常該值與Parent屬性回到的值雷同
　Document 為活動(dòng)的文檔回到自動(dòng)化對象。如其HTML目前正被展示在WebBrowser中，則
Document屬性提供對DHTML Object Model的訪問路徑
　TopLevelContainer 回來一個(gè)Boolean值，表明IE是不是是WebBrowser控件高層器皿，是便回來true

　Type 回到已被WebBrowser控件加載的對象的部類。比如：如若加載.doc資料，就會(huì)返
來Microsoft Word Document
　Left 回到或設(shè)立WebBrowser控件窗口的內(nèi)部左面與器皿窗口左面的距離
　Top 回來或設(shè)立WebBrowser控件窗口的內(nèi)部左首與器皿窗口頂邊的距離
　Width 回來或設(shè)立WebBrowser窗口的寬度，以像素為組織
　Height 回到或設(shè)立WebBrowser窗口的高度，以像素為機(jī)構(gòu)
　LocationName 回到一個(gè)字符串，該字符串包含著WebBrowser現(xiàn)階段展示的資源的姓名，如若資源
是網(wǎng)頁乃是網(wǎng)頁的題目；如果是資料或文件夾，乃是資料或文件夾的姓名
　LocationURL 回到WebBrowser現(xiàn)階段在展示的資源的URL
　Busy 回來一個(gè)Boolean值，說明WebBrowser目前是不是在加載URL，如若回來true
就可以施用stop步驟來撤消在實(shí)施的訪問操作

http://hi.baidu.com/lovemoe/creat/blog/

Document 屬性

回到包孕 HTML 文檔姓名的字符串。

Silent 屬性

禁止展示任何部類的對話框。

DocumentText屬性

獲取或設(shè)立現(xiàn)階段網(wǎng)頁的 HTML 內(nèi)容

Url 屬性

獲取或設(shè)立現(xiàn)階段網(wǎng)頁的 URL。設(shè)立該屬性時(shí)，會(huì)將該控件定位到新的 URL。

DocumentCompleted 事件

網(wǎng)頁完成加載時(shí)產(chǎn)生。

BeforeNavigate 事 件

開 始 導(dǎo) 航 前 發(fā) 生。 1 般 在 此 獲 取 完 整 的URL 字 符 串。

GoBack GoForward GoHome步驟

定位到歷史記錄中的上一頁和下一頁和首頁。

Refresh步驟

刷新目前頁

Navigate 步驟

定位到指定的 URL。Navigate 方 法 的 語 法 格 式 為：
[Flags,][TargetFrameName,][PostData,][Headers]

URL 參數(shù)

Uniform Resource Locator獲 得 導(dǎo) 航 用 的 標(biāo) 準(zhǔn)URL 字 符 串。 例 如： 它 會(huì) 將”www.MicroSoft.Com” 從 動(dòng) 翻 譯 為”http://www.MicroSoft.Com”.

webBrowser運(yùn)用
http://hi.baidu.com/lovemoe/creat/blog/
摘引Microsoft HTML Object Library和Microsoft Internet Controls控件

'獲取Document對象
Set WBD = WebBrowser一.Document

獲取網(wǎng)頁源代碼

WebBrowser一.Document.body.createtextrange().htmltext

最簡略的登陸

Set WBD = WebBrowser一.Document
WBD.body.All('name').Value =' '
WBD.body.All('PASS').Value = ' '
WBD.Forms(零).submit

調(diào)用帶參數(shù)的javascript

WBD.parentWindow.execScript 'document.login.submit()', 'javascript'

障蔽網(wǎng)頁的alert對話框

Private Sub WebBrowser一_NavigateComplete二(ByVal pDisp As Object, URL As Variant)
pDisp.Document.parentWindow.execScript 'window.alert=null;'
End Sub

遍歷

For mIndex = 零 To mDocument.Forms.length - 一 '輸出每個(gè)FORM
Print mDocument.Forms(mIndex).Name
lstLinks.AddItem '輸出聯(lián)接'
For mIndexEx = 零 To mDocument.links.length - 一 '輸出聯(lián)接
lstLinks.AddItem mDocument.links(mIndexEx)
Next
lstLinks.AddItem '圖片地址'
For mIndexEx = 零 To mDocument.images.length - 一 '輸出圖片
lstLinks.AddItem mDocument.images(mIndexEx).src '圖片地址
Next
Next

數(shù)據(jù)下載完畢后操作

Private Sub WebBrowser一_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL <> 'Do
If Not WebBrowser一.Busy Then Exit Do
DoEvents
Loop

取得瀏覽器信息：

Private Sub Command一_Click()
WebBrowser一.Navigate 'End Sub
Private Sub Command二_Click()
Dim oWindow
Dim oNav
Set oWindow = WebBrowser一.Document.parentWindow
Set oNav = oWindow.navigator
Debug.Print oNav.userAgent
Set oWindow = Nothing
Set oNav = Nothing
End Sub
（點(diǎn)擊Command一瀏覽網(wǎng)頁，點(diǎn)擊Command二在立地窗口中輸出瀏覽器信息。）

彈出Webbrowser訊息窗口

Dim oWindow
Set oWindow = WebBrowser一.Document.parentWindow
oWindow.confirm 'abcd'

頁面滾動(dòng)：

Private Sub Command二_Click()
WebBrowser一.Document.parentwindow.scrollby 零, 30
End Sub
Private Sub Form_Load()
WebBrowser一.Navigate 'End Sub
（點(diǎn)擊Command二就可以使目前頁面臨下滾動(dòng)30像素）

判斷頁面是不是可此前進(jìn)退后

Private Sub Command一_Click()
WebBrowser一.GoForward
End Sub
Private Sub Command二_Click()
WebBrowser一.GoBack
End Sub
Private Sub Form_Load()
WebBrowser一.Navigate 'End Sub
Private Sub WebBrowser一_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
If (Command = CSC_NAVIGATEBACK) Then
Command二.Enabled = Enable
End If
If (Command = CSC_NAVIGATEFORWARD) Then
Command一.Enabled = Enable
End If
End Sub

向Webbrowser中寫下HTML內(nèi)容的幾種步驟：

首先在Form_Load中加入
WebBrowser一.Navigate 'about:blank'
保準(zhǔn)Webbrowser一可用
步驟一：

Dim s As String
Dim stream As IStream
s = ''
s = s + ''
s = s + ''
s = s + 'hello world '
s = s + ''
s = s + '
WebBrowser一.Document.Write s

步驟二：

Dim o
Set o = WebBrowser一.Document.selection.createrange
Debug.Print o
If (Not o Is Nothing) Then
o.pasteHTML '哈哈哈'
Set o = Nothing
End If

步驟三：

'安插文本框
Dim o

Set o = WebBrowser一.Document.selection.createrange
o.execCommand 'InsertTextArea', False, 'xxx'

何以使網(wǎng)頁不出現(xiàn)滾動(dòng)條：

Private Sub mnuScroll一_Click()
@#注意：務(wù)須在網(wǎng)頁完全展示以后才可以運(yùn)作
WebBrowser一.Document.body.Scroll = 'no' @#不展示滾動(dòng)條的辦法
End Sub
Private Sub mnuScroll二_Click()
@#注意：務(wù)必在網(wǎng)頁完全展示以后才可以運(yùn)作
WebBrowser一.Document.body.Scroll = 'Auto' @#展示滾動(dòng)條的辦法
End Sub

何以取得網(wǎng)頁中被選中一部分的HTML：

Private Sub Command一_Click()
Dim objSelection
Dim objTxtRange

Set objSelection = WebBrowser一.Document.selection
If Not (objSelection Is Nothing) Then
Set objTxtRange = objSelection.createRange
If Not (objTxtRange Is Nothing) Then
Debug.Print objTxtRange.htmlText

Set objTxtRange = Nothing
End If
Set objSelection = Nothing
End If
End Sub

Private Sub Form_Load()
WebBrowser一.Navigate 'End Sub

==================
運(yùn)用WebBrowser的Navigator也許Navigator二步驟打開一個(gè)asp文檔而且傳送
參數(shù)進(jìn)入，但是asp文檔沒法取得參數(shù)，討教是什么原因？

vb源碼：
Private Sub cmdSubmit_Click()
Dim strURL As String, strFormData As String
Dim strData As String
strURL = Trim$(txtURL.Text)
strFormData = 'name=' & Trim$(txtName.Text) &

'&password=' & Trim$(txtPassword.Text)
Call WBTest.Navigate二(strURL, 64, '_blank', strFormData,

'hello')
End Sub

asp源碼：

*********************************************************************

Option Explicit

Private Sub Command一_Click()
Dim szValue As String
WebBrowser一.Document.body.innerHTML = '

method=post action=http://地址/xxx.php>
'
WebBrowser一.Document.Forms('post').submit
End Sub

Private Sub Form_Load()
WebBrowser一.Navigate二 'about:blank'
End Sub
Top

********************************************************************

在WebBrwoser控件里提供的Navigate或許Navigate二步驟中提供了傳送數(shù)據(jù)

的參數(shù)，調(diào)用形式為：WebBrowser一.Navigate二(URL,[Flags],

[TargetFrameName],[PostData],[Headers])
內(nèi)中PostData參數(shù)乃是一個(gè)交付參數(shù)目字符串，比如'name=aaa&password=123'，

但問題是為何這個(gè)步驟并不是有效的，服務(wù)器端不能獲得數(shù)據(jù)？
如其這個(gè)步驟是有效的話就不需要用一段html代碼模擬這種調(diào)用了。

下邊代碼能檢測出程序post出去的訊息

Private Sub WebBrowser一_BeforeNavigate二(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
MsgBox PostData
End Sub

何以利用 WebBrowser 控件,展示 .GIF 卡通?

要有一定的網(wǎng)頁常識(shí)(HTML、JavaScript、CSS)
注意細(xì)節(jié):
沒'滾動(dòng)條'和'鼠標(biāo)右鍵彈出的 IE 前后文菜單','.HTM 源文件' ...
我寫了一個(gè),成效還真不錯(cuò)!

'Objects: Form一、Command一、CommonDialog一、WebBrowser一
Option Explicit
Private Sub Command一_Click()
CommonDialog一.ShowOpen
If VBA.Len(VBA.Trim(CommonDialog一.FileName)) > 零 Then
Dim p As stdole.StdPicture
Dim sPath As String
sPath = VBA.Trim(VBA.Trim(CommonDialog一.FileName))
Set p = VB.LoadPicture(sPath)
WebBrowser一.Width = p.Width * 16 / 26
WebBrowser一.Height = p.Height * 16 / 26
' WebBrowser一.Navigate 'about:blank'
WebBrowser一.Document.open
WebBrowser一.Document.writeln ''
WebBrowser一.Document.writeln ''
WebBrowser一.Document.writeln ''
WebBrowser一.Document.writeln ''
WebBrowser一.Document.writeln 'WebBrowser一.Document.writeln '
WebBrowser一.Document.writeln 'WebBrowser一.Document.writeln '
'
WebBrowser一.Document.writeln ''
WebBrowser一.Document.writeln ''
End If
End Sub
Private Sub Form_Load()
Command一.Caption = '&Open'
WebBrowser一.Navigate 'about:blank'
WebBrowser一.Document.open
WebBrowser一.Document.writeln ''
WebBrowser一.Document.writeln ''
WebBrowser一.Document.writeln ''
WebBrowser一.Document.writeln ''
WebBrowser一.Document.writeln 'WebBrowser一.Document.writeln ''
WebBrowser一.Document.writeln ''
WebBrowser一.Document.Close
End Sub

WebBrowser控件說明
步驟 說明
　GoBack 等同于IE的“退后”旋鈕，使你在現(xiàn)階段歷史列表中退后一項(xiàng)

　GoForward 等同于IE的“前行”旋鈕，使你在現(xiàn)階段歷史列表中前行一項(xiàng)
　GoHome 無異于IE的“首頁”旋鈕，聯(lián)接用戶默許的首頁
　GoSearch 無異于IE的“搜尋”旋鈕，聯(lián)接用戶默許的搜尋頁面
　Navigate 聯(lián)接到指定的URL
　Refresh 刷新目前頁面
　Refresh二 同上，只是可以指定刷新級別，所指定的刷新級別的值來源于RefreshConstants枚舉表，
該表定義在ExDisp.h中，可以指定的不同值如次：
REFRESH_NORMAL 施行容易的刷新，不將HTTP pragma: no-cache毛發(fā)送給服務(wù)器
REFRESH_IFEXPIRED 惟獨(dú)在網(wǎng)頁逾期后才開展簡略的刷新
REFRESH_CONTINUE 僅作內(nèi)部運(yùn)用。在MSDN里寫著DO NOT USE! 切莫應(yīng)用
REFRESH_COMPLETELY 將包孕pragma: no-cache頭的請求發(fā)送到服務(wù)器

　Stop 等同于IE的“終止”旋鈕，終止目前頁面及其內(nèi)容的載入

屬性 說明
　Application 如若該對象有效，則回到主持WebBrowser控件的應(yīng)用程序兌現(xiàn)的自動(dòng)化對象(IDispatch)。如果在宿主對象中自動(dòng)化對象無效，這個(gè)程序?qū)⒒氐絎ebBrowser
控件的自動(dòng)化對象
　Parent 回來WebBrowser控件的父自動(dòng)化對象，通常是一個(gè)器皿，比如是宿主或IE窗口
　Container 回到WebBrowser控件器皿的自動(dòng)化對象。正常該值與Parent屬性回到的值雷同
　Document 為活動(dòng)的文檔回到自動(dòng)化對象。如其HTML現(xiàn)階段正被展示在WebBrowser中，則
Document屬性提供對DHTML Object Model的訪問路徑
　TopLevelContainer 回來一個(gè)Boolean值，表明IE是不是是WebBrowser控件中上層器皿，是便回來true

　Type 回來已被WebBrowser控件加載的對象的門類。比如：如其加載.doc資料，就會(huì)返
來Microsoft Word Document
　Left 回來或設(shè)立WebBrowser控件窗口的內(nèi)部左側(cè)與器皿窗口左面的距離
　Top 回到或設(shè)立WebBrowser控件窗口的內(nèi)部左側(cè)與器皿窗口頂邊的距離
　Width 回來或設(shè)立WebBrowser窗口的寬度，以像素為部門
　Height 回來或設(shè)立WebBrowser窗口的高度，以像素為組織
　LocationName 回來一個(gè)字符串，該字符串包含著WebBrowser目前展示的資源的姓名，如其資源
是網(wǎng)頁便是網(wǎng)頁的題目；如果是資料或文件夾，便是資料或文件夾的姓名
　LocationURL 回來WebBrowser現(xiàn)階段在展示的資源的URL
　Busy 回來一個(gè)Boolean值，說明WebBrowser現(xiàn)階段是不是在加載URL，如若回來true
就可以應(yīng)用stop步驟來取消在施行的訪問操作

WebBrowser 的事件
Private Events Description
BeforeNavigate二 領(lǐng)航發(fā)作前激起，刷新時(shí)不激起
CommandStateChange 應(yīng)下令的激活狀態(tài)改變時(shí)激起。它表明幾時(shí)激活或封閉Back和Forward
菜單項(xiàng)或旋鈕
DocumentComplete 應(yīng)整個(gè)文檔完成是激起，刷新頁面不激起
DownloadBegin 應(yīng)某項(xiàng)下載操作已經(jīng)開始后激起，刷新也可激起此事件
DownloadComplete 應(yīng)某項(xiàng)下載操作已經(jīng)完成后激起，刷新也可激起此事件
NavigateComplete二 領(lǐng)航完成后激起，刷新時(shí)不激起
NewWindow二 在創(chuàng)造新窗口早先激起
OnFullScreen 應(yīng)FullScreen屬性改變時(shí)激起。該事件采取VARIENT_BOOL的一個(gè)輸
進(jìn)參數(shù)來指示IE是全屏展示形式(VARIENT_TRUE)仍是普普通通展示形式(VARIENT_FALSE)
OnMenuBar 改變MenuBar的屬性時(shí)激起，標(biāo)志參數(shù)是VARIENT_BOOL部類的。
VARIANT_TRUE是足見，VARIANT_ FALSE是暗藏
OnQuit 無論用戶封鎖瀏覽器仍是開發(fā)者調(diào)用Quit步驟，應(yīng)IE退出時(shí)就會(huì)激起
OnStatusBar 與OnMenuBar調(diào)用步驟雷同，標(biāo)志狀態(tài)欄是不是顯見。
OnToolBar 調(diào)用步驟同上，標(biāo)志工具欄是不是足見。
OnVisible 統(tǒng)制窗口的足見或掩藏，也運(yùn)用一個(gè)VARIENT_BOOL門類的參數(shù)
StatusTextChange 如若要改變狀態(tài)欄中的文字，這個(gè)事件就會(huì)被激起，但它并不顧會(huì)程序是不是有狀態(tài)欄
TitleChange Title有效或改變時(shí)激起
WEBBROWSER 技藝（保藏）

看到很多對于WebBrowser控件禁止右鍵的提問，恢復(fù)的步驟很多，其中有談到應(yīng)用微軟提供的 Webbrowser擴(kuò)張COM服務(wù)器對象（WBCustomizer.dll），但是該步驟在我們念施用Webbrowser編者網(wǎng)頁（Webbrowser一.Document.execCommand editMode）的時(shí)分有很多弊病，例如不能展示選中的文本等。另有點(diǎn)步驟也就不要一一列舉了。

這會(huì)兒我想談到的是至于MSHTML.HTMLDocument

引述Microsoft HTML OBject Library

Rem ＃窗體代碼＃

Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
End Function

Private Sub Webbrowser一_DownloadComplete()
Set M_Dom = Webbrowser一.Document
End Sub

Rem 好了，右鍵菜單沒了

=======================================================================

控件調(diào)用和取得收藏夾里頭

大抵用 specialfolder(六 ) 就可以失去收藏夾的途徑, 其后你可以用dir去循環(huán)讀入每個(gè)索引,其后dir里頭的file, file的名字便是你要的歸藏的名字, 途徑可以自各兒依據(jù)從上頭失去的途徑去失去.
如其你不要dir也可以用vb的dir控件.
Private Type SHITEMID
cb As Long
abID As Byte
End Type

Public Type ITEMIDLIST
mkid As SHITEMID
End Type
Public Function SpecialFolder(ByRef CSIDL As Long) As String
locate the favorites folder
Dim R As Long
Dim sPath As String
Dim IDL As ITEMIDLIST
Const NOERROR = 零
Const MAX_LENGTH = 260
R = SHGetSpecialFolderLocation(MDIMain.hwnd, CSIDL, IDL)
If R = NOERROR Then
sPath = Space$(MAX_LENGTH)
R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)
If R Then
SpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 一)
End If
End If
End Function
================================================================

是的,webbrowser本生是一個(gè)控件, 你要它全屏,乃是要它所在的窗體全屏, 可以用setwindowlong撤除窗體的 title, 用Call ShowWindow(FindWindow(Shell_traywnd, ), 零) 掩藏tray,乃是底下那個(gè)包孕開始那一起. 用Call ShowWindow(FindWindow(Shell_traywnd, ), 九) 回復(fù). 夠詳細(xì)了吧.

其后在form一.windowstate = 二 就可以了.

====================================================================
取舍網(wǎng)頁上的內(nèi)容。
Private Sub Command一_Click()
請先選中一些內(nèi)容
Me.WebBrowser一.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
MsgBox Clipboard.GetText
End Sub

=============================================================
用IE來下載資料
Private Declare Function DoFileDownload Lib shdocvw.dll (ByVal lpszFile As String) As Long

Private Sub Command一_Click()

Dim sDownload As String

sDownload = StrConv(Text一.Text, vbUnicode)
Call DoFileDownload(sDownload)

End Sub

保留webbrowser中的HTML內(nèi)容
Dim oPF As IPersistFile
Set oPF = WebBrowser一.Document
oPF.Save 'TheFileNameHere.htm', False

WebBrowser一.ExecWB怎么用

下部是我測試的參數(shù)
WB.ExecWB(四,一)

四,一 封存網(wǎng)頁
四,二 保留網(wǎng)頁(可以重新命名)
六,一 直接打印
六,二 直接打印
七,一 打印預(yù)覽
七,二 打印預(yù)覽
八,一 抉擇參數(shù)
八,二 取舍參數(shù)
十,一 查看頁面屬性
十,二 查看頁面屬性
17,一 全選
17,二 全選
22,一 從新載入現(xiàn)階段頁
22,二 從新載入現(xiàn)階段頁

webbrowser確定對話框的準(zhǔn)確步驟
webbrowser確定窗口對話框

某些網(wǎng)頁鑒于各種思忖會(huì)彈出對話框要求信息確認(rèn)，往往會(huì)中止我們的webbrowser進(jìn)程，可以施用如次步驟：
一.加入Microsoft Html Object
二.加入話語

Private Sub WebBrowser一_NavigateComplete二(ByVal pDisp As Object, URL As Variant)
Dim obj As HTMLDocument
Set obj = pDisp.Document
obj.parentWindow.execScript 'function showModalDialog(){return;}' '對showModalDialog喚起的對話框進(jìn)展確定
End Sub
而confirm挑動(dòng)的會(huì)話確定框可用confirm輪換showModalDialog即可，Alert同等理~

WebBrowser獲得網(wǎng)頁源碼Private Sub Command一_Click()
WebBrowser一.Navigate 'End Sub

Private Sub WebBrowser一_DownloadComplete()
'頁面下載完畢
Dim doc, objhtml
Set doc = WebBrowser一.Document

Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text一.Text = objhtml.htmltext
End If

End Sub

我用WebBrowser獲得網(wǎng)頁源碼，直接運(yùn)作通常，但在編譯后疏失

揭示：實(shí)時(shí)差錯(cuò)“91” Object 變量或 with 塊變量沒設(shè)立
可能是沒下載完所致，

Private Sub WebBrowser一_DownloadComplete()
if webbrowser.busy=false then
Dim doc, objhtml
Set doc = WebBrowser一.Document

Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text一.Text = objhtml.htmltext
End If
end if
End Sub

a.htm
----------------------

asdasdsad

建立一個(gè)EXE再窗體上置放一個(gè)WebBrowser控件，易名為web
Private Sub Form_Load()
web.Navigate 'c:/a.htm'
DoEvents
Do
While
web.Busy
DoEvents
Loop
Set web.Document.ParentWindow.obj = Me
End Sub

Public Sub w()
MsgBox 'haha'
End Sub

post形式交付數(shù)據(jù)

Option Explicit

Private Sub Command一_Click()
Dim szValue As String
WebBrowser一.Document.body.innerHTML = '

'
WebBrowser一.Document.Forms('post').submit
End Sub

Private Sub Form_Load()
WebBrowser一.Navigate二 'about:blank'
End Sub

本文來源：
我的異常網(wǎng)
Java Exception
Dotnet Exception
Oracle Exception

3116 - checkout報(bào)error
3117 - HibernateException
3118 - eclipse3.2啟動(dòng)報(bào)錯(cuò)
3119 - Function is not supported
3120 - STRUTS1.1中html:errors中文不能正確顯示
3121 - html:errors中文不能正確顯示
3122 - ActionErrors如何在頁面上顯示
3123 - ActionErrors沒有提示信息
3124 - struts關(guān)于html:text錯(cuò)誤
3125 - Struts截獲response.sendError

本文來自CSDN博客，轉(zhuǎn)載請標(biāo)明出處：http://blog.csdn.net/liangdiwei/archive/2010/01/04/5132480.aspx