http://eswow2.start-zone.net/./viewtopic.php?f=22&t=194
-----------------------------------
Wurzmao
Sab 03 Nov, 2012 22:37

Codigo De Launcher Escrito En Visual Basic 2008
-----------------------------------
Launcher de para su servidor pirata escrito en visual basic 2010

este es mi primer post de ayuda al usuario, yo alguna vez tambien fui noob y me cabezee muchas veces para aprender los conceptos basicos de un servidor de wow

[img]http://eswow2.start-zone.net/files/images/10/launcher.png[/img] 

como el titulo lo indica este launcher esta creado especialmente en visual basic un lenguaje orientado a objetos


como pueden saber, muchas comunidades de servers privados se han creado launcher, muchos de estos estan escritos en este codigo porque simplifica la tarea del programador al ser orientada a objetos

aca les dejo la descarga


http://www.mediafire.com/?8a2881n52fgfs4h


aca esta el proyecto con el executable, deben ponerlo en la carpeta raiz de world of warcraft para que les funcione sino les dara mensajes de error, ante cualquier duda preguntadme

ahora las funciones del launcher

Salir = cierra el lanzador mediante la sentencia 
Me.Close

Armeria = abre el navegador predeterminado a la pagina armeria de mi server frozenwars mediante la sentencia System.Diagnostics.Process.Start("http://armory.frozenwars.com")

Web = muestra la web principal de nuestro server mediante la misma sentencia de Armeria que es
System.Diagnostics.Process.Start("http://frozenwars.com")

Jugar = Abre el juego mediante la sentencia 
System.Diagnostics.Process.Start(My.Application.Info.DirectoryPath & "\Wow.exe")
y despues se cierra usando Me.Close

Realmlist = abre la form2 que es el otro cuadro mediante la sentencia
Form2.Show()

Realmlist se divive en 2

Reino frozenwars = cambia el realmlist de tu wow a los reinos frozenwars
Dim Write As New System.IO.StreamWriter(CurDir() & "\Data\esES\Realmlist.wtf")
            Write.Write("Set Realmlist login.frozenwars.com")

Blizzard Entertainment = cambia el realmlist a los servidores oficiales de wow mediante la sentencia
Write.Write("Set Realmlist eu.logon.worldofwarcraft.com")
            MsgBox("se ha regresado a los reinos de blizzard", MsgBoxStyle.Exclamation)

PARA FINALIZAR

borrar cache = borra la carpeta cache de tu carpeta wow mediante la sentencia

If My.Computer.FileSystem.DirectoryExists(My.Application.Info.DirectoryPath.ToString.ToString & "\Cache") Then
            Try
                My.Computer.FileSystem.DeleteDirectory(My.Application.Info.DirectoryPath.ToString & "cache", FileIO.DeleteDirectoryOption.DeleteAllContents)
                MsgBox("Cache vaciada satisfactoriamente", MsgBoxStyle.Exclamation)
            Catch ex As Exception
                MsgBox("no se pudo vaciar cache, revisa la ruta", MsgBoxStyle.Critical)
            End Try

        Else
            MsgBox("el directorio ya ha sido vaciado!", MsgBoxStyle.Exclamation)
        End If

los MsgBox son en caso de que se haya encontrado la carpeta y haya sido eliminada, en caso que la carpeta no exista y etc.


buenos ese ha sido mi primer aporte, ya traere mas novedades, deseo ayudar a que todos sean pro's.


