Conexão Maker

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

    Abrir Sites

    Thales12
    Thales12
    Administrador
    Administrador


    Mensagens : 140
    Level : 8
    Data de inscrição : 01/11/2011
    Idade : 29
    Localização : Rio de Janeiro

    Abrir Sites Empty Abrir Sites

    Mensagem por Thales12 Qua Fev 15, 2012 2:08 am

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

      Data/hora atual: Qui Mar 28, 2024 10:38 pm