{"id":270,"date":"2009-03-23T22:37:00","date_gmt":"2009-03-23T02:37:00","guid":{"rendered":""},"modified":"2013-11-18T21:08:02","modified_gmt":"2013-11-18T13:08:02","slug":"webbrowser%e6%8e%a7%e4%bb%b6%e4%bd%bf%e7%94%a8%e8%af%a6%e8%a7%a3","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/270.html","title":{"rendered":"WebBrowser\u63a7\u4ef6\u4f7f\u7528\u8be6\u89e3"},"content":{"rendered":"

1.\u7981\u6b62\u53f3\u952e<\/p>\n

\u770b\u5230\u5f88\u591a\u5173\u4e8eWebBrowser\u63a7\u4ef6\u7981\u6b62\u53f3\u952e\u7684\u63d0\u95ee\uff0c\u56de\u590d\u7684\u65b9\u6cd5\u5f88\u591a\uff0c\u5176\u4e2d\u6709\u63d0\u5230\u4f7f\u7528\u5fae\u8f6f\u63d0\u4f9b\u7684Webbrowser\u6269\u5c55COM\u670d\u52a1\u5668\u5bf9\u8c61\uff08WBCustomizer.dll\uff09\uff0c\u4f46\u662f\u8be5\u65b9\u6cd5\u5728\u6211\u4eec\u60f3\u4f7f\u7528Webbrowser\u7f16\u8f91\u7f51\u9875\uff08Webbrowser1.Document.execCommand “editMode”\uff09\u7684\u65f6\u5019\u6709\u5f88\u591a\u5f0a\u7aef\uff0c\u6bd4\u5982\u4e0d\u80fd\u663e\u793a\u9009\u4e2d\u7684\u6587\u672c\u7b49\u3002\u53e6\u6709\u4e9b\u65b9\u6cd5\u4e5f\u5c31\u4e0d\u7528\u4e00\u4e00\u5217\u4e3e\u4e86\u3002
\n\u8fd9\u513f\u6211\u60f3\u63d0\u5230\u7684\u662f\u5173\u4e8eMSHTML.HTMLDocument
\n\u5f15\u7528Microsoft HTML OBject Library<\/p>\n

\r\nRem \uff03\u7a97\u4f53\u4ee3\u7801\uff03\r\nDim WithEvents M_Dom As MSHTML.HTMLDocument\r\nPrivate Function M_Dom_oncontextmenu() As Boolean\r\n         M_Dom_oncontextmenu = False\r\nEnd Function\r\nPrivate Sub Webbrowser1_DownloadComplete()\r\n       Set M_Dom = Webbrowser1.Document\r\nEnd Sub\r\nRem\r\n<\/pre>\n
\u597d\u4e86\uff0c\u53f3\u952e\u83dc\u5355\u6ca1\u6709\u4e86<\/p>\n
2\u3001\u63a7\u4ef6\u8c03\u7528\u548c\u83b7\u5f97\u6536\u85cf\u5939\u91cc\u9762
\n\u57fa\u672c\u4e0a\u7528 specialfolder(6 ) \u5c31\u53ef\u4ee5\u5f97\u5230\u6536\u85cf\u5939\u7684\u8def\u5f84, \u7136\u540e\u4f60\u53ef\u4ee5\u7528dir\u53bb\u5faa\u73af\u8bfb\u5165\u6bcf\u4e2a\u76ee\u5f55,\u7136\u540edir\u91cc\u9762\u7684file, file\u7684\u540d\u5b57\u5c31\u662f\u4f60\u8981\u7684\u6536\u85cf\u7684\u540d\u5b57, \u8def\u5f84\u53ef\u4ee5\u81ea\u5df1\u6839\u636e\u4ece\u4e0a\u9762\u5f97\u5230\u7684\u8def\u5f84\u53bb\u5f97\u5230.
\n\u5982\u679c\u4f60\u4e0d\u7528dir\u4e5f\u53ef\u4ee5\u7528vb\u7684dir\u63a7\u4ef6.<\/p>\n
\r\nPrivate Type SHITEMID\r\n     cb As Long\r\n     abID As Byte\r\nEnd Type\r\nPublic Type ITEMIDLIST\r\n     mkid As SHITEMID\r\nEnd Type\r\nPublic Function SpecialFolder(ByRef CSIDL As Long) As String\r\n     \u2018locate the favorites folder\r\n     Dim R As Long\r\n     Dim sPath As String\r\n     Dim IDL As ITEMIDLIST\r\n     Const NOERROR = 0\r\n     Const MAX_LENGTH = 260\r\n     R = SHGetSpecialFolderLocation(MDIMain.hwnd, CSIDL, IDL)\r\n     If R = NOERROR Then\r\n         sPath = Space$(MAX_LENGTH)\r\n         R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)\r\n         If R Then\r\n             SpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) \u2013 1)\r\n         End If\r\n     End If\r\nEnd Function\r\n<\/pre>\n
3\u3001\u5168\u5c4f<\/p>\n
\u662f\u7684,webbrowser\u672c\u751f\u662f\u4e00\u4e2a\u63a7\u4ef6, \u4f60\u8981\u5b83\u5168\u5c4f,\u5c31\u662f\u8981\u5b83\u6240\u5728\u7684\u7a97\u4f53\u5168\u5c4f, \u53ef\u4ee5\u7528setwindowlong\u53d6\u6d88\u7a97\u4f53\u7684 title, \u7528Call ShowWindow(FindWindow(“Shell_traywnd”, “”), 0) \u9690\u85cftray,\u5c31\u662f\u4e0b\u8fb9\u90a3\u4e2a\u5305\u542b\u5f00\u59cb\u90a3\u4e00\u884c. \u7528Call ShowWindow(FindWindow(“Shell_traywnd”, “”), 9) \u6062\u590d. \u591f\u8be6\u7ec6\u4e86\u5427.
\n\u7136\u540e\u5728form1.windowstate = 2 \u5c31\u53ef\u4ee5\u4e86.<\/p>\n
4\u3001\u9009\u62e9\u7f51\u9875\u4e0a\u7684\u5185\u5bb9\u3002<\/p>\n
\r\nPrivate Sub Command1_Click()\r\n\u2018\u8bf7\u5148\u9009\u4e2d\u4e00\u4e9b\u5185\u5bb9\r\nMe.WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT\r\nMsgBox Clipboard.GetText\r\nEnd Sub\r\n<\/pre>\n
5\u3001\u7528IE\u6765\u4e0b\u8f7d\u6587\u4ef6<\/p>\n
\r\nPrivate Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long\r\n\r\nPrivate Sub Command1_Click()\r\n\r\n    Dim sDownload As String\r\n\r\n    sDownload = StrConv(Text1.Text, vbUnicode)\r\n    Call DoFileDownload(sDownload)\r\n\r\nEnd Sub\r\nPrivate Sub Form_Load()\r\nText1.Text = "http:\/\/www.chat.ru\/~softdaily\/fo-ag162.zip"\r\nForm1.Caption = "Audiograbber 1.62 Full"\r\nText2.Text = "http:\/\/www6.50megs.com\/audiograbber\/demos\/cr-ag161.zip"\r\nEnd Sub\r\n<\/pre>\n
6\u3001\u6211\u8981\u52a8\u6001\u52a0\u8f7d\u548c\u5220\u9664WebBrowser\u63a7\u4ef6\u5e94\u8be5\u600e\u4e48\u505a\uff1f<\/p>\n
\r\nPrivate Sub Command1_Click()\r\n    Form1.Controls.Add "shell.explorer.2", "NewWeb", Form1\r\n     With Form1!NewWeb\r\n         .Visible = True\r\n         .Width = 10000\r\n         .Height = 10000\r\n         .Left = 0\r\n         .Top = 0\r\n         .Navigate2 "www.csdn.net"\r\n     End With\r\nEnd Sub\r\nPrivate Sub Command2_Click()\r\n      Controls.Remove Form1!newweb\r\nEnd Sub\r\nForm1.Controls.Add "shell.explorer.2", newweb(newweb.Count), Form1\r\n     With Form1!newweb(newweb.Count)\r\n         .Visible = True\r\n         .Width = 1000\r\n         .Height = 1000\r\n         .Left = newweb(newweb.Count \u2013 1).Left + newweb(newweb.Count \u2013 1).Width\r\n         .Top = 0\r\n         \u2018.Navigate2 "www.csdn.net"\r\n     End With\r\n<\/pre>\n
\u4e3a\u4ec0\u4e48\u4ed6\u8bf4\u6211
\nForm1.Controls.Add “shell.explorer.2”, newweb(newweb.Count), Form1
\n\u8fd9\u4e00\u884c\u9519\u8bef13 \u7c7b\u578b\u4e0d\u5339\u914d\uff1f
\nps\uff1a\u6211\u5728form\u4e2d\u5df2\u7ecf\u6709\u4e86\u4e00\u4e2anewweb(0)\u63a7\u4ef6<\/p>\n
\u5148\u4e3a\u4e00\u4e2aWebBrowser<\/p>\n
\r\nDim i As Integer\r\nPrivate Sub AddWeb_Click()\r\n     For i = 1 To 10\r\n         Load NewWeb(i)\r\n         NewWeb(i).Top = i * 100\r\n         NewWeb(i).Left = i * 100\r\n         NewWeb(i).Visible = True\r\n     Next i\r\nEnd Sub\r\nPrivate Sub DelWeb_Click()\r\n     For i = 1 To 10\r\n         Unload NewWeb(i)\r\n     Next i\r\nEnd Sub\r\n<\/pre>\n
7\u3001\u4e00\u4e2a\u628a\u9875\u9762\u4fdd\u5b58\u4e3aMHT(\u5373MHTML)\u6587\u4ef6<\/p>\n
\u5c06 pcwak(\u4e66\u5251\u72c2\u751f[MS MVP]) \u5927\u4fa0\u63d0\u4f9b\u7684\u8d44\u6599\u8d34\u51fa\u6765\uff0c\u4ee5\u4f9b\u5927\u5bb6\u53c2\u8003\uff1a
\n\u6211\u7ec8\u4e8e\u627e\u5230\u4e00\u4e2a\u628a\u9875\u9762\u4fdd\u5b58\u4e3aMHT(\u5373MHTML)\u6587\u4ef6\u7684\u65b9\u6cd5\u4e86!
\n\u9996\u5148\uff0c\u5728\u5de5\u7a0b\u4e2d\u5fc5\u987b\u8981\u5f15\u7528\u4e00\u4e2a\u5e93\uff1a<\/p>\n
\r\nLibrary CDO\r\nD:\\WINNT\\System32\\cdosys.dll\r\nMicrosoft CDO for Windows 2000 Library\r\n<\/pre>\n
\u5176\u6b21\uff0c\u9700\u8981Stream\u5bf9\u5e94\u7684\u63a5\u53e3\u7684\u652f\u6301\uff0c\u5982\u679c\u4f60\u4e00\u65f6\u627e\u4e0d\u5230\u5c31\u4f7f\u7528\u652f\u6301\u8fd9\u4e2a\u7684\u8f83\u65b0\u7684ADO\u5c31\u884c\u4e86\uff0c\u5982<\/p>\n
\r\nLibrary ADODB\r\nD:\\Program Files\\Common Files\\system\\ado\\msado15.dll\r\nMicrosoft ActiveX Data Objects 2.5 Library\r\n<\/pre>\n
\u4ee3\u7801\u5982\u4e0b\uff0c\u5341\u5206\u7b80\u5355(\u540c\u65f6\u7531\u4e8e\u6d41\u7684\u7279\u70b9\uff0c\u663e\u793a\u5728\u5b9e\u9645\u5e94\u7528\u4e2d\u6ca1\u5fc5\u8981\u8c61\u672c\u4f8b\u4e2d\u90a3\u6837\u628a\u6587\u4ef6\u4fdd\u5b58\u5230\u78c1\u76d8\u4e0a\u5c31\u53ef\u76f4\u63a5\u8f6c\u6362\u4e3a\u5b57\u7b26\u4e32\u6216\u5b57\u8282\u6570\u7ec4\u4ec0\u4e48\u7684\u5904\u7406\u7684\u3002
\n\u53e6\uff0c\u5bf9\u4e8eMicrosoft CDO for Windows 2000 Library\u8fd9\u4e2a\u5e93\uff0c\u5728WIN98\u4e2d\u8981\u600e\u4e48\u4f7f\u7528\u8fd8\u6ca1\u8bd5\u8fc7\uff0c\u611f\u5174\u8da3\u7684\u670b\u53cb\u53ef\u4ee5\u8bd5\u8bd5\u5e76\u8ddf\u5e16\uff0c\u4ee5\u4e30\u5bcc\u5b8c\u5584\u5176\u5185\u5bb9<\/p>\n
\r\nPrivate Sub Command1_Click()\r\n\u2018 Reference to Microsoft ActiveX Data Objects 2.5 Library\r\n\u2018 Reference to Microsoft CDO for Windows 2000 Library\r\nDim iMsg As New CDO.Message\r\nDim iConf As New CDO.Configuration\r\nDim objStream As ADODB.Stream\r\nWith iMsg\r\n.CreateMHTMLBody "http:\/\/www.163.com\/";, , _\r\n"domain\\username", _\r\n"password"\r\nSet objStream = .GetStream\r\nCall objStream.SaveToFile("f:\\test.mht", adSaveCreateOverWrite)\r\nEnd With\r\nEnd Sub\r\n<\/pre>\n
2\u3001\u2018\u9996\u5148\u52a0\u5165\u5bf9ADODB\u548cCDO\uff08Microsoft CDO for Windows 2000 Library\uff0c\u5bf9\u5e94\u6587\u4ef6\u540d\u4e3aCDOSYS.dll\uff09\u7684\u5f15\u7528<\/p>\n
\r\nPrivate Sub Command1_Click()\r\n     Dim message As New CDO.message\r\n     Dim Outstream As ADODB.Stream\r\n     On Error GoTo myerr1\r\n     Call message.CreateMHTMLBody("http:\/\/www.csdn.net", CDO.CdoMHTMLFlags.cdoSuppressNone, "", "")\r\n     Set Outstream = message.GetStream\r\n     Call Outstream.SaveToFile("c:\\test.mht", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)\r\n     MsgBox "\u5b8c\u6210"\r\n\r\n     Exit Sub\r\nmyerr1:\r\n     Set message = Nothing\r\n     Set Outstream = Nothing\r\nEnd Sub\r\n<\/pre>\n
8\u3001\u5728WebBrowser\u63a7\u4ef6\u8c03\u7528\u6536\u85cf\u5939\u548c\u5728\u6536\u85cf\u5939\u91cc\u6dfb\u52a0\u6536\u85cf<\/p>\n
\r\nOption Explicit\r\nPrivate Sub Command1_Click()\r\n     Dim ObjSUH As New ShellUIHelper\r\n     ObjSUH.AddFavorite "http:\/\/www.csdn.net", "CSDN"\r\n     Set ObjSUH = Nothing\r\nEnd Sub\r\n<\/pre>\n
9\u3001\u5982\u4f55\u4f7f\u7f51\u9875\u4e0d\u51fa\u73b0\u6eda\u52a8\u6761\uff1a<\/p>\n
\r\nPrivate Sub mnuScroll1_Click()\r\n\u2018\u6ce8\u610f\uff1a\u5fc5\u987b\u5728\u7f51\u9875\u5b8c\u5168\u663e\u793a\u4e4b\u540e\u624d\u53ef\u4ee5\u8fd0\u884c\r\n     WebBrowser1.Document.body.Scroll = "no" \u2018\u4e0d\u663e\u793a\u6eda\u52a8\u6761\u7684\u529e\u6cd5\r\nEnd Sub\r\nPrivate Sub mnuScroll2_Click()\r\n\u2018\u6ce8\u610f\uff1a\u5fc5\u987b\u5728\u7f51\u9875\u5b8c\u5168\u663e\u793a\u4e4b\u540e\u624d\u53ef\u4ee5\u8fd0\u884c\r\n     WebBrowser1.Document.body.Scroll = "Auto" \u2018\u663e\u793a\u6eda\u52a8\u6761\u7684\u529e\u6cd5\r\nEnd Sub\r\n<\/pre>\n
10\u3001\u5982\u4f55\u83b7\u5f97\u7f51\u9875\u4e2d\u88ab\u9009\u4e2d\u90e8\u5206\u7684HTML\uff1a<\/p>\n
\r\nPrivate Sub Command1_Click()\r\n     Dim objSelection\r\n     Dim objTxtRange\r\n\r\n     Set objSelection = WebBrowser1.Document.selection\r\n     If Not (objSelection Is Nothing) Then\r\n         Set objTxtRange = objSelection.createRange\r\n         If Not (objTxtRange Is Nothing) Then\r\n             Debug.Print objTxtRange.htmlText\r\n\r\n             Set objTxtRange = Nothing\r\n         End If\r\n         Set objSelection = Nothing\r\n     End If\r\nEnd Sub\r\nPrivate Sub Form_Load()\r\n     WebBrowser1.Navigate "http:\/\/www.applevb.com"\r\nEnd Sub\r\n<\/pre>\n
11\u3001\u9875\u9762\u6eda\u52a8\uff1a<\/p>\n
\r\nPrivate Sub Command2_Click()\r\n     WebBrowser1.Document.parentwindow.scrollby 0, 30\r\nEnd Sub\r\nPrivate Sub Form_Load()\r\n      WebBrowser1.Navigate "http:\/\/www.applevb.com"\r\nEnd Sub\r\n<\/pre>\n
\u70b9\u51fbCommand2\u5c31\u53ef\u4ee5\u4f7f\u5f53\u524d\u9875\u9762\u5411\u4e0b\u6eda\u52a830\u50cf\u7d20<\/p>\n
12\u3001\u5224\u65ad\u9875\u9762\u662f\u5426\u53ef\u4ee5\u524d\u8fdb\u540e\u9000<\/p>\n
\r\nPrivate Sub Command1_Click()\r\n     WebBrowser1.GoForward\r\nEnd Sub\r\n\r\nPrivate Sub Command2_Click()\r\n     WebBrowser1.GoBack\r\nEnd Sub\r\n\r\nPrivate Sub Form_Load()\r\n     WebBrowser1.Navigate "http:\/\/www.applevb.com"\r\nEnd Sub\r\n\r\nPrivate Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)\r\n     If (Command = CSC_NAVIGATEBACK) Then\r\n         Command2.Enabled = Enable\r\n     End If\r\n     If (Command = CSC_NAVIGATEFORWARD) Then\r\n         Command1.Enabled = Enable\r\n     End If\r\nEnd Sub\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"
1.\u7981\u6b62\u53f3\u952e \u770b\u5230\u5f88\u591a\u5173\u4e8eWebBrowser\u63a7\u4ef6\u7981\u6b62\u53f3\u952e\u7684\u63d0\u95ee\uff0c\u56de\u590d\u7684\u65b9\u6cd5\u5f88\u591a\uff0c\u5176\u4e2d\u6709\u63d0\u5230\u4f7f\u7528\u5fae\u8f6f\u63d0\u4f9b\u7684We […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-270","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/270","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=270"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/270\/revisions"}],"predecessor-version":[{"id":4794,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/270\/revisions\/4794"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=270"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=270"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=270"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}