主题：[求助]阿里妈妈 我要哭死了

无法登陆，要手机验证码啊。你自食其力

哦，是我不好，写错了

Dim lujing As String = ProjectPath & "\分析结果.txt"
Dim web As System.Windows.Forms.WebBrowser = Forms("工具").Controls("WebBrowser1").BaseControl
Dim dizhi As String
For Each tr As object In web.Document.GetElementsByTagName("li")
    If tr.GetAttribute("ClassName") = "title" Then
        output.show(tr.innerhtml)
        dizhi = dizhi & tr.GetElementsByTagName("a")(0).GetAttribute("href") & vbcrlf
    End If
Next

FileSys.WriteAllText(lujing, dizhi, False, Encoding.Default)
Dim Proc As New Process '定义一个新的Process
Proc.File = lujing
Proc.Start()

获取数据是一环接一环的。先获取到class=title的元素tr，然后再获取里面的东西。

document是没用的东西，我之前拷贝代码的时候写错了没留意。