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

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ÖнøÐÐÃû³ÆÐ޸ĺÜÈÝÒ×,Óõ½µÄ¾ÍÊÇNameÕâ¸öº¯Êý£¬Ó÷¨ÈçÏ£º
Name OldName As NewName£¬Ëü²»½ö¿ÉÒÔ¸ÄдÃû³Æ£¬¶øÇÒ¿ÉÒÔ¸ü¸ ......

VB¸ù¾Ý´°¿Ú±êÌâ»ñȡӦÓóÌÐòÍêÕû·¾¶(À´×ÔÍøÂç)

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)

´ÓÍøÉÏËѼ¯µ½µÄVB´úÂ룬ÓÃEXE·½Ê½ÊµÏÖÁËÔ¶³Ì×¢È룬²»¹ýÔÚ·´²¡¶¾Èí¼þµÄ±£»¤Ï£¬ÓпÉÄܵ¼ÖÂ×¢Èëʧ°Ü¡£×ªÌùÕâ¸ö´úÂ룬½ö¹©´ó¼ÒѧϰºÍ²Î¿¼¡£
Ò»¡¢´°¿Ú´úÂ룺
Option Explicit

Private Sub cmdLock_Click()
If LockKeyboard(True) Then
cmdLock.Enabled = False
cmdUnLock.Enabled = Tr ......

(ת)VBÖд´½¨¿ÉÒÔÊä³öº¯ÊýµÄDLL

VBÖд´½¨µÄDLLÖ»ÊÇCOM×é¼þ£¬ÎÞ·¨×÷ΪÊä³öº¯ÊýµÄDLL¡£½ñÌì´ÓÅóÓÑÄÄÀï¸ãµ½Ò»ÖÖ¿ÉÒÔ´´½¨Êä³öº¯ÊýµÄDLLµÄ·½·¨£¬ÐÀϲ֮Ó࣬²»¸Ò¶ÀÏí£¬ÏÖÔÚ°ÑËû½éÉܸø´ó¼Ò¡£
¡¡¡¡VB±àÒëÎļþʵ¼ÊÉϲÉÈ¡ÁËÁ½´Î±àÒëµÄ·½·¨£¬Ê×ÏÈÊǵ÷ÓÃc2.exe²úÉúOBJÎļþ£¬È»ºóµ÷ÓÃLink.exeÁ¬½Ó¡£Èç¹ûÔÚlinkµÄʱºòÌí¼ÓEXPORTÑ¡Ïʵ¼ÊÉÏÊÇ¿ÉÒÔÊä³öº¯ÊýµÄ¡£µ«ÊÇ£¬ÔÚV ......

ÖØÊ°VBÖ®¶þ£¬ºÁÃëÆª

ÖØÊ°VBÖ®¶þ£¬ºÁÃëÆª
PMP ¹Ø¾¢ËÉ
   
    ¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB¡£
    ÔÚvbÖÐÈçºÎ»ñµÃºÁÃ뾫¶È¼¶±ðµÄʱ¼ä£¿vbµÄʱ¼äº¯Êý²»Ö§³ÖºÁÃ룬ÐèÒªÀûÓÃwindowsµÄ»ù±¾API£¬±àд³ÌÐò²ÅÄÜ»ñÈ¡ºÁÃë¼¶ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ