Bueno, voy a postear el codigo que habia puesto anteriormente pero con el sistema de mysql-dll.
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)
$query = "SELECT id,steamid,password,alias FROM usuarios WHERE alias='" & $usuario & "'"
_MySQL_Real_Query($MysqlConn, $query) ;mysql_query
$res = _MySQL_Store_Result($MysqlConn)
$rows = _MySQL_Num_Rows($res) ; mysql_num_rows
if $rows <> 0 Then ;si el mysql_num_rows no es 0
;$row = _MySQL_Fetch_Row_StringArray($res) ; mysql_fetch_array
;_ArrayDisplay($row)
$datos = _MySQL_Fetch_Result_StringArray($res) ;mysql_fetc_array 2
;_ArrayDisplay($datos)
$usuario_id = $datos[1][0]
$usuario_steamid = $datos[1][1]
$usuario_password = $datos[1][2]
$usuario_alias = $datos[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 _mixes($usuario_alias, $usuario_id, $usuario_password, $usuario_steamid)
GUISetState(@SW_HIDE, $login)
GUICreate("Veritas - v1.0", 211, 162)
GUISetOnEvent($GUI_EVENT_CLOSE,"_cerrarventana")
GUICtrlCreateButton("Cerrar Ventana", 68, 60, 95, 25, 0)
GUICtrlSetOnEvent(-1,"_cerrar")
GUISetState(@SW_SHOW)
EndFunc
; FUNCIONES DE CERRAR EL FORMULARIO
Func _cerrar()
Exit
EndFunc
Ademas, he añadido algunas cositas, como por ejemplo, el que recuerde el usuario y la contraseña si estos cuando han sido verificados son correctos, para que la proxima vez que se habra el programa, no se necesite volver a escribirlos.
Espero que les pueda servir a otros el code.
gracias a los admins por darme la info :P, esta es mi segunda aplicacion, cuando la tenga terminada la posteo, el uso en si, es una aplicacion de escritorio para optimizar las funciones que se podrian hacer en mi pagina web, pero desde el mismo programa, de esta manera, no necesitas ni abrir la web ni nada, todo por ser vagos xDD.
.
