¼òµ¥µÄVBÎÊÌ⣬×ܼÆ190·ÖÇó½â£¡Åνâ´ð£¡
ÇëÎÊÒ»ÏÂÎÒ»ñÈ¡Õû¸öÍøÒ³µÄÔ´ÂëºóÔõô¸ù¾ÝÒÑÓеÄurl×Ö·ûÀ´»ñÈ¡ÍêÕûµÄURLѽ
±ÈÈ磻
ÎÒÒѾ֪µÀ²¿·Öurl£» www.qq.com
ÔÚͨ¹ýDocument.All»ñÈ¡Õâ¸öÔ´Âëºó£¬Ïë»ñȡԴÂëÖÐËùÓк¬ÓС°www.qq.com¡±µÄURL£¬Èç"www.qq.com/eg?xxx=123"Ò»ÀàµÄURL¡£
»ñÈ¡urlºóÏÔʾÔÚlist1ÖÐ
Ï£Íû¸ßÈËÄܸø³ö´úÂ롣ллÁË¡£
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ÓÉÓÚÎÒ¸ÕÀ´Ã»ÓжàÉÙ·Ö£¬²»¹ýÎÒÔÚ°Ù¶ÈÖªµÀºÍQQÎÊÎʾùÓÐÌáÎÊ£¬µØÖ·£º
°Ù¶ÈÖªµÀ£ºhttp://zhidao.baidu.com/question/130586335.html
QQÎÊÎÊ£ºhttp://wenwen.soso.com/z/q171879002.htm
°Ù¶ÈÖªµÀ50·Ö£¬QQÎÊÎÊ100·Ö¡£
ÔΣ¬ÎÒ²»ÊÇÖ»ÓÐ20·Öô£¬Ôõô¿ÉÒÔ¸ø40ѽ
Õâ¸öºÜÈÝÒ×µÄ
VB code:
Option Explicit
Private Sub Command1_Click()
Command1.Enabled = False
WebBrowser1.Navigate2 Text1.Text
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim X As Long
List1.Clear
For X = 0 To WebBrowser1.Document.Links.length - 1
if instr(1,WebBrowser1.Document.Links.Item(X),"www.qq.com/eg?")>0 then
List1.AddItem WebBrowser1.Document.Links.Item(X)
endif
Next X
Command1.Enabled = True
End Sub
¿ÉÓ÷֣º¹² 200 ·Ö
WebBrowser1.Navigate2 Text1.Text
Text1.Text ÎªÍøÖ·
½Óµã·
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ
vb.net
VC++
ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......