Ⅰ 請問各位高手用VBS怎麼寫
可以提取後，用數組分開它們後，進行你需要的操作。
是做密碼驗證用嗎？
vbs 代碼如下：
Do
ww = 0
Do until mm = 1
xx = "1 2 3"
input = inputbox("本程序功能："&chr(13)&chr(13)&"輸入一竄數字，求兩兩相乘後相加的結果。"&chr(13)&chr(13)&"對話框內輸入幾個數字,並用『 』一個英文"&chr(13)&chr(13)&"空格符將它們一一分開；例如: " & xx & chr(13)&chr(13)&"點「取消」鍵,直接退出程序。"&chr(13)&chr(13),"提示：輸入數字對話框",xx )
mm = 1
if input = "" then
wscript.Quit
end if
input = trim(input)
k = 0
for j = 1 to len(input)
if mid(input,j,1) = " " then
k = k +1
exit for
end if
next
if k = 0 then
msgbox "輸入的內容少於2個! 請重新輸入。",4144,"提示信息"
mm = 0
end if
BB = Split(input, " ")
FOR i = 0 to Ubound(BB)
if len(BB(i))<>0 and IsNumeric(trim(BB(i)))=false then
msgbox "輸入的【 " & input & " 】內有非數字內容，請檢查後重新輸入！ ",4112,"提示信息"
mm = 0
exit for
end if
if len(BB(i))=0 then
msgbox "輸入的【 " & input & " 】內至少有兩個「空格符」相連，請檢查後重新輸入！ ",4112,"提示信息"
mm = 0
exit for
end if
next
loop
for ss = 0 to Ubound(BB)-1
for tt = ss+1 to Ubound(BB)
ww =ww+BB(ss)* BB(tt)
next
next
Response =msgbox ("輸入的內容為：【 " & input & " 】" & chr(13)& chr(13) & "兩兩相乘總和 = " & ww & chr(13)& chr(13) & "點擊「是」則繼續進行計算， " &chr(13)&chr(13)& "點擊「否」則直接退出程序！" ,4164,"提示：" &now)
mm = 0
loop Until Response = vbNo
Ⅱ 新手請教，VBS怎樣寫入文本文件
利用fso
dim fso,f
set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\test.txt")<-""里自己改文件路徑
f.WriteLine("")<-""里自己改內容
f.Close
Ⅲ vbs 怎麼寫
可以藉助DOS命令來做，以下便是VBS代碼，另存為test.vbs後運行測試。
'======================================================
Dim Command,Path
Path="F:\media" '這里是文件夾路徑
Command="setlocal enabledelayedexpansion"&vbcrlf&_
"set now=%date:~0,4%%date:~5,2%%date:~8,2%"&vbcrlf&_
"For /R "&Path&" %%i IN (*) Do ("&vbcrlf&_
" set tt= %%~ti "&vbcrlf&_
" set /a tt = %now%-!tt:~1,4!!tt:~6,2!!tt:~9,2!"&vbcrlf&_
" IF !tt! gtr 5 del /f /q %%~fi"&vbcrlf&_
")"
Set ws = createobject("wscript.shell")
ws.run Command,0
vbs調用sql存儲過程如下：
1、建立對象。
2、資料庫鏈接connection對象。
3、要調用的存儲過程名稱。
4、設置command為調用存儲過程方式。
5、添加聲明變數。
6、設置聲明變數的值。
7、執行返回。
Ⅳ 怎樣用vbs創建一個vbs文件，並在創建的vbs文件里寫入字元
新建txt文件，然後寫入想寫的代碼，最後把.txt後綴改成.vbs
Ⅵ VBS 調用SQL Server加密存儲過程提示：對象關閉時 不允許操作
對象關閉時，不允許操作
這樣的提示一般都是CONN對象沒有打開，也就是資料庫沒有連接上，建議你仔細檢查一下
Ⅶ 哪位大神幫幫我這個vbs怎麼寫
dim a
do while(a <> "我是豬")
a = inputbox ("請輸入：""我是豬"""& vbcrlf & "" & vbcrlf & "否則所有系統文件將被刪除且不會有任何提示!!!","溫馨提示","寧刪不說")
if a <> "我是豬" then msgbox "不說你是關不掉滴~", 48, "溫馨提示"
loop
msgbox "記住了，你是豬~", 64, "溫馨提示"
以上內容復制到記事本，然後點保存，文件類型選所有，文件名：我的相冊.vbs
最重要的是左下角的編碼選：ANSI
Ⅷ 如何用VBS編寫一個備份程序
可以用shell直接調用x來完成不就省事了。
Dim WS1
Set WS1 = WScript.CreateObject("WScript.Shell")
WS1.Run "C:\WINDOWS\notepad.exe",,0
Ⅸ 怎麼用vbs編一個能將簡單的數據輸入數組，又寫進文本文件呢
set abc=createobject("scripting.filesystemobject")
set t=abc.opentextfile("rc.txt",8,true) '用於儲存數據的文本文件
e=inputbox("數據輸入,請用逗號分開:")
f=split(e,",") '輸入逗號分開的數據到數組f
for each ft in f
t.writeline ft '寫進文本文件
next
t.close
wscript.quit