Universo Games
Ola , Convidado



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

Abir Sites

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial Abir Sites

Mensagem por Ricardo em Dom 06 Nov 2011, 08:03

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 \õ/)
avatar
Ricardo

Mensagens : 42

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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