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¸ù¾Ý´°¿Ú±êÌâ»ñȡӦÓóÌÐòÍêÕû·¾¶(À´×ÔÍøÂç)
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId A ......
VBÖд´½¨µÄDLLÖ»ÊÇCOM×é¼þ£¬ÎÞ·¨×÷ΪÊä³öº¯ÊýµÄDLL¡£½ñÌì´ÓÅóÓÑÄÄÀï¸ãµ½Ò»ÖÖ¿ÉÒÔ´´½¨Êä³öº¯ÊýµÄDLLµÄ·½·¨£¬ÐÀϲ֮Ó࣬²»¸Ò¶ÀÏí£¬ÏÖÔÚ°ÑËû½éÉܸø´ó¼Ò¡£
¡¡¡¡VB±àÒëÎļþʵ¼ÊÉϲÉÈ¡ÁËÁ½´Î±àÒëµÄ·½·¨£¬Ê×ÏÈÊǵ÷ÓÃc2.exe²úÉúOBJÎļþ£¬È»ºóµ÷ÓÃLink.exeÁ¬½Ó¡£Èç¹ûÔÚlinkµÄʱºòÌí¼ÓEXPORTÑ¡Ïʵ¼ÊÉÏÊÇ¿ÉÒÔÊä³öº¯ÊýµÄ¡£µ«ÊÇ£¬ÔÚV ......
ºÜ¶àÄêǰ¾ÍÏë×öÒ»¸öÔ¶³Ì¿ØÖƵÄÈí¼þ£¬Ö»ÊÇÒ»Ö±ÒÔÀ´Í¼Æ¬µÄѹËõËÙ¶È×ÜÊÇÌáÉý²»ÉÏÈ¥£¬¶øÎÒÒ²²Î¿¼¹ýºÜ¶àÍøÉϵĹØÓÚͼƬѹËõµÄÀý×Ó£¬±ÈÈçzyl910µÄGIF_LZWѹËõ·½·¨£¬HuffmanѹËõ·½·¨£¬ÒÔÖÁµ½GDI+µÄÖ±½ÓÉú³ÉJPG¡¢PNGµÄ·½·¨£¨ÕâÖÖ·½·¨ÎÞÂÛ´ÓѹËõÂʺÍËÙ¶ÈÉ϶¼ÊÇ×î¼ÑµÄ£¬¿ÉϧÕâÖÖ·½·¨ÍøÉÏһֱûÕÒµ½Ö±½Ó±£´æÎªByte()µÄÀý×Ó£¬¼ûµÃ×î¶àµÄ ......
×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êǩ֮¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈǰ±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØÐ±àÒë.Õ ......
ºÜ¾ÃÒÔǰµÄÒ»¸ö´úÂëÁË¡£¡£¡£¡£¡£ÄÇʱ»¹³ÁÃÔÓÚÑо¿WindowsXPµÇ¼ÃÜÂëµÄ¼ÆËã·½·¨¡£¡£¡£¡£
ÏÈн¨Ò»¸öVB¹¤³Ì£¬»Ò»¸öCommandButton£¬¸ÄÃûΪcmdGetSYSKEY£¬»Ò»¸öTextBox£¬¸ÄÃûΪtxtSYSKEY£¬È»ºóÕ³ÌùÏÂÃæµÄ´úÂ룬ÔËÐм´¿É£¬ÔÚWindowsXP SP2 Build 2600 + VB6.0 SP6ϲâÊÔͨ¹ý£¬»ñµÃµÄSYSKEYÓëCain&Abel v4.9.6Ò»Ö¡£¡£¡£¡£ ......