| View previous topic :: View next topic |
| Author |
Message |
Golden Wing Grandmaster Cheater
Reputation: 0
Joined: 29 Aug 2007 Posts: 905
|
Posted: Fri Sep 28, 2007 7:25 am Post subject: vb6 button link |
|
|
lol its me again i got helped a lot on this forum but like when u click a button how do u make it link to a site?im makeing a habbo tool lol
_________________
|
|
| Back to top |
|
 |
pimpstonie Advanced Cheater
Reputation: 0
Joined: 27 Sep 2007 Posts: 70
|
Posted: Fri Sep 28, 2007 8:55 am Post subject: *Update* |
|
|
| 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
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_NORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Const SW_MAXIMIZE = 3
Const SW_SHOWNOACTIVATE = 4
Const SW_SHOW = 5
Const SW_MINIMIZE = 6
Const SW_SHOWMINNOACTIVE = 7
Const SW_SHOWNA = 8
Const SW_RESTORE = 9
Const SW_SHOWDEFAULT = 10
Const SW_MAX = 10
Private Sub cmdLink_Click()
ShellExecute 0&, "open", "http://www.google.com", "", "", 1
End Sub |
Added Example.
Last edited by pimpstonie on Sat Sep 29, 2007 4:24 pm; edited 2 times in total |
|
| Back to top |
|
 |
Golden Wing Grandmaster Cheater
Reputation: 0
Joined: 29 Aug 2007 Posts: 905
|
Posted: Fri Sep 28, 2007 9:41 am Post subject: |
|
|
cool thx i was looking for this for a long long while
_________________
|
|
| Back to top |
|
 |
pimpstonie Advanced Cheater
Reputation: 0
Joined: 27 Sep 2007 Posts: 70
|
Posted: Fri Sep 28, 2007 10:55 am Post subject: |
|
|
Didnt take me long! =)
When your done with your habbo tool, can I have it?
edit: typo o0
|
|
| Back to top |
|
 |
Trow Grandmaster Cheater
Reputation: 2
Joined: 17 Aug 2006 Posts: 957
|
Posted: Sat Sep 29, 2007 4:19 am Post subject: |
|
|
o then how do you apply a "hand" cursor for the button?
_________________
Get kidnapped often. |
|
| Back to top |
|
 |
NothingToShow Grandmaster Cheater Supreme
Reputation: 0
Joined: 11 Jul 2007 Posts: 1579
|
|
| Back to top |
|
 |
Trow Grandmaster Cheater
Reputation: 2
Joined: 17 Aug 2006 Posts: 957
|
|
| Back to top |
|
 |
Golden Wing Grandmaster Cheater
Reputation: 0
Joined: 29 Aug 2007 Posts: 905
|
Posted: Sat Sep 29, 2007 7:29 am Post subject: |
|
|
| pimpstonie wrote: | | 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
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_NORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Const SW_MAXIMIZE = 3
Const SW_SHOWNOACTIVATE = 4
Const SW_SHOW = 5
Const SW_MINIMIZE = 6
Const SW_SHOWMINNOACTIVE = 7
Const SW_SHOWNA = 8
Const SW_RESTORE = 9
Const SW_SHOWDEFAULT = 10
Const SW_MAX = 10
Private Sub cmdLink_Click()
ShellExecute 0&, "open", "webpagetogotohere", "", "", vbNormalFocus
End Sub |
I cant post links yet so change webpagetogotohere with the webpage you want the button to open when clicked. |
it dont work thought it did
_________________
|
|
| Back to top |
|
 |
atom0s Moderator
Reputation: 205
Joined: 25 Jan 2006 Posts: 8587 Location: 127.0.0.1
|
Posted: Sat Sep 29, 2007 12:18 pm Post subject: |
|
|
To open a webbrowser:
API and such:
| 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
Private Const SW_SHOWNORMAL = 1 |
To call:
| Code: | | ShellExecute 0, "open", "http://www.cheatengine.org", 0&, 0&, SW_SHOWNORMAL |
| blland wrote: | | o then how do you apply a "hand" cursor for the button? |
Arrow:
| Code: | Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.MousePointer = 10
End Sub |
Don't think you can use the hand cursor without importing it yourself. The best one for links would be the one I just posted above.
|
|
| Back to top |
|
 |
|