VB代码,读取htttp:⼀⼀www.***.com⼀abc.txt文本代码怎么写?请看具体!

2024-12-03 15:09:58
推荐回答(2个)
回答1:

不好意思楼主,你刚没说是在网上的!

现在把新的给你!

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控件增加了么?

我测试是正常的啊,只是你的地址打不开,还有,楼主你把代码是放在什么过程中的?!

回答2:

你好像问过这个类似问题,已经回答过了
http://zhidao.baidu.com/question/114497248.html?ansup1