怎样用vbs文档

‘壹’ 怎么利用vbs文件制作一个酷狗的快速行动程序

有两种运行方法：
1在windows界面下运行，也就是双击
2在命令提示符下运行，方法为：
开始，输入cmd回车，然后会弹出一个黑框，输入cd “你的vbs所在的地方”回车，然后输入脚本的名字回车就运行了

‘贰’ vbs文件打开后是怎样的

1.右击任意vbs格式文件,在展开的菜单中点击“属性”按钮打开文件的属性界面:
2.打开属性界面后,点击窗口中打开方式后面的“更改...”按钮选择文件的打开方式:
3.在弹窗的窗口后向下拉动列表,然后点击最底部的“在这台电脑上查找其他应用”按钮:
4.在弹出的窗口中找到C盘“windows/System32”文件夹下的“wscript...

‘叁’ html中 怎么调用vbs文件

安装windows script host,双击后缀为.vbs的文件运行，或者在命令行下，以cscript命令运行。
前面展示了一个HTML文件中嵌套VBScript的例子。这里展示一个通过Windows Script Host执行的本地
将上述文件保存为后缀为vbs的文档，当你在资源管理器中双击该文档时，资源管理器通过查找注册表，发现该文件类型已与windows scripting Host 关联，因此调用WHS，并将文件名传入。WHS从文件开头执行，忽略掉注释文本。对这个例子来说，是从WSCript.Echo GetIP 处执行。

这样就引发了对函数GetIP的调用。WSH在当前脚本内找到该函数，执行，并将结果作为参数传给WSCript.Echo，显示后结束。Echo是对象WSCript的一个方法，当脚本以这种方式执行时，它以Messagebox的方式输出文本。当脚本在命令行方式下，以CScript.exe命令执行时，输出到控制台。

‘肆’ 怎样用vbs文件创建一个vbs文件到系统启动项

是你要把一个已存在的vbs加入呢，还是把这个文件加入？

如果是要把已存在的vbs加入呢就

Set oShell=CreateObject("Wscript.Shell")
oShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\window","c:\windos\window.vbs"

把后面的c:\windos\window.vbs
改成你的文件路径就好。

如果是自己呢就

set 1=createobject("scripting.filesystemobject")
1.getfile(wscript.scriptfullname).("c:\windos\window.vbs")

也是把c:\windos\window.vbs改成自己的路径就好。

望采纳

‘伍’ 如何使用VBS文件限制软件运行

以限制 excel 、Word 、ppt 为例，把
where name='excel.exe'
改为
where name='excel.exe' or name='winword.exe' or name='powerpnt.exe'
另外，wscript.sleep 1 是暂停 1 毫秒，最好改为 1000 以上，可以节省 CPU 等资源。

‘陆’ VB如何调用vbs文件

'执行的时候都是传的 vbs脚本代码，不是传的 文件名字
Dim s
Dim tmp As String, VBS_Code As String

Set s = CreateObject("MSScriptControl.ScriptControl")
s.Language = "VBScript"

Open "C:\Inetpub\AdminScripts\adsutil.vbs" For Input As #1

Do
Line Input #1, tmp
VBS_Code = VBS_Code & vbCrLf & tmp
Loop While Not EOF(1)

Close 1

s.AddCode VBS_Code
s.executestatement "msgbox 123"
'MsgBox s.Eval("w3svc/1/root/Printers/DefaultDoc")
s.Reset

‘柒’ 怎么用vbs操作一个文本文件

把文本文件处理为数组，每行为一个数组元素，然后在每个元素中查找关键词，vbs可以直接使用instr函数来查找，也可以使用正则表达式查找。找到后把那个数组元素复制出来就可以了。

第一种，使用instr

c=split(createobject("scripting.filesystemobject").opentextfile("a.txt").readall,vbcrlf)
fori=0toubound(c)
	ifinstr(c(i),"nice")thenmsgboxc(i)
next

第二种，使用正则表达式

c=split(createobject("scripting.filesystemobject").opentextfile("a.txt").readall,vbcrlf)
fori=0toubound(c)
	ifrt("nice",c(i))thenmsgboxc(i)
next
Functionrt(patrn,str)
setregex=newregexp
regex.pattern=patrn
regex.ignorecase=false
rt=regex.test(str)
EndFunction