Boton Examinar [solucionado]
Publicado: 01 Mar 2012, 09:34
Buenas, Me dicen Sam y soy de Argentina. 
Estoy creando un scrip que me logee en un juego (diablo2)
el script abre el juego pero necesito que el usuario pueda poder modificar la ruta donde se abre.
Mi idea es que en el form principal halla un boton tipo " Examinar..." el usuario hace click y busca el ejecutable del juego.
Dejo mi codigo:
La parte que mas me importa seria esta:
Quiero que gracias al boton examinar, se guarde el path en una variable y dsp llamar a la funcion run de esta manera:
No me gusta molestar mucho creando millones de temas con preguntas simples.Perdon por las molestias ocasionadas. JURO POR DIOS QUE TRATE DE BUSCAR LA SOLUCION ANTES DE POSTEAR. 
Estoy creando un scrip que me logee en un juego (diablo2)
el script abre el juego pero necesito que el usuario pueda poder modificar la ruta donde se abre.
Mi idea es que en el form principal halla un boton tipo " Examinar..." el usuario hace click y busca el ejecutable del juego.
Dejo mi codigo:
Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$var2="Santy AutoLogin"; este es el nombre de la ventana
#Region ### START Koda GUI section ### Form=C:\Users\Sexy-Geek\Desktop\Form1.kxf
$Form1 = GUICreate($var2, 402, 143, 520, 233, -1,$WS_EX_WINDOWEDGE)
$kill = GUICtrlCreateButton("Kill", 248, 8, 105, 25)
$user = GUICtrlCreateInput("", 101, 32, 121, 24)
$pass = GUICtrlCreateInput("", 101, 70, 121, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$Label1 = GUICtrlCreateLabel("Usuario:", 8, 32, 54, 20)
$Label2 = GUICtrlCreateLabel("Pass:", 8, 72, 54, 20)
$enter = GUICtrlCreateButton("Entrar", 248, 40, 105, 81)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
opt("WinTitleMatchMode",4) ;esto es para poder usar [CLASS]
opt("MouseCoordMode",2); esto es para que me tome las coordenadas en modo cliente, pronto le dare utilidad
$Msg = GUIGetMsg() ;esto lee el boton oprimido
Select
case $msg=$kill ;estas sentencias matan todos los procesos que abre el juego
$killme=WinExists("[CLASS:Diablo II]","")
while $killme=1
$killme=WinExists("[CLASS:Diablo II]","")
WinKill("[class:Diablo II]","")
WEnd
Case $msg=$enter ;esto seria el AutoLogin
$read_user=guictrlread($user)
$read_pass=guictrlread($pass)
Run("C:\Users\Sexy-Geek\Downloads\Diablo 2 by ocularisterribus\DIABLO 2\Diablo II.exe -w -ns -skiptobnet -locale eng") ;esto es lo que quiero poder modificar.
;mi idea es que quede algo asi: run($Directorio_Del_Diablo2)
WinWaitActive("[class:Diablo II]","")
Sleep(1000)
$var1=WinGetTitle("[CLASS:Diablo II]","")
$hwnd= WinGetHandle($var1)
WinSetTitle($var1,"",$var2)
WinSetOnTop($var1,"","")
controlsend("[Class:Diablo II]","",$hwnd,"{tab}"&$read_user&"{tab}"&$read_pass&"{enter}")
Case $msg=$GUI_EVENT_CLOSE; esto cierra
GUIDelete()
ExitLoop
EndSelect
WEnd
La parte que mas me importa seria esta:
Código: Seleccionar todo
Run("C:\Users\Sexy-Geek\Downloads\Diablo 2 by ocularisterribus\DIABLO 2\Diablo II.exe -w -ns -skiptobnet -locale eng")
Quiero que gracias al boton examinar, se guarde el path en una variable y dsp llamar a la funcion run de esta manera:
Código: Seleccionar todo
run($Directorio_Del_Diablo2)
