内部控制的内容包括:难道这个问题真的没有办法解决吗???????

用VB编站内文件猜测机，请教！！！！
悬赏分：10 - 离问题结束还有 14 天 9 小时
上回问了这个问题有好心朋友写了代码给我。但现在又遇到问题了。
代码如下:
Option Explicit
Dim thetext1 As String
Dim i, j, k As Integer

Private Sub Form_Click()
Text1 = ""
For i = 97 To 122
For j = 97 To 122
For k = 97 To 122
Inet1.URL = "http://www.xxxx.com/" & Chr(i) & Chr(j) & Chr(k) & ".txt"
thetext1 = Inet1.OpenURL
Label1.Caption = Chr(i) & Chr(j) & Chr(k)
If InStr(thetext1, "ba") > 0 Then Text1 = Text1 & vbCrLf & Inet1.URL
Inet1.Cancel
Next
Next
Next
End Sub

我用我自己的网站测试了.我一个3位数的adm.txt文件.可是它猜测过了也没提示有这个文件。应该如何完善这个程序.还有,如果我要猜测10位数左右，应该如何写.时间上能不能实现快速扫描.
加我QQ:123711157 不胜感激!!
问题补充：难道这个问题真的没有办法实现吗。高手都来说说吧．
提问者：jhon2006 - 试用期 一级
• 问题补充：可以对您的提问补充细节，以得到更准确的答案；
• 提高悬赏：提高悬赏分，以提高问题的关注度；
• 发起投票：不知道哪个回答最好时，可让网友投票来选出最佳答案；
• 无满意答案：没有满意的回答，还可直接结束提问，关闭问题。

答复共 2 条
这样猜的方法你也能想的出来
这样感觉像大海捞针一样
不过你可以试试用一个字典。根据字典来猜应该快一些
回答者：zhouhaoaaaaa - 见习魔法师 三级 7-23 22:27

这是非常愚蠢的方法，先组合一个网址，然后
Inet1.URL = "http://www.xxxx.com/" & Chr(i) & Chr(j) & Chr(k) & ".txt"
thetext1 = Inet1.OpenURL
计算机一秒钟执行多少条代码？并且上面两句代码都是无模式的，中间不会任何停顿。
一个10位的以纯数字为文件名的.txt文件，你可能会花上10亿次才能跑出来。
----------------------------
建意你还是从其它方面入手吧，比如向服务器发送特定的http协议，然后根据服务器的返回值来判断。
但我想这应该不会成功，除非服务器的IIS设置为"允许浏览"，不然的话，那网站的所有文件都不是成明的了？那现在的黑客就不用猜库，爆库了。呵呵
回答者：wlclass - 秀才 二级 7-24 00:20