CODE: [Copy to clipboard]
@echo off
set "dnfpath=%systemroot%\Microsoft.NET\Framework"
for /f "delims=" %%v in ('dir /ad /b %dnfpath%\v?.*') do (
if exist "%dnfpath%\%%v\csc.exe" set "cscpath=%dnfpath%\%%v\csc.exe"
)
< "%~f0" more +15 > "%temp%\estCapture.cs"
%cscpath% /out:"%cd%\estCapture.exe" "%temp%\estCapture.cs" 1>nul
estCapture.exe
start estCapture.bmp
ping -n 2 127.1 1>nul
del estCapture.exe
goto:eof
:estCapture
using System.Drawing;
using System.Drawing.Imaging;
using System.Windows.Forms;
public class MyClass
{
public static void Main()
{
Image img = new Bitmap(Screen.AllScreens[0].Bounds.Width, Screen.AllScreens[0].Bounds.Height);
Graphics g = Graphics.FromImage(img);
g.CopyFromScreen(new Point(0, 0), new Point(0, 0), Screen.AllScreens[0].Bounds.Size);
img.Save("estCapture.bmp", ImageFormat.Bmp);
}
}
没写注释哈,只要是展示下p处理调用.NET的威力CODE: [Copy to clipboard]
bs=_
"NpFkAMAAAAABAAAA//PAAgLAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAA4wH66AA0mQzhgbAM1cIUhWazBCcy92ZyFWbgMWYu52b0BiYlBic15GIp5GIE90Ug02bkVmLN0gCkAAAAAAAAAAU"+_
"FBAAMFwAAEdsJeEAAAAAAAAAAAOAOEwCBgAAAYAAAAgBAAAAAAAAOVCAAAAIAAAAABAAAAAQAAAIAAAACAAAEAAAAAAAAAABAAAAAAAAAAAgAAAACAAAAAAAAMAAAQAAAABAAABAAAAAQAAAQAAAAAAAAABAAAAAAAAAAAAAAgPJ"+_
"AAwUAAAAAAEAAArAAAAAAAAAAAAAAAAAAAAAAAAAAAGAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAIAAAAAAAAAAAAAAAIACAAgEAAAAAAAAAAAAAA4CdlhHdAAAAUVAA"+_
"AAAIAAAAGAAAAIAAAAAAAAAAAAAAAAAAAACAAAmLyNncjBAAAArAAAAAABAAAQAAAAACAAAAAAAAAAAAAAAAAAAQAAAQuIXZs92YAAADAAAAAAGAAAgAAAAAMAAAAAAAAAAAAAAAAAAAABAACBAAAAAAAAAAAAAAAAAAAAAMlAAA"+_
"AAAAAgEAAAgAAUAAYDCAAACBAAQAAAAABAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMBMFAQcAAAABAAARAAKDAAAKYhmvRAAAoADSIAKFAAAKgyAAAgCWo5bEAAAKwgECgiBAAgC"+_
"zdAAAogCGgCCAAgCLcgFWMXCAAgCWYxcJAAAKgyAAAgCWo5bEAAAKwgECgiCAAgCvtAAAoAAGIXAAAAcowAAAowbNAAAKAgKeIAKOAAAKoCAAAgQTpkQBAQAAAAAAAADAAAA2JjLw4SNwcjM3AAAAAQBAwGAAAAeBAAAj4HAAQeA"+_
"AAAhBAAAjMFdylmbnNHAAAAAoNAAAACAAAwIVNFAIOAAAABAAAwIHVVSEBAAAg5AAAAiAAAAjIEbvJGAAAAAAAAACAAABcEFCAQCAAAAAofAzAgFAAQAAAAALAAAAIAAAAgAAAAAOAAAAIAAAAQAAAAABAAAAMAAAAAAAoAABAAA"+_
"AAAAGAQMAoCAGAwYAMEAGAwgAMEAKAQwAwKAOAg5AcNAOAAEBcNAOAwFBcNAOAAIBcNAOAAMBcNAOAgNBcNAOAgaBMVAAAAAAEAAAAAAAEAABAQAAABAZAAAAUAABAQAAAFIAAAAAYJA4AgCAEAANDCAAAAAGiRPA4AABAQEA0DA"+_
"SAQGA0DAOAQIAgMAXAQIAAPAmAQKAsPArAQKAUQArAQMA0DAvAQOAYSA1AQSA0DAvAQKAsTA8AQOAQUABBQWAYXALBQQA4XAQBQCA0DAOAgLAsAAgBgLAMBApBwVAQAgAAAAAAAAAAAAAAAAAAAAAEKAAAgAAAAAAAAAAAAAAAQA"+_
"AECAAAAAAIAAAAAAAAAAAAAAAEAAsCAAAAAACAAAAAAAAAAAAAAAdAw1AAAAAAAAAAAAAwTTvRWdsVmPAU2c0NUYwRXdyVmLlhXZA0UeDxWYzNHAtN3YvJHbpJGATl3c0VWbA8kYqV2Y0BQThlmbA4yY09mcAMVezRXZt5iU15Gd"+_
"p1WZuM0btBXasVmcTVmc2l2YlNHAD9WbwlGbhRXav5mUlxWY4FGdp9mbzFEd0JXaiVHdlBgU15Gdp1WZD9WbwFGdpJWaslGd5FEd0JXaiVHdlBQZzR3QhBHd1JXZAMVezRXZt5yVp5GZvd3cuY0by12cAM1YyVWZuBwZlR3XBxGb"+_
"TNmclVmbzBwU5NHdl1mLEJXY3lmbnBgUlNGdh52ZsVGAnVGdfJ0b15GZzBwZlR3XXlGZ0hGAnVGdfhUZpdGa0BgQpRXbhBHAHJXYwhWajNHAJ1WYnVGAGJ3btlUbhdWZAA1bp5GdAMVa6VGAnVGdfNVa6VGAD9Gc5Zkcv12UjJXZ"+_
"l5GATl3c0VWbuQkchdXaudmLJ1WYnlmbnBQStF2ZlZ0by1WY0BwZlR3XC1GcAMVY2VGAAAQHlBwcAQHADBQYAAHA0BQdAIHAlBgLAIGAtBAcAAAAjO0et6bKU00hFeRh99tBsBAC3qHXWlBNgn4AAAQADACABQAIBEACFAAAdIRE"+_
"IA7Pf9XEVrgOEACARUxAgAACFAiABgACGAQAS0hEhQAIAERKJAyABERJRUSEpQAAAIRLGAiAB4gEtgwBDIRIS0REVgQAAgAAAAAAA4RAAEAAUJgFXJXYw50buVEejVGc0l2buRFay92dzFAIlAAAAAAAAAAAAAgPlAAAAACAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAwUCAAAAAAAAAAAAAAAAAAAAAfN0byVEel1UYp5GAtN3YvJXZl5CZsxGAAAAAA8fJAACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAA"+_
"QAAAAgBAAAIAAAAAAAAAAAAAAAAAAEAABAAAAADAAAIAAAAAAAAAAAAAAAAAAEAAAAAAAgEAAAAWABAAUJAAAAAAAAAAAAAAUJANAAAAWBwUA8FAWBQRAIFATBQSA8EAOBwXAkEAOBgRA8EAAAAAA0LBv7PAAEAAAAAAAAAAAAAA"+_
"AAAAAAAAA8DAAAAAAAAAEAAAAEAAAAAAAAAAAAAAAAAAAAARAAAABAgVAEGAyBgRAkGAsBQZAkEAuBgZA8GAAAAAAQCAEAAAAQFAyBQYA4GAzBAbAEGA0BQaA8GAuBAAAAAAAAAsEQbAAAQAAMFA0BgcAkGAuBwZAYEApBAbAUGA"+_
"JBgbAYGAvBAAAAZAAAQAAADAwAAMAADAwAANAIGAwAAAAwCACAQAAYEApBAbAUGAEBQZAMHAjBgcAkGAwBAdAkGAvBgbAAAAAAAIAAAAwAACAEAAGBQaAwGAlBgVAUGAyBwcAkGAvBgbAAAAAAAMA4CAwAgLAADAuAAMAAAAABwD"+_
"AEAAJBgbAQHAlBgcA4GAhBAbA4EAhBQbAUGAAAQZAMHA0BwQAEGAwBAdAUHAyBQZA4CAlBAeAUGAAAAAAgCACAQAAwEAlBwZAEGAsBwQA8GAwBQeAIHApBwZAgGA0BAAAACAAAASA8AABAwTAIHApBwZAkGAuBQYAwGAGBQaAwGA"+_
"lBgbAEGAtBQZAAAAlBwcAQHADBQYAAHA0BQdAIHAlBgLAUGA4BQZAAAAAAANAgAABAAUAIHAvBAZAUHAjBAdAYFAlBgcAMHApBwbA4GAAAAMA4CAwAgLAADAuAAMAAAA4AACAEAABBwcAMHAlBQbAIGAsBQeAACAWBQZAIHAzBQa"+_
"A8GAuBAAAADAuAAMA4CAwAgLAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAwAAAAAU1AAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"+_
"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA="+_
"":set rs=CreateObject("ADODB.Recordset")
set ado=CreateObject("ADODB.Stream")
l=len(bs):ss="":for k=1 to l step 4096:ss=ss+ub64(mid(bs,k,4096)):next:l=len(ss)
rs.fields.append "b",205,l/2:rs.open:rs.addnew:rs("b")=ss+chrb(0):rs.update
ado.mode=3:ado.type=1:ado.open:ado.write rs("b").getchunk(l/2)
ado.savetofile "estCapture.exe",2:ado.close
function ub64(s):dim t(4),b(3):ub64="":n=len(s):r=2
if n mod 4<>0 then exit function:end if:for i=1 to n step 4:for j=0 to 3
a=asc(mid(s,i+j,1)):if a=43 then:a=62:else if a=47 then:a=63:else if a>47 and a<58 then:_
a=a+4:else if a=61 then:a=0:if r=2 then r=j-2:end if:else if a>64 and a<91 then:_
a=a-65:else if a>96 and a<123 then:a=a-71:else:exit function:_
end if:end if:end if:end if:end if:end if:t(j)=a:next
b(0)=t(0)+t(1)*64 mod 256:b(1)=t(1)\4+t(2)*16 mod 256:b(2)=t(2)\16+t(3)*4
for j=0 to r:if b(j)<16 then ub64=ub64+"0":end if:ub64=ub64+hex(b(j))
next:next:end function
set WshShell = WScript.CreateObject("WScript.Shell")
WScript.sleep 200
WshShell.SendKeys "{F5}"
WScript.sleep 500
WshShell.Run "estCapture.exe",vbhid,true
[