By G13AoUsTiS on Sep 09, 2007AutoLogin System Updated now with Dialog;D
dialog Xlogin {
title "G13AoUsTiS AutoLogin System"
size -1 -1 122 120
option dbu
text "Username:", 1, 16 48 41 8, center
text "Password :", 2, 16 64 41 8, center
edit %username, 3, 56 48 50 10, autohs
edit %password, 4, 56 64 50 10, pass autohs
radio "On", 5, 24 8 26 10,
radio "Off", 6, 72 8 26 10
box "Auto Login On Connect", 7, 8 0 106 26
box "Enter Your Username And Password", 8, 8 32 106 50
button "Done", 10, 8 95 107 12, ok
}
on *:dialog:Xlogin:init:*: {
if (%autologin == ON) { /did -c Xlogin 5 | /did -e Xlogin 3 | /did -e Xlogin 4 | /did -e Xlogin 1 | /did -e Xlogin 2 }
if (%autologin == OFF) { /did -c Xlogin 6 }
}
on *:dialog:Xlogin:sclick:*: {
if ($did == 5) { /set %autologin ON | /did -e Xlogin 3 | /did -e Xlogin 4 | /did -e Xlogin 1 | /did -e Xlogin 2 }
if ($did == 6) { /set %autologin OFF }
}
on *:dialog:Xlogin:edit:*: {
if ($did == 3) { /set %username $did(Xlogin,3) }
if ($did == 4) { /set %password $did(Xlogin,4) }
}
on *:CONNECT: {
if (%autologin == ON) { /msg x@channels.undernet.org login %username %password | /mode $me +x }
}
menu channel {
-
X AutoLogin: /dialog -m Xlogin Xlogin
}
i improved it a bit, i made it an ini file, and also, used $style to put a check next to on or off
menu * {
-
Auto Login
.$iif($group(#autologin).status == on,$style(1) ON,ON) {
writeini login.ini Login Name $$?=\"User name on Undernet?\"
writeini login.ini Login Pass $$?=\"Pass used with Undernet?\"
echo 4,10***0 Undernet Login Enabled For $readini(login.ini,login,name)
enable #autologin
}
.$$iif($group(#autologin).status == off,$style(1) OFF,OFF) {
echo 4,10***0 Undernet Login Disabled For $readini(login.ini,login,name)
disable #autologin
}
.Advertise:amsg 7Undernet AutoLogin System By 10G13AoUsTiS
}
#autologin off
on *:connect:{
msg X@channels.undernet.org login $readini(login.ini,login,name) $readini(login.ini,login,pass)
mode $me +x
}
#autologin end