» Utilizator
Salut, vizitatorule!

SkullBox este o comunitate formata din programatori si administratori de sisteme sau retele care iti sta la dispozitie cand ai o problema legata de calculatoare. Daca esti un utilizator existent, autentifica-te.

Daca nu te-ai inregistrat inca pe forum, alatura-te noua astfel marind comunitatea si ajutandu-i pe cei care au nevoie de informatii.

Daca te-ai inregistrat dar inca nu ai primit codul de activare, il poti cere aici.



Autentifica-te cu numele de utilizator si parola pentru a putea posta pe forum sau pentru a accesa ariile disponibile doar utilizatorilor inregistrati.
» Promovam
» Parteneri » Statistici
  • 59752 de mesaje.
  • 7151 de topicuri.
  • 1014 de utilizatori.
  •  
  • Fattinvib e ultimul utilizator inregistrat.
[Detalii]

 
Pagini: [1]
Print
WinSetOnTop($Form, "", 1) [373 afisari]
Bobyk
*


Mesaje: 187
OfflineOffline
Salut!
Am si eu o intrebare ...
Lucrez la un program gen " desktop locked ".
Am si eu nevoie de un cod, cu care sa pot face in asa fel incat toate perestrele deschise dupa rularea softului sa nu apara...adika sa apara pe desktop doar caseta softului si inputul in care va trebuii sa.i introduc parola pentru deblocare!
Cred ca vine ceva de genul WinSetOnTop($PassForm, "", 1) ....dar am icnercat si daca apas Ctrl+alt+del tot apare task-managerul...sau tasta de wind care deschide "start"...
Astept o idee... batting eyelashes

Multumesc!!!
Logged
Să nu te opreşti niciodată din a-ţi pune întrebări, curiozitatea stă la baza existenţei.
-Albert Einstein-
29-06-2009, 10:48 Twitt ::
shadow-hacker
*


Mesaje: 56
OfflineOffline

WWW
Acum nu sunt acasa si nu iti pot spune cu certitudine, dar cred ca daca ai pune optiunea de HotkeySet() pt acele taste ai putea opri functia lor principala. De obicei cam asa se intampla un AutoIT.
Logged
Clickul tau valoreaza cat un PS3
29-06-2009, 16:09 Twitt ::
dragons
*


Mesaje: 85
OfflineOffline
o idee ..  Big grin

Creaza un gui full screen cu "exStyle" $WS_EX_TOPMOST / transparent sau cum vrei ..foloseste
Quote
Hive: HKEY_CURRENT_USER
Key: Software\Microsoft\Windows\CurrentVersion\Policies\System
Name: DisableTaskMgr
Type: REG_DWORD
Value: 1=Enablethis key, that is DISABLE TaskManager
Value: 0=Disablethis key, that is Don't Disable, Enable TaskManager

    * Click Start
    * Click Run
    * Enter gpedit.msc in the Open box and click OK
    * In the Group Policy settings window
          o Select User Configuration
          o Select Administrative Templates
          o Select System
          o Select Ctrl+Alt+Delete options
          o Select Remove Task Manager
          o Double-click the Remove Task Manager option


pentru a dezactiva task manager si  activare ...  in continuare poate " mouse Lock " si poate  disable tastele "win" "alt " "ctrl" "esc" etc  cum zice shadow-hacker ....
Logged
<__>--<__>----<_/\/\/\/\/\/\/\/\_>
29-06-2009, 16:19 Twitt ::
Bobyk
*


Mesaje: 187
OfflineOffline
Am gasit pe net acest script....el cuprinde ideea si acea parte de script de care am eu nevoie numai k nu imi dau seama care este ...
Daca puteti sa ma ajutati sa imi extrageti acea parte...
Quote
AutoItSetOption("MustDeclareVars", 1)
If @AutoItX64 Then
    DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1)
EndIf
#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Misc.au3>
Global Const $Password = "autoit"
Global $PassForm, $Input1, $Button1, $nMsg, $Attempts = 1000
Local $Back
HotKeySet("^-", "exitt");;;;;;;;;;;;;;;;;
;;Create back
$Back = GUICreate("Blackout", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_SYSMENU, $WS_POPUP, $WS_CLIPSIBLINGS))
WinSetOnTop($Back, "", 1)
GUISetBkColor(0x0)
GUISetState(@SW_SHOW)
;;Create Input
$PassForm = GUICreate("Password", 355, 62, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_POPUP, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS))
Global $Mtrap = WinGetPos($PassForm)
$Input1 = GUICtrlCreateInput("", 8, 8, 337, 21, $ES_PASSWORD)
$Button1 = GUICtrlCreateButton("Introdu parola: (" & $Attempts & ")", 8, 32, 337, 25, 0)
WinSetOnTop($PassForm, "", 1)
GUISetState(@SW_SHOW)
;;
While 1
    _MouseTrap($Mtrap[0], $Mtrap[1], $Mtrap[0] + $Mtrap[2], $Mtrap[1] + $Mtrap[3])
    If WinExists("Windows Task Manager") Then WinClose("Windows Task Manager")
    If Not WinActive($PassForm) Then
        If Not WinActive($Back) Then
            WinSetState(WinGetTitle("[active]"), "", @SW_MINIMIZE)
        EndIf
        WinActivate($PassForm)
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button1
            _Analyze(GUICtrlRead($Input1))
    EndSwitch
WEnd

Func exitt()
    Exit
EndFunc  ;==>exitt

Func _Analyze($Epassword)
    $Epassword = _StringEncrypt(1, $Epassword, _StringEncrypt(0, "DBB23B64F488", "RC4", 1), _StringEncrypt(0, "A6B7", "RC4", 1))
    If $Epassword == $Password Then
        Exit
    Else
        GUICtrlSetData($Input1, "")
        $Attempts -= 1
        If $Attempts == 0 Then
            _Lockout()
        Else
            GUICtrlSetData($Button1, "Enter (" & $Attempts & ")")
        EndIf
    EndIf
EndFunc  ;==>_Analyze

Func _Lockout()
    ControlDisable($PassForm, "", $Button1)
    ControlDisable($PassForm, "", $Input1)
    GUICtrlSetData($Button1, "Lockout")
    Local $timer = TimerInit(), $time, $locktime = 25
    Do
        _MouseTrap($Mtrap[0], $Mtrap[1], $Mtrap[0] + $Mtrap[2], $Mtrap[1] + $Mtrap[3])
        Sleep(500)
        If WinActive("Windows Task Manager") Then WinClose("Windows Task Manager")
        If Not WinActive($PassForm) Then WinActivate($PassForm)
        ControlDisable($PassForm, "", $Button1)
        $time = TimerDiff($timer)
        GUICtrlSetData($Button1, "Lockout - " & Int($locktime - $time / 1000))
    Until $time > $locktime * 1000
    $Attempts = 5
    ControlEnable($PassForm, "", $Button1)
    ControlEnable($PassForm, "", $Input1)
    GUICtrlSetData($Button1, "Enter (" & $Attempts & ")")
EndFunc  ;==>_Lockout
Logged
Să nu te opreşti niciodată din a-ţi pune întrebări, curiozitatea stă la baza existenţei.
-Albert Einstein-
30-06-2009, 17:54 Twitt ::
dragons
*


Mesaje: 85
OfflineOffline
cateva exemple , dar nu iti pot explica nimic ca nu ma pricep ..  Big grin

Code:
#Include <HotKey.au3>

Global Const $VK_ESCAPE = 0x1B
Global Const $VK_F12 = 0x7B

; Assign "F12" with Message() and set extended function call
_HotKeyAssign($VK_F12, 'Message', BitOR($HK_FLAG_DEFAULT, $HK_FLAG_EXTENDEDCALL))

; Assign "CTRL-ESC" with Quit()
_HotKeyAssign(BitOR($CK_CONTROL, $VK_ESCAPE), 'Quit')

While 1
    Sleep(10)
WEnd

Func Message($iKey)
    MsgBox(0, 'Hot key Test Message', 'F12 (0x' & StringRight(Hex($iKey), 4) & ') has been pressed!')
EndFunc   ;==>Message

Func Quit()
    Exit
EndFunc   ;==>Quit

exemplu 2
Code:
#Include <GUIConstants.au3>
#Include <HotKey.au3>

Global Const $VK_ESCAPE = 0x1B
Global Const $VK_F12 = 0x7B

; Assign "F12" with Form()
_HotKeyAssign($VK_F12, 'Form')

; Assign "CTRL-ESC" with Quit()
_HotKeyAssign(BitOR($CK_CONTROL, $VK_ESCAPE), 'Quit')

While 1
    Sleep(10)
WEnd

Func Form()

    Local $Form, $Button, $Msg

    $Form = GUICreate('MyGUI', 350, 350, -1, -1, BitOR($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_TOPMOST)
    $Button = GUICtrlCreateButton('Exit', 140, 315, 70, 23)
    GUICtrlSetState(-1, BitOR($GUI_DEFBUTTON, $GUI_FOCUS))
    GUISetState(@SW_SHOW, $Form)

    While 1
        Switch GUIGetMsg()
            Case $Button, $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd

    GUIDelete($Form)
EndFunc   ;==>Form

Func Quit()
    Exit
EndFunc   ;==>Quit
Logged
<__>--<__>----<_/\/\/\/\/\/\/\/\_>
01-07-2009, 00:34 Twitt ::
shadow-hacker
*


Mesaje: 56
OfflineOffline

WWW
Ok cu optiunea urmatoare opresti Task Manager-ul cand este pornit:
Code:
If WinExists("Windows Task Manager") Then WinClose("Windows Task Manager")

Si cu urmatoarele linii de cod banuiesc ca face GUI-ul sa fie maximizat chiar daca vrei sa pornesti Start:
Code:
If Not WinActive($PassForm) Then
        If Not WinActive($Back) Then
            WinSetState(WinGetTitle("[active]"), "", @SW_MINIMIZE)
        EndIf
        WinActivate($PassForm)
    EndIf
Logged
Clickul tau valoreaza cat un PS3
01-07-2009, 10:02 Twitt ::
Bobyk
*


Mesaje: 187
OfflineOffline
Am modificat scriptul...si nu merge...vad eu..ms oriqm:)
Logged
Să nu te opreşti niciodată din a-ţi pune întrebări, curiozitatea stă la baza existenţei.
-Albert Einstein-
01-07-2009, 12:55 Twitt ::
Andy
*


Mesaje: 492
OfflineOffline
O metoda foarte simpla este asta: (ai nevoie doar de WinLockDll.dll)
Un F4 sa dezactivezi Task Managerul si altul sa il activezi, ESC sa termini aplicatia.
Code:
HotKeySet("{F4}","Toggle")
HotKeySet("{ESC}","Quit")
Global $STATE = True
Global $DLL = DllOpen("WinLockDll.dll")

While True
Sleep(20)
WEnd

Func Toggle()
$STATE = Not $STATE
If $STATE Then
DllCall ($DLL, "int", "CtrlAltDel_Enable_Disable", "int", 1)
Else
DllCall ($DLL, "int", "CtrlAltDel_Enable_Disable", "int", 0)
EndIf
EndFunc

Func Quit()
        DllClose($DLL)
Exit
EndFunc
Logged
Intel Inside - Idiots Outside
04-07-2009, 15:59 Twitt ::
Reclama
VIP

Hosting

Mesaje: 25.90
OnlineOnline

WWW
 
   Pe ABCDomenii: 250MB spatiu + 20GB trafic + 5 subdomenii = 0.95 €
 
 
The problem with troubleshooting is that trouble shoots back.
Azi 
Pages: [1]
Print
SkullBox Forum  |  Development  |  AutoIt  |  Topic: WinSetOnTop($Form, "", 1)
Jump to: