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

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µÄ£¨»òÕßÓÅÏÈÓÃÉÏ´ÎÁ¬½Ó³É


Ïà¹ØÎÊ´ð£º

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

±±¾©¡¡ÕжÔÈÕVB¹¤³Ìʦ

ÕжÔÈÕVB¹¤³Ìʦ
ÒªÇó¶þÄêÒÔÉϵÄVB¾­Ñé
Óйý¶ÔÈÕÏîÄ¿µÄ×îºÃ£¬ÄÜ¿´¶®ÈÕÓïµÄ
ÓкÏÊʵķ¢¼òÀúµ½ÓÊÏäxiaocm2004@163.com

¸çÃÇ
´óÁ¬ÓÐÄãµÄµØÅÌÂð£¿


VBû×ö¹ýÕ¦Õû£¡

VB6µ¹ÊÇûÎÊÌ⣬¿Éϧ²»¶®ÈÕ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ