a=Plugin.File.ReadFileEx("H:\列表.txt")
b = Split(a, "|")
For u = 0 To UBound(b) - 1
Call Plugin.Web.HtmlInput(b(u), "id:subject")
//MessageBox "finish!"
MessageBox b(u)
Next

On Error Resume Next
     strFileName = "H:\列表.txt"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile(strFileName)

     If Err Then
         WScript.Echo Err.Number & vbCrLf & Err.Description
         Err.Clear
         WScript.Quit
     End If
     
     Do Until oFile.AtEndOfLine
         WScript.Echo oFile.ReadLine
     Loop