通过写一个".reg"工具来进行恢复:
vbs.reg
---------------------------------------
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\.VBS]
@="VBSFile"
[HKEY_CLASSES_ROOT\.VBS\PersistentHandler]
@="{5e941d80-bf96-11cd-b579-08002b30bfeb}"
或者复制wscript.exe至SYSTEM32目录
压缩档内附vbs.reg与wscript.exe,欢迎大家下载!
2022-11-21 17:05:29
40KB
1
抖音vbs表白代码大全分享，最近很多小伙伴都在抖音上看到了一个vbs表白代码这个玩法，感觉非常的有趣。不过不少玩家还不知道怎么弄的，下面就来一起看下制作方法吧
2022-11-10 23:14:14
106KB
1
Microsoft Visual Basic Scripting Edition 为各种环境提供有效的脚本编写手段，包括 Microsoft Internet Explorer 中的 Web 客户端脚本编写及 Microsoft Internet Information Services 中的 Web 服务器端脚本编写。
2022-11-08 17:49:42
3.53MB
1
用VBS获取网页源代码.vbs
set http=createobject("Microsoft.XMLHTTP") '\\调用XMLHTTP对象
url="http://www.119880.com/qq.txt" '\\赋予变量URL值
Set hhh = createObject("Microsoft.XMLHTTP")
hhh.open "get",url,false '\\定义打开URL方式
hhh.send '\\发送数据
zhi=zhuanghuan(Http.responsebody) '\\变量zhi等于网页内容
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '声明
Set f = fso.CreateTextFile("txtx.txt") '创建文件,其中f可任意，包含缩略名
f.WriteLine(zhi) '写文件内容,该命令功能太简单,目前看来只能用于TXT文件
f.Close
Function zhuanghuan(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80; Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100; + CInt(NextCharCode))
i = i + 1
End If
Next
zhuanghuan = strReturn
End Function
2022-10-28 21:28:20
971B
1