[LegendBreath]

Hi,
I have a litle problem that I can't resolve... my program goes on a website called www.ircspy.com and get results from that page, and after it's display it in a listview. The thing is that one "bot" on the page that have more than one file in my program it only display one file and not the others... here is my code:

PHP Code:

Private Sub Command1_Click()
ListView1.Visible = True
ListView1.ListItems.Clear
Frame2.Caption = "Results"

Dim A As Long
If Check1.Value = 1 Then A = A + 1
If Check2.Value = 1 Then A = A + 1
If Check3.Value = 1 Then A = A + 1
If Check4.Value = 1 Then A = A + 1
StatusBar1.Panels(1).Text = "Searching..."
StatusBar1.Panels(2).Text = "website 1 / " & A

If Check1.Value = 1 Then
On Error GoTo TimedOut
RichTmp = Inet.OpenURL("http://www.ircspy.com/search.asp?searchtext=" & Text1.Text)

On Error Resume Next
Dim B As Long
Dim C As Long
Dim D As Long
B = 1
C = 1

A = RichTmp.Find("Pages (")
A = A + Len("Pages (")
RichTmp.SelStart = A
RichTmp.SelLength = 1

Dim Page As String
Page = RichTmp.SelText

On Error Resume Next

Do
DoEvents
RichTmp = Inet.OpenURL("http://www.ircspy.com/search.asp?searchtext=" & Text1.Text & "&searchtype=&botstatus=1&sortby=Date&db=0&pg=" & C)

Do
 DoEvents

    A = RichTmp.Find("</select>")

RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("</select>")
RichTmp.SelText = ""

A = RichTmp.Find("</select>")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("</select>")
RichTmp.SelText = ""

A = RichTmp.Find("<font color=#008000>")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("<font color=#008000>")
RichTmp.SelText = ""

A = RichTmp.Find("</font>")
RichTmp.SelStart = 0
RichTmp.SelLength = A

Dim Bot As String
Bot = RichTmp.SelText
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("</font>")
RichTmp.SelText = ""

A = RichTmp.Find("[b]Slots:[/b] ")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("[b]Slots:[/b] ")
RichTmp.SelText = ""

A = RichTmp.Find("")
RichTmp.SelStart = 0
RichTmp.SelLength = A

Dim Slots As String
Slots = RichTmp.SelText

RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("")
RichTmp.SelText = ""

A = RichTmp.Find("[b]Queues:[/b] ")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("[b]Queues:[/b] ")
RichTmp.SelText = ""

A = RichTmp.Find("")
RichTmp.SelStart = 0
RichTmp.SelLength = A

Dim Queues As String
Queues = RichTmp.SelText

RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("")
RichTmp.SelText = ""

A = RichTmp.Find("<a href=")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("<a href=")
RichTmp.SelText = ""

RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("<a href=") + 1
RichTmp.SelText = ""

A = RichTmp.Find("irc://")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("irc://")
RichTmp.SelText = ""

A = RichTmp.Find("/")
RichTmp.SelStart = 0
RichTmp.SelLength = A
Dim Network As String
Network = RichTmp.SelText

RichTmp.SelLength = A + Len("/")
RichTmp.SelText = ""

A = RichTmp.Find(Chr(34))
RichTmp.SelStart = 0
RichTmp.SelLength = A

Dim Channel As String
Channel = RichTmp.SelText
RichTmp.SelStart = 0
RichTmp.SelLength = A + 1
RichTmp.SelText = ""

A = RichTmp.Find("xdcc send ")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("xdcc send ")
RichTmp.SelText = ""

A = RichTmp.Find("');")
RichTmp.SelStart = 0
RichTmp.SelLength = A

Dim Packet As String
Packet = RichTmp.SelText
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("');")
RichTmp.SelText = ""
A = RichTmp.Find("<td width=")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("<td width=")
RichTmp.SelText = ""

A = RichTmp.Find(">")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len(">")
RichTmp.SelText = ""

A = RichTmp.Find("<")
RichTmp.SelStart = 0
RichTmp.SelLength = A

Dim Size As String
Size = RichTmp.SelText
RichTmp.SelStart = 0
RichTmp.SelLength = A + 1
RichTmp.SelText = ""

A = RichTmp.Find(">")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len(">")
RichTmp.SelText = ""

A = RichTmp.Find(">")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len(">")
RichTmp.SelText = ""

A = RichTmp.Find(">")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len(">")
RichTmp.SelText = ""

A = RichTmp.Find(">")
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len(">")
RichTmp.SelText = ""

A = RichTmp.Find("</td>")
RichTmp.SelStart = 0
RichTmp.SelLength = A

Dim Name As String
Name = RichTmp.SelText
RichTmp.SelStart = 0
RichTmp.SelLength = A + Len("</td>")
RichTmp.SelText = ""

Name = pReplace(Name, "</SPAN>", "")
Name = pReplace(Name, "<SPAN CLASS='HIGHLIGHT'>", "")

If Name <> "" Then
If Size <> "" Then
ListView1.ListItems.Add , , Name
ListView1.ListItems.Item(B).ListSubItems.Add , , Size
ListView1.ListItems.Item(B).ListSubItems.Add , , "XDCC (IRC)"
ListView1.ListItems.Item(B).ListSubItems.Add , , Network
ListView1.ListItems.Item(B).ListSubItems.Add , , Channel
ListView1.ListItems.Item(B).ListSubItems.Add , , Bot
ListView1.ListItems.Item(B).ListSubItems.Add , , Packet
ListView1.ListItems.Item(B).ListSubItems.Add , , Slots
ListView1.ListItems.Item(B).ListSubItems.Add , , Queues
End If
End If

    B = B + 1

    
    Frame2.Caption = "Results : " & ListView1.ListItems.Count & " founded!"
    
Loop Until Name = ""

    B = ListView1.ListItems.Count + 1
    C = C + 1
    
Loop Until C = Page + 1

A = 0

If Check1.Value = 1 Then A = A + 1
If Check2.Value = 1 Then A = A + 1
If Check3.Value = 1 Then A = A + 1
If Check4.Value = 1 Then A = A + 1
StatusBar1.Panels(1).Text = "Searching..."
StatusBar1.Panels(2).Text = "website 2 / " & A

End If

Exit Sub
TimedOut:
MsgBox ("The " & StatusBar1.Panels(2).Text & " has timeout!")
End Sub 


Can someone help me?