Jump to content

SiLock


WolfWorld
 Share

Recommended Posts

JUST IN CASE IF YOU DID NOT CONFIG IT CAN IT LOCKED YOU OUT ENTER udfg AS THE PASSWORD!!!

Am not good at English but the document is in side.

It also support plugins ! You can easily create your own widgets for it!

I JUST UPLOAD THE SECOND ONE THIS ONE DOES NOT REQUIRED YOU TO CONFIG ANYTHING SO...

http://www.mediafire.com/?2vjfmvjjmiy

First just set the setting.ini and run it. I hope you like it! Can start creating your own widgets and post it back here ^ ^

This is close source but I will open the simple plugin part

This get the plugin detail and draw it on the main GUI!

This allow you to enter any text to the main lock program from other process.

This is basically a script way of communication.

#cs ----------------------------------------------------------------------------
    
    AutoIt Version: 3.3.0.0
    Author:         Athiwat Chunlakhan
    
#ce ----------------------------------------------------------------------------

Global $hWidgets[1]
For $i = 1 To 99
    If Not Int(IniRead('Setting.ini', 'w' & $i, 'e', 0)) Then ExitLoop
    _ArrayAdd($hWidgets, GUICtrlCreateLabel('', Int(IniRead('Setting.ini', 'w' & $i, 'x', 0)), Int(IniRead('Setting.ini', 'w' & $i, 'y', 0)) + 280, Int(IniRead('Setting.ini', 'w' & $i, 'width', 0)), Int(IniRead('Setting.ini', 'w' & $i, 'height', 0))))
    If Int(IniRead('Setting.ini', 'w' & $i, 'd', 0)) Then GUICtrlSetBkColor($hWidgets[$i], '0xFFFFFF')
Next

$hWidgets[0] = UBound($hWidgets) - 1
Global $sOldWidgetsText[$hWidgets[0] + 1], $hPID[$hWidgets[0] + 1]
For $i = 1 To $hWidgets[0]
    $hPID[$i] = Run('"' & $sWidgetsDir & String(IniRead('setting.ini', 'w' & $i, 'file', '')) & '" -SiLock', $sWidgetsDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
Next

Func Check()
 ;Close
EndFunc   ;==>Check

Func Update()
    Local $sTexttoUpdate
    For $i = 1 To $hWidgets[0]
        $sTexttoUpdate = StdoutRead($hPID[$i])
        If $sTexttoUpdate <> '' And $sOldWidgetsText[$i] <> $sTexttoUpdate Then
            $sOldWidgetsText[$i] = $sTexttoUpdate
            GUICtrlSetData($hWidgets[$i], $sTexttoUpdate)
        EndIf
    Next
EndFunc   ;==>Update
Edited by athiwatc
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...