Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÏÔÊ¾ÍøÒ³Ô´Âë»òÄÚÈÝ

 http://blog.donews.com/sloo/archive/2006/01/29/711269.aspx
1.ÓÃMicrosoft Internet Transfer Control ¿Ø¼þ£¨ÔÚ²¿¼þÖÐÌí¼Ó£©£¬´úÂë·Ç³£¼òµ¥£¬ÈçÏ£¨ÔÚformÉÏÌí¼ÓÒ»¸öInet1ºÍText1ºÍCommand1£©£º
Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://www.vbgood.com/")
End Sub
2.Èç¹ûÊÇʹÓà WebBrowser¿Ø¼þ£¬´úÂëÒ²·Ç³£¼òµ¥£¬ÈçÏ£¨ÔÚformÉÏÌí¼ÓÒ»¸öWebBrowser1ºÍText1£©£º
Private Sub Form_Load() WebBrowser1.Navigate2 "http://xsuplist.hintsoft.net/game/xsGame"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'ÏÔʾԴÂë
Text1.Text = WebBrowser1.Document.documentElement.outerHTML
''ÏÔʾÄÚÈÝ
'Text1.Text = WebBrowser1.Document.documentElement.outerTEXT
End Sub
VBS½Å±¾£º
Set oDOM = WScript.GetObject("http://baidu.com")
do until oDOM.readyState = "complete"
WScript.sleep 200
loop
WScript.echo oDOM.documentElement.outerText


Ïà¹ØÎĵµ£º

vbʵÏÖĿ¼ÏÂËùÓÐÎļþÃûĿ¼Ãû³ÆµÄ»ñÈ¡

 Ç°¼¸ÈÕ£¬Óиö¸çÃÇ˵ÓкܶàµçÓ°£¬ÎÊÎÒÒª²»Òª£¿ÎÒ¾ÍÈÃËûÒ»¸öÒ»¸öµÄд¹ýÀ´£¬ÈøçÃÇÀÛ¸ö²»Çá¡£ËùÒÔ¾ÍÏë¼òµ¥Ð´¸ö³ÌÐò£¬»ñȡһÏÂÎļþ¼ÐÏÂÃæµÄËùÓÐÎļþÃû³Æ£¬ÕâÑù¾Í¿ÉÒÔ½ÚÊ¡ºÜ¶àʱ¼äÁË¡£
Èí¼þÄØ£¬ÎÒÒѾ­ÉÏ´«µ½ÍøÕ¾ÁË£ºhttp://download.csdn.net/source/1802599
vb°æ±¾Ä¿Â¼»ñÈ¡Æ÷ 1.0£¨Áú¾í·ç³öÆ·£©
˵Ã÷£º
1.Ñ¡ºÃĿ¼ºó£ ......

תVB ×Ö·û´®´¦Àíº¯Êý¼¯ ÊÕ²Ø

 

VB ×Ö·û´®´¦Àíº¯Êý¼¯

ÊÕ²Ø



mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È)
  ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®] 
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ" 
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2)
´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ ......

[vb]ʹÓÃvbͳ¼Æ.javaµÄÐÐÊý

 ¹¤×÷ÐèÒª£¬Õë¶ÔjavaÎļþ£¬×÷ÁËÒ»¸öÐÐÊýͳ¼ÆµÄ¹¤¾ß¡£Í³¼ÆµÄÖ÷Òª´úÂëÈçÏ£º
    Set srcIn = fso.OpenTextFile(fileNm, ForReading)
    
    Do While Not srcIn.AtEndOfStream
        buf = srcIn.ReadLine
 &nbs ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ