Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖÐɾ³ýÊý×éÖظ´ÔªËØ

Option Explicit
Function Delete3(Arr As Variant) As Variant
Dim i As Integer
For i = LBound(Arr) To UBound(Arr)
If i > UBound(Arr) Then Exit For
If Arr(i) = 3 Then
Do
Dim j As Integer
For j = i To UBound(Arr) - 1
......

vb Active ¿Ø¼þ¡¡¼¯ºÏÀà¡¡ÎÊÌâ

ÒýÑÔ:
         ×öÒ»¸ö¿Ø¼þ, ÓÃÓÚ Êý¾Ý²ÉÑùÈçʾ²¨Æ÷, ¿ÉÒÔÌí¼Ó,ɾ³ýÇúÏß, ÉèÖÃÇúÏßµÄÏà¹ØÊôÐÔ: ÏßÐÍ,ÑÕÉ«,µÈ...
¹ý³Ì:
        ¡¡ÏÈ´´½¨ Ïß Àà,  ÔÚÓû§¿Ø¼þÀïʵÏÖ Ïß ¶ÔÏó´´½¨,  ²¢ÉùÃ÷Ò»¸ö ¼¯ºÏ, ÓÃÓÚ ´æ·Å½¨Á¢µÄÏ߶ÔÏó.
ÎÊÌâ ......

¡°×Ô¶¯µã»÷°´Å¥¡±Ð¡¹¤¾ßVBÔ´Âë

“×Ô¶¯µã»÷°´Å¥”С¹¤¾ßVBÔ´Âë
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Pri ......

ÀûÓÃVB×ÔÖÆOCX¿Ø¼þ

¡¡¡¡Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØλ,ÎÒÃÇ¿ÉÒÔÀûÓÃOCX¿Ø¼þÍê³ÉһЩÏ൱¸´Ôӵıà³Ì²Ù×÷.ͬʱOCX ¿Ø¼þ»¹ÓÐÀûÓÚÖ÷³ÌÐòµÄ¼òµ¥»¯¡¢¹¦ÄܵÄÖØÓá¢Òþ³£³ÌÐòʵÏÖϸ½Ú¡¢±ãÓÚÉý¼¶¡¢´«²¥·½±ãµÈÓŵ㡣ÏÖÔÚÎÒÃÇ¿ÉÒÔÀûÓÃVB 5.0·½±ãµÄÖÆ×÷³ö×Ô¼ºµÄOCX¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓÃͬʱ»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!
ÏÂÃæÁгöÖÆ× ......

ÔÚVBµÄÀàÄ£¿éÖÐʹÓö¨Ê±Æ÷

    ³¤¾ÃÒÔÀ´£¬ÓÉÓÚ²»ÄÜÖ±½Ó»ñµÃVBÀà³ÉÔ±º¯ÊýÖ¸Õ룬ÒòΪÎÞ·¨ÔÚVBµÄÀàÄ£¿éÖÐÖ±½ÓʹÓö¨Ê±Æ÷¿Ø¼þ»ò¶¨Ê±Æ÷API£¬»ùÓÚ°³±àдµÄ»ñµÃÀà³ÉÔ±º¯ÊýÖ¸ÕëµÄº¯Êý£¬°³±àдÁËÕâ¸ö´ø¶¨Ê±Æ÷¹¦ÄܵÄÀ࣬ϣÍû¸øÅóÓÑÃÇһЩÆô·¢¡£
    Ò»¡¢Ð½¨Ò»¸öÀ࣬ÀàÃû³ÆΪclsTimer£¬Àà´úÂëÈçÏ£º
Option Explicit
'* ** ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ