[Ultilitario] Como Faze Um Laucher

Bom Galera Venho Hoje Encina-los De Como Criar O Seu Proprio Launcher Personalizado Para Grand Chase Com Visual Basic 6.0 !!

Download:

Visual Basic 6.0

Bom Galera Depois De Ter Feito o Download Do Visual Basic

Abra Ele.. Depois Disso Irá Ter Uma Pop up perguntando qual tipo de projeto você quer fazer..

Parecida Com essa:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]


Bom Deixa Selecionado Standard EXE mesmo e De Abrir ..

Bom Para Voce Usar Uma Imagem No Launcher Como Fundo Clique Em Picture nos 3 Pontinhos Lá Do Lado Direito Do Menu:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Agora Clique Nos 3 Pontinho e Selecione Sua Imagem..

Se Você Deseja Que Quando Voce For Salvar Tenha Um Icone Personalizado Vá Lá no Lado Do Menu e Vá em Icon e Clica nos 3 Pontinhos e Selecione Seu Icone:

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Dando Um Titulo ao Launcher:

Bom Isso é Facil..

Clique No Launcher ( Apenas No Launcher em Mais NADA )

E Em Caption Escreva o Nome Do Seu Launcher

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Criando os Botoes:

Bom Vamos Agora Criar os Botoes Do Launcher Use a Ferramenta " Command Button " Que Está no Lado Esquerdo Do Visual Basic Na Barra De Ferramentas:

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Depois de Criado os Botoes Ficará Mais ou Menos Assim..:


[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Bom Agora Vamos Nomear Os Botoes..

Clique no Botão Que Voce Quer Dar Nome e Lá no Menu Do Lado Direito Procure Por Caption.. Lá Mude Para o Nome Desejado Exemplo:

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Exemplo: Mude o Command1 ( Em Caption ) Para o Nome Que Você Quer Dar ao Seu Botão..

O Meu Ficou Assim :

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]


Bom Se Você Quer Acrescentar Uma Cor ao Botão Clique no Botão Que Deseja Colocar Cor Vá no Menu Lá Do Lado Direito Procure Style e Mude De Standard Para Graphical:

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Agora vá em BackColor e Escolha a Cor Do Seu Botão..

Exemplo :

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Bom o Meu Ficou Assim:

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Bom Agora Vamos Adicionar Os Comandos Do Botão Jogar,Site e Sair..

Comandos:

Para Abrir o Jogo:

Codigo

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 Depois

Dim shell, cont As Long
cont = 0
Do
shell = ShellExecute(Me.hwnd, vbNullString, "[Tens de ter uma conta e sessão iniciada para poderes visualizar este link] vbNullString, "c:", SW_SHOWNORMAL)
cont = cont + 1
Loop Until cont = 1

Para Fechar o Launcher:

End


Uma Pergunta..

Como Adicionar Esses Comandos aos Botões??

Bom Ai Que Está.. Dê Dois Cliques No Botão Desejado Exemplo Jogar..

Depois Que eu Dei 2 Cliques Apareceu a Seguinte Janela:



[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]


Bom No Meio De:

Codigo:

Private Sub Command1_Click()

E

End Sub Adicione o Comando De Jogar..

Pronto Faça a Mesma Coisa Com o Site, e Sair

Uma Coisa.. O Comando Do Site Tem 2 !!

O

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 Depois

Código:

Dim shell, cont As Long
cont = 0
Do
shell = ShellExecute(Me.hwnd, vbNullString, "ENDEREÇO DO SEU SITE", vbNullString, "c:", SW_SHOWNORMAL)
cont = cont + 1
Loop Until cont = 1

Bom O Primeiro Comando Você Tem Que Colocar Acima De Tudo Exemplo:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

e o Segundo Você Coloca no Botão Site ( De 2 Cliques No Botão Site e Cole o Comando )..

Exemplo:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
E No Botão End Adicionar a Penas o Comando End Ficando Assim

Código:

Private Sub Command1_Click()
End
End Sub



Bom Agora Seu Launcher Está Feito e Pronto Para Usar ..

Mas Ai Vem a Pergunta Como Eu Salvo Meu Launcher em exe?? o.o'?

É Facil..

Vá Em File e Clique em Make Project1.exe

Imagem:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Escolha Um Nome Para Seu Launcher e Salve =) !

Se Ajudei Agradeça =) !

Creditos: LipeH
By:[ADM]Kakashi

Obs: Os Codigos Estao em vermelho Ok

Visual Basic 6.0

otimo ajudo que tiver criando um server

Cara Otimo Topico

Continue Assim vc vai trabalha na Lug XD

Ficou bom seu tópico, vai ajudar muito pessoas que criaram um gc private e nao sabem fazer launcher. Boa Kakashi!

See Ya!