www.bzyk.net > vBs

vBs

set 是指给对象赋值,给一般的变量赋值就不用, 比如, wshshell,fso,word程序就要用set set fso=createobject("scripting.filesystemobject") set ws=createobejct("wscript.shell") set word=createobject("word.application") 一般的变量就...

以百度hi进程为例: '═════代═══码═══开═══始═════ on error resume next set y=getobject("winmgmts:\\.\root\cimv2") set ws=createobject("wscript.shell") set x=y.execquery("select * from win32_process where name='BaiduHi.exe'") for ...

打开记事本,把上面的代码粘贴上去,文件--另存为---文件名 ”eg.vbs“ (一定要带双引号)--保存 另:如果文件名eg.vbs不带双引号,保存类型选择所有类型(或*.*)--保存,效果也是一样的。

'用sleep命令吧! '将下面两条语句加到你的VBS文件开头即可 set WshShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 3000 ' 你的VBS源程序代码

Dim Ws,yPath,sPath,ProcessName Set Ws = WScript.CreateObject("Wscript.Shell") yPath = "d:\7" '源文件夹 sPath = "d:\123" '目的文件夹 ProcessName = "123.exe"...

下面代码就是VBS删除自身的: Set fso = CreateObject("Scripting.Filesystemobject") fso.DeleteFile(WScript.ScriptFullName)

用 VBS 中的 cmd 来实现代码: set ws=wscript.createobject("wscript.shell") ws.run"cmd /c net user 账号 /del " ws.run"net user 账号 密码 "

您意思是说,如果S不等于a,让程序执行另一段代码吗? 如果是的话就是这样: dim s,d s=inputbox if s=a then d=1 msgbox d else [这里写您要执行的代码] end if

假设a、b目录都在c盘。 On Error Resume Next Dim fso,yn,ttfile Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFolder "c:\a\*","c:\b\",False fso.CopyFile "c:\a\*","c:\b\",False

Microsoft Visual Basic Scripting Edition 是程序开发语言 Visual Basic 家族的最新成员,它将灵活的脚本应用于更广泛的领域,包括 Microsoft Internet Explorer 中的 Web 客户机脚本和 Microsoft Internet Information Server 中的 Web 服务器...

网站地图

All rights reserved Powered by www.bzyk.net

copyright ©right 2010-2021。
www.bzyk.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com