VBS
落单的毛毛虫
不准埋怨, 只许努力.
展开
-
遍历注册表
Const HKLM = &H80000002strPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace"Set oreg = GetObject("Winmgmts:\root\default:StdRegProv")oreg.EnumKey HKLM,strPath,arrFor E原创 2013-03-25 18:49:18 · 1299 阅读 · 0 评论 -
图片格式转换
Const wiaFormatBMP = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"Const wiaFormatPNG = "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}"Const wiaFormatGIF = "{B96B3CB0-0728-11D3-9D7B-0000F81EF32E}"Const wiaFo转载 2013-03-25 18:50:36 · 1509 阅读 · 2 评论 -
vbs重启路由器
'name: TP-Link 重启.vbsuser = "admin" '路由器帐号pass = "admin" '路由器密码With CreateObject("Msxml2.ServerXMLHTTP") .open "GET", "http://192.168.1.1/userRpm/SysRebootRpm.htm?Reboot=重启路由器", False, user, p原创 2013-06-26 12:40:53 · 1558 阅读 · 1 评论 -
双重加密VBS, VBE文件
'Encoder加密Function Encoder(data) with CreateObject("Scripting.Encoder") Encoder=.EncodeScriptFile(".vbs",data,0,"VBScript") end withEnd Function'ASCII加密Function ASCII(Data) C = Len(Data) Fo原创 2013-03-25 18:54:51 · 1493 阅读 · 0 评论 -
VBS 打开关闭光驱
Set Obj=CreateObject("WMPlayer.OCX.7")Set CD=Obj.CDROMCollectionIf CD.Count>=1 then '' 光驱数量For i=0 to CD.Count-1 '' 遍历所有光驱, 并且打开 CD.Item(i).ejectNextFor i=0 to CD.Count-1 '' 遍历所有光驱, 并且关闭原创 2013-03-25 18:54:18 · 2278 阅读 · 0 评论 -
VBS U盘插入提示
strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colEvents = objWMIService.ExecNotificationQuery _ ("Select * From __InstanceOperationEvent Within原创 2013-03-25 18:55:09 · 1075 阅读 · 1 评论 -
快捷方式操作
示例 Set WshShell = CreateObject("Wscript.Shell") Set oUrlLink = WshShell.CreateShortcut("百度.URL") oUrlLink.TargetPath = "http://www.baidu.com/" oUrlLink.Save '属性 说明 FullName 快捷方式对象的原创 2013-03-25 18:48:01 · 607 阅读 · 0 评论 -
模拟发声
set spv = CreateObject("SAPI.SpVoice")Speak:要读的内容。Voice:表示发音类型,相当于进行朗读的人,通常我们可以通过安装相应的语音引擎来增加相应的语音。Rate:语音朗读速度,取值范围为-10到+10。数值越大,速度越快。Volume:音量,取值范围为0到100。数值越大,音量越大。Speak():完成将文本信息转换为语音并按照指定的参数原创 2013-03-25 18:47:16 · 1000 阅读 · 0 评论 -
遍历进程
set Win = getobject("winmgmts:")set Win32 = Win.instancesof("win32_process")for each key in Win32 if key.name = "QQ.exe" then Wsh.echo "QQ已登录" end ifnext原创 2013-03-25 18:49:36 · 713 阅读 · 0 评论 -
剪贴板操作
ie.menubar=0 '不显示IE对象菜单栏 ie.AddressBar=0 '不显示IE对象地址栏 ie.ToolBar=0 '不显示IE对象工具栏 ie.StatusBar=0 '不显示IE对象状态栏 ie.FullScreen=1 '全屏化IE对象 ie.Width=800 '设置IE对象宽度 ie.Height=600 '设置IE对象高度 ie.Resizable=0 '原创 2013-03-25 18:49:59 · 723 阅读 · 0 评论 -
VBS播放WMP文件
Set wmp = CreateObject("WMPlayer.OCX")wmp.URL = ""While wmp.playState<>1 WSH.Sleep 1000Wendstartplay ''播放状态1=停止2=暂停中3=正在播放4=向前搜索5=向后搜索6=缓冲中7=等待中8=播放完毕9=转换曲目10=准备就绪//取得媒体当前位置,以形如 06:01原创 2013-03-18 13:58:33 · 1644 阅读 · 0 评论