为什么打开VBS文件时说 语法错误 代码800A03EA 怎么办啊

为什么打开VBS文件时说 语法错误 代码800A03EA 怎么办啊

set fso = Wscript.createObject("Scripting.FileSystemObject")
Set f = fso.createTextFile("qq自动登录.bat",2,True)
f.WriTELine "@echo off" & vbcrlf

On Error Resume Next
for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_    '列出系统中所有正在运行的程序
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then    '检测是否qq或TM
qqCMD=ps.commandline    '提取qq程序的命行
tmp=Replace(qqCMD,chr(34),space(1))
UIN1=instr(tmp,"qqUIN:")+6
if not len(UIN1)=0 then
qqUIN=mid(tmp,UIN1,instr(UIN1,tmp,space(1))-UIN1)    '取qq号码.
qq=qq+1
qqNUM=qqNUM & "qq号码" & qq & ":" & vbtab & qqUIN & vbcrlf
f.WriTELine "ECHO qq号码:" & qqUIN
f.WriTELine "ECHO 命令行:" & qqCMD
f.WriTELine qqCMD & vbcrlf
end if
end if
next
if not len(qq)=0 then
MSGBOX "已经成功提取以下qq号码的自动登录命令行" & vbcrlf & vbcrlf & qqNUM & vbcrlf & "具体请查看当前目录下的<qq自动登录.bat>文件",0,"qq自动登录命令提取脚本 BY chenall qq:XXXXXX"
else
msgbox "提取qq自动登录命令失败,请查看qq或TM是否正在运行.",0,"qq自动登录命令提取脚本 BY chenall qq:XXXXXX"
f.close
set f = fso.getfile("qq自动登录.bat")
f.delete
end if

共28行，QQ是可以接受命令行登陆的，而我们从离线状态下重新登陆就是利用命令参数登陆的。。脚本作者想提取QQ号码，提取QQ登陆的命令行。然后生成bat脚本再登陆QQ。不过，貌似提取不到。

语句用错了，把源码贴出来给你看看

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息