Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Abir Sites

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Abir Sites em Dom 06 Nov 2011, 08:03

Ricardo


Membro
Membro
Client~Side

No inicio do modGameLogic adicione:

Código:
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


E no final:

Código:
Public Function Site(ByVal WebSite As String) As Boolean
    WebSite = "http://" & WebSite
    Site = (ShellExecute(0, "open", WebSite, vbNullString, vbNullString, vbNormalFocus))
End Function


Creditos

Ricardo (eu \õ/)

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum