Bueno, gracias por decirme eso, ya lo he conseguido que me lo vaya refrescando, el problema que me ha surgido ahora, es que no me deja cerrar la ventana, es como si estubiera trabajando y no me deja cerrarla.
Código: Seleccionar todo
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.0
Author: MaTaXeToS
Script Function:
Veritas CSSMIXES.es.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiImageList.au3>
#include <GuiButton.au3>
#include <array.au3>
#include "mysql.au3"
_MySQL_InitLibrary()
Dim $MysqlConn = _MySQL_Init()
Dim $connected = _MySQL_Real_Connect($MysqlConn,"localhost","root","","cssmixes")
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$login = GUICreate("Veritas - v1.0", 246, 154, 267, 211)
$login_grupo1 = GUICtrlCreateGroup("Login", 8, 0, 233, 129)
; MIRO SI YA EXISTE LOS REGISTROS DEL USUARIO Y LA CONTRASEÑA
$reguser = RegRead("HKEY_CURRENT_USER\Software\CSSMIXES", "usuario")
$regpassword = RegRead("HKEY_CURRENT_USER\Software\CSSMIXES", "password")
If $reguser <> "" Then
$inputuser = GUICtrlCreateInput($reguser, 104, 24, 121, 21)
Else
$inputuser = GUICtrlCreateInput("", 104, 24, 121, 21)
EndIf
If $regpassword <> "" Then
$inputpassword = GUICtrlCreateInput($regpassword, 104, 56, 121, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
Else
$inputpassword = GUICtrlCreateInput("", 104, 56, 121, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
EndIf
$texto_usuario = GUICtrlCreateLabel("Usuario", 24, 24, 40, 17)
$texto_password = GUICtrlCreateLabel("Contraseña", 24, 56, 58, 17)
$identificar = GUICtrlCreateButton("Identificar", 40, 88, 75, 25, $WS_GROUP)
$cerrar = GUICtrlCreateButton("Cerrar", 128, 88, 75, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_cerrar")
GUICtrlSetOnEvent($cerrar, "_cerrar")
GUICtrlSetOnEvent($identificar, "_identificar")
$estado = _GUICtrlStatusBar_Create($login)
_GUICtrlStatusBar_SetSimple($estado)
_GUICtrlStatusBar_SetBkColor($estado, 0xF0FBFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
; FUNCION PARA MANTENER LA VENTANA ACTIVA
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _cerrarventana()
GUIDelete(@GUI_WinHandle)
EndFunc
; FUNCION DEL IDENTIFICADOR
Func _identificar()
$erroruser = 0
$errorpassword = 0
$errornoexiste = 0
$errorpwmal = 0
$usuario = GUICtrlRead($inputuser)
$pass = GUICtrlRead($inputpassword)
If $usuario == "" Then
$erroruser = 1
EndIf
If $pass == "" Then
$errorpassword = 1
EndIf
; NO HA INTRODUCIDO NADA
If $erroruser == 1 Then
If $errorpassword == 1 Then
_GUICtrlStatusBar_SetText($estado, " Porfavor introduzca usuario y contraseña")
EndIf
EndIf
; HA INTRODUCIDO EL USER PERO NO LA PW
If $erroruser == 0 Then
If $errorpassword == 1 Then
_GUICtrlStatusBar_SetText($estado, " Porfavor introduzca la contraseña")
EndIf
EndIf
; HA INTRODUCIDO LA PW PERO NO EL USER
If $erroruser == 1 Then
If $errorpassword == 0 Then
_GUICtrlStatusBar_SetText($estado, " Porfavor introduzca el contraseña")
EndIf
EndIf
; SI NO SE HA DETECTADO NINGUN ERROR
If $errorpassword == 0 Then
If $erroruser == 0 Then
_login($usuario,$pass)
EndIf
EndIf
EndFunc
; FUNCION DEL LOGIN
Func _login($usuario,$pass)
$cons_usuario = "SELECT id,steamid,password,alias FROM usuarios WHERE alias='" & $usuario & "'"
_MySQL_Real_Query($MysqlConn, $cons_usuario) ;mysql_query
$res_usuario = _MySQL_Store_Result($MysqlConn)
$numusuario = _MySQL_Num_Rows($res_usuario) ; mysql_num_rows
if $numusuario <> 0 Then ;si el mysql_num_rows no es 0
;$row = _MySQL_Fetch_Row_StringArray($res) ; mysql_fetch_array
;_ArrayDisplay($row)
$datos_usuario = _MySQL_Fetch_Result_StringArray($res_usuario) ;mysql_fetc_array 2
;_ArrayDisplay($datos)
$usuario_id = $datos_usuario[1][0]
$usuario_steamid = $datos_usuario[1][1]
$usuario_password = $datos_usuario[1][2]
$usuario_alias = $datos_usuario[1][3]
if $usuario_password == $pass Then
_GUICtrlStatusBar_SetText($estado, " TODO OK")
_escribirregistrousuario($usuario_alias)
_escribirregistropassword($usuario_password)
_mixes($usuario_alias, $usuario_id, $usuario_password, $usuario_steamid)
_alertasonido()
Else
_GUICtrlStatusBar_SetText($estado, " CONTRASEÑA INCORRECTA")
EndIf
Else
_GUICtrlStatusBar_SetText($estado, " No existe el usuario")
EndIf
EndFunc
Func _escribirregistrousuario($usuario_alias)
$reguser = RegRead("HKEY_CURRENT_USER\Software\CSSMIXES", "usuario")
If $reguser == "" Then
RegWrite("HKEY_CURRENT_USER\Software\CSSMIXES", "usuario", "REG_SZ", $usuario_alias)
Else
If $reguser <> $usuario_alias Then
RegWrite("HKEY_CURRENT_USER\Software\CSSMIXES", "usuario", "REG_SZ", $usuario_alias)
EndIf
EndIf
EndFunc
Func _escribirregistropassword($usuario_password)
$regpassword = RegRead("HKEY_CURRENT_USER\Software\CSSMIXES", "password")
If $regpassword == "" Then
RegWrite("HKEY_CURRENT_USER\Software\CSSMIXES", "password", "REG_SZ", $usuario_password)
Else
If $regpassword <> $usuario_password Then
RegWrite("HKEY_CURRENT_USER\Software\CSSMIXES", "password", "REG_SZ", $usuario_password)
EndIf
EndIf
EndFunc
Func _alertasonido()
SoundSetWaveVolume(100)
SoundPlay("bin\ding.wav")
EndFunc
Func _mostrarlobbys($listview)
GUICtrlDelete($listview)
$listview = GUICtrlCreateListView( "Lobby | Fiabilidad | Rondas | Mapa | Punt. | Jugadores | Estado", 10, 10, 572, 230)
$cons_lobbys = "SELECT id,nombre,fiabilidad,mapa,maxplayers,mr,equipoa,equipob,estado FROM lobbys ORDER BY id ASC"
_MySQL_Real_Query($MysqlConn, $cons_lobbys) ;mysql_query
$res_lobbys = _MySQL_Store_Result($MysqlConn)
$numlobbys = _MySQL_Num_Rows($res_lobbys) ; mysql_num_rows
if $numlobbys <> 0 Then ;si el mysql_num_rows no es 0
;$row = _MySQL_Fetch_Row_StringArray($res) ; mysql_fetch_array
;_ArrayDisplay($row)
$i = 1
While $i <= $numlobbys
$datos_lobbys = _MySQL_Fetch_Result_StringArray($res_lobbys) ;mysql_fetc_array 2
$cons_players = "SELECT id FROM lobbys_players WHERE id_lobby='" & $datos_lobbys[$i][0] & "'"
_MySQL_Real_Query($MysqlConn, $cons_players) ;mysql_query
$res_players = _MySQL_Store_Result($MysqlConn)
$numplayers = _MySQL_Num_Rows($res_players) ; mysql_num_rows
;_ArrayDisplay($datos)
$lobbyid = "#" & $datos_lobbys[$i][0] & " - " & $datos_lobbys[$i][1]
$fiabilidad = $datos_lobbys[$i][2] & "%"
If $datos_lobbys[$i][5] <> "Ninguno" Then
$rondas = "MR" & $datos_lobbys[$i][5]
Else
$rondas = "Ninguno"
EndIf
$mapa = $datos_lobbys[$i][3]
$punt = $datos_lobbys[$i][6] & "-" & $datos_lobbys[$i][7]
$jugadores = $numplayers & "/" & $datos_lobbys[$i][4]
$estado = $datos_lobbys[$i][8]
GUICtrlCreateListViewItem($lobbyid & '|' & $fiabilidad & '|' & $rondas & '|' & $mapa & '|' & $punt & '|' & $jugadores & '|' & $estado, $listview)
$i = $i + 1
WEnd
EndIf
EndFunc
Func _mixes($usuario_alias, $usuario_id, $usuario_password, $usuario_steamid)
GUISetState(@SW_HIDE, $login)
$lobbys = GUICreate("Lobbys", 590, 250, 192, 124)
$listview = GUICtrlCreateListView( "Lobby | Fiabilidad | Rondas | Mapa | Punt. | Jugadores | Estado", 10, 10, 572, 230)
GUISetOnEvent($GUI_EVENT_CLOSE, "_cerrar")
GUISetState(@SW_SHOW)
MantenerVenta($listview)
EndFunc
Func MantenerVenta($listview)
while 1
if winactive("Lobbys") then
_mostrarlobbys($listview)
endif
sleep(10000)
Wend
EndFunc
; FUNCIONES DE CERRAR EL FORMULARIO
Func _cerrar()
Exit
EndFunc
Que estoy haciendo mal? siento ser tan torpe xD, es que es la segunda aplicacion que hago en autoIT.
