[EO] Botão Para Site !

Blz Galera ?
Vou Explicar para que serve esse Botão Para Site !
esse botão vai ficar na tela inicial do Eclipse, ele serve para quando você clikar abrir um site !

Antes de tudo va em frmMirage Crie um Commandbutton Para o Site .

No Commandbutton do Site de 2 Clique e adicione :

Código:

Call GoToWebsite("http://seu site aki.com/")

[b]Agora Crie um Module e renomeia seu nome para modWeb 2 dois clique e Adicione:

Código:

Option Explicit

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

Public Function GoToWebsite(ByVal WebSite As String) As Boolean
    Dim res As Long
 
    If InStr(1, WebSite, "http", vbTextCompare) <> 1 Then
        WebSite = "http://google.com.br/" & WebSite
    End If
 
    res = ShellExecute(0&, "open", WebSite, vbNullString, vbNullString, _
        vbNormalFocus)
    GoToWebsite = (res > 32)
End Function

Public Function GoToWebsiteOrkut(ByVal WebSite As String) As Boolean
    Dim res As Long
 
    If InStr(1, WebSite, "http", vbTextCompare) <> 1 Then
        WebSite = "http://www.orkut.com.br" & WebSite
    End If
 
    res = ShellExecute(0&, "open", WebSite, vbNullString, vbNullString, _
        vbNormalFocus)
    GoToWebsiteOrkut = (res > 32)
End Function

É isso awe !


[b]Creditos : Lost Style
:affraid:

Hum realmente bem util

Ahh!! lembrei hehe, créditos indentificados =P

São do Lost Style.

Link do tuto : http://www.mmorpgbr.com/tutoriais-f14/botao-para-site-e-orkut-t1784.htm

;*

Vlw Awe por Localizar o dono dos Creditos ^^

bem legal o script, assim da pra anunciar o site do jogo

Muito bom cara

Muito bom, +1 crédito.

Mto boom +1 credit

Organizei o seu tópico