Logins-PasswordsTemplatewithRButton

#Persistent
Gui +LastFound +OwnDialogs +AlwaysOnTop    ;This sets InputBox as AlwaysOnTop
;InputBox, OutputVar, Title, Prompt, HIDE, Width, Height, X position, Y position, Locale, Timeout, Default
InputBox, Password, Please Enter Your Password, (Your input will be hidden),HIDE, 240, 140, 480, 300, Locale, 10 ;Locale means if the Locale parameter is the word Locale, then the OK and Cancel buttons are named according to the current user's locale (for example, Abbrechen instead of Cancel on a German OS). ;10 means the Timeout is 10 seconds. ;The Default is the default already ready written password as an example.
If Password = 12 stars
  return
Else
  ;Reload
    ExitApp
return

/*
If Password <> 19   ;If Password <> accepts only numerical passwords. Replace the second instance of Password in this line with your desired password.
 ExitApp
Return
*/

;End of Auto-Execute section.

;The rest of your script goes down here.
RButton::
Menu,Logins,Add,Google.com,Google.com
Menu,Logins,Add,facebook.com,facebook.com
Menu,Logins,Add,RegOrg,RegOrg
Menu,Logins,Add,Secret Org,Secret.org

Menu,facebook.com,Add,1@Facebook,1@Facebook
Menu,Logins,Add,Yahoo Mails,YahooMails

Menu,Yahoo Mails,Add,1@yahoo,1@yahoo
Menu,Yahoo Mails,Add,2@yahoo,2@yahoo
Menu,Logins,Add,facebook.com,:facebook.com
Menu,Logins,Add,Yahoo Mails,:Yahoo Mails

Menu,Logins,Show
return

Google.com:
ClipAll := ClipboardAll
clipboard := ""
SendInput, login{Tab}
Sendinput, password{return}
Sleep, 200
Clipboard := ClipAll
Return

facebook.com:
1@Facebook:
ClipAll := ClipboardAll
clipboard := ""
SendInput, login{Tab}
Sendinput, {Text}password
SendInput, {Tab}{Enter}
Sleep, 200
Clipboard := ClipAll
Return

YahooMails:
1@yahoo:
:C*:1@yah:: ;Y4h00 M411
ClipAll := ClipboardAll
clipboard := ""
SendInput, 1@yahoo.com{Enter} ; 0 = zero
Sleep, 2600
MsgBox, 4097, Wait!, Wait! ;AlwaysOnTopMsgBox
IfMsgBox, Cancel
    return
IfMsgBox, OK
:C*T:,1@yah::
SendInput, {Raw}
(`<>*:;?~.&+_,"`%#!
password password password password password password
)
Send, {Enter}
Sleep, 200
Clipboard := ClipAll
return


2@yahoo:
:C*:2@yah:: ;Y4h00 M411
ClipAll := ClipboardAll
clipboard := ""
SendInput, 2@yahoo.com{Enter} ; 0 = zero
Sleep, 2600
MsgBox, 4097, Wait!, Wait! ;AlwaysOnTopMsgBox
IfMsgBox, Cancel
    return
IfMsgBox, OK
:C*T:,2@yah::
SendInput, {Raw}
(`<>*:;?~.&+_,"`%#!
password password password password password password
)
Send, {Enter}
Sleep, 200
Clipboard := ClipAll
return

Secret.org:
ClipAll := ClipboardAll
clipboard := ""
SendInput, login{Tab}
Sendinput, {Text}
(`<>*:;?~.&+_,"`%#!
Very long long long password
)
SendInput, {Tab}{Enter}
Sleep, 200
Clipboard := ClipAll
Return

RegOrg:
:*:@reg::
ClipAll := ClipboardAll
clipboard := ""
SendInput, 1reg@reg.org{Tab}
Sleep, 100
SendInput, {Text}
(`<>*:;?~.&+_,"`%#!
pass 1 pass 1
)
{
;RegRead, OutputVar, |RootKey,             |SubKey,      |ValueName
RegRead, Content, HKLM, HARDWARE\DESCRIPTION\System\BIOS, SystemProductName
Sendinput {Text} %Content%
}
Sleep, 500
SendInput, {Text}
(`<>*:;?~.&+_,"`%#!
 pass 2 pass 2
)
Send, {Enter}
Clipboard := ClipAll
return


Esc::
    ExitApp