落单的毛毛虫

示例 Set WshShell = CreateObject("Wscript.Shell") Set oUrlLink = WshShell.CreateShortcut("百度.URL") oUrlLink.TargetPath = "http://www.baidu.com/" oUrlLink.Save '属性 说明 FullName 快捷方式对象的

Set wmp = CreateObject("WMPlayer.OCX") wmp.URL = "" While wmp.playState<>1 WSH.Sleep 1000 Wend startplay ''播放状态 1=停止 2=暂停中 3=正在播放 4=向前搜索 5=向后搜索 6=缓冲中 7=等待中 8=播放完毕 9=转换曲目 10=准备就绪 //取得媒体当前位置,以形如 06:01

strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colEvents = objWMIService.ExecNotificationQuery _ ("Select * From __InstanceOperationEvent Within

Set Obj=CreateObject("WMPlayer.OCX.7") Set CD=Obj.CDROMCollection If CD.Count>=1 then '' 光驱数量 For i=0 to CD.Count-1 '' 遍历所有光驱, 并且打开 CD.Item(i).eject Next For i=0 to CD.Count-1 '' 遍历所有光驱, 并且关闭

'Encoder加密 Function Encoder(data) with CreateObject("Scripting.Encoder") Encoder=.EncodeScriptFile(".vbs",data,0,"VBScript") end with End Function 'ASCII加密 Function ASCII(Data) C = Len(Data) Fo

'name: TP-Link 重启.vbs user = "admin" '路由器帐号 pass = "admin" '路由器密码 With CreateObject("Msxml2.ServerXMLHTTP") .open "GET", "http://192.168.1.1/userRpm/SysRebootRpm.htm?Reboot=重启路由器", False, user, p

Const wiaFormatBMP = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}" Const wiaFormatPNG = "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}" Const wiaFormatGIF = "{B96B3CB0-0728-11D3-9D7B-0000F81EF32E}" Const wiaFo

Const HKLM = &H80000002 strPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace" Set oreg = GetObject("Winmgmts:\root\default:StdRegProv") oreg.EnumKey HKLM,strPath,arr For E

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 '

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 if next

set spv = CreateObject("SAPI.SpVoice") Speak：要读的内容。 Voice：表示发音类型，相当于进行朗读的人，通常我们可以通过安装相应的语音引擎来增加相应的语音。 Rate：语音朗读速度，取值范围为-10到+10。数值越大，速度越快。 Volume：音量，取值范围为0到100。数值越大，音量越大。 Speak()：完成将文本信息转换为语音并按照指定的参数