VBÖÐfilesystemobject¶ÔÏóʵÏÖÎļþ´æÈ¡·½·¨
×î¼òµ¥µÄ·½·¨ÊÇʹÓÃfilesystemobject¶ÔÏó¡£¶øËü²¢·ÇVBÄÚÖöÔÏó£¬
ÐèÒýÓòſÉÒÔʹÓá£
1£®filesystemObject¶ÔÏóÒýÓÃ
“¹¤³Ì/ÒýÓÃ/microsoft scription Runtime”
ÔÚ¶ÔÏóä¯ÀÀÆ÷´°¿ÚÖÐÑ¡“scripting”Ä£¿é£¬¿´µ½ÔöÁËÐí¶à¶ÔÏó£¬
drive filesystemobject textstream fileµÈ
ÆäÖÐfilesystemobjectÊÇÕâЩ¶ÔÏóµÄ¹Ø¼ü£¬ÏëҪʹÓÃÆäËü¶ÔÏó£¬
¶¼±ØÐëÏȽ¨Á¢filesystemobject¶ÔÏó¡£
£²£®Îļþ´æÈ¡
dim fs as new filesystemobject ½¨Á¢filesystemobject¶ÔÏó
dim txtf as textstream ¶¨ÒåÁËÒ»¸ötextstream¶ÔÏó±äÁ¿
textstrem¶ÔÏóÓëÎļþµÄ¶ÁдËùÓÐÎļþ¶¼±ØÐëÏÈ´ò¿ª£¬²ÅÄܶÁд£¬
filesystemobjet¶ÔÏóËùÌṩµÄ´ò¿ªÎļþµÄ·½·¨ÓÐÁ½ÖÖ£º
opentextfile ´ò¿ªÎļþ
createtextfile ½¨Á¢Îļþ
ͨ¹ýfilesystemobjectËù´ò¿ªµÄÎļþÊÇÒ»¸öTextStream¶ÔÏó£¬
¶øÍ¨¹ýtextstream¶ÔÏóµÄ¸÷ÖÖ·½·¨ºÍÊôÐÔ£¬¾Í¿ÉÒÔ½øÒ»²½¶ÁдÎļþ¡£
1£©opentextfile ·½·¨£º´ò¿ªÎļþ
set textstream¶ÔÏóÃû=filesystemobjectÃû.opentextfile(ÎļþÃû£¬IOģʽ£¬ÊÇ·ñ×Ô¶¯½¨Á¢Îļþ£©
ÎļþÃû£º½¨ÒéдÈëÍêÕû·¾¶µÄÎļþÃû¡£
IOģʽ£º¿ÉÉèÖóÉforreading(=1)¡¢forwrting(=2)»òforappending(=8)¡£
Èç¹ûÉèÖóÉforreading£¬Ôò´ò¿ªµÄÎļþÊÇÖ»¶ÁµÄ£»
Èç¹ûÉèÖóÉforwriting£¬Ôò´ò¿ªµÄÎļþÊÇ¿ÉдµÄ£¬¶øÔÀ´Îļþ µÄÄÚÈݻᱻÇå³ý£»
Èç¹ûÉèÖóÉforappending£¬Ôò´ò¿ªµÄÎļþÊÇ¿ÉдµÄ£¬µ«ÔÎļþ µÄÄÚÈݲ»»á±»Çå³ý£¬Êý¾Ý»á´ÓÎļþ µÄ×îºóÃæ¿ªÊ¼Ð´Èë¡£
²ÎÊýȱʡ£º ±íʾforreading Ö»¶Á¡£
ÊÇ·ñ×Ô¶¯½¨Á¢Îļþ£º¿ÉÉèÖóÉtrue»òfalse¡£
ÉèÖÃΪ£ºtrue Ôòµ±Îļþ²»´æÔÚʱ£¬»á×Ô¶¯
Ïà¹ØÎĵµ£º
½üÈÕ·ÖÎöÒ»VB×öµÄ±¨±í£¬ÓÉÓÚ¶ÔVBÖ»ÊÇÁ˽⣬̸²»ÉÏÊìÁ·£¬²»¹ý¶ÔÆäË®¾§±¨±íµ¹ÓеãÈÏʶ£¬Ö®Ç°Ò²×ö¹ýÈýÁ½¸öСµÄ±¨±í £¬¼ÓÖ®¶ÔPBÖеı¨±íÁ˽â·Ç³£ÊìϤ£¬µ±Ê±ÐÅÐÄÂù´óµÄ¡£
ÏÈÊÇ¿´ÁËDataReport£¬ÓÃÓÚ»æÖƱ¨±í¸ñʽ¡£ÔÙÀ´¿´DataEnvironment£¬ÓÃÓÚ¶¨Òå»ñÈ¡µÄÊý¾ÝÁС£½«DataReportÓëDataEnviro ......
×î½üÓÉÓÚ¹¤×÷ÏîÄ¿ÔÒò£¬ÁÙʱҪÇó×öÒ»¸ö¾ÖÓòÍøÉ¨ÃèÈí¼þ¡£¹¦ÄÜÒªÇó£¬É¨Ãè³öIPµØÖ·ÒÔ¼°¶ÔÓ¦µÄMACµØÖ·¡£¹¦ÄܱȽϼòµ¥¡£ÓÚÊǺܿì¾Í×öÁË¡£²ÉÓõĿª·¢¹¤¾ßÊÇ VB6.0
ʹÓ÷½·¨ÊÇͨ¹ý·¢ËÍ ARP°ü£¬¹ã²¥ IPµØÖ·µÄ·½Ê½À´»ñµÃ ¶ÔÓ¦µÄ MACµØÖ·£¬SendARP£¨£©¡£
ÓÐһЩϸ½ÚҪעÒ⣬¾ÍÊÇ Êä³öMACµØÖ ......
ÔÚ¿ª·¢IP-MACɨÃè¼àÊÓÆ÷ʱ£¬ÉèÖÃÁË¿ª»ú×Ô¶¯ÔËÐУ¬µ«Êǵ±WINDOWSÆô¶¯ºó£¬³ÌÐòÔËÐкóÈ´´ò¿ª´°ÌåÁË£¬²»ÊÇ×îС»¯ÔËÐеġ£ÕâÔõô°ìÄØ£¿ÓÚÊÇÏëµ½¼ÓÒ»¸ö²ÎÊý¸ø³ÌÐòÆô¶¯Ê±£¬µ«²»ÖªµÀÔõôʵÏÖ£¬½á¹û·¢ÏÖVBÖÐÓÐcommand£¬ÊÇ¿ÉÒÔ½ÓÊܲÎÊýµÄ¡£Ö±½Ó£ºAAA.EXE xxx,
ÔÚ³ÌÐòÖÐÓÃÒ»¸ö±äÁ¿µÃµ½Õâ¸ö²ÎÊý£¬ÄǾͿÉÒÔÁË¡£×ö·¨£º
1¡¢ÔÚ×¢²á±í×ÔÆô¶ ......
ºÜ¾ÃÒÔǰµÄÒ»¸ö´úÂëÁË¡£¡£¡£¡£¡£ÄÇʱ»¹³ÁÃÔÓÚÑо¿WindowsXPµÇ¼ÃÜÂëµÄ¼ÆËã·½·¨¡£¡£¡£¡£
ÏÈн¨Ò»¸öVB¹¤³Ì£¬»Ò»¸öCommandButton£¬¸ÄÃûΪcmdGetSYSKEY£¬»Ò»¸öTextBox£¬¸ÄÃûΪtxtSYSKEY£¬È»ºóÕ³ÌùÏÂÃæµÄ´úÂ룬ÔËÐм´¿É£¬ÔÚWindowsXP SP2 Build 2600 + VB6.0 SP6ϲâÊÔͨ¹ý£¬»ñµÃµÄSYSKEYÓëCain&Abel v4.9.6Ò»Ö¡£¡£¡£¡£ ......
´«Í³·½·¨ÊDZéÀúÒ»±é
Èç¹ûlistbox ÏîÄ¿¹ý¶à
Ã÷ÏÔËٶȲ»ÐÐ
ºÃ·½·¨ÊÇͨ¹ýsendmessge·¢ÏûÏ¢¸ølistboxÈÃËû°ÑÑ¡ÖÐÏîĿֱ½Ó´«µ½²ÎÊýÊý×éÖÐ
You can use the SendMessage() API function instead.
As
you probably know, this function lets you send a message to one or more
windows. The declaration statement conforms ......