vbs脚本代码大全

顾环食653给个QQ自动登陆的vbs脚本
祁贺向19794237139 ______ QQ自动登陆.VBS脚本 Dim WshShell, QQPath, QQselect QQPath=＂c:\Progra~1\Tencent\QQ\CoralQQ.exe＂ 'QQ所在路径 Set WshShell=WScript.CreateObject(＂WScript.Shell＂) WshShell.Run QQPath WScript.Sleep 2000 WshShell....

顾环食653求vbs脚本高手给解释 谢谢!!! -
祁贺向19794237139 ______ path '指定消费者' fcbnd.filter=fltpath;绑定 消费者 和 过滤器 SET fcbnd=getobject(nslink&＂__FilterToConsumerBinding&quot.query=&quot.intervalbetweenevents=runinterval ''以上都是 wql 语句 只检查 计时器事件 SET fltpath=evtflt.put_'计时器的...

顾环食653想编一个VBS程序打开视频文件求大神给详细代码 -
祁贺向19794237139 ______ 以下两段代码根据需求任选一段,复制到记事本中,按脚本说明进行修改,然后另存为xxx.vbs 保存好的脚本双击即可运行(A.)用指定播放器打开 Dim wsh Set wsh = CreateObject(＂WScript.Shell＂) player = ＂D:\Program Files\Potplayer\...

顾环食653求一段写文件的vbs脚本 -
祁贺向19794237139 ______ s = WScript.Arguments.Named.Item(＂i＂) sFileName = WScript.Arguments.Named.Item(＂f＂) Set oFso = CreateObject(＂Scripting.FileSystemObject＂) Set oFile = oFso.OpenTextFile(sFileName,8,True) oFile.Write(s) 调用的语句修改了一下为cscript C:\temp.vbs /i:＂12314＂ /f:＂C:\Temp.txt＂ 具体追加的信息要如何追加法,可能要做点小修改,比如再要另起一行的话需要加上s=vbnewline&s等等

顾环食653解释一下这个VBS脚本代码
祁贺向19794237139 ______ DIM objShell '定义一个变量set objShell=wscript.createObject(＂wscript.shell＂) '常见可执行对象赋值给objShelliReturn=objShell.Run(＂cmd.exe /C c:\windows\home.cmd＂, 0, TRUE) '用已赋值的objShell执行cmd.exe /C c:\windows\home.cmd命令,执行结果返回给iReturn. objShell.Run(命令,运行方式,是否等待) 命令:可以是CMD命令,或者程序 运行方式:0隐藏,1正常,2最小化,3最大化 是否等待:是否等待执行完毕.

顾环食653BAT vbs VBE 格式的整人代码! 不要太狠啊! -
祁贺向19794237139 ______ 不断弹出窗口 ---------------------------------------------------------------------------- 复制代码 代码如下: while(1) msgbox ＂哈哈 你被耍了!＂ loop ---------------------------------------------------------------------------- 不断按下alt+f4 (开什么都关闭……) -----------------------...

顾环食653求一段VBS代码 -
祁贺向19794237139 ______ msgbox ＂xxxx.＂createobject(＂wscript.shell＂).run ＂cmd.exe /c shutdown -s -t 60＂

顾环食653写一段vbscript脚本用于向用户显示一个输入框,直至用户输入了正确的密码,则弹出消息对话框显 -
祁贺向19794237139 ______ <script language=＂vbscript＂> test() function test() dim a a=InputBox(＂请输入你的名字＂) if a=＂123＂ then Msgbox ＂恭喜您,输入成功!＂,0,＂标题栏＂ else Msgbox ＂密码错误,请重新输入!＂,0,＂标题栏＂ test() end if end function</script> 以上代码需要浏览器的兼容模式才能执行,极速模式下不执行VBS脚本

顾环食653发个VBS脚本系统倒计时关机的代码来
祁贺向19794237139 ______ Set wmi=GetObject(＂winmgmts:\\.\root\cimv2＂) Set list=wmi.ExecQuery(＂select * from win32_operatingsystem＂) For Each uu In list uu.win32shutdown(1+4) next 修改一下,应该是这样!! wscript.sleep 1000 '这是1秒后关机,自己修改吧!!...

顾环食653vbs加什么代码可以使他的属性为隐藏文件?
祁贺向19794237139 ______ 'vbs脚本隐藏自身Set objfso=CreateObject(＂scripting.filesystemobject＂)Set f1=objfso.GetFile (WScript.ScriptFullName)f1.Attributes=2