BorderGame
dBase ((Rudimentale)Password)) - Versione stampabile

+- BorderGame (https://www.bordergame.it)
+-- Forum: Programmazione (/Forum-Programmazione--158)
+--- Forum: Programmazione (/Forum-Programmazione)
+---- Forum: Autoit (/Forum-Autoit)
+---- Discussione: dBase ((Rudimentale)Password)) (/Thread-dBase-Rudimentale-Password)



dBase ((Rudimentale)Password)) - Lawliet - 13-02-2012 03:51 PM

Ecco il source code:
Citazione:#RequireAdmin
#cs
;Autore: Luca
;Progetto: Last#
;Lingua: Italiano
;Licenza: Free/Open source
#ce

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("dBase - Password ", 203, 188, 493, 228)
$Input1 = GUICtrlCreateInput("", 8, 32, 185, 21)
$Input2 = GUICtrlCreateInput("", 8, 104, 185, 21)
$MyButton1 = GUICtrlCreateButton("Salva dati", 8, 136, 180, 30, BitOR($BS_NOTIFY,$BS_FLAT))
$Label1 = GUICtrlCreateLabel("Username/Mail", 8, 8, 76, 17)
$Label2 = GUICtrlCreateLabel("Password", 8, 64, 50, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Mybutton1()
Filewrite("Dati",GUICtrlRead($input1) & "")
Filewrite("Dati",guictrlread($input2))
EndSwitch
WEnd