[Release] Open Source Aion Laucnher

Please upload it to mediafire!

Quote:

---

Originally Posted by truong90

Please upload it to mediafire!

---

Please do it, i can't download it from the link you provided

Can you Upload the Projet Source please :S from pastebin i get only the main form source code.. ._. I would configurate the Version for the Patcher to my Server Version :)

Thank you!

Quote:

---

Originally Posted by truong90

Please upload it to mediafire!

---

Quote:

---

Originally Posted by Ghare

Please do it, i can't download it from the link you provided

---

@Both of you, check first post, I've added link to Mediafire.

is it wornking with 2.7?

Quote:

---

Originally Posted by Atraxion

is it wornking with 2.7?

---

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

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

Find:(line 111 & 112)

Code:

---

' Starting the game
        Shell(startgame)

---

Replace with:

Code:

---

' 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)

Code:

---

' 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:

Code:

---

' 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 find:(lines 171 - 193)

Code:

---

' 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:

Code:

---

' 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.

Quote:

---

Originally Posted by -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:

Find:(line 111 & 112)

Code:

---

' Starting the game
        Shell(startgame)

---

Replace with:

Code:

---

' 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)

Code:

---

' 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:

Code:

---

' 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 find:(lines 171 - 193)

Code:

---

' 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:

Code:

---

' 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?

very good, but you can change its appearance

thx

Could you also post the complete source including forms ?

Thanks

Quote:

---

Originally Posted by -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

thanks

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.

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.
Posted via Mobile Device

i am getting an error help please