|
You last visited: Today at 13:26
Advertisement
Pc locker
Discussion on Pc locker within the AutoIt forum part of the Coders Den category.
08/26/2013, 00:36
|
#1
|
elite*gold: 0 
Join Date: Apr 2011
Posts: 65
Received Thanks: 12
|
Pc locker
Hi everyone , i decided to share some little home-made creation.
This is a pc locker.
HTML Code:
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <ScreenCapture.au3>
Opt ("GuicloseOnEsc",1)
$SW = @DesktopWidth
$SH = @DesktopHeight
MsgBox (0,"Slider","Combination is '100,'20','70'")
_ScreenCapture_Capture(@TempDir & "\Temposlide.jpg")
$Form1 = GUICreate("The locker.", 615, 104, -1, -1,$WS_POPUP, $WS_EX_TOPMOST)
$1 = GUICtrlCreateSlider(0, 0, 612, 31, $GUI_SS_DEFAULT_SLIDER)
GUICtrlSetCursor (-1, 0)
$2 = GUICtrlCreateSlider(0, 35, 612, 31, $GUI_SS_DEFAULT_SLIDER)
GUICtrlSetCursor (-1, 0)
$3 = GUICtrlCreateSlider(0, 70, 612, 31,$GUI_SS_DEFAULT_SLIDER)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
$Pic = GUICreate("TheLocker2",$SW,$SH,0,0,$WS_POPUP,$WS_EX_TOPMOST)
GUICtrlCreatePic(@Tempdir & "\TempoSlide.jpg", 0 , 0 , $SW, $SH)
GUISetState(@SW_SHOW)
WinActivate ($Form1)
While 1
$Msg = GUIGetMsg()
Select
Case $Msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
If _Ispressed ("11") And _IsPressed ("12") And _IsPressed ("2E") Then
_Taskkill()
EndIf
If _Ispressed ("12") Then
Send ("{ALT}")
EndIf
_KeyPass()
WEnd
Func _KeyPass()
If _IsPressed ("0D") Then
$4 = GUICtrlRead ($1)
$5 = GUICtrlRead ($2)
$6 = GUICtrlRead ($3)
$Combo = $4 & $5 & $6
If $Combo = "1002070" Then
WinSetOnTop ($Form1,"",0)
WinSetOnTop ($Pic,"",0)
Sleep (500)
MsgBox(64,"Info","Combination is right , good continuing. .",1.5)
Exit
Else
WinSetOnTop ($Form1,"",0)
WinSetOnTop ($Pic,"",0)
Sleep (500)
MsgBox(64,"Info","Combination wrong, retry.",1.5)
WinSetOnTop ($Form1,"",1)
WinSetOnTop ($Pic,"",1)
EndIf
Endif
EndFunc
Func _Taskkill()
ProcessWait ("taskmgr.exe")
Sleep(500)
ProcessClose("taskmgr.exe")
EndFunc
I know i could do it in a faster and easyer way , i just figured it now that i'm posting it.
|
|
|
|
08/26/2013, 12:46
|
#2
|
elite*gold: 0
Join Date: Apr 2012
Posts: 380
Received Thanks: 163
|
Good ideea for a script like this. ! Good Job. Btw, i improoved the security a little bit:
PHP Code:
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <ScreenCapture.au3>
Opt ("GuicloseOnEsc",1)
$SW = @DesktopWidth
$SH = @DesktopHeight
Opt("TrayIconHide",1)
$4=InputBox("First","The First Combination .0-100")
If $4<0 or $4>100 Then
MsgBox(0,"ERROR","The combination is not in the 0-100 range. Closing")
Exit
EndIf
$5=InputBox("Second","The First Combination .0-100")
If $5<0 or $5>100 Then
MsgBox(0,"ERROR","The combination is not in the 0-100 range. Closing")
Exit
EndIf
$6=InputBox("Third","The Third Combination .0-100")
If $6<0 or $6>100 Then
MsgBox(0,"ERROR","The combination is not in the 0-100 range. Closing")
Exit
EndIf
_ScreenCapture_Capture(@TempDir & "\Temposlide.jpg")
$Pic = GUICreate("TheLocker2",$SW,$SH,0,0,$WS_POPUP,$WS_EX_TOPMOST)
GUICtrlCreatePic(@Tempdir & "\TempoSlide.jpg", 0 , 0 , $SW, $SH)
GUISetState(@SW_SHOW)
GUISetState(@SW_ENABLE)
GUISetState(@SW_LOCK)
$Form1 = GUICreate("The locker.", 615, 104, -1, -1,$WS_POPUP, $WS_EX_TOPMOST)
$1 = GUICtrlCreateSlider(0, 0, 612, 31, $GUI_SS_DEFAULT_SLIDER)
GUICtrlSetCursor (-1, 0)
$2 = GUICtrlCreateSlider(0, 35, 612, 31, $GUI_SS_DEFAULT_SLIDER)
GUICtrlSetCursor (-1, 0)
$3 = GUICtrlCreateSlider(0, 70, 612, 31,$GUI_SS_DEFAULT_SLIDER)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
GUISetState(@SW_ENABLE)
WinActivate ($Form1)
While 1
$Msg = GUIGetMsg()
Select
Case $Msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
If ProcessExists("taskmgr.exe") Then
ProcessClose("taskmgr.exe")
EndIf
If _Ispressed ("11") And _IsPressed ("12") And _IsPressed ("2E") Then
_Taskkill()
EndIf
If _Ispressed ("12") Then
BlockInput(1)
Sleep(3000)
BlockInput(0)
EndIf
_KeyPass()
If WinActive($Pic) then
WinActivate ($Form1)
EndIf
GUISetState(@SW_ENABLE)
WEnd
Func _KeyPass()
If _IsPressed ("0D") Then
If $4 = GUICtrlRead ($1) And $5 = GUICtrlRead ($2) And $6 = GUICtrlRead ($3) Then
WinSetOnTop ($Form1,"",0)
WinSetOnTop ($Pic,"",0)
Sleep (500)
MsgBox(64,"Info","Combination is right , good continuing. .",1.5)
Exit
Else
WinSetOnTop ($Form1,"",0)
WinSetOnTop ($Pic,"",0)
Sleep (500)
MsgBox(64,"Info","Combination wrong, retry.",1.5)
WinSetOnTop ($Form1,"",1)
WinSetOnTop ($Pic,"",1)
EndIf
Endif
EndFunc
Func _Taskkill()
ProcessWait ("taskmgr.exe")
Sleep(500)
ProcessClose("taskmgr.exe")
EndFunc
Now , if you have win vista/ 7 , the func taskKill wont work, so i check for task manager in the loop.
The Pic Gui si Locked, so using ALT+TAB will let it up on the screen. But the slider goes down. locking it will make it unuseable, so in the loop i check if the Active Win is Pic, and then , if yes, i activate the Form1 window.
And i hided the TrayIcon, so if you ALT+TAB to desktop, you won't be able to pause the script
I tried to block ALT+F4 also, but didn't work, i tried to BlockInput for 3 seconds if the ALT is pressed, but it doesn't work, dont know why.
Thanks for the script, good work.
|
|
|
|
|
08/26/2013, 13:12
|
#3
|
elite*gold: 0
Join Date: Apr 2011
Posts: 65
Received Thanks: 12
|
Quote:
Originally Posted by CantShutMyMouth
Good ideea for a script like this. ! Good Job. Btw, i improoved the security a little bit:
PHP Code:
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <ScreenCapture.au3>
Opt ("GuicloseOnEsc",1)
$SW = @DesktopWidth
$SH = @DesktopHeight
Opt("TrayIconHide",1)
$4=InputBox("First","The First Combination .0-100")
If $4<0 or $4>100 Then
MsgBox(0,"ERROR","The combination is not in the 0-100 range. Closing")
Exit
EndIf
$5=InputBox("Second","The First Combination .0-100")
If $5<0 or $5>100 Then
MsgBox(0,"ERROR","The combination is not in the 0-100 range. Closing")
Exit
EndIf
$6=InputBox("Third","The Third Combination .0-100")
If $6<0 or $6>100 Then
MsgBox(0,"ERROR","The combination is not in the 0-100 range. Closing")
Exit
EndIf
_ScreenCapture_Capture(@TempDir & "\Temposlide.jpg")
$Pic = GUICreate("TheLocker2",$SW,$SH,0,0,$WS_POPUP,$WS_EX_TOPMOST)
GUICtrlCreatePic(@Tempdir & "\TempoSlide.jpg", 0 , 0 , $SW, $SH)
GUISetState(@SW_SHOW)
GUISetState(@SW_ENABLE)
GUISetState(@SW_LOCK)
$Form1 = GUICreate("The locker.", 615, 104, -1, -1,$WS_POPUP, $WS_EX_TOPMOST)
$1 = GUICtrlCreateSlider(0, 0, 612, 31, $GUI_SS_DEFAULT_SLIDER)
GUICtrlSetCursor (-1, 0)
$2 = GUICtrlCreateSlider(0, 35, 612, 31, $GUI_SS_DEFAULT_SLIDER)
GUICtrlSetCursor (-1, 0)
$3 = GUICtrlCreateSlider(0, 70, 612, 31,$GUI_SS_DEFAULT_SLIDER)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
GUISetState(@SW_ENABLE)
WinActivate ($Form1)
While 1
$Msg = GUIGetMsg()
Select
Case $Msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
If ProcessExists("taskmgr.exe") Then
ProcessClose("taskmgr.exe")
EndIf
If _Ispressed ("11") And _IsPressed ("12") And _IsPressed ("2E") Then
_Taskkill()
EndIf
If _Ispressed ("12") Then
BlockInput(1)
Sleep(3000)
BlockInput(0)
EndIf
_KeyPass()
If WinActive($Pic) then
WinActivate ($Form1)
EndIf
GUISetState(@SW_ENABLE)
WEnd
Func _KeyPass()
If _IsPressed ("0D") Then
If $4 = GUICtrlRead ($1) And $5 = GUICtrlRead ($2) And $6 = GUICtrlRead ($3) Then
WinSetOnTop ($Form1,"",0)
WinSetOnTop ($Pic,"",0)
Sleep (500)
MsgBox(64,"Info","Combination is right , good continuing. .",1.5)
Exit
Else
WinSetOnTop ($Form1,"",0)
WinSetOnTop ($Pic,"",0)
Sleep (500)
MsgBox(64,"Info","Combination wrong, retry.",1.5)
WinSetOnTop ($Form1,"",1)
WinSetOnTop ($Pic,"",1)
EndIf
Endif
EndFunc
Func _Taskkill()
ProcessWait ("taskmgr.exe")
Sleep(500)
ProcessClose("taskmgr.exe")
EndFunc
Now , if you have win vista/ 7 , the func taskKill wont work, so i check for task manager in the loop.
The Pic Gui si Locked, so using ALT+TAB will let it up on the screen. But the slider goes down. locking it will make it unuseable, so in the loop i check if the Active Win is Pic, and then , if yes, i activate the Form1 window.
And i hided the TrayIcon, so if you ALT+TAB to desktop, you won't be able to pause the script
I tried to block ALT+F4 also, but didn't work, i tried to BlockInput for 3 seconds if the ALT is pressed, but it doesn't work, dont know why.
Thanks for the script, good work. |
This was my testing script , in the compiled version there wasn't the TrayIcon.
|
|
|
|
Similar Threads
|
[S] Personal Locker [B]VSS
06/24/2013 - Infestation Trading - 5 Replies
Hallo liebe Epvp Community,
ich bin auf der Suche nach ein paar Personal Locker. Ich könnte euch aus meinem Sortiment 2 VSS Vintorez geben. Bitte keine Spaßgebote.
MfG
Just²
|
New Metin2 mob locker
09/23/2011 - Metin2 Hacks, Bots, Cheats, Exploits & Macros - 8 Replies
Here my Realas newMob Locker!
download ; http://uploaded.to/file/ox29a1og
Have fun with it ;)
|
Auto-Locker
07/31/2011 - DarkOrbit - 10 Replies
German:
Hey epvpers,
hab vorgestern Autoit für mich entdeckt und ein wenig herumexperimentiert und mich durch viele tuts gelesen.
Nun habe ich mal einen simplen klickbot zum Anvisieren von NPCs gebastelt.
Bei mir funktioniert er bislang prima ;-).
Hier mal ne kleine Beschreibung:
Nach dem Start könnt ihr Hotkeys auswählen, die ihr zum Anvisieren, bzw. zum Beenden des Bots benutzen wollt. Außerdem müsst ihr mit Hilfe von den eingebauten Hotkeys F1 und F2 die obere linke Ecke und die...
|
All times are GMT +1. The time now is 13:26.
|
|
