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