18-01-2009, 07:55 PM
|
#1 (permalink)
|
|
Membro - Cabo
Registrado em: Jan 2009
Localização: Ribeirão Preto
Posts: 26
Agradecido 52 Vezes em 25 Posts
Achei Ruim:
Acharam ruim Vezes em Posts
|
[Tutorial] Criando Seu Launcher De Grand Chase Com Visual Basic
Bom Galera Venho Hoje Encina-los De Como Criar O Seu Proprio Launcher Personalizado Para Grand Chase Com Visual Basic 6.0 !!
Bom Vamos aos Downloads :
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
Senha Para Extração:
Serial:
000000000000 ou 111111111111111
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:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
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:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
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:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
OBS: Se Quiserem Um Pack De Icones De GC eu Tenho Aqui Upei Para Download o Link é :
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
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
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
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:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
Depois de Criado os Botoes Ficará Mais ou Menos Assim..:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
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:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
Exemplo: Mude o Command1 ( Em Caption ) Para o Nome Que Você Quer Dar ao Seu Botão..
O Meu Ficou Assim :
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
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:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
Agora vá em BackColor e Escolha a Cor Do Seu Botão..
Exemplo :
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
Bom o Meu Ficou Assim:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
Bom Agora Vamos Adicionar Os Comandos Do Botão Jogar,Site e Sair..
Comandos:
Para Abrir o Jogo:
shell "main.exe __kogstudios_original_service__"
End
Para Abrir o Site:
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, "www.grandchase-fire.rg3.net", vbNullString, "c:\", SE_SHOWNORMAL)
cont = cont + 1
Loop Until cont = 1
Para Fechar o Launcher:
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:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
Bom No Meio De
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
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, "ENDEREÇO DO SEU SITE", vbNullString, "c:\", SE_SHOWNORMAL)
cont = cont + 1
Loop Until cont = 1
Bom O Primeiro Comando Você Tem Que Colocar Acima De Tudo Exemplo:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
e o Segundo Você Coloca no Botão Site ( De 2 Cliques No Botão Site e Cole o Comando )..
Exemplo:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
E No Botão End Adicionar a Penas o Comando End Ficando Assim:
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:
[Somente Usuários Registrados Podem Visualizar os Links Desta PáginaClique aqui para se Registrar]
Escolha Um Nome Para Seu Launcher e Salve =) !
Se Ajudei Agradeça =) !
Creditos: Totalmente a min ;D !
|
|
|