AutoIt Français

Code : Tout sélectionner

#NoTrayIcon
#include <File.au3>
Opt("TrayMenuMode", 1)
Global $adresse = "....."
         If FileExists($adresse & "Test\Maj.txt") Then
             Maj_on()
         EndIf
         While 1
             If _IsPressed("14") And FileExists($adresse & "Test\Maj.txt") = 0 Then
                 Maj_on()
                 While _IsPressed("14")
                     Sleep(1)
                 WEnd
             EndIf
             If _IsPressed("14") And FileExists($adresse & "Test\Maj.txt") Then
                 Maj_off()
                 While _IsPressed("14")
                     Sleep(1)
                 WEnd
             EndIf
         WEnd
         DllClose("user32.dll")
     Else
         Exit
     EndIf
EndIf

Func Maj_on()
     _FileCreate($adresse & "Test\Maj.txt")
     TraySetIcon("C:\Windows\System32\credwiz.exe")
     TrayTip("", "Majuscule activée", 0)
     TraySetToolTip("Majuscule activée")
     TraySetState()
EndFunc
Func Maj_off()
     FileDelete($adresse & "Test\Maj.txt")
     Opt("TrayIconHide", 1)
EndFunc
Func _IsPressed($sHexKey, $vDLL = 'user32.dll')
     Local $a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", '0x' & $sHexKey)
     If @error Then Return SetError(@error, @extended, False)
     Return BitAND($a_R[0], 0x8000) <> 0
EndFunc

Code : Tout sélectionner

AdlibRegister("_TestMaj", 100)

While 1
  Sleep(10)
Wend

Func _TestMaj()
  Local Static $status0
  Local $status = _IsToggled("14")  
  If $status<>$status0 Then 
       If $status Then
            ToolTip("MAJ activée", @desktopwidth/2, 10)
       Else
            ToolTip("")
       EndIf
  $status0 = $status
  EndIf
EndFunc

Func _IsToggled($sHexKey, $vDLL = 'user32.dll')
   Local $a_R = DllCall($vDLL, "short", "GetKeyState", "int", '0x' & $sHexKey)
   If Not @error And BitAND($a_R[0], 0xFF) = 1 Then Return 1
   Return 0
EndFunc   ;==>_IsToggled