Sign in to follow this  
Followers 0

Desktop Locker

37 posts in this topic

#1 ·  Posted

If you do not want anyone to interfere with your Comp. You must use this program. :)

#NoTrayIcon
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ScrollBarConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#Include <GuiEdit.au3>
#include <Misc.au3>

While 1
    $code = InputBox("Desktop Locker", "Safety. Please reset your password."&@CRLF&@CRLF&"Enter:New Password", Default, "", 250, 143, 370, 300)
    If @error Then
    Exit
    ElseIf $code = '' Then
        ToolTip("Please enter your password in the spaces.", 370, 300, "Desktop Locker", 1, 0)
        Sleep(3000)
        ToolTip("")
    Else
        $plate = StringReplace($code, "|", @CRLF)
        $Password = $plate
        ExitLoop
    EndIf
WEnd

$btn = MsgBox(36, "Desktop Locker", "You want to lock the screen with this code for?.")
If $btn = 6 Then
$Locked = GUICreate("Desktop Locker", @DesktopWidth+3, @DesktopHeight, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
GUISetBKColor(0x000000, $Locked)

$Progress1 = GUICtrlCreateProgress(440, 415, 150, 10)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

GUICtrlCreatePic("lock.gif", 430, 130, 164, 144)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

$WrongPw = GUICtrlCreateEdit("", 10, 14, 300, @DesktopHeight - 14, BitOR($ES_AUTOVSCROLL,$ES_READONLY), 0)
$InputPw = GUICtrlCreateInput("", @DesktopWidth/2-100, @DesktopHeight/2-10, 200, 20, BitOR($ES_CENTER, $ES_PASSWORD), 0)

GUICtrlCreateLabel("Desktop Locker", @DesktopWidth/2-125, @DesktopHeight/2-95, 260, 50, $ES_CENTER, 0)
GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)

GUICtrlCreateLabel("Please enter a password to unlock the screen.", @DesktopWidth/2-185, @DesktopHeight/2-50, 400, 20, $ES_CENTER, 0)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)

GUICtrlSetFont($WrongPw, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor($WrongPw, 0xFFFFFF)
GUICtrlSetBkColor($WrongPw, 0x000000)
GUICtrlSetFont($InputPw, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor($InputPw, 0xFFFFFF)
GUICtrlSetBkColor($InputPw, 0x000000)

WinSetState("[CLASS:Shell_TrayWnd]","", @SW_HIDE)
GUISetState(@SW_SHOW, $Locked)
_MouseTrap(@DesktopWidth,@DesktopHeight)

While 1
    If _IsPressed("0D") Then
        If GUICtrlRead($InputPw) == '' Then
            ToolTip("Forgot your password. Please enter the correct", 509, 375, "", 1, 3)
            Sleep(3000)
            ToolTip("")
        ElseIf GUICtrlRead($InputPw) == $Password Then
            For $i = 0 To 100 Step 10
                GUICtrlSetData($Progress1, $i)
                Sleep(100)
            Next
            Sleep(800)
            GUICtrlSetData($Progress1, 100)
            GUISetState(@SW_HIDE, $Locked)
            WinSetState("[CLASS:Shell_TrayWnd]","", @SW_SHOW)
            _MouseTrap()
            GUICtrlSetData($WrongPw, "")
            GUICtrlSetData($InputPw, "")
            ExitLoop
        Else
            GUICtrlSetData($WrongPw, _RandomMsg() & @CRLF & GUICtrlRead($WrongPw))
            ToolTip("The password is incorrect ..try again.", 509, 375, "", 3, 3)
            Sleep(2000)
            ToolTip("")
            GUICtrlSetData($InputPw, "")
        EndIf
    EndIf
    If Not WinActive("Desktop Locker") Then
        WinActivate("Desktop Locker")
        _MouseTrap(@DesktopWidth,@DesktopHeight)
        GUICtrlCreateLabel("MESS WITH THE BEST DIE LIKE THE REST!", Random(@DesktopWidth-540), Random(@DesktopHeight-30),540,30)
        GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
        GUICtrlSetColor(-1, 0xFF0000)
        GUICtrlSetBkColor(-1, 0x000000)
    EndIf
Wend
Else
    Exit
EndIf

Func _RandomMsg()
    Local $RandomMsg[10]
    $RandomMsg[0] = "Wrong Password!"
    $RandomMsg[1] = "Step away from the computer."
    $RandomMsg[2] = "Your not Jim."
    $RandomMsg[3] = "Give Up!"
    $RandomMsg[4] = "Don't Touch!"
    $RandomMsg[5] = "Please Enter Correct Password."
    $RandomMsg[6] = "Try Again!"
    $RandomMsg[7] = "Stop pushing my buttons."
    $RandomMsg[8] = "INS! INS!"
    $RandomMsg[9] = "Ctrl-Alt-Dipshit"
    Return $RandomMsg[Random(10)]
EndFunc
1 person likes this

Share this post


Link to post
Share on other sites



#2 ·  Posted

Nice program in the list of screen locks :) .

But when the screen is locked, I still see a small strip of my wallpaper: just modify this code:

$Locked = GUICreate("Desktop Locker", @DesktopWidth+3, @DesktopHeight, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)

;Should be:
$Locked = GUICreate("Desktop Locker", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST)

And it would be nice if the progress bar is a bit higher on the screen, because the label overlaps the progress and vice-versa. Just modify the progress code:

$Progress1 = GUICtrlCreateProgress((@DesktopWidth - 400) /2, @DesktopHeight/2 + 20, 400, 10)

Now it's a bit bigger and it doesn't overlap the label or whatever on my 1280x1024px screen.

Another remark: why would you set the data of the input and wrong password label to nothing if the program is just gonna closed??? And why would you set the data of the progress to 100 if it's already 100???

I don't want to nag a lot, but you just have useless functions used and you could make your code shorter :)

P.S. I ran Tidy on it because it was not so clear for me.

Code after I modified it:

#NoTrayIcon
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ScrollBarConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <GuiEdit.au3>
#include <Misc.au3>

While 1
    $code = InputBox("Desktop Locker", "Safety. Please reset your password." & @CRLF & @CRLF & "Enter:New Password", Default, "", 250, 143, 370, 300)
    If @error Then
        Exit
    ElseIf $code = '' Then
        ToolTip("Please enter your password in the spaces.", 370, 300, "Desktop Locker", 1, 0)
        Sleep(3000)
        ToolTip("")
    Else
        $plate = StringReplace($code, "|", @CRLF)
        $Password = $plate
        ExitLoop
    EndIf
WEnd

$btn = MsgBox(36, "Desktop Locker", "You want to lock the screen with this code (" & $Password & ")? ")
If $btn = 6 Then
    $Locked = GUICreate("Desktop Locker", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST)
    GUISetBkColor(0x000000, $Locked)

    $Progress1 = GUICtrlCreateProgress((@DesktopWidth - 400) / 2, @DesktopHeight / 2 + 20, 400, 10)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

    GUICtrlCreatePic("lock.gif", 430, 130, 164, 144)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

    $WrongPw = GUICtrlCreateEdit("", 10, 14, 300, @DesktopHeight - 14, BitOR($ES_AUTOVSCROLL, $ES_READONLY), 0)
    $InputPw = GUICtrlCreateInput("", @DesktopWidth / 2 - 100, @DesktopHeight / 2 - 10, 200, 20, BitOR($ES_CENTER, $ES_PASSWORD), 0)

    GUICtrlCreateLabel("Desktop Locker", @DesktopWidth / 2 - 125, @DesktopHeight / 2 - 95, 260, 50, $ES_CENTER, 0)
    GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)

    GUICtrlCreateLabel("Please enter a password to unlock the screen.", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)

    GUICtrlSetFont($WrongPw, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor($WrongPw, 0xFFFFFF)
    GUICtrlSetBkColor($WrongPw, 0x000000)
    GUICtrlSetFont($InputPw, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor($InputPw, 0xFFFFFF)
    GUICtrlSetBkColor($InputPw, 0x000000)

    WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_HIDE)
    GUISetState(@SW_SHOW, $Locked)
    _MouseTrap(@DesktopWidth, @DesktopHeight)

    While 1
        If _IsPressed("0D") Then
            If GUICtrlRead($InputPw) == '' Then
                ToolTip("Forgot your password. Please enter the correct", 509, 375, "", 1, 3)
                ToolTip("")
            ElseIf GUICtrlRead($InputPw) == $Password Then
                For $i = 0 To 100 Step 10
                    GUICtrlSetData($Progress1, $i)
                    Sleep(50)
                Next
                GUISetState(@SW_HIDE, $Locked)
                WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_SHOW)
                _MouseTrap()
                ExitLoop
            Else
                GUICtrlSetData($WrongPw, _RandomMsg() & @CRLF & GUICtrlRead($WrongPw))
                ToolTip("The password is incorrect ..try again.", 509, 375, "", 3, 3)
                Sleep(2000)
                ToolTip("")
                GUICtrlSetData($InputPw, "")
            EndIf
        EndIf
        If Not WinActive("Desktop Locker") Then
            WinActivate("Desktop Locker")
            _MouseTrap(@DesktopWidth, @DesktopHeight)
            GUICtrlCreateLabel("MESS WITH THE BEST DIE LIKE THE REST!", Random(@DesktopWidth - 540), Random(@DesktopHeight - 30), 540, 30)
            GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
            GUICtrlSetColor(-1, 0xFF0000)
            GUICtrlSetBkColor(-1, 0x000000)
        EndIf
    WEnd
Else
    Exit
EndIf

Func _RandomMsg()
    Local $RandomMsg[10]
    $RandomMsg[0] = "Wrong Password!"
    $RandomMsg[1] = "Step away from the computer."
    $RandomMsg[2] = "Your not Jim."
    $RandomMsg[3] = "Give Up!"
    $RandomMsg[4] = "Don't Touch!"
    $RandomMsg[5] = "Please Enter Correct Password."
    $RandomMsg[6] = "Try Again!"
    $RandomMsg[7] = "Stop pushing my buttons."
    $RandomMsg[8] = "INS! INS!"
    $RandomMsg[9] = "Ctrl-Alt-Dipshit"
    Return $RandomMsg[Random(10)]
EndFunc   ;==>_RandomMsg

PowerSlide2UnlockiPhone look-a-like program you can use to lock your pc, you can't access your desktop again until the password is entered and the slider slided to the right. (really proud of it)-- After a time AutoIt and Windows, I switched to Mac. Don't expect me to answer anymore.

Share this post


Link to post
Share on other sites

#3 ·  Posted

A nice script!thanks!


Try to face everything troubles you.nothing is impossible!

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Hello,

I´m new at Autoit (and new at programming), and i´m working on a script that has nothing to do with computer lock. But I want to do something that this Desktop Locker does: avoid people to stop the script (disable access to the task manager).

When running the Desktop Locker, if I hit CTRL-ALT-DEL and click Task Manager, the Task Manager windows appears, but the Desktop Locker screen soon goes over it, making it impossible to stop any task.

Could any one show me the part of the script that makes it? I´d like to put it in my script.

Thank you all.

Edited by programer

Share this post


Link to post
Share on other sites

#5 ·  Posted

Probably best to have a look at the Help File and learn about GUI creation.


UDF List:

 

_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

 

 

Updated: 02/04/2015

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

Hey New To This But This Desktop Locker Is Great ! But I Spotted A Few Errors So I Clean It Up Abit Now Try It :)

#NoTrayIcon
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ScrollBarConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <GuiEdit.au3>
#include <Misc.au3>

While 1
    $code = InputBox("Desktop Locker", "Safety. Please Reset Your Password." & @CRLF & @CRLF & "Enter: New Password", Default, "", 350, 150, 200, 400)
    If @error Then
        Exit
    ElseIf $code = '' Then
        ToolTip("Please Enter Your Password In The Spaces.", 370, 300, "Desktop Locker", 1, 0)
        Sleep(3000)
        ToolTip("")
    Else
        $plate = StringReplace($code, "|", @CRLF)
        $Password = $plate
        ExitLoop
    EndIf
WEnd

$btn = MsgBox(36, "Desktop Locker", "You Want To Lock The Screen With This Code (" & $Password & ")? ")
If $btn = 6 Then
    $Locked = GUICreate("Desktop Locker", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST)
    GUISetBkColor(0x000000, $Locked)

    $Progress1 = GUICtrlCreateProgress((@DesktopWidth - 400) / 2, @DesktopHeight / 2 + 20, 400, 10)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

    GUICtrlCreatePic("lock.gif", 430, 130, 164, 144)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

    $WrongPw = GUICtrlCreateEdit("", 10, 14, 300, @DesktopHeight - 14, BitOR($ES_AUTOVSCROLL, $ES_READONLY), 0)
    $InputPw = GUICtrlCreateInput("", @DesktopWidth / 2 - 100, @DesktopHeight / 2 - 10, 200, 20, BitOR($ES_CENTER, $ES_PASSWORD), 0)

    GUICtrlCreateLabel("Desktop Locker", @DesktopWidth / 2 - 125, @DesktopHeight / 2 - 95, 260, 50, $ES_CENTER, 0)
    GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)

    GUICtrlCreateLabel("Please Enter A Password To Unlock The Screen.", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)

    GUICtrlSetFont($WrongPw, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor($WrongPw, 0xFFFFFF)
    GUICtrlSetBkColor($WrongPw, 0x000000)
    GUICtrlSetFont($InputPw, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor($InputPw, 0xFFFFFF)
    GUICtrlSetBkColor($InputPw, 0x000000)

    WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_HIDE)
    GUISetState(@SW_SHOW, $Locked)
    _MouseTrap(@DesktopWidth, @DesktopHeight)

    While 1
        If _IsPressed("0D") Then
            If GUICtrlRead($InputPw) == $Password Then
               GUICtrlSetData($InputPw, "")
               GUICtrlCreateLabel("Correct Password ! Unlocking...", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
               GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
               GUICtrlSetColor(-1, 0x66FF00)
                For $i = 1 To 100 Step 2
                    GUICtrlSetData($Progress1, $i)
                    Sleep(50)
                Next
               GUISetState(@SW_HIDE, $Locked)
               WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_SHOW)
                _MouseTrap()
                GUICtrlSetData($InputPw, "")
                ExitLoop
            Else
            GUICtrlSetData($InputPw, "")
               GUICtrlCreateLabel("Incorrect Password ! Please Try Again...", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
               GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
               GUICtrlSetColor(-1, 0xFF0000)
            GUICtrlSetData($InputPw, "")
            EndIf
        EndIf
        If Not WinActive("Desktop Locker") Then
            GUICtrlSetData($InputPw, "")
               GUICtrlCreateLabel("Trying To Hack This? :(", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
               GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
               GUICtrlSetColor(-1, 0xFF0000)
            GUICtrlSetData($InputPw, "")
            WinActivate("Desktop Locker")
            _MouseTrap(@DesktopWidth, @DesktopHeight)
        EndIf
    WEnd
Else
    Exit
EndIf

FeedBack Would Be Great :)

Edited by Gedzy

Share this post


Link to post
Share on other sites

#7 ·  Posted

Gedzy,

Works good, but one remark: Why do you use in the For loop for 'unlocking' Step 2???

And if you also have Sleep(50), you get 50*50 = 2500 ms = 2,5 seconds for 'unlocking'.

That's way too long I think...


PowerSlide2UnlockiPhone look-a-like program you can use to lock your pc, you can't access your desktop again until the password is entered and the slider slided to the right. (really proud of it)-- After a time AutoIt and Windows, I switched to Mac. Don't expect me to answer anymore.

Share this post


Link to post
Share on other sites

#8 ·  Posted

Gedzy,

Works good, but one remark: Why do you use in the For loop for 'unlocking' Step 2???

And if you also have Sleep(50), you get 50*50 = 2500 ms = 2,5 seconds for 'unlocking'.

That's way too long I think...

Hey There :) well It's to display the text when the password is correct and yeah your right I just like looking at loader load up. I'm also looking for a stronger way for the program to lock the screen I.E. the user may use Ctrl + Alt + Del or Logoff /Try something else - which may cause the program to stop:

WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_HIDE)
    GUISetState(@SW_SHOW, $Locked)
    _MouseTrap(@DesktopWidth, @DesktopHeight)

If Not WinActive("Desktop Locker") Then

;other code

GUICtrlSetData($InputPw, "")
            WinActivate("Desktop Locker")
            _MouseTrap(@DesktopWidth, @DesktopHeight)

Any help? Thanks Gedzy :)

Share this post


Link to post
Share on other sites

#9 ·  Posted

Great script, but is it possible to make it transparent?

I'm kinda new to this.

Share this post


Link to post
Share on other sites

#10 ·  Posted

yorba,

How do you mean to make it tranparent?? If you mean what I think, you have to use WinSetTrans($Locked, "", [transparency you want to have from 0-255, by example 240]) before GUISetState(@SW_SHOW, $Locked). :)


PowerSlide2UnlockiPhone look-a-like program you can use to lock your pc, you can't access your desktop again until the password is entered and the slider slided to the right. (really proud of it)-- After a time AutoIt and Windows, I switched to Mac. Don't expect me to answer anymore.

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

yorba,

How do you mean to make it tranparent?? If you mean what I think, you have to use WinSetTrans($Locked, "", [transparency you want to have from 0-255, by example 240]) before GUISetState(@SW_SHOW, $Locked). :)

Ok, will this remove the black background on the lock screen so that I can see my desktop? Sorry if my English is bad.

Edit: It didn't work. Did I do it wrong?

WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_HIDE)
    WinSetTrans("Shell_TrayWnd", "", 10)
    GUISetState(@SW_SHOW, $Locked)
    _MouseTrap(@DesktopWidth, @DesktopHeight)
Edited by yorba

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

:) Update

Desktop_Locker.7z v0.2 (+Shortcut, +Startup), screenshot

Setting

970e74f8d5d9.png

Locks the screen

2a57dfcd91d0.png

Edited by AZJIO

Share this post


Link to post
Share on other sites

#13 ·  Posted

Hey Back Again :) Urm Ive added more to the Desktop Locker:

1) System Information Shows

2) Transparency Set Thank to " "

3) Improve Security Can only be closed on Log-off or Closed Remotely

Code:

#NoTrayIcon
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ScrollBarConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <GuiEdit.au3>
#include <Misc.au3>
#include <WinAPI.au3>
$var0 = String(@ComputerName)
$var1 = String(@LogonServer)
$var2 = String(@OSVersion)
$var3 = String(@HomeDrive & "\")
$var4 = String(@HomeShare)
IF $var4 = "" Then
    $var4 = String("No HomeShare Exist")
Else
    $var4 = String(@HomeShare)
EndIF
$var5 = String(@IPAddress1)
$var6 = String(@LogonDomain)
$var7 = String(@LogonServer)
$var8 = string(@OSServicePack)
IF $var8 = "" Then
    $var8 = String("No OSServicePack Found")
Else
    $var8 = string(@OSServicePack)
Endif
$var9 = String(@UserName & "," & " " & "Based @" & " " & @UserProfileDir)
While 1
      $code =  InputBox("Desktop Locker", "Computer Information:" & @CRLF & @CRLF & "Logon Server: " & $var1 & @CRLF & "OSVersion: " & $var2 & @CRLF & "Home Drive: " & $var3 & @CRLF  & "Home Share: " & $var4 &@CRLF & "IP Address: " & $var5 & @CRLF & "Logon Domain: " & $var6 & @CRLF & "Logon Sever: " & $var7 & @CRLF & "Server Pack: " & $var8 & @CRLF & "Username: " & $var9 & @CRLF & @CRLF & "Safety. Please Reset Your Password." & @CRLF & @CRLF & "Enter: New Password For " & $var0, Default, "*", 300, 300, 300, 300, 60)
    If @error Then
        Exit
    ElseIf $code = '' Then
        ToolTip("Please Enter Your Password In The Spaces.", 370, 300, "Desktop Locker", 1, 0, BitOR($ES_CENTER, $ES_PASSWORD), "", "*")
    Else
        $plate = StringReplace($code, "*", @CRLF)
        $Password = $plate
        ExitLoop
    EndIf
WEnd
$btn = 0
If $btn = 0 Then
    $Locked = GUICreate("Desktop Locker", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST)
    GUISetBkColor(0x000000, $Locked)
    $Progress1 = GUICtrlCreateProgress((@DesktopWidth - 400) / 2, @DesktopHeight / 2 + 20, 400, 10)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlCreatePic("lock.gif", 430, 130, 164, 144)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    $WrongPw = GUICtrlCreateEdit("", 10, 14, 300, @DesktopHeight - 14, BitOR($ES_AUTOVSCROLL, $ES_READONLY), 0)
    $InputPw = GUICtrlCreateInput("", @DesktopWidth / 2 - 100, @DesktopHeight / 2 - 10, 200, 20, BitOR($ES_CENTER, $ES_PASSWORD), 0)
    GUICtrlCreateLabel("Desktop Locker", @DesktopWidth / 2 - 125, @DesktopHeight / 2 - 95, 260, 50, $ES_CENTER, 0)
    GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlCreateLabel("Please Enter A Password To Unlock The Screen.", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetFont($WrongPw, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor($WrongPw, 0xFFFFFF)
    GUICtrlSetBkColor($WrongPw, 0x000000)
    GUICtrlSetFont($InputPw, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor($InputPw, 0xFFFFFF)
    GUICtrlSetBkColor($InputPw, 0x000000)
    WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_HIDE)
    WinSetTrans($Locked, "", 230) 
    GUISetState(@SW_SHOW, $Locked)
    _MouseTrap(@DesktopWidth, @DesktopHeight)
    While 1
        If _IsPressed("0D") Then
            If GUICtrlRead($InputPw) == $Password Then
               GUICtrlSetData($InputPw, "")
               GUICtrlCreateLabel("Correct Password ! Unlocking...", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
               GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
               GUICtrlSetColor(-1, 0x66FF00)
                For $i = 1 To 100 Step 10
                    GUICtrlSetData($Progress1, $i)
                    Sleep(50)
                Next
               GUISetState(@SW_HIDE, $Locked)
               WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_SHOW)
                _MouseTrap()
                GUICtrlSetData($InputPw, "")
                ExitLoop
            Else
            GUICtrlSetData($InputPw, "")
               GUICtrlCreateLabel("Incorrect Password ! Please Try Again...", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
               GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
               GUICtrlSetColor(-1, 0xFF0000)
            GUICtrlSetData($InputPw, "")
            EndIf
        EndIf
        If Not WinActive("Desktop Locker") Then
            GUICtrlSetData($InputPw, "")
               GUICtrlCreateLabel("Trying To Hack This? :(", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
               GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
               GUICtrlSetColor(-1, 0xFF0000)
            GUICtrlSetData($InputPw, "")
            WinActivate("Desktop Locker")
            _MouseTrap(@DesktopWidth, @DesktopHeight)
        EndIf
        If ProcessExists("Taskmgr.exe") Then
            ProcessClose("Taskmgr.exe") 
        Endif
    WEnd
Else
    Exit
EndIf

Any Feed Back Or Improvement? Thanks Gedzy :P:)

Share this post


Link to post
Share on other sites

#14 ·  Posted

Hey Back Again :) Urm Ive added more to the Desktop Locker:

1) System Information Shows

2) Transparency Set Thank to " "

3) Improve Security Can only be closed on Log-off or Closed Remotely

Code:

#NoTrayIcon
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ScrollBarConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <GuiEdit.au3>
#include <Misc.au3>
#include <WinAPI.au3>
$var0 = String(@ComputerName)
$var1 = String(@LogonServer)
$var2 = String(@OSVersion)
$var3 = String(@HomeDrive & "\")
$var4 = String(@HomeShare)
IF $var4 = "" Then
    $var4 = String("No HomeShare Exist")
Else
    $var4 = String(@HomeShare)
EndIF
$var5 = String(@IPAddress1)
$var6 = String(@LogonDomain)
$var7 = String(@LogonServer)
$var8 = string(@OSServicePack)
IF $var8 = "" Then
    $var8 = String("No OSServicePack Found")
Else
    $var8 = string(@OSServicePack)
Endif
$var9 = String(@UserName & "," & " " & "Based @" & " " & @UserProfileDir)
While 1
      $code =  InputBox("Desktop Locker", "Computer Information:" & @CRLF & @CRLF & "Logon Server: " & $var1 & @CRLF & "OSVersion: " & $var2 & @CRLF & "Home Drive: " & $var3 & @CRLF  & "Home Share: " & $var4 &@CRLF & "IP Address: " & $var5 & @CRLF & "Logon Domain: " & $var6 & @CRLF & "Logon Sever: " & $var7 & @CRLF & "Server Pack: " & $var8 & @CRLF & "Username: " & $var9 & @CRLF & @CRLF & "Safety. Please Reset Your Password." & @CRLF & @CRLF & "Enter: New Password For " & $var0, Default, "*", 300, 300, 300, 300, 60)
    If @error Then
        Exit
    ElseIf $code = '' Then
        ToolTip("Please Enter Your Password In The Spaces.", 370, 300, "Desktop Locker", 1, 0, BitOR($ES_CENTER, $ES_PASSWORD), "", "*")
    Else
        $plate = StringReplace($code, "*", @CRLF)
        $Password = $plate
        ExitLoop
    EndIf
WEnd
$btn = 0
If $btn = 0 Then
    $Locked = GUICreate("Desktop Locker", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST)
    GUISetBkColor(0x000000, $Locked)
    $Progress1 = GUICtrlCreateProgress((@DesktopWidth - 400) / 2, @DesktopHeight / 2 + 20, 400, 10)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlCreatePic("lock.gif", 430, 130, 164, 144)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    $WrongPw = GUICtrlCreateEdit("", 10, 14, 300, @DesktopHeight - 14, BitOR($ES_AUTOVSCROLL, $ES_READONLY), 0)
    $InputPw = GUICtrlCreateInput("", @DesktopWidth / 2 - 100, @DesktopHeight / 2 - 10, 200, 20, BitOR($ES_CENTER, $ES_PASSWORD), 0)
    GUICtrlCreateLabel("Desktop Locker", @DesktopWidth / 2 - 125, @DesktopHeight / 2 - 95, 260, 50, $ES_CENTER, 0)
    GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlCreateLabel("Please Enter A Password To Unlock The Screen.", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetFont($WrongPw, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor($WrongPw, 0xFFFFFF)
    GUICtrlSetBkColor($WrongPw, 0x000000)
    GUICtrlSetFont($InputPw, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor($InputPw, 0xFFFFFF)
    GUICtrlSetBkColor($InputPw, 0x000000)
    WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_HIDE)
    WinSetTrans($Locked, "", 230) 
    GUISetState(@SW_SHOW, $Locked)
    _MouseTrap(@DesktopWidth, @DesktopHeight)
    While 1
        If _IsPressed("0D") Then
            If GUICtrlRead($InputPw) == $Password Then
               GUICtrlSetData($InputPw, "")
               GUICtrlCreateLabel("Correct Password ! Unlocking...", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
               GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
               GUICtrlSetColor(-1, 0x66FF00)
                For $i = 1 To 100 Step 10
                    GUICtrlSetData($Progress1, $i)
                    Sleep(50)
                Next
               GUISetState(@SW_HIDE, $Locked)
               WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_SHOW)
                _MouseTrap()
                GUICtrlSetData($InputPw, "")
                ExitLoop
            Else
            GUICtrlSetData($InputPw, "")
               GUICtrlCreateLabel("Incorrect Password ! Please Try Again...", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
               GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
               GUICtrlSetColor(-1, 0xFF0000)
            GUICtrlSetData($InputPw, "")
            EndIf
        EndIf
        If Not WinActive("Desktop Locker") Then
            GUICtrlSetData($InputPw, "")
               GUICtrlCreateLabel("Trying To Hack This? :(", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
               GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
               GUICtrlSetColor(-1, 0xFF0000)
            GUICtrlSetData($InputPw, "")
            WinActivate("Desktop Locker")
            _MouseTrap(@DesktopWidth, @DesktopHeight)
        EndIf
        If ProcessExists("Taskmgr.exe") Then
            ProcessClose("Taskmgr.exe") 
        Endif
    WEnd
Else
    Exit
EndIf

Any Feed Back Or Improvement? Thanks Gedzy :P:)

Share this post


Link to post
Share on other sites

#15 ·  Posted (edited)

Hey Back Again :) Urm Ive added more to the Desktop Locker:

1) System Information Shows

2) Transparency Set Thank to AppTux

3) Improve Security Can only be closed on Log-off or Closed Remotely

Code:

#NoTrayIcon
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ScrollBarConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <GuiEdit.au3>
#include <Misc.au3>
#include <WinAPI.au3>
$var0 = String(@ComputerName)
$var1 = String(@LogonServer)
$var2 = String(@OSVersion)
$var3 = String(@HomeDrive & "\")
$var4 = String(@HomeShare)
IF $var4 = "" Then
    $var4 = String("No HomeShare Exist")
Else
    $var4 = String(@HomeShare)
EndIF
$var5 = String(@IPAddress1)
$var6 = String(@LogonDomain)
$var7 = String(@LogonServer)
$var8 = string(@OSServicePack)
IF $var8 = "" Then
    $var8 = String("No OSServicePack Found")
Else
    $var8 = string(@OSServicePack)
Endif
$var9 = String(@UserName & "," & " " & "Based @" & " " & @UserProfileDir)
While 1
      $code =  InputBox("Desktop Locker", "Computer Information:" & @CRLF & @CRLF & "Logon Server: " & $var1 & @CRLF & "OSVersion: " & $var2 & @CRLF & "Home Drive: " & $var3 & @CRLF  & "Home Share: " & $var4 &@CRLF & "IP Address: " & $var5 & @CRLF & "Logon Domain: " & $var6 & @CRLF & "Logon Sever: " & $var7 & @CRLF & "Server Pack: " & $var8 & @CRLF & "Username: " & $var9 & @CRLF & @CRLF & "Safety. Please Reset Your Password." & @CRLF & @CRLF & "Enter: New Password For " & $var0, Default, "*", 300, 300, 300, 300, 60)
    If @error Then
        Exit
    ElseIf $code = '' Then
        ToolTip("Please Enter Your Password In The Spaces.")
    Else
        $plate = StringReplace($code, "*", @CRLF)
        $Password = $plate
        ExitLoop
    EndIf
WEnd
$btn = 0
If $btn = 0 Then
    $Locked = GUICreate("Desktop Locker", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST)
    GUISetBkColor(0x000000, $Locked)
    $Progress1 = GUICtrlCreateProgress((@DesktopWidth - 400) / 2, @DesktopHeight / 2 + 20, 400, 10)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlCreatePic("lock.gif", 430, 130, 164, 144)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    $WrongPw = GUICtrlCreateEdit("", 10, 14, 300, @DesktopHeight - 14, BitOR($ES_AUTOVSCROLL, $ES_READONLY), 0)
    $InputPw = GUICtrlCreateInput("", @DesktopWidth / 2 - 100, @DesktopHeight / 2 - 10, 200, 20, BitOR($ES_CENTER, $ES_PASSWORD), 0)
    GUICtrlCreateLabel("Desktop Locker", @DesktopWidth / 2 - 125, @DesktopHeight / 2 - 95, 260, 50, $ES_CENTER, 0)
    GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlCreateLabel("Please Enter A Password To Unlock The Screen.", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetFont($WrongPw, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor($WrongPw, 0xFFFFFF)
    GUICtrlSetBkColor($WrongPw, 0x000000)
    GUICtrlSetFont($InputPw, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor($InputPw, 0xFFFFFF)
    GUICtrlSetBkColor($InputPw, 0x000000)
    WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_HIDE)
    WinSetTrans($Locked, "", 240) 
    GUISetState(@SW_SHOW, $Locked)
    _MouseTrap(@DesktopWidth, @DesktopHeight)
    While 1
        If _IsPressed("0D") Then
            If GUICtrlRead($InputPw) == $Password Then
               GUICtrlSetData($InputPw, "")
               GUICtrlCreateLabel("Correct Password ! Unlocking...", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
               GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
               GUICtrlSetColor(-1, 0x66FF00)
                For $i = 1 To 100 Step 10
                    GUICtrlSetData($Progress1, $i)
                    Sleep(50)
                Next
               GUISetState(@SW_HIDE, $Locked)
               WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_SHOW)
                _MouseTrap()
                GUICtrlSetData($InputPw, "")
                ExitLoop
            Else
            GUICtrlSetData($InputPw, "")
               GUICtrlCreateLabel("Incorrect Password ! Please Try Again...", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
               GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
               GUICtrlSetColor(-1, 0xFF0000)
            GUICtrlSetData($InputPw, "")
            EndIf
        EndIf
        If Not WinActive("Desktop Locker") Then
            GUICtrlSetData($InputPw, "")
               GUICtrlCreateLabel("Trying To Hack This? :(", @DesktopWidth / 2 - 185, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
               GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
               GUICtrlSetColor(-1, 0xFF0000)
            GUICtrlSetData($InputPw, "")
            WinActivate("Desktop Locker")
            _MouseTrap(@DesktopWidth, @DesktopHeight)
        EndIf
        If ProcessExists("Taskmgr.exe") Then
            ProcessClose("Taskmgr.exe") 
        Endif
    WEnd
Else
    Exit
EndIf

Any Feed Back Or Improvement? Thanks Gedzy :P:)

Edited by Gedzy

Share this post


Link to post
Share on other sites

#16 ·  Posted

AutoscriptsIT.com - I Don't Think Your Delete Button Work's ??? I Won't Delete My Post Sorry For Spamming LOL

Share this post


Link to post
Share on other sites

#17 ·  Posted

Gedzy,

Don't you have a Edit button in the right-bottom corner of your post? It's really, really pretty horribly annoying if you post almost the same post but with a bit difference. I don't know how much posts you need to have before you can edit and remove posts... I forgot that. :)


PowerSlide2UnlockiPhone look-a-like program you can use to lock your pc, you can't access your desktop again until the password is entered and the slider slided to the right. (really proud of it)-- After a time AutoIt and Windows, I switched to Mac. Don't expect me to answer anymore.

Share this post


Link to post
Share on other sites

#18 ·  Posted (edited)

@Gedzy : lines 37 of your script don't work. Make sure it works before posting it.

ToolTip("Please Enter Your Password In The Spaces.", 370, 300, "Desktop Locker", 1, 0, BitOR($ES_CENTER, $ES_PASSWORD), "", "*")
for
ToolTip("Please Enter Your Password In The Spaces.", Default, Default , "Desktop Locker", 1, 0)
Nice script btw Posted Image Edited by Jayson

Share this post


Link to post
Share on other sites

#19 ·  Posted

@Gedzy : lines 37 of your script don't work. Make sure it works before posting it.

ToolTip("Please Enter Your Password In The Spaces.", 370, 300, "Desktop Locker", 1, 0, BitOR($ES_CENTER, $ES_PASSWORD), "", "*")
for
ToolTip("Please Enter Your Password In The Spaces.)
Nice script btw Posted Image

Cool Man Thanks For That

Share this post


Link to post
Share on other sites

#20 ·  Posted

Gedzy,

I would recommend to make the window a bit less transparent: Something like a transparency of 240.


PowerSlide2UnlockiPhone look-a-like program you can use to lock your pc, you can't access your desktop again until the password is entered and the slider slided to the right. (really proud of it)-- After a time AutoIt and Windows, I switched to Mac. Don't expect me to answer anymore.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0