Página 1 de 1

realmlister par los que juegan al wow en servidores privados

Publicado: 09 Ene 2010, 18:49
por xapu
pues eso..
es muy sencillo :P pero ami me a sido muy util, haber si a alguien mas le resulta util

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("realmlister", 577, 55, 192, 124)
$realm = GUICtrlCreateInput("", 80, 16, 249, 21)
$Label1 = GUICtrlCreateLabel("set realmlist", 16, 16, 58, 17)
$create = GUICtrlCreateButton("crear", 344, 16, 105, 25, $WS_GROUP)
$oficial = GUICtrlCreateButton("realmlist oficial", 456, 16, 105, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $create
			$rlist = GUICtrlRead($realm)
			if FileExists("C:\Program Files\world Of Warcraft\Data\esES\realmlist.WTF") Then filedelete("C:\Program Files\orld Of Warcraft\Data\esES\realmlist.WTF")
			$realmlist = FileOpen("C:\Program Files\world Of Warcraft\Data\esES\realmlist.WTF",9)
			filewrite("C:\Program Files\world Of Warcraft\Data\esES\realmlist.WTF","set realmlist "& $rlist)
			FileClose($realmlist)
		case $oficial
			if FileExists("C:\Program Files\world Of Warcraft\Data\esES\realmlist.WTF") Then filedelete("C:\Program Files\orld Of Warcraft\Data\esES\realmlist.WTF")
			$realmlist = FileOpen("C:\Program Files\world Of Warcraft\Data\esES\realmlist.WTF",9)
			filewrite("C:\Program Files\world Of Warcraft\Data\esES\realmlist.WTF","set realmlist eu.logon.worldofwarcraft.com"&@CRLF&"set realmlist eu.version.worldofwarcraft.com ")
			FileClose($realmlist)			
	EndSwitch
WEnd


Re: realmlister par los que juegan al wow en servidores privados

Publicado: 09 Ene 2010, 22:34
por xapu
bueno!
e exo una gran mejora :smt003
plis si alguien lo modifica k lo postee para ver lo k a exo!

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$wowdirec = 0
$infox = 0
if Not FileExists("C:\wowdir.txt") Then
	$Form1 = GUICreate("introduce los datos", 619, 124, 192, 124)
	$Label1 = GUICtrlCreateLabel("introduce la direccion donde tienes el wow", 208, 8, 205, 17)
	$Input1 = GUICtrlCreateInput("C:\Program Files\world Of Warcraft", 22, 32, 577, 21)
	$Label2 = GUICtrlCreateLabel("version del wow", 22, 80, 80, 17)
	$GB = GUICtrlCreateRadio("enGB", 112, 64, 105, 17)
	$ES = GUICtrlCreateRadio("esES", 112, 80, 105, 17)
	$US = GUICtrlCreateRadio("enUS", 112, 96, 105, 17)
	$okiis = GUICtrlCreateButton("ok", 328, 72, 113, 25, $WS_GROUP)
	GUISetState(@SW_SHOW)
	#EndRegion ### END Koda GUI section ###

	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				Exit
			case $okiis
				Local $infox = GUICtrlRead($input1)
				local $wowdirec = FileOpen("C:\wowdir.txt",9)
				FileWrite($wowdirec,$infox&$versi)
				FileClose($wowdirec)
				creater()
			Case $GB
				$versi = "\Data\enGB\realmlist.WTF"					
			Case $ES
				$versi = "\Data\esES\realmlist.WTF"		
			Case $US
				$versi = "\Data\enUS\realmlist.WTF"				

		EndSwitch
	WEnd

Else
	creater()
EndIf

Func creater()
		global $wowdirec = FileRead("c:\wowdir.txt")
		$Form1 = GUICreate("xapu´s realmlister", 577, 55, 192, 124)
		$realm = GUICtrlCreateInput("", 80, 16, 249, 21)
		$Label1 = GUICtrlCreateLabel("set realmlist", 16, 16, 58, 17)
		$create = GUICtrlCreateButton("crear", 344, 16, 105, 25, $WS_GROUP)
		$oficial = GUICtrlCreateButton("realmlist oficial", 456, 16, 105, 25, $WS_GROUP)
		GUISetState(@SW_SHOW)

			While 1
				$nMsg = GUIGetMsg()
				Switch $nMsg
					Case $GUI_EVENT_CLOSE
						Exit
					case $create
						$rlist = GUICtrlRead($realm)
						if FileExists($wowdirec) Then filedelete($wowdirec)
						$realmlist = FileOpen($wowdirec,9)
						filewrite($wowdirec,"set realmlist "& $rlist)
						FileClose($realmlist)
					case $oficial
						if FileExists($wowdirec) Then filedelete($wowdirec)
						$realmlist = FileOpen($wowdirec &"\Data\esES\realmlist.WTF",9)
						filewrite($wowdirec,"set realmlist eu.logon.worldofwarcraft.com"&@CRLF&"set realmlist eu.version.worldofwarcraft.com ")
						FileClose($realmlist)			
				EndSwitch
			WEnd
	EndFunc


Re: realmlister par los que juegan al wow en servidores privados

Publicado: 25 Ene 2010, 06:12
por elekid
lo voy a calar pero en si que es lo que hace?. es para cambiar el realmlist sin abrir el documento o que pecs

Re: realmlister par los que juegan al wow en servidores privados

Publicado: 26 Ene 2010, 11:12
por xapu
exactamente :P

Re: realmlister par los que juegan al wow en servidores privados

Publicado: 04 Feb 2010, 19:44
por gna08
jejeej interesanteee... me acuerdo cuando renegaba hace años con esto ajaj. saludos :smt024