VB winsock¶à·þÎñÆ÷
10¸öһģһÑùµÄ·þÎñ¶Ë·ÅÔÚ10̨»úÆ÷ÉÏ£¬ÏÈËæ¼´Á¬½ÓÒ»¸ö£¬Èç¹ûÁ¬½Ó²»µ½·þÎñ¶ËÔòÒÀ´ÎÁ¬½Óÿһ̨·þÎñÆ÷£¬Èç¹û¶¼Á¬½Ó²»ÉϿͻ§¶ËÍ˳ö
¼Ù¶¨10̨»úÆ÷IP·Ö±ðΪ192.168.0.1 192.168.0.3 192.168.0.5 192.168.0.7 192.168.0.9
192.168.0.2 192.168.0.4 192.168.0.6 192.168.0.8 192.168.0.10
ÎÒÓÃ10¸öwinsock×ö´¦Àí£¬²»ÖªµÀЧÂÊÔõÑù£¬ÇëÎʸ÷λ´ó´óÓÐûÓÐЧÂʱȽϺõĴ¦Àí·½·¨°¡
Äܲ»ÄÜÓÃÊý×é°¡£¬Ð¡µÜ²»²Å£¬Çó¸÷λ´ó´ó°ïæ
¾ÍÊDz»»áÊý×é°¡£¬Äã°ïÎÒд¸öÀý×Ӻò»
Ó¦¸ÃÏÈ
dim i as integer
Dim after As Double
for i=1 to 10
Shell( "ping 192.168.0. "+Cstr(i)+ " -n 1 | find /c "+chr(34)+ "timed out "+chr(34)+ " > . "+Cstr(i)+ "txt ")
next
after = Now + 3# / 24# / 3600#
Do
DoEvents
If Now > after Then Exit Do
Loop
'½«1.txt,2.txt,...,10.txtÎļþÖеĵÚÒ»¸ö×Ö·û¶Á³öÀ´ÅжÏÊÇ '1 '±íʾ²»Í¨£¬ÊÇ '0 '±íʾÄÜͨ
'Ëæ»úÌôÒ»¸öÊÇ0µÄ£¨»òÕßÓÅÏÈÓÃÉÏ´ÎÁ¬½Ó³É
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÕжÔÈÕVB¹¤³Ìʦ
ÒªÇó¶þÄêÒÔÉϵÄVB¾Ñé
Óйý¶ÔÈÕÏîÄ¿µÄ×îºÃ£¬ÄÜ¿´¶®ÈÕÓïµÄ
ÓкÏÊʵķ¢¼òÀúµ½ÓÊÏäxiaocm2004@163.com
¸çÃÇ
´óÁ¬ÓÐÄãµÄµØÅÌÂð£¿
VBû×ö¹ýÕ¦Õû£¡
VB6µ¹ÊÇûÎÊÌ⣬¿Éϧ²»¶®ÈÕ ......