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
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
form±íµ¥ÏÂÀ¿òµÄÀ¶É«ÔõôȥµôÄØ£¬ÎÒÏë°ÑÏÂÀ¿òµÄÑÕÉ«ÉèΪ͸Ã÷µÄ
may be no way.
ÏñQQ¿Õ¼äÀïµÄÄÇЩ͸Ã÷µÄÏÂÀ¿òÊÇÔõôŪµÃÄØ£¿
ÒýÓÃ
ÏñQQ¿Õ¼äÀïµÄÄÇЩ͸Ã÷µÄÏÂÀ¿òÊÇÔõôŪµÃÄØ£¿
ÓòãÄ£ÄâµÄ°É
»ù±¾¶¼ ......
ÎÒÔÚjspÒ³Ãæ²éѯµ½Êý¾Ý¿âÖеÄÒ»±ÊÊý¾Ý£¬²¢ÒÔtableÑ»·µÄÐÎʽÏÔʾ£¬µ«ÐèÒªÏÂÔØ±£´æ³Éhtml¸ñʽ£¬ÇëÎÊÓ¦¸Ã´¦Àí£¿´úÂëÓÐûÓÐÌØÊâÒªÇó£¿ÊDz»ÊÇÐèÒªÌØ±ðµÄjar°ü£¿
ÄãÕâÊǰѱ¨±í±£´æÎªHTML¸ñʽ£¬²»ÖªÓÐʲôÓô¦£¬
ÒªÊÇ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......