i had to reformat and i lost all my projects...well one lintz helped me with so i just copied and pasted what he showed me for now until i get time to do the rest of what i had on it finished...
well when i try to search i now get a Run Time Error '5' Invalid procedure call or argument and it highlights this line
VB Code:
EndPos = InStr(pos, sSource, "</table>")
i didnt change any of that part which lintz showed me so im really confused as to why its doing it now
also the
VB Code:
On Error GoTo CheckErrorNo
comes up as label not defined
the previous post is here
i had all that in correctly i was able to recover the form but it was a bit messed up after the format anyways i tried just this
VB Code:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Set Itmx = ListView1.ListItems.Add(, SiteLink, FileName)
'find next "<tr>" for next result
pos = InStr(pos, sSource, "<tr") + 1
'end of table results
If pos = 1 Then
Exit Do
End If
DoEvents
Loop
MsgBox "Complete"
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
ShellExecute Me.hWnd, "Open", Item.Key, 0, 0, 3
End Sub
and it still errors out on this line
VB Code:
EndPos = InStr(pos, sSource, "</table>")
ive went through the code and site and from what i can see nothing has changed so im pretty bewildered as to why its doing this error...would i have corrupt/bad/files? a bad windows install perhaps and its just the only thing im noticing so far (as its all ive been doing?)
could someone perhaps try that out just copy and paste it into a vb6 and run it? all u need is a command button listview textbox and Inet control....
probably the line above it is incorrect and pos = 0 which will give an error when it tries to run
check the value of pos at that line
i do my best to test code works before i post it, but sometimes am unable to do so for some reason, and usually say so if this is the case. Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next
dim all variables as required as often i have done so elsewhere in my code but only posted the relevant part
come back and mark your original post as resolved if your problem is fixed
pete
click in the feft margin so you get a red spot, the code will stop there when runniing
i do my best to test code works before i post it, but sometimes am unable to do so for some reason, and usually say so if this is the case. Note code snippets posted are just that and do not include error handling that is required in real world applications, but avoid On Error Resume Next
dim all variables as required as often i have done so elsewhere in my code but only posted the relevant part
come back and mark your original post as resolved if your problem is fixed
pete
i did what u both said and it just stops at that part thats causing the problem i did notice though if i leave say Text1 in the "search" box sometimes when i press the command button it finds that theres nothing there what i mean is my message box pops up "no torrents found" which i find pretty odd why doesnt it do that everytime?
You should have set up partitions when you had the chance, which is when you install Windows XP (it lets you use ghost without a disk so you don't have to reformat either)