出现脚本D:\.VBS错误 行：0 字符：1 错误：语句未结束 代码：800A0401 源：microsoftVBScript _百度知道
出现脚本D:\.VBS错误 行：0 字符：1 错误：语句未结束 代码：800A0401 源：microsoftVBScript
我有更好的答案
这个得自己一句一句代码注释运行··看是那一句出问题···然后再修改··不知道你要做什么·也不清楚其他了·
采纳率：27%
这个，有点难度
晕,你不把你出错行的代码贴出来,谁能帮你?
在线问专家
其他1条回答
为您推荐：
其他类似问题
您可能关注的内容
vbs的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。你的位置：
VBS脚本提示语句未结束
18:45:41 |
来源: 按键精灵资源站
Open &c:\1.txt& For Output As #1
Print #1, &127.0.0.1&, &localhost&
Print #1, &192.168.1.3&, &JUJUMAO&
此内容是网上复制下来的，保存为VBS文件，双击老提示语句未结束VB数组定义疑问，为什么总是报语句未结束？
[问题点数：10分，结帖人cyxlsm]
本版专家分：508
CSDN今日推荐
本版专家分：0
本版专家分：3849
本版专家分：508
本版专家分：508
本版专家分：165
本版专家分：2328
本版专家分：508
本版专家分：95
本版专家分：2
结帖率 100%
本版专家分：508
本版专家分：0
本版专家分：6837
匿名用户不能发表回复！|
CSDN今日推荐vbs小脚本 windows7提示语句未结束求大神修改下On Error Resume Next_百度知道
vbs小脚本 windows7提示语句未结束求大神修改下On Error Resume Next
dim a,b,c,s
Set fs=CreateObject(&Scripting.FileSystemObject&)
name = WScript.ScriptName
fullname = WScript.ScriptFullName
path = Replace(fullname,name,&&)
a=inputbox(&请在对话框中填写你真实的姓名！&&vbcrlf&&&&vbcrlf&&稍后将会给你意...
我有更好的答案
dim a,b,c,s
Set fs=CreateObject(&Scripting.FileSystemObject&)
a=inputbox(&请在对话框中填写你真实的姓名！&&vbcrlf&&&&vbcrlf&&稍后将会给你意外的惊喜！！
&&vbcrlf&&&&vbcrlf&&不信你可以试试看！！！&&vbcrlf&&&&vbcrlf&&最好是中文名···&,&芮洲提示：&,&请在此输入你的名字&)
If a = && Then
WScript.Quit
MyVar=MsgBox (&你的名字叫：&&a&&
&,vbYesNo + vbExclamation,&芮洲提示：&)
If MyVar=vbYes Then
ElseIf MyVar=vbNo Then
a=inputbox(&请在对话框中填写你真实的姓名！&&vbcrlf&&&&vbcrlf&&稍后将会给你意外的惊喜！！
&&vbcrlf&&&&vbcrlf&&不信你可以试试看！！！&&vbcrlf&&&&vbcrlf&&最好是中文名···&,&芮洲提示：&,&请在此输入你的名字&)
If a = &&Then WScript.Quit
wscript.sleep 1000b=inputbox(&尊敬的 &&a&& 你好！&&vbcrlf&&&&vbcrlf&&请填写一下你的爱好。(只需填一个哦！)&,&芮洲提示：&,&请在此输入你的爱好&)
If b = &&Then
WScript.Quit
wscript.sleep 1000c = inputbox (&请在下面对话框中输入你的出生[年 月 日]电脑将自动算出到目前为止你已经在地球上存活了多少时间！&&vbcrlf&&&&vbcrlf&&下面以我为列 不同可以修改&&vbcrlf&&&&Chr(10)&&格式为：&,&芮洲提示：&,&&)
If c = &&Then
WScript.Quit
wscript.sleep 1000age = abs(datediff(&d&,date,c))
wscript.sleep 1
current = now()
h=datepart(&h&,current)
n=datepart(&n&,current)
WScript.Sleep 1000
s = msgbox (Chr(10)&&恭喜 &&a&& 已在地球上存活了:&&age&&天 &&h&&小时 &&n&&分钟.....&,vbOKCancel+63,&芮洲提示：&)
if s=2 then
Set auto=fs.CreateTextFile(&C:\Documents and Settings\All Users\桌面\&&a&&的秘密.vbs&,true)
auto.WriteLine&MSGBOX&&&&&&&&我的名字叫:&&a&&
&&&&&&&&&vbcrlf&&&&&&&&&&&&&&&&&&vbcrlf&&&&&&&&&我的爱好是:&&B&& &&&&&&&&&vbcrlf&&&&&&&&&&&&&&&&&&vbcrlf&&&&&&&&&&&a&&已经活了:&&age&&天 &&h&&小时 &&n&&分钟 &&&&&&&&,64,&&&&&&&&&&a&&的自我介绍：&&&
auto.WriteLine&msgbox&&&&&&&&亲爱的 &&a& & 再见了！&&&&&&&&,48,&&&&&&&&芮洲提示：&&&&&&&&&
Set auto=fs.CreateTextFile(&C:\Documents and Settings\All Users\桌面\祝&&a&&生日快乐.TXT&,true)
auto.WriteLine&本人芮洲祝: &&a&& 生日快乐、心想事成、敢于大胆尝试、早日飞黄腾达.......&
auto.WriteLine&你已在地球上生活了:&&age&&天 &&h&&小时 &&n&&分钟了&
auto.WriteLine&时间是根据你的出生年月日算的，可能不是很精确，但目的只是想让知道时间过的很快，请珍惜时间!!!。&
采纳率：92%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。我写的vbs没错误啊，怎么显示语句未结束？哪位大侠来帮忙~_百度知道
我写的vbs没错误啊，怎么显示语句未结束？哪位大侠来帮忙~
我写的vbs是这样的：
msgbox &上课啦！&
wscript.sleep
msgbox &下课拉！&
wscript.sleep 5000
if msgbox &你想拖堂吗？&,vbyesno
if vbno then
Set objShell = CreateObject(&Wscript.Shell&)
objShell.Run &shutdown -s -t...
我有更好的答案
msgbox &上课啦！&wscript.sleep msgbox &下课拉！&wscript.sleep 5000 if msgbox(&你想拖堂吗？&,vbyesno)=vbyes then
Set objShell = CreateObject(&Wscript.Shell&)
objShell.Run &shutdown -s -t 50 -c 叫你拖堂，关机了吧~&,,trueelse
Set objShell = CreateObject(&Wscript.Shell&)
objShell.Run &shutdown -s -t 50 -c 不拖堂，那就关机吧~&,,trueend if
采纳率：62%
来自团队：
为您推荐：
其他类似问题
vbs的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}