怎樣用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