本帖最后由 Taurus 于 2012-12-10 12:39 编辑
別做壞事- ''>nul 2>nul&@echo off&setlocal enabledelayedexpansion&mode con: cols=40 lines=2&title Marquee test
- ''>nul 2>nul&start "" wscript "%0" %0 //Nologo //e:vbscript.encode
- ''>nul 2>nul&set stra=/.............Marquee test..............
- ''>nul 2>nul&set strb=/.........Code by Area_66.Taurus........
- :'lp
- ''>nul 2>nul&if "!Fly:~1,1!"=="/" set stra=!strb!&set strb=%stra%&set/anum=0,num2=0
- ''>nul 2>nul&set Fly=!stra:~%num%,-1!!strb:~0,%num%!
- ''>nul 2>nul&set /a num2-=1,num+=1
- ''>nul 2>nul&cls&echo.!Fly!
- ''>nul 2>nul&set/p=!stra:~%num2%,-1!!strb:~0,%num2%!<nul
- ''>nul 2>nul&ping /?>nul&ping /?>nul&ping /?>nul
- ''>nul 2>nul&goto :'lp
- '=====================================================================
- Batpath = replace(Wscript.Arguments(0),"\","\\")
- set ws=createobject("wscript.shell")
- do
- WScript.Sleep 1000
- Set objSWbemServices = GetObject ("WinMgmts:Root\Cimv2")
- Set colProcess = objSWbemServices.ExecQuery ("Select * From Win32_Process Where Caption='CMD.EXE' AND commandline LIKE '%" & "CMD /c" & "%" & Batpath & """ ""'")
- If colProcess.Count = 0 Then
- ws.run "cmd.exe /c set/p=Format Command~!!!",1
- wscript.quit
- End If
- loop
复制代码
|