Abrir Sites

    Compartilhe
    avatar
    Thales12
    Administrador
    Administrador

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

    default Abrir Sites

    Mensagem por Thales12 em 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: Dom Out 21, 2018 1:52 am