mcclane654 Posted November 14, 2013 Posted November 14, 2013 I was wondering if there was any function getting the time from system. I also have another problem. here in Norway we have 3 extra letters on our keyboard. so I was wondering if anyone know what the _IfPressed code would be for æ, ø, å.
water Posted November 14, 2013 Posted November 14, 2013 There are macros available for date and time. My UDFs and Tutorials: Spoiler UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
islandspapand Posted November 14, 2013 Posted November 14, 2013 Hej --Jeg håber det here hjælper dig lidt på vej i hope this helps you on your way #include <Misc.au3> ;~ _IsAnyKeyPressed() ;~ Func _IsAnyKeyPressed($start = 0, $end = 255) ;~ For $i = $start to $end ;~ if (_IsPressed(Hex($i))) Then return $i ;~ Next ;~ return -1 ;~ EndFunc ;~ while(true) ;~ Local $val ;~ $val = _IsAnyKeyPressed() ;~ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $val = ' & $val & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console ;~ if ( $val > -1 ) Then ;~ MsgBox(0, "", "You press the " & Chr($val) & " key.") ;~ EndIf ;~ WEnd ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : Hex(192) = ' & Hex(192) & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console æ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : Hex(221) = ' & Hex(221) & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console å ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : Hex(222) = ' & Hex(222) & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console ø While 1 If _IsPressed("C0") Then ConsoleWrite("Key Pressed æ"&@CR) If _IsPressed("DE") Then ConsoleWrite("Key Pressed ø"&@CR) If _IsPressed("DD") Then ConsoleWrite("Key Pressed å"&@CR) WEnd
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now