谁能帮我看看这段代码应该怎么搞？【vb吧】

'此程序需加载microsoft scripting runtime
Dim FsoSys As New FileSystemObject
'定义全局变量
Public i As String, ousername As String, opassword As String, npassword As String
Public get_data As String, get_pre_ssn As String, get_next_ssn As String
Public mytxtname As String, mytxtcontent As String
Public ii As Integer
Public objDoc As Object
Public txtstream As TextStream
Public iderr As String
Private Sub Form_Load()
    iderr = 0
    Text1.Text = "初始化"
    WebBrowser1.Navigate "about:blank"
End Sub
Private Sub Command1_Click()
    '新密码
    npassword = Text2.Text
    '找TXT文本
    Stxt
    '开始更改密码
    startedit
End Sub
Public Function startedit()
'循环修改密码
    '读取文本文件
    If FsoSys.FileExists(CheckFilePath(App.Path) & mytxtname) Then
        Dim s As String, ls_Content() As String   '文本数组
        Dim LogCount As Long   '文本行数
        Dim iii As Long
        Open CheckFilePath(App.Path) & mytxtname For Input As #1   '打开文本
        s = StrConv(InputB(LOF(1), #1), vbUnicode)           '将文件内容附给变量 S
        Close #1
        s = s & vbCrLf & vbCrLf   '增加最后一行的空行

        Do While InStr(s, vbCrLf & vbCrLf) <> 0   '删除空行
           s = Replace(s, vbCrLf & vbCrLf, vbCrLf)
        Loop
        ls_Content = Split(s, vbCrLf)   '按回车拆散文本，将每一行的信息形成数组

        LogCount = UBound(ls_Content)   '总行数

        For iii = 0 To LogCount - 1   '循环修改每一行密码
            '//////////////////////////////
            '//////////////////////////////循环开始
            '//////////////////////////////
            If InStr(ls_Content(iii), "||||") = 0 Then   '如果已经改过密码则跳过
            '读用户名密码
            ousername = Fun_GetStr(ls_Content(iii), "|", "||")
            opassword = Fun_GetStr(ls_Content(iii), "||", "|||")
            '挨个网页执行
            i = 0
            tijiao
            tijiao1
            tijiao2
            tijiao3
            tijiao4
            If iderr = 1 Then   '验证帐号失败
               ls_Content(iii) = ""   '删除本行
            Else
               ls_Content(iii) = "|" & ousername & "||" & opassword & "||||" & npassword   '记录新密码
            End If
            '//////////////////////////////
            '//////////////////////////////循环结束
            '//////////////////////////////
            End If
        Next iii

        s = ls_Content(0)   '所有行的文字汇总
        For iii = 1 To LogCount - 1
            s = s & vbCrLf & ls_Content(iii)
        Next iii

        Do While InStr(s, vbCrLf & vbCrLf) <> 0   '删除空行
           s = Replace(s, vbCrLf & vbCrLf, vbCrLf)
        Loop

        Open CheckFilePath(App.Path) & mytxtname For Output As #1
        Print #1, Trim(s)   '写入内容
        Close #1
        Unload Me
    Else
        MsgBox "txt文件不存在"
        Unload Me
    End If
End Function
Private Sub tijiao4()
    '加载改密码网页完毕
    '输入身份证号码后7位,新旧密码
    WebBrowser1.Document.getElementsByTagName("INPUT")(5).Value = get_next_ssn
    WebBrowser1.Document.getElementsByTagName("INPUT")(6).Value = opassword
    WebBrowser1.Document.getElementsByTagName("INPUT")(7).Value = npassword
    WebBrowser1.Document.getElementsByTagName("INPUT")(8).Value = npassword
    Set objDoc = WebBrowser1.Document
    For ii = 0 To objDoc.All.tags("INPUT").length - 1
        If objDoc.All.tags("INPUT")(ii).Name = "btnOK" Then
           objDoc.All.tags("INPUT")(ii).Click
        End If
    Next
    Text1.Text = "密码修改完毕!"
End Sub

Private Sub tijiao3()
    '获取查询到的身份证号码
    'get_data = WebBrowser1.Document.body.innerHTML

    Do While i = 0
    Text1.Text = "ok"
    Loop
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'判断网页加载是否完毕
    If (pDisp Is WebBrowser1.Object) Then
    '判断网页提交后返回的网页标题
       If WebBrowser1.LocationName = "找不到服务器" Or WebBrowser1.LocationName = "" Then
           MsgBox "网页无法访问"
           Unload Me
       Else
        '判断是否帐号错误
           If WebBrowser1.LocationName = "plaync :: 肺弊牢" Then
               Text1.Text = "账号错误"
               '帐号错误赋值为1
               iderr = 1
           Else
               iderr = 0
           End If
       End If
       i = 1
    End If
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    '禁示弹出对话框
    Dim oDoc1 As HTMLDocument
    Set oDoc1 = pDisp.Document
    oDoc1.parentWindow.execScript "function alert(){return;}"
    oDoc1.parentWindow.execScript "function confirm(){return;}"
    oDoc1.parentWindow.execScript "function showModalDialog(){return;}"
End Sub
Public Function Stxt()
'寻找TXT文本
Dim FsoFolder As Folder
    Dim FsoFile As File
    Set FsoFolder = FsoSys.GetFolder(App.Path)
    For Each FsoFile In FsoFolder.Files
        If FsoFile.Type = "文本文档" Then

        mytxtname = FsoFile.Name
        End If
    Next
End Function
Public Function CheckFilePath(Path As String) As String
    '检查文件是否在根目录下
    If Right(Path, 1) <> "\" Then
        CheckFilePath = Path & "\"
    Else
        CheckFilePath = Path
    End If
End Function
Public Function Fun_GetStr(ByVal String1 As String, _
                           ByVal KeyStatr As String, _
                           ByVal KeyEnd As String, _
                           Optional ByVal Statr As Integer = 1) As String
   Dim lng_Statr As Long, lng_End As Long

   '求出出现开始字符串和结束字符串的位置
   lng_Statr = InStr(Statr, String1, KeyStatr) + Len(KeyStatr)
   lng_End = InStr(lng_Statr, String1, KeyEnd)
   If lng_Statr = 0 Or lng_End = 0 Then
      Fun_GetStr = ""
      Exit Function
   End If
   Fun_GetStr = Mid$(String1, lng_Statr, lng_End - lng_Statr)
End Function

日	一	二	三	四	五	六

谁能帮我看看这段代码应该怎么搞？

扫二维码下载贴吧客户端