Code: Select all
chars=12
wr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
wr.Open("GET", "https://www.random.org/passwords/?num=1&len=" chars "&format=plain&rnd=new")
wr.Send()
Var_GenPassword := SubStr(wr.ResponseText,1,chars)
wr := ""
Gui, New
Gui, Font,S12, Consolas
Gui, Add, Edit, w160 R1 ReadOnly , %Var_GenPassword%
Gui, Add, Button, Default w160, OK
Gui, Show,, Password
Var_GenPassword := ""