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
Ïà¹ØÎĵµ£º
¡¾º¯Êý¡¿
GetFileVersionInfo
¡¾²Ù×÷ϵͳ¡¿
Win9X:Yes
WinNT:Yes
¡¾ÉùÃ÷¡¿
GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA" &n ......
½ñÌì×öÒ»¸öVB³ÌÐòµÄ×ÔÏÔ×¢²áÂë¡£ÎÒÒ²²»ÖªµÀ¸ÃÔõô½Ð£¬¾ÍÊÇÕÒµ½³öÏÖ×¢²áÂëµÄµØ·½£¬È»ºóÓöԻ°¿òµ¯³öÀ´¡£Ëµ°×Á˾ÍÊÇÓÃMessageBox°ÑÒ»¸ö×Ö·û´®¸øµ¯³öÀ´£¨Ã»×·Ç󰢡£¡£¡££©
ΪÁËÓеã×·Ç󣬽ñÌì²»µ¼Èëuser32ÀïÃæµÄAPI£¬¶øÊǰÑVBÀïÃæ×Ô´øµÄMsgboxº¯Êý¸øÍÚ³öÀ´µ÷Ó㬾ÍÊÇÒýÓÃMSVBVM60.rtcMsgBoxº¯Êý¡£ÎÒÊ ......
¿ÉÒÔɸѡÊý¾Ý£¬µ«²»ÄÜÊDZê×¼µÄSQLÓï¾ä£º
Me.DsUserManager1.Tables(0).Select("id > 5 and id <20")
---------------------------------------------------------------
1.ɸѡ£º
dataset.tables("tabname").select("id=1")'Ï൱ÓÚSQLÖÐWHEREºóµÄÌõ¼þÄÚÈÝ
2.±£´æµ½ÄÄ£¿Õâµ¹ÊDz»Öª ......
ÖØÊ°VBÖ®Èý£¬¶þ½øÖÆÎļþƪ
PMP ¹Ø¾¢ËÉ
¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB¡£
¶ÁÈ¡¡¢Ð޸Ķþ½øÖÆÎļþÈÔÊǴ󲿷ֱà³ÌÓïÑԵĻù±¾¿ª·¢¼¼ÄÜ¡£¿ÉÒÔÌá¸ß´¦ÀíÎļþЧÂÊ£¬Ö÷ÒªÓ¦ÓÃÔÚͨÐÅ¡¢½»»»Êý¾ÝµÈ·½Ãæ¡£
'open filena ......
¼òµ¥¶øÊµÓõĺϲ¢ExcelÎļþµÄº¯Êý£¬Äܹ»½«¶à¸öXLSÎļþÖÐÖ¸¶¨ÊýÁ¿µÄ¹¤×÷±í×Ô¶¯ºÏ²¢µ½Ò»¸öXLSÎļþÀï¡£µ±È»£¬Èç¹ûÖ»ÊÇÊý¾ÝºÏ²¢£¬ÔòʹÓÃADO¾Í¿ÉÒÔʵÏÖ£¬µ«Èç¹ûÒª±£Áô±í¸ñ¸ñʽ£¬Ôò¿ÖÅÂÖ»ÄÜʹÓð³µÄ·½·¨ÁË¡£
Ò»¡¢º¯Êý´úÂ룺
Option Explicit
'* ********************************************************* ......