How can I have the Inet control download all urls in a text file
Printable View
How can I have the Inet control download all urls in a text file
Open "filename" for input as #1
Do until EOF(1)
input #1, urln
inet1.openurl (urln)
Loop
Close #1
msgbox "Enjoy!"
Code:Open "filename" for input as #1
Do until EOF(1)
input #1, urln
inet1.openurl (urln)
Loop
Close #1
msgbox "Enjoy!"
I am pretty sure that the way you'd want to go about doing this is just open the URL with the Internel Transfer Control like
Inet1.OpenURL ("http://whatever.url.youwant")
Set that equal to something like ResponseList
ResponseList = Inet1.OpenURL ("http://whatever.url.youwant")
Then you need to parse the ResponseList for the URLs and write them to a file.
I don't think you can directly just say get the URLs out of the file though.