Olá a todos, tal como disse no meu outro post "Comando de GM Personalizado" aqui está um launcher que estive a fazer, eu aqui disponiblizo para download a Source (Projecto Visual Basic 2010) + Design em Photoshop com Tutorial (Imagem) e um exemplo to launcher concluido. Link de download: [Somente usuários registrados podem vem os links. ] VirusScan:[Somente usuários registrados podem vem os links. ] Podem verificar ^^ não tem virus. Previsualização/Preview: Para editar o launcher precisa de: -Visual Basic 2010 -Photoshop CS5 (Ou outro) Se precisar de ajuda a saber o que deve mudar vá a pasta Tutorial e têm lá uma imagem que diz o que precisa editar ^^ Strings Úteis: Shell("C:\\") - Inicia um programa/processo. Me.Close - Fecha o launcher/programa criado em VB. Process.start("LINK") - Redirecciona para um link. Caso tenha mais duvidas mande PM ou exponha a duvida aqui Creditos: GM do Predator Aion Trozay ~Design e Codificação do launcher.
Amigo queria colocar no Botao Start uma verificacao se o arquivo bin32/aion.bin existe, se nao existir aparecer uma menssagem exemplo: Arquivo Aion.bin nao encontrado. e entaum nao executar o comando shell, so executar se o arquivo for encontrado. eu nunca usei vb, to usando agora por causa do seu launcher, poderia me ajudar com isso? Obrigado
Sim claro que posso ajudar para isso vai necessitar de trocar a string encontrada no botão "Start" String: Imagem: Codigo: Código: Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If My.Computer.FileSystem.FileExists("bin32/aion.bin") Then MsgBox("Aion.bin encontrado!") Shell("bin32/aion.bin -ip:xx.xx.xx.xxx -port:xxxx -cc:2 -lang:enu -noauthgg -noweb -ingameshop") End If If Not My.Computer.FileSystem.FileExists("bin32/aion.bin") Then MsgBox("Aion.bin não encontrado!") End If End Sub End Class Resultado: e passado alguns segundos o Aion será executado ^^
Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If My.Computer.FileSystem.FileExists("bin32/aion.bin") Then MsgBox("Aion.bin encontrado!") Shell("bin32/aion.bin -ip:xx.xx.xx.xxx -port:xxxx -cc:2 -lang:enu -noauthgg -noweb -ingameshop") End If If Not My.Computer.FileSystem.FileExists("bin32/aion.bin") Then MsgBox("Aion.bin não encontrado!") End If End Sub End Class
Hidden Content Trozay ~ Aion Developer | Programmer | Graphic Designer ~ Predator Aion ~Junior Staff~ ~Ao No Exorcist~
ficou perfeito, apenas retirei a caixa de menssagem pra quando achar nao avisar nada, simplesmente executar o aion e tbm coloquei pra se fechar sosinho depois que executar, parabens pelo launcher. tenho algumas duvidas que nao sao referentes ao launcher e sim vb, vou te mandar por mp pra nao ficar sujando o topico.
Ok, Eu já respondi, Se alguem tiver mais duvidas pode perguntar aqui ou mandar MP.
Obrigado, acabei conseguindo fazer oque queria, após deixar de acordo com meu gosto segue uma screnshot:
Link esta off alguem pode colocar denovo
Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)
Regras do Fórum