Making A program go to a link. (Vb6)

[omgcat]

So you have been wanting to learn how to make things go to links?

Well here is how.. I will post the whole code then break it up.

Your wrapper should be called w for this to work..

w.GetWrapper "http://www.neopets .com/pirates/academy.phtml?room=2", "http://neopets .com/"

Ok First this part:

w.GetWrapper

This is telling the program to take the link, and go to it.

"http://www.neopets .com/pirates/academy.phtml?room=2", "http://neopets .com/"

This code will tell the program what link you want it to go to. But you always need the comma after the first link, a space, then the second link.

That is how you program a code to get to a site.

[second2none]

err.. this is only if you have HTTPwrapper.

Other wise you will haveto use Winsock, Inet or another wrapper.

How would i make a program that loads a notepad url list and get it to visit them? Is it similar to this?

[Sub]

You will need to put this in your declarations to be able to load a text file to a list box.

Public Sub LoadList(lstList As ListBox, strPath As String)
    Dim objLoader As Object
    If strPath = Empty Then Exit Sub
    Set objLoader = CreateObject("Scripting.FileSystemObject")
    Set objLoader = objLoader.OpenTextFile(strPath, 1, True)
    Do While Not objLoader.AtEndOfStream
        lstList.AddItem StrConv((objLoader.ReadLine), vbProperCase)
    Loop
    objLoader.Close
    Set objLoader = Nothing
End Sub

Forgot how to use it but you should be able to figure it out xD

[Zachafer]

Use sub's code like:

Private Sub Command1_Click ()
Call LoadList (List1, "/textfile.txt")
End Sub

[ASHTEHCOMMIE]

I don't really get it T_T
*confused*

[Zachafer]

Simple.
Open up VB6, add a command button and a list. Leave them named Command1 and List1

Enter this code:

Function LoadList(lstList As ListBox, strPath As String)
    Dim objLoader As Object
    If strPath = Empty Then Exit Sub
    Set objLoader = CreateObject("Scripting.FileSystemObject")
    Set objLoader = objLoader.OpenTextFile(strPath, 1, True)
    Do While Not objLoader.AtEndOfStream
        lstList.AddItem StrConv((objLoader.ReadLine), vbProperCase)
    Loop
    objLoader.Close
    Set objLoader = Nothing
End Function

Private Sub Command1_Click ()
Call LoadList (List1, "/textfile.txt")
End Sub

Edit: You said:

This code will tell the program what link you want it to go to. But you always need the comma after the first link, a space, then the second link.

That is how you program a code to get to a site.

The second part (after the comma) is the referrer. It does not visit two seperate links with that code. Try wording your tutorials better. I am not pleased with your tutorials. They have lazy coding. Include HTTPWrapper maybe too?

[omgcat]

If you have any sence in programming, you should have a http wrapper, stuff, sleep moduels. I know it is the referrer. I typed this up at around 1:00 AM x.x

[Zachafer]

No excuse.
Why would it matter?
That is SO SIMPLE!

Suck it up.

[Kyo♥Connor]

how would you make it go to a list of links. not so you have to upload it but a list of links in the program coding, seperated with enter's and List1.AddItem "LOG" inbetween. i have lots of gaia links i want it to go to like that, how?