Open a URL via GUI button?

[Ganjika]

I have dragon eclipse and want to turn the jukebox GUI button on the main in-game menu (on the right hand side of the screen where it says "inv, spells, etc") into one that says Wiki and opens up the wiki-site created for the game. How would i accomplish this?I don't neccasarily want to get rid of jukebox - just make the button for it on the gui not exist and be a button for opening wiki instead and not having a button for jukebox on gui.

[zarocmaster]

Creat a new button named cmdWeb and code this

Private Sub cmdWeb_click ()

Shell ("Explorer YOUR WEBSITE")

End Sub

This should work…

If that does then close it and don't save. Then open vb back up and try double clicking the origional button. Delete the code and place previous code in. Im just not to sure if you will get a compile error if you edit the origional button.

BTW make sure you go "run with full compile" when u test it.

If this doesn't work then PM me and I will sus it out when I get home from work and give you the proper way. XD

[abhi2011]

That should work. Except you can also use pic buttons and stuff.

[zarocmaster]

Yea I forgot to mention that. I still haven't got home from work so I can't check but if I remember correctly there is a website button on the login screen in 2.3 and maybe 2.7… If my theory didn't work just check the script on that button.

[Godlord]

> ```
> Private Sub cmdWeb_click ()
>
> Shell ("Explorer YOUR WEBSITE")
>
> End Sub
> ```

It's a better idea to open the default browser instead. As shown in [this article](http://support.microsoft.com/kb/224816), the code looks somewhat like:

```
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

Private Sub WebsiteButton_Click()

Call ShellExecute(Me.hwnd, "open", "http://www.google.com/", _

vbNullString, vbNullString, vbNormal)

End Sub
```

Yours faithfully

S.J.R. van Schaik.

[zarocmaster]

> It's a better idea to open the default browser instead. As shown in [this article](http://support.microsoft.com/kb/224816), the code looks somewhat like:
>
> ```
> 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
>
> Private Sub WebsiteButton_Click()
>
> Call ShellExecute(Me.hwnd, "open", "http://www.google.com/", _
>
> vbNullString, vbNullString, vbNormal)
>
> End Sub
> ```
>
> Yours faithfully
>
> S.J.R. van Schaik.

Wow that's a long code XD no idea how it works but it looks fancy :)

[abhi2011]

It opens the website that you want with the default browser I suppose rather than opening it with IE.

[zarocmaster]

> It opens the website that you want with the default browser I suppose rather than opening it with IE.

Yea I got that part but I ment that I can't read the code and see how it does this….

It was a complement 2 u BTW

[abhi2011]

Oh. You meant you couldn't use VB. Lol

Thanks

[Godlord]

> Wow that's a long code XD no idea how it works but it looks fancy 

It only does two things:

* Declare the ShellExecute function (i.e. telling Microsoft Visual Basic 6.0 that it exists, what its arguments look like, and where to find it).
* Call that function to open the URL (internally, the function will use the registry to actually open it with the right programme).

Yours faithfully

S.J.R. van Schaik.

[zarocmaster]

> Oh. You meant you couldn't use VB. Lol
>
> Thanks

I DO know vb thank you. I just didn't understand that part that he rote

And I just realized that the complement was not 2 u it was to the other guy