vbÈçºÎ½ØÈ¡ÍøÒ³µÄhtml´úÂë
ÎÒÓÃvbÏÂÔØÒ»¸öÒ»¸öÒ³Ãæ£¬ÈçºÎ»ñÈ¡ÎÒÐèÒªµÄÄÚÈݰ¡£¬¾ÍÊÇÐèÒª½ØÈ¡¹¦ÄÜ£¬ÌáÍêÄÚÈݺó£¬ÈçºÎ×Ô¶¯Ìø×ªµ½ÏÂÒ»Ò³°¡£¬Çë½Ì¸ßÊÖ£¬ÎÒÓÃwebbrowser¿Ø¼þ£¬
ÄãµÄÎÊÌâÓеã´ó£¬»ñÈ¡HTML¾ÍÖ±½ÓÔÚDOCUMENTCOMPLETEʼþÖÐдwebbrowser1.document.body.outhtml
Õâ¾ÍÊÇËùÓеÄHTML´úÂ룬ȻºóÄãÏëҪʲô¾Í×Ô¼º·ÖÎö°É¡£¿ÉÒÔͨ¹ý·ÖÎö×Ö·û´®µÄ·½Ê½½ØÈ¡ÄãÒªµÄÄÚÈÝ
Ò²¿ÉÒÔ¸ù¾ÝHTML´úÂë¾ßÓеÄÊôÐÔÀ´»ñµÃÄãÒªµÄÄÚÈÝ¡£
×Ô¶¯Ìø×ª¾Í¸üÈÝÒ×ÁË£¬Äã»ñÈ¡ÍêÄãÒªµÄ´úÂ룬ÔÙ´Îwebbrowser1.navigate url ¾ÍÐÐÁË¡£
'ÌáÈ¡¸÷Îı¾·ÖÇø±êÇ©(div)ÖеÄÔ´´úÂë
VB code:
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.hao123.com/"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
j = WebBrowser1.Document.getElementsByTagName("div").Length - 1
Dim aa As Object
For i = 0 To j
Set aa = WebBrowser1.Document.getElementsByTagName("div")(i)
s = s & aa.innerHTML & vbCrLf & "---------------------------µÚ" & i & "¸ödivÖеÄÔ´´úÂë--------------------------------" & vbCrLf
Next
Static k As Integer
k = k + 1
If s <> "" Then
s1 = App.Path & "\" & k & ".txt"
Open s1 For Output As #1
Print #1, s
Close #1
Shell "notepad.exe " & s1, vbNormalFocus
End If
End Sub
Ïà¹ØÎÊ´ð£º
ÎÒµÄjava applet ǶÈëhtmlºóÎÞ·¨ÏÔʾ£¬¶øÓÃappletviewerÏÔʾÕý³£ÎªÊ²Ã´£¬»¹ÓоÍÊÇÓÃhtml converterת»¯ºó¿ÉÒÔÏÔʾ£¬ÎªÊ²Ã´£¿Çë´óÏÀ´Í½Ì£¡
HTML code:
<HTML>
<HEAD>
<TITLE>TEST.HTML< ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......