Sign in to follow this  
Followers 0
infernothebest

Apple keybord shortcuts for XP

5 posts in this topic

#1 ·  Posted (edited)

If you got this Apple keyboard, then you don't need to install Apple bootcamp software or any other drivers any more.

Posted Image

this utility simulates apple shortcuts

V1

;Apple keybord F-keys For XP

#include <Misc.au3>
#Include <Constants.au3>
#include <WindowsConstants.au3>
#include <audio.au3>
HotKeySet("{F7}","F7")
HotKeySet("{F8}","F8")
HotKeySet("{F9}","F9")
HotKeySet("{F10}","F10")
HotKeySet("{F11}","F11")


while 1;klaar
sleep(1)
if _IsPressed("7B", DllOpen("user32.dll")) Then
GUIDelete ()
Send("{VOLUME_UP}")
sleep(250)
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0x00FF00);Groen 
$rgn = CreateTextRgn($hwnd,"Volume +",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)
GUISetState()
Sleep(500)
GUIDelete ()    
EndIf
WEnd

Func F7();Klaar
Send("{MEDIA_PREV}")
GUIDelete ()
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0xFF0000) ; text color rood 
$rgn = CreateTextRgn($hwnd,"Previous Song",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)
GUISetState()
Sleep(500)
GUIDelete ()
EndFunc

Func F8()
Send("{MEDIA_PLAY_PAUSE}")
GUIDelete ()
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0x00FF00);Groen/Rood
$rgn = CreateTextRgn($hwnd,"Play/Stop",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)
GUISetState()
Sleep(500)
GUIDelete ()
EndFunc

Func F9()
Send("{MEDIA_NEXT}")
GUIDelete ()
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0x00FF00);Groen 0x00FF00
$rgn = CreateTextRgn($hwnd,"Next Song",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)
GUISetState()
Sleep(500)
GUIDelete ()
EndFunc

Func F10()
Send("{VOLUME_MUTE}")
GUIDelete ()
if _Ismute() = 1 Then
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0xFF0000);Rood
$rgn = CreateTextRgn($hwnd,"Volume MUTE",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)
GUISetState()
Sleep(500)
GUIDelete ()
Else
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0x00FF00);Groen
$rgn = CreateTextRgn($hwnd,"Volume MUTE",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)
GUISetState()
Sleep(500)
GUIDelete ()
EndIf
EndFunc


Func F11();Klaar
Send("{VOLUME_DOWN}")
GUIDelete ()
$hwnd = GUICreate("Text Region", 390, 30, @DesktopWidth-390, @DesktopHeight-70, $WS_POPUP, BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUISetBkColor(0xFF0000) ; text color rood 
$rgn = CreateTextRgn($hwnd,"Volume -",35,"Arial",10)
SetWindowRgn($hwnd,$rgn)

GUISetState()
Sleep(500)
GUIDelete ()

EndFunc

Func SetWindowRgn($h_win, $rgn)
    DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $rgn, "int", 1)
EndFunc
Func CreateTextRgn(ByRef $CTR_hwnd,$CTR_Text,$CTR_height,$CTR_font="Microsoft Sans Serif",$CTR_weight=1000)
    Local Const $ANSI_CHARSET = 0
    Local Const $OUT_CHARACTER_PRECIS = 2
    Local Const $CLIP_DEFAULT_PRECIS = 0
    Local Const $PROOF_QUALITY = 2
    Local Const $FIXED_PITCH = 1
    Local Const $RGN_XOR = 3
    
    If $CTR_font = "" Then $CTR_font = "Microsoft Sans Serif"
    If $CTR_weight = -1 Then $CTR_weight = 1000
    Local $gdi_dll = DLLOpen("gdi32.dll")
    Local $CTR_hDC= DLLCall("user32.dll","int","GetDC","hwnd",$CTR_hwnd)
    Local $CTR_hMyFont = DLLCall($gdi_dll,"hwnd","CreateFont","int",$CTR_height,"int",0,"int",0,"int",0, _
                "int",$CTR_weight,"int",0,"int",0,"int",0,"int",$ANSI_CHARSET,"int",$OUT_CHARACTER_PRECIS, _
                "int",$CLIP_DEFAULT_PRECIS,"int",$PROOF_QUALITY,"int",$FIXED_PITCH,"str",$CTR_font )
    Local $CTR_hOldFont = DLLCall($gdi_dll,"hwnd","SelectObject","int",$CTR_hDC[0],"hwnd",$CTR_hMyFont[0])
    DLLCall($gdi_dll,"int","BeginPath","int",$CTR_hDC[0])
    DLLCall($gdi_dll,"int","TextOut","int",$CTR_hDC[0],"int",0,"int",0,"str",$CTR_Text,"int",StringLen($CTR_Text))
    DLLCall($gdi_dll,"int","EndPath","int",$CTR_hDC[0])
    Local $CTR_hRgn1 = DLLCall($gdi_dll,"hwnd","PathToRegion","int",$CTR_hDC[0])
    Local $CTR_rc = DLLStructCreate("int;int;int;int")
    DLLCall($gdi_dll,"int","GetRgnBox","hwnd",$CTR_hRgn1[0],"ptr",DllStructGetPtr($CTR_rc))
    Local $CTR_hRgn2 = DLLCall($gdi_dll,"hwnd","CreateRectRgnIndirect","ptr",DllStructGetPtr($CTR_rc))
    DLLCall($gdi_dll,"int","CombineRgn","hwnd",$CTR_hRgn2[0],"hwnd",$CTR_hRgn2[0],"hwnd",$CTR_hRgn1[0],"int",$RGN_XOR)
    DLLCall($gdi_dll,"int","DeleteObject","hwnd",$CTR_hRgn1[0])
    DLLCall("user32.dll","int","ReleaseDC","hwnd",$CTR_hwnd,"int",$CTR_hDC[0])
    DLLCall($gdi_dll,"int","SelectObject","int",$CTR_hDC[0],"hwnd",$CTR_hOldFont[0])
    DLLClose($gdi_dll)
    Return $CTR_hRgn2[0]
EndFunc

audio.au3

Edited by infernothebest

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Nice!!!.. Very good..

edit (I would Tidy this script.. (its a tool in scite) )

Edited by ludocus

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

1) go to the path of your file click right mouse button on it and then click Tidy

2) Press in scite CTRL+T

if you dont have tidy get it here

Edited by ludocus

Share this post


Link to post
Share on other sites

oke, does anyone know a fix for use ingame? because if i start css and play andd press a shortcut key css will mimize. Is there a way to view this ingame and not minize

Share this post


Link to post
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
Sign in to follow this  
Followers 0