Ⅰ 请问各位高手用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