Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


vb6 button link

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming
View previous topic :: View next topic  
Author Message
Golden Wing
Grandmaster Cheater
Reputation: 0

Joined: 29 Aug 2007
Posts: 905

PostPosted: Fri Sep 28, 2007 7:25 am    Post subject: vb6 button link Reply with quote

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
View user's profile Send private message
pimpstonie
Advanced Cheater
Reputation: 0

Joined: 27 Sep 2007
Posts: 70

PostPosted: Fri Sep 28, 2007 8:55 am    Post subject: *Update* Reply with quote

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.



The Extension 'rar' was deactivated by an board admin, therefore this Attachment is not displayed.



Last edited by pimpstonie on Sat Sep 29, 2007 4:24 pm; edited 2 times in total
Back to top
View user's profile Send private message
Golden Wing
Grandmaster Cheater
Reputation: 0

Joined: 29 Aug 2007
Posts: 905

PostPosted: Fri Sep 28, 2007 9:41 am    Post subject: Reply with quote

cool thx i was looking for this for a long long while
_________________
Back to top
View user's profile Send private message
pimpstonie
Advanced Cheater
Reputation: 0

Joined: 27 Sep 2007
Posts: 70

PostPosted: Fri Sep 28, 2007 10:55 am    Post subject: Reply with quote

Didnt take me long! =)

When your done with your habbo tool, can I have it?

edit: typo o0
Back to top
View user's profile Send private message
Trow
Grandmaster Cheater
Reputation: 2

Joined: 17 Aug 2006
Posts: 957

PostPosted: Sat Sep 29, 2007 4:19 am    Post subject: Reply with quote

o then how do you apply a "hand" cursor for the button?
_________________
Get kidnapped often.
Back to top
View user's profile Send private message
NothingToShow
Grandmaster Cheater Supreme
Reputation: 0

Joined: 11 Jul 2007
Posts: 1579

PostPosted: Sat Sep 29, 2007 4:35 am    Post subject: Reply with quote

blland wrote:
o then how do you apply a "hand" cursor for the button?

http://msdn2.microsoft.com/en-us/library/e6ct1438(VS.80).aspx
Back to top
View user's profile Send private message
Trow
Grandmaster Cheater
Reputation: 2

Joined: 17 Aug 2006
Posts: 957

PostPosted: Sat Sep 29, 2007 6:14 am    Post subject: Reply with quote

Moller wrote:
blland wrote:
o then how do you apply a "hand" cursor for the button?

http://msdn2.microsoft.com/en-us/library/e6ct1438(VS.80).aspx


yeah, i asked because there is no "hand" in the normal collection of default mouse pointers available in vb6 Smile

_________________
Get kidnapped often.
Back to top
View user's profile Send private message
Golden Wing
Grandmaster Cheater
Reputation: 0

Joined: 29 Aug 2007
Posts: 905

PostPosted: Sat Sep 29, 2007 7:29 am    Post subject: Reply with quote

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
View user's profile Send private message
atom0s
Moderator
Reputation: 205

Joined: 25 Jan 2006
Posts: 8587
Location: 127.0.0.1

PostPosted: Sat Sep 29, 2007 12:18 pm    Post subject: Reply with quote

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
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites