Programação Launcher Para Tibia

Sticler · Setembro 13, 2014

Launcher v1.0

by: Sticler

Olá, Hoje vim trazer um Launcher feito por mim, ele Contém:

Auto-Update Ou seja, ele vai ver se no seu client é da mesma versão que o host (veremos mais a frente)
Launcher Ou seja, tem a opção de SITE, para ir para o SITE capitão óbvio SHOP, para ir para o SHOP do SITE, e Play

v1.0

Mostrar conteúdo oculto

Bom, o launcher é a v1.0, ou seja, AINDA ESTÁ FEIO, Vamos lá

Requisitos

Mostrar conteúdo oculto

Host de SITE, aconselho a

Hidden Content

Give reaction to this post to see the hidden content.

Servidor

Criador de Instalador, Aconselho

Hidden Content

Give reaction to this post to see the hidden content.

Visual Basic (VB.NET)

Tutorial Parte 1

Mostrar conteúdo oculto

Abra o VB.NET, Crie um Projeto de WINDOWNS FORM

Hidden Content

Give reaction to this post to see the hidden content.

Edite Como quiser a JANELA, é Preciso ter 3 BOTOES, e 1 PROGRESS BAR

Os BOTOES tem que ser nessa ordem:

Primeiro Botão: JOGAR/Verificar Updates

Segundo Botão: SITE

Terceiro Botão: SHOP

Bom, eu criei um Básico aqui com uma WEB Browser

Hidden Content

Give reaction to this post to see the hidden content.

Agora, Vocês apertem F7

Hidden Content

Give reaction to this post to see the hidden content.

Depois, Apaguem TUDO e colem este Código:

Hidden Content

Give reaction to this post to see the hidden content.

Hidden Content

Give reaction to this post to see the hidden content.

Fim da Parte 1

Parte 2:

Mostrar conteúdo oculto

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        System.Diagnostics.Process.Start("http://gameselementary.net/")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        System.Diagnostics.Process.Start("Site do Seu Servidor")
    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        System.Diagnostics.Process.Start("http://gameselementary.net//index.php/p/v/shop")
    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        System.Diagnostics.Process.Start("Site do Shop do seu Servidor")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim versaodosite As String = webclient1.DownloadString("http://gameselementary.net/nova.php")

        If versaodosite > versaoatal Then
            MessageBox.Show("Atualizando")
            webclient2.DownloadFileAsync(New Uri("http://gameselementary.net/setup.exe"), "C:\PokemonOrigins\setup.exe")
            System.Diagnostics.Process.Start("C:\PokemonOrigins\setup.exe")
            Close()
        End If
        If versaodosite = versaoatal Then
            MessageBox.Show("Seu Client já está Atualizado")
            System.Diagnostics.Process.Start("C:\PokemonOrigins\Otclient.exe")
            Close()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim versaodosite As String = webclient1.DownloadString(Site do Seu Host(NAO TIRE O NOVA.PHP)/nova.php")

        If versaodosite > versaoatal Then
            MessageBox.Show("Atualizando")
            webclient2.DownloadFileAsync(New Uri("Site do Seu Host, NAO TIRE O SETUP.PHP/setup.exe"), "C:\Nome do Seu Servidor\setup.exe")
            System.Diagnostics.Process.Start("C:\Nome do Seu Servidor\setup.exe")
            Close()
        End If
        If versaodosite = versaoatal Then
            MessageBox.Show("Seu Client já está Atualizado")
            System.Diagnostics.Process.Start("C:\Nome do Seu servidor\Otclient.exe")
            Close()
        End If
    End Sub

Parte 3:

Mostrar conteúdo oculto

Bom, Agora para seu Client Atualizar você deve perceber algumas coisas:
    Dim versaoatal As String = "1.1" 
o Numero tem que ser MENOR que no arquivo nova.php, sempre que você atualizar o client, você terá que re-compilar o Launcher editando esse número, pondo +1

exemplo:

No meu launcher está assim
Launcher:
    Dim versaoatal As String = "1.0" 
Nova.php:
1.1
ou seja, quando eu apertar em JOGAR ele vai ver que a minha versão é menor, se eu tiver outra update ficará assim
Launcher:
    Dim versaoatal As String = "1.1" 
Nova.php
1.2 
Agora, você deve SALVAR O PROJETO para editar sempre que tiver novas UPDATES

e compilar

Fim.

Compilando:

Mostrar conteúdo oculto

Para compilar, vá em Project>Properties

Hidden Content

Give reaction to this post to see the hidden content.

Vá na sua area de trabalho e crie uma pasta chamada Launcher

Hidden Content

Give reaction to this post to see the hidden content.

Vá em compile e em BUILD output Path mude para o diretório da sua pasta Launcher.

Hidden Content

Give reaction to this post to see the hidden content.

Agora vá em Debug > Build

Hidden Content

Give reaction to this post to see the hidden content.

Se tudo deu certo, vá na sua pasta e lá estará o seu launcher, Porém ainda não acabou!

Hidden Content

Give reaction to this post to see the hidden content.

Parte 4:

Mostrar conteúdo oculto

Bom, Agora vocês devem Criar um INSTALADOR para o seu CLIENT, eu vou ensinar com OTCLIENT, porém também funciona no Clipsoft

Abra o Inno Setup 5 e marquem tudo como na imagem.

Hidden Content

Give reaction to this post to see the hidden content.

Clique em OK

Depois em NEXT

Hidden Content

Give reaction to this post to see the hidden content.

Hidden Content

Give reaction to this post to see the hidden content.

Agora, lembra no Launcher, a parte que você coloca o diretorio do Otclient.exe ? se não lembra:
Mostrar conteúdo oculto
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim versaodosite As String = webclient1.DownloadString(Site do Seu Host(NAO TIRE O NOVA.PHP)/nova.php")

        If versaodosite > versaoatal Then
            MessageBox.Show("Atualizando")
            webclient2.DownloadFileAsync(New Uri("Site do Seu Host, NAO TIRE O SETUP.PHP/setup.exe"), "C:\Nome do Seu Servidor\setup.exe")
            System.Diagnostics.Process.Start("C:\Nome do Seu Servidor\setup.exe")
            Close()
        End If
        If versaodosite = versaoatal Then
            MessageBox.Show("Seu Client já está Atualizado")
            System.Diagnostics.Process.Start("C:\Nome do Seu servidor\Otclient.exe")
            Close()
        End If
    End Sub  

Então, hora de usar aquilo, deixe esta tela Exatamente Assim (Mudando apenas o nome do seu servidor)

Hidden Content