[Release] Open Source Aion Laucnher

[Toysin]

is it wornking with 2.7?

IT will work , but you need to edit some of it resources.
Repack and rebuild.

 

[-DefaulT]

To remove the ip and port from the .ini config files you can change the source of the launcher and recompile.
Something like this:

Findline 111 & 112)

' Starting the game
        Shell(startgame)

Replace with:

' Starting the game
        Shell(bin32\aion.bin -ip:127.0.0.1 -port:2106 -cc:1 -lang:enu -noauthgg -ls -charnamemenu -ncg -ingameshop -noweb)

Replace 127.0.0.1 to your ip and 2106 to the desired port. Thats for starting the game, the ip, and login/world ports are for status check, and to get rid of them do the following:

Find: (line 147 - 169)

 ' Check login status
    Public Function CheckLogin()

        Dim LoginServer As New TcpClient
        Try

            ' Ip and Port
            LoginServer.Connect(ip, login)

            ' Server Online
            PictureBox4.BackgroundImage = My.Resources.login_on

        Catch Excep As Exception

            ' Server Offline
            PictureBox4.BackgroundImage = My.Resources.login_off

            ' Message the user
            MsgBox("Login Server is currently offline, please check the forums.")

        End Try

    End Function

Replace with:

 ' Check login status
    Public Function CheckLogin()

        Dim LoginServer As New TcpClient
        Try

            ' Ip and Port
            LoginServer.Connect(127.0.0.1, 2106)

            ' Server Online
            PictureBox4.BackgroundImage = My.Resources.login_on

        Catch Excep As Exception

            ' Server Offline
            PictureBox4.BackgroundImage = My.Resources.login_off

            ' Message the user
            MsgBox("Login Server is currently offline, please check the forums.")

        End Try

    End Function

Again change 127.0.0.1 to your port, and 2106 to the port u use for login.

For world findlines 171 - 193)

 ' Check world status
    Public Function CheckWorld()

        Dim WorldServer As New TcpClient
        Try

            ' IP and Port
            WorldServer.Connect(ip, world)

            ' World is Online
            PictureBox5.BackgroundImage = My.Resources.world_on

        Catch Excep As Exception

            ' World is Offline
            PictureBox5.BackgroundImage = My.Resources.world_off

            ' Notify the user
            MsgBox("World Server is currently offline, please check the forums.")

        End Try

    End Function

And replace with:

 ' Check world status
    Public Function CheckWorld()

        Dim WorldServer As New TcpClient
        Try

            ' IP and Port
            WorldServer.Connect(127.0.0.1, 7777)

            ' World is Online
            PictureBox5.BackgroundImage = My.Resources.world_on

        Catch Excep As Exception

            ' World is Offline
            PictureBox5.BackgroundImage = My.Resources.world_off

            ' Notify the user
            MsgBox("World Server is currently offline, please check the forums.")

        End Try

    End Function

And one last time change 127.0.0.1 to your ip and 7777 to your world port.


If i still had the files on my computer (had to reformat + i got a new computer and this was coded on my laptop) i would upload the whole source with files etc.

 

[shunoai95]

To remove the ip and port from the .ini config files you can change the source of the launcher and recompile.
Something like this:

Findline 111 & 112)

' Starting the game
        Shell(startgame)

Replace with:

' Starting the game
        Shell(bin32\aion.bin -ip:127.0.0.1 -port:2106 -cc:1 -lang:enu -noauthgg -ls -charnamemenu -ncg -ingameshop -noweb)

Replace 127.0.0.1 to your ip and 2106 to the desired port. Thats for starting the game, the ip, and login/world ports are for status check, and to get rid of them do the following:

Find: (line 147 - 169)

 ' Check login status
    Public Function CheckLogin()

        Dim LoginServer As New TcpClient
        Try

            ' Ip and Port
            LoginServer.Connect(ip, login)

            ' Server Online
            PictureBox4.BackgroundImage = My.Resources.login_on

        Catch Excep As Exception

            ' Server Offline
            PictureBox4.BackgroundImage = My.Resources.login_off

            ' Message the user
            MsgBox("Login Server is currently offline, please check the forums.")

        End Try

    End Function

Replace with:

 ' Check login status
    Public Function CheckLogin()

        Dim LoginServer As New TcpClient
        Try

            ' Ip and Port
            LoginServer.Connect(127.0.0.1, 2106)

            ' Server Online
            PictureBox4.BackgroundImage = My.Resources.login_on

        Catch Excep As Exception

            ' Server Offline
            PictureBox4.BackgroundImage = My.Resources.login_off

            ' Message the user
            MsgBox("Login Server is currently offline, please check the forums.")

        End Try

    End Function

Again change 127.0.0.1 to your port, and 2106 to the port u use for login.

For world findlines 171 - 193)

 ' Check world status
    Public Function CheckWorld()

        Dim WorldServer As New TcpClient
        Try

            ' IP and Port
            WorldServer.Connect(ip, world)

            ' World is Online
            PictureBox5.BackgroundImage = My.Resources.world_on

        Catch Excep As Exception

            ' World is Offline
            PictureBox5.BackgroundImage = My.Resources.world_off

            ' Notify the user
            MsgBox("World Server is currently offline, please check the forums.")

        End Try

    End Function

And replace with:

 ' Check world status
    Public Function CheckWorld()

        Dim WorldServer As New TcpClient
        Try

            ' IP and Port
            WorldServer.Connect(127.0.0.1, 7777)

            ' World is Online
            PictureBox5.BackgroundImage = My.Resources.world_on

        Catch Excep As Exception

            ' World is Offline
            PictureBox5.BackgroundImage = My.Resources.world_off

            ' Notify the user
            MsgBox("World Server is currently offline, please check the forums.")

        End Try

    End Function

And one last time change 127.0.0.1 to your ip and 7777 to your world port.


If i still had the files on my computer (had to reformat + i got a new computer and this was coded on my laptop) i would upload the whole source with files etc.

Sorry to be an utter noob, but how do you find out your port for world and login?

 

[krakc]

very good, but you can change its appearance

thx

 

[toxin01]

Could you also post the complete source including forms ?

Thanks

 

[-DefaulT]

If i still had the files on my computer (had to reformat + i got a new computer and this was coded on my laptop) i would upload the whole source with files etc.

i feel like i said that already

 

[-DefaulT]

thanks

 

[thriel]

does the auto update work on any folder in the aion root directory or only for bin32 folder ?

i find most launcher are limited to bin32 only. would be nice if it supported all the folders.

 

[benson20]

Hello! I noticed that the source you uploaded is just a text codes. How can i apply that in vb.net what version of vb.net should i use?

Thanks. . Hope you can help me.

 

[someonewhy]

i am getting an error help please

 

[blackcatyb]

Nice :x

 

[mqxxou]

Hi !
Thanks for this launcher

How to make a new exe with the .vb file ?

I have try with virtual basic but doesn't work

Ty in advance.