不好意思楼主,你刚没说是在网上的!
现在把新的给你!
Dim a As String
Dim b() As String
Dim c() As String
Dim d, e, i As Long
d = 0
e = 0
a = Inet1.OpenURL("http://255gm.meibu.com/123.txt")
b = Split(a, vbCrLf)
For i = 0 To UBound(b)
c = Split(b(i), "||")
If c(0) = Text2.Text Then
d = 1
If c(1) = Text3.Text Then
e = 1
End If
End If
Next
If d = 0 Then
MsgBox "账号不存在!"
Exit Sub
End If
If e = 0 Then
MsgBox "密码不正确!"
Exit Sub
End If
MsgBox "账号密码均正确!"
楼主,你的inet控件增加了么?
我测试是正常的啊,只是你的地址打不开,还有,楼主你把代码是放在什么过程中的?!
你好像问过这个类似问题,已经回答过了
http://zhidao.baidu.com/question/114497248.html?ansup1