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

VBʵÏÖ¿ÉÖ´ÐÐÎļþÔËÐÐʱ×Ôɾ³ý

    ÓÐʱ£¬ÎªÁËʵÏÖ¶¯Ì¬¸üУ¬ÎÒÃÇÐèÒª¶ÔÕý´¦ÓÚÔËÐÐ״̬µÄÓ¦ÓóÌÐò½øÐÐ×Ôɾ³ý£¬¾ÍÏñ360°²È«ÎÀÊ¿ÔÚÏßÉý¼¶ÄÇÑù¡£µ«ÊÇ£¬WindowsÊDz»ÔÊÐíɾ³ýÕý´¦ÓÚÔËÐÐ״̬µÄÓ¦ÓóÌÐòµÄ£¬Ôõô°ì£¿Ò»°ãÀ´Ëµ£¬ÎÒÃÇ¿ÉÒÔʹÓÃÁ½¸ö³ÌÐòÀ´ÊµÏÖ£¬Ò»¸öרߺÔð°æ±¾¼ì²âºÍɾ³ý£¬Ò»¸ö²ÅÊÇÒµÎñÐèÒªµÄÖ÷Ó¦ÓóÌÐò¡£Äܲ»Äܽ«¶þÕߺ϶þÎªÒ»ÄØ£¿´ð°¸ÊÇ¿ÉÒԵģ¬ÄǾÍÊÇʹÓÃBAT»òVBSÀ´½øÐС£Ê¹ÓÃBAT£¬ÓÉÓÚ²»Äܼ°Ê±ÅжÏÓ¦ÓóÌÐòÊÇ·ñÒѾ­½áÊø£¬ÓÚÊÇÈËÃÇͨ¹ý½µµÍÆäÖ´ÐÐÓÅÏȼ¶±ð£¬ÈÃÆäÍíÓÚÓ¦ÓóÌÐò½áÊø£¬´Ó¶ø´ïµ½É¾³ýÄ¿µÄ£¬ÕâÖÖ°ì·¨ÓÐʱ»áÔì³Éɾ³ýʧ°Ü£¬¶øÊ¹ÓÃVBS£¬¿ÉÒÔÀûÓÃWindowsÄÚÖõÄCOM¶ÔÏ󣬷dz£·½±ãµØÅжÏÓ¦ÓóÌÐòÊÇ·ñ½áÊø£¬´Ó¶øÊµÏÖÁËÕæÕýÒâÒåÉϵÄ×Ôɾ³ý¡£²»¹ýÏà¶ÔÓÚBAT£¬VBSÒ²ÓÐһЩȱµã£¬ÄǾÍÊÇÒÀÀµÐÔ½ÏÇ¿£¬¶øÒ»²¿·Ö¼ÆËã»ú³öÓÚ°²È«¿¼ÂÇ£¬ÆÁ±ÎÁËWSH¹¦ÄÜ£¬´Ó¶øµ¼ÖÂɾ³ýʧ°Ü£¬´ÓÕâÒ»µãÀ´½²£¬·´µ¹²»¼°BAT·½Ê½ÁË¡£
    ±¾ÎĵÄʵÏÖ´úÂë»ùÓÚVBS£¬ÖÁÓÚʹÓÃBATÎļþ£¬¿ÉÒԲο¼ÕÅÕýÇïдµÄ¡¶WindowsºËÐıà³Ì¡·Ò»Ê飬°³²»ÔÙÌṩʵÏÖ´úÂë¡£
'* ******************************************************* *
'* ³ÌÐòÃû³Æ£ºDelMe.bas
'* ³ÌÐò¹¦ÄÜ£ºÔÚVBÖÐʵÏÖÓ¦ÓóÌÐò×Ôɾ³ý
'* ×÷Õߣºlyserver
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ******************************************************* *

Sub Main()
Call DelMe
End Sub

Public Sub DelMe()
Dim fn As Integer

On Error Resume Next
If App.LogMode Then
fn = FreeFile()
Open "del.tmp.vbs" For Output As fn
SetAttr "del.tmp.vbs", vbHidden
Print #fn, "Dim FSO,WMI"
Print #fn, "Set WMI=GetObject(" & Chr(34) & "winmgmts:\\." & Chr(34) & ")"
Print #fn, "Set FSO=CreateObject(" & Chr(34) & "Scripting.FileSystemObject" & Chr(34) & ")"
Print #fn, "Do While WMI.ExecQuery(" & Chr(34) & _
"SELECT * from WIN32_PROCESS WHERE NAME='" & App.EXEName & ".EXE'" & Chr(34) & ").Count"
Print #fn, "WScript.Sleep 1"
Print #fn, "Loop"
Print #fn, "FSO.DeleteFile " & Chr(34) & App


Ïà¹ØÎĵµ£º

VB È¡µÃÖ¸¶¨exeÎļþ°æ±¾ºÅ

¡¾º¯Êý¡¿  
  GetFileVersionInfo  
   
  ¡¾²Ù×÷ϵͳ¡¿  
  Win9X:Yes  
  WinNT:Yes  
   
  ¡¾ÉùÃ÷¡¿  
  GetFileVersionInfo   Lib   "version.dll"     Alias   "GetFileVersionInfoA" &n ......

VB³õ¼¶ÄæÏòÓëÀûÓÃ

½ñÌì×öÒ»¸öVB³ÌÐòµÄ×ÔÏÔ×¢²áÂë¡£ÎÒÒ²²»ÖªµÀ¸ÃÔõô½Ð£¬¾ÍÊÇÕÒµ½³öÏÖ×¢²áÂëµÄµØ·½£¬È»ºóÓöԻ°¿òµ¯³öÀ´¡£Ëµ°×Á˾ÍÊÇÓÃMessageBox°ÑÒ»¸ö×Ö·û´®¸øµ¯³öÀ´£¨Ã»×·Ç󰢡£¡£¡££©
    ÎªÁËÓеã×·Ç󣬽ñÌì²»µ¼Èëuser32ÀïÃæµÄAPI£¬¶øÊǰÑVBÀïÃæ×Ô´øµÄMsgboxº¯Êý¸øÍÚ³öÀ´µ÷Ó㬾ÍÊÇÒýÓÃMSVBVM60.rtcMsgBoxº¯Êý¡£ÎÒÊ ......

VB.NETÖÐÄܲ»ÄܶÔDATASETÔÙÓÃSQLÓïÑÔ

¿ÉÒÔɸѡÊý¾Ý£¬µ«²»ÄÜÊDZê×¼µÄSQLÓï¾ä£º
Me.DsUserManager1.Tables(0).Select("id > 5 and id <20")
---------------------------------------------------------------
1.ɸѡ£º
dataset.tables("tabname").select("id=1")'Ï൱ÓÚSQLÖÐWHEREºóµÄÌõ¼þÄÚÈÝ
2.±£´æµ½ÄÄ£¿Õâµ¹ÊDz»Öª ......

ÖØÊ°VBÖ®Èý£¬¶þ½øÖÆÎļþƪ

ÖØÊ°VBÖ®Èý£¬¶þ½øÖÆÎļþƪ
PMP ¹Ø¾¢ËÉ
     ¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB¡£
¶ÁÈ¡¡¢Ð޸Ķþ½øÖÆÎļþÈÔÊǴ󲿷ֱà³ÌÓïÑԵĻù±¾¿ª·¢¼¼ÄÜ¡£¿ÉÒÔÌá¸ß´¦ÀíÎļþЧÂÊ£¬Ö÷ÒªÓ¦ÓÃÔÚͨÐÅ¡¢½»»»Êý¾ÝµÈ·½Ãæ¡£
'open   filena ......

ÈçºÎÓÃVBʵÏÖExcelÎļþµÄ×Ô¶¯ºÏ²¢

¼òµ¥¶øÊµÓõĺϲ¢ExcelÎļþµÄº¯Êý£¬Äܹ»½«¶à¸öXLSÎļþÖÐÖ¸¶¨ÊýÁ¿µÄ¹¤×÷±í×Ô¶¯ºÏ²¢µ½Ò»¸öXLSÎļþÀï¡£µ±È»£¬Èç¹ûÖ»ÊÇÊý¾ÝºÏ²¢£¬ÔòʹÓÃADO¾Í¿ÉÒÔʵÏÖ£¬µ«Èç¹ûÒª±£Áô±í¸ñ¸ñʽ£¬Ôò¿ÖÅÂÖ»ÄÜʹÓð³µÄ·½·¨ÁË¡£
    Ò»¡¢º¯Êý´úÂ룺
Option Explicit
'* ********************************************************* ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ