XProfan

Def @GetClassName(3) !"USER32","GetClassNameA"
Def @APIFindWindow(2) !"USER32","FindWindowA"
Declare Handle&,Classname#,Zähler&,Windowname#
Windowstyle 31+512
Windowtitle "Handle der Taskleiste"
Window 0,0-640,440
Dim Windowname#,256
Dim Classname#,256
String Classname#,0="Shell_TrayWnd"
String Windowname#,0=""
LET handle&=@APIFindWindow(Classname#,Windowname#)
Dispose Windowname#
Dispose Classname#
Print "Handle der Taskleiste:"+@str$(Handle&)
@Showwindow(Handle&,0)

While %Menuitem<>-2

    Waitinput

wend

@Showwindow(Handle&,1)