¼òµ¥µÄ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 ÎªÍøÖ·
½Óµã·
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
¸÷λ¸ßÊÖ£¬Ð¡µÜÏëдһ¸ö³ÌÐò£¬¶ÁÈ¡·þÎñÆ÷ÉϵÄÒ»¸ö¹²ÏíÎļþ£¬µ±Õâ¸öÎļþ±»Ð޸ĺ󣬽«´ËÎļþ¿½±´µ½±¾µØ¼ÆËã»ú¸²¸Ç±¾µØÔÀ´µÄÎļþ¡£Çë¸÷λ´óÏÀд¶Î´úÂ룬ºÍ½âÊÍ£¬Ð»Ð»£¡
ÅжÏÎļþ´óС»òÐÞ¸ÄÈÕÆÚ£¬²»Ò»Ñù¾Í¿½±´µ½±¾µØ
......
Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ
vb.net
VC++
ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......