dim fso,file,filename,text,bbxx,sftsgx,tsxxnr,tsxxnrc,CurrDir,oFile,i
CurrDir = CreateObject("WScript.shell").CurrentDirectory
Set oFile = WScript.GetObject("http://www.szyin.com/sn/sj/fochuchao.txt")
Do Until oFile.readyState = "complete"
WScript.Sleep 200
Loop
Set objShell = CreateObject("WScript.Shell")
strCurrentDirectory = CreateObject("Wscript.Shell").CurrentDirectory
set fso=CreateObject("Scripting.FileSystemObject")
const forwriting=2
const forreading=1
set myfile=fso.createtextfile(strCurrentDirectory&"\stdlia.zw")
myfile.writeline(oFile.all(4).innerHTML)
myfile.Close
filename=(strCurrentDirectory&"\stdlia.zw")
Set file=fso.OpenTextFile(filename,ForReading)
For i=1 to 5
text=file.ReadLine
If text="[ban]" then
bbxx=file.ReadLine
ElseIf text="[ti]" then
sftsgx=file.ReadLine
sftsgx=int(sftsgx)
ElseIf text="[a]" then
tsxxnr=file.ReadLine
ElseIf text="[b]" then
tsxxnrb=file.ReadLine
ElseIf text="[c]" then
tsxxnrc=file.ReadLine
End If
Next
file.close
If bbxx>2.1 then
If sftsgx>0 then
If sftsgx=3 then
msgbox(tsxxnr&vbcr&tsxxnrb&vbcr&tsxxnrc)
ElseIf sftsgx=2 then
msgbox(tsxxnr&vbcr&tsxxnrb)
ElseIf sftsgx=1 then
msgbox(tsxxnr)
End If
End If
End If
Wscript.Quit
欢迎光临 紫菀论坛 (http://bbs.szyin.com/) | Powered by Discuz! 7.1 |