VB»ñÈ¡·ÖÒ³ÔõôʵÏÖ£¿
±ÈÈç ÎÒÒª»ñÈ¡ ÕâÑùµÄ·ÖÒ³ ÇëÎÊÔõôʵÏÖ Ð»Ð»£¡ http://www.baidu.com/s?wd=DoEvents&pn=20 http://www.baidu.com/s?wd=DoEvents&pn=30
²»ÊÇÌ«Ã÷°×lzµÄÒâͼ£¬ËµÏêϸµã ÎÒ¸øÄãµÄ´úÂëÀïÓÐ°É ´óºú×ÓÀÏʦ ÊÇ GetList »ñÈ¡ ÊÇ°É£¿ ÒýÓà ÎÒ¸øÄãµÄ´úÂëÀïÓÐ°É WebBrowser1.Navigate aa Õâ¾ä£¬¿ÉÒÔÕâÑùÐ޸ģº VB code: For i = 20 to 30 aa="http://www.baidu.com/s?wd=DoEvents&pn=" & i WebBrowser1.Navigate aa next i Â¥ÉϵIJ»¶Ô°¡ Ó¦¸ÃÊÇ for i = 1 to 12 aa="http://www.baidu.com/s?wd=DoEvents&pn=" & (i - 1) * 10 WebBrowser1.Navigate aa next
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îÇ°£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿ ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿ ´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£ Àà´úÂ룺 Option Expli ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö ´úÂëÓ¦¸ÃÔõô´ò£¿ LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
Private Sub Check1_Click() If Check1.Value = 1 Then DTP1.Enabled = True Else DTP1.Enabled = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then DTP2.Enabled = True Else
......