Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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°Ñasp·â×°³Édll


×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êÇ©Ö®¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈÇ°±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØбàÒë.Õ ......

Developer Support Languages VC++, C# and VB.NET


Welcome to Microsoft Developer Support, Languages team blog! You will find a lot of language related troubleshooting resources here.
Troubleshooting PInvoke Related Issues 
I am back with some more PInvoke Stuff.  Recently I was working on a PInvoke issue which I found interesting ......

¡°×Ô¶¯µã»÷°´Å¥¡±Ð¡¹¤¾ß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ÄæÏò¹¤³ÌʵսÑÝÏ°

û¿Ç,ûÓÐCommand Button,ËùÓеÄÄÚÈݶ¼ÔÚForm_LoadÀï¡£ÓÃVBDE²é¿´£¬Form_LoadÔÚ00406A90,´ò¿ªW32dsm£¬ÔØÈëCasinoÂÖÅÌÖÇÄÜ»úÆ÷ÈË£¬²éÕÒ00406A90£¬·´»ã±à´úÂëÈçÏ£º
Quote:
:00406A90 55                   &nb ......

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

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