Hier die Fehlermeldung:
[autoit]>O:\AutoIt\SciTe\..\au3check.exe "O:\AutoScrIpTs\test.au3"
AutoIt3 Syntax Checker v1.54.8 Copyright (c) Tylo 2007
O:\AutoScrIpTs\test.au3(406,39) : ERROR: _ToggleTrans(): undefined function.
_ToggleTrans($Window, $Window_Trans)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
O:\AutoScrIpTs\test.au3 - 1 error(s), 0 warning(s)
>Exit code: 2 Time: 0.435
und hier das Script:
Spoiler anzeigen
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; OnAutoItStart
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func OnAutoItStart()
Local $ini = @scriptdir & "\Settings.ini"
Local $iniWin = @scriptdir & "\Windows.ini"
Local $iniTop = @scriptdir & "\Window_Top.ini"
Local $iniTray = @scriptdir & "\Window_Tray.ini"
Local $iniHide = @scriptdir & "\Window_Hide.ini"
Local $iniTTI = @scriptdir & "\Window_TTi.ini"
Local $iniTrans = @scriptdir & "\Window_Trans.ini"
Local $iniMove = @scriptdir & "\Window_Move.ini"
FileDelete($iniWin)
FileDelete($iniTop)
FileDelete($iniTray)
FileDelete($iniHide)
FileDelete($iniTTI)
FileDelete($iniTrans)
FileDelete($iniMove)
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Includes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include <WINAPI.au3>
#include <array.au3>
#include <Process.au3>
#include <File.au3>
#include <GUIConstants.au3>
#Include <GuiListView.au3>
#include <GuiConstantsEx.au3>
#Include <GuiEdit.au3>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Options
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Opt("GUIOnEventMode", 1)
Opt("WinTitleMatchMode", 2)
;Opt("OnExitFunc", "_EndScript")
Opt("GUICloseOnESC", 0)
Opt("TrayMenuMode",1)
Opt("TrayOnEventMode",1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Variablen
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Global $ini = @scriptdir & "\Settings.ini"
Global $iniWin = @scriptdir & "\Windows.ini"
Global $iniTop = @scriptdir & "\Window_Top.ini"
Global $iniTray = @scriptdir & "\Window_Tray.ini"
Global $iniHide = @scriptdir & "\Window_Hide.ini"
Global $iniTTI = @scriptdir & "\Window_TTi.ini"
Global $iniTrans = @scriptdir & "\Window_Trans.ini"
Global $iniMove = @scriptdir & "\Window_Move.ini"
Global $WinList, $var2, $tInfo, $ListView1, $B_DESCENDING
Dim $transwins, $wins, $Transparency, $i_transcolor, $Window, $Window_Trans
Global $Title = "Window Management DeluxXx Edition V++"
[/autoit] [autoit][/autoit] [autoit]$dll = DllOpen("user32.dll")
[/autoit] [autoit][/autoit] [autoit];;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; TrayMenü
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
TraySetToolTip($Title)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN, "_TrayLClick")
TraySetOnEvent($TRAY_EVENT_SecondaryDOWN, "_TrayRClick")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Hotkeys
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HotKeySet("!{ESC}", "_ToogleMain") ;show/hide main-window
HotKeySet("!^{ESC}", "_EndScript") ;show/hide main-window
HotKeySet("^!m", "_ToogleTray") ;show/hide Tray
HotKeySet("{F9}","_HKToggleTop") ;set active window on top or back
HotKeySet("{F10}", "_HKToogleTrans") ;set trans to window or back
HotKeySet("{F7}", "_HKWindowHide") ;hide window
HotKeySet("^!{F7}", "_AllWindowHideBack") ;set hide back on all windows
HotKeySet("{F8}", "_HKWindowTray") ;hide window to tray
HotKeySet("^!{F8}", "_AllWindowTrayBack") ;set hide to tray back on all windows
HotKeySet("!^{INS}", "_HKWindowTransNoClick") ;set immun to window
HotKeySet("!{INS}", "_AllWindowTransNoClickBack") ;set immun back on all windows
HotKeySet("!{PGUP}", "_TransPlus") ;set window-trans +10
HotKeySet("!{PGDN}", "_TransMinus") ;set window-trans -10
HotKeySet("!{UP}", "_MoveWindowUP") ;move active window to top
HotKeySet("!{DOWN}", "_MoveWindowDOWN") ;move active window to bottom
HotKeySet("!{LEFT}", "_MoveWindowLEFT") ;move active window to left
HotKeySet("!{RIGHT}", "_MoveWindowRIGHT") ;move active window to right
HotKeySet("!^{F9}", "_MoveWindowMax") ;maximize active window
HotKeySet("{F11}","_ExploreVertical") ;show 2 vertical explorer windows
HotKeySet("!{F11}","_ExploreHorizontal") ;show 2 horizontal explorer windows
HotKeySet("!^s","_ToogleHiddenFiles") ;show/hide hidden files
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Create GUI
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#Region ### START Koda GUI section ### Form=o:\autoscripts\window management\form1.kxf
[/autoit] [autoit][/autoit] [autoit]$Form1_1 = GUICreate($Title, 510, 301, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetOnEvent($GUI_EVENT_CLOSE, "_EndScript")
$MenuItem1 = GUICtrlCreateMenu("&File")
$MenuItem2 = GUICtrlCreateMenuItem("Show/Hide Tray" & @TAB & "[ALT Gr + M]", $MenuItem1)
GUICtrlSetOnEvent($MenuItem2, "_ToogleTray")
$MenuItem3 = GUICtrlCreateMenuItem("", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Exit" & @TAB & "[ALT Gr + ESC]", $MenuItem1)
GUICtrlSetOnEvent($MenuItem4, "_EndScript")
$MenuItem5 = GUICtrlCreateMenu("&Explorer")
$MenuItem6 = GUICtrlCreateMenuItem("2 Windows Vertical" & @TAB & "[F11]", $MenuItem5)
GUICtrlSetOnEvent($MenuItem6, "_ExploreVertical")
$MenuItem7 = GUICtrlCreateMenuItem("2 Windows Horizontal" & @TAB & "[ALT + F11]", $MenuItem5)
GUICtrlSetOnEvent($MenuItem7, "_ExploreHorizontal")
$MenuItem8 = GUICtrlCreateMenuItem("", $MenuItem5)
$i_State = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden")
If $i_State = 1 Then
$MenuItem9 = GUICtrlCreateMenuItem("Show Hidden Files" & @TAB & "[ALT Gr + S]", $MenuItem5)
GUICtrlSetOnEvent($MenuItem9, "_ToogleHiddenFiles")
ElseIf $i_State = 2 Then
$MenuItem10 = GUICtrlCreateMenuItem("Hide Hidden Files" & @TAB & "[ALT Gr + S]", $MenuItem5)
GUICtrlSetOnEvent($MenuItem10, "_ToogleHiddenFiles")
EndIf
$MenuItem11 = GUICtrlCreateMenu("&More")
$MenuItem12 = GUICtrlCreateMenuItem("Help" & @TAB & "[F1]", $MenuItem11)
GUICtrlSetOnEvent($MenuItem12, "_Help")
$PageControl1 = GUICtrlCreateTab(0, 0, 508, 280)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Windows")
$ListView = GUICtrlCreateListView("Process|Windows|Top|Trans|Hide|TTI|Tray", 3, 23, 439, 228, BitOR($LVS_REPORT, $LVS_SINGLESEL, $LVS_SHOWSELALWAYS), BitOR($WS_EX_CLIENTEDGE,$LVS_EX_GRIDLINES,$LVS_EX_CHECKBOXES,$LVS_EX_HEADERDRAGDROP,$LVS_EX_FULLROWSELECT))
$ListView1 = GUICtrlGetHandle($ListView);_GUICtrlListView_Create($Form1_1, "Process|Windows|Top|Tray|Hide|TTI|Trans", 3, 23, 439, 228, BitOR($LVS_REPORT, $LVS_SINGLESEL, $LVS_SHOWSELALWAYS))
_GUICtrlListView_SetExtendedListViewStyle($ListView1, BitOR($WS_EX_CLIENTEDGE,$LVS_EX_GRIDLINES,$LVS_EX_CHECKBOXES,$LVS_EX_HEADERDRAGDROP,$LVS_EX_FULLROWSELECT))
_GUICtrlListView_SetColumnWidth($ListView1, 0, 80)
_GUICtrlListView_SetColumnWidth($ListView1, 1, 170)
_GUICtrlListView_SetColumnWidth($ListView1, 2, 35)
_GUICtrlListView_SetColumnWidth($ListView1, 3, 35)
_GUICtrlListView_SetColumnWidth($ListView1, 4, 35)
_GUICtrlListView_SetColumnWidth($ListView1, 5, 35)
_GUICtrlListView_SetColumnWidth($ListView1, 6, 45)
$Button1 = GUICtrlCreateButton("update", 3, 253, 441, 25, 0, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetOnEvent($Button1, "_UpdateListView")
$Button2 = GUICtrlCreateButton("Top", 448, 58, 55, 20, 0, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetOnEvent($Button2, "_BToogleTop")
$Button3 = GUICtrlCreateButton("Tray", 448, 93, 55, 20, 0, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetState($Button3, $GUI_Disable)
GUICtrlSetOnEvent($Button3, "_BWindowTray")
$Button4 = GUICtrlCreateButton("Hide", 448, 129, 55, 20, 0, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetOnEvent($Button4, "_BWindowHide")
$Button5 = GUICtrlCreateButton("T T I", 448, 164, 55, 20, 0, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetOnEvent($Button5, "_BWindowTransNoClick")
$Button6 = GUICtrlCreateButton("Trans", 448, 199, 55, 20, 0, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetOnEvent($Button6, "_BToogleTrans")
;$PageControl2 = GUICtrlCreateTab(-1,-1, 508, 280)
; GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet2 = GUICtrlCreateTabItem("WRiTeR")
$Edit = GUICtrlCreateEdit("", 2, 22, 503, 255)
$Edit1 = GUICtrlGetHandle($Edit)
_GUICtrlEdit_SetText($Edit1, StringReplace(IniRead($ini, "WRiTeR", "Notes", ""), "[CRLF]" ,@CRLF))
[/autoit] [autoit][/autoit] [autoit]WinSetTrans($Title, "", 200)
WinSetOnTop($Title,'',1)
;~ Global $B_DESCENDING[_GUICtrlListView_GetColumnCount ($ListView1) ]
;~ GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUISetState(@SW_SHOW)
;GUISetState(@SW_MINIMIZE)
#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]_UpdateListView()
While 1
Sleep(10)
If _IsPressed("1B") Then
$WinGetState = WinGetState($Title)
If $WinGetState = 15 or $WinGetState = 31 Then _ToogleMain()
ElseIf _IsPressed("70") And IsVisible($Form1_1) Then
_Help()
EndIf
WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Update Listview
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _UpdateListView()
FileDelete($iniWin)
_GUICtrlListView_DeleteAllItems($ListView1)
$WinList = WinList()
For $i = 1 to $WinList[0][0]
If Not @error Then
If $WinList[$i][0] <> "" AND IsVisible($WinList[$i][1]) Then
$ProcessName = _ProcessGetName(WinGetProcess($WinList[$i][0]))
If $ProcessName = @ScriptName Then
Else
_GUICtrlListView_AddItem($ListView1, $ProcessName)
_GUICtrlListView_AddSubItem($ListView1, _GUICtrlListView_GetItemCount($ListView1) - 1, $WinList[$i][0], 1)
$WinIsOnTp = _WinIsOnTop($WinList[$i][0])
If $WinIsOnTp = True Then _GUICtrlListView_AddSubItem($ListView1, _GUICtrlListView_GetItemCount($ListView1) - 1, " x", 2)
;Tray - Missing
$WinIsHide = IniRead($iniHide, $ProcessName, $WinList[$i][0], "")
If $WinIsHide <> "" Then _GUICtrlListView_AddSubItem($ListView1, _GUICtrlListView_GetItemCount($ListView1) - 1, " x", 4)
$WinIsTTI = IniRead($iniTTI, $ProcessName, $WinList[$i][0], "")
If $WinIsTTI <> "" Then _GUICtrlListView_AddSubItem($ListView1, _GUICtrlListView_GetItemCount($ListView1) - 1, " x", 5)
_API_GetLayeredWindowAttributes(WinGetHandle($WinList[$i][0]),$i_transcolor,$Transparency)
If $Transparency <> -1 Then
_GUICtrlListView_AddSubItem($ListView1, _GUICtrlListView_GetItemCount($ListView1) - 1, " " & $Transparency, 6)
Else
_GUICtrlListView_AddSubItem($ListView1, _GUICtrlListView_GetItemCount($ListView1) - 1, "", 6)
EndIf
EndIf
EndIf
EndIf
Next
;~ Global $B_DESCENDING[_GUICtrlListView_GetColumnCount ($ListView1) ]
;~ _GUICtrlListView_SimpleSort ($ListView1, $B_DESCENDING, DllStructGetData($tInfo, "SubItem"))
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; GUICtrlSetOnEvent
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;EndFunc
Func _EndScript()
WinSetState($TiTle, "", @sw_hide)
;ReMove
$SectionName = IniReadSectionNames($iniMove)
If Not @error Then
For $i = 1 To $SectionName[0]
$Section = IniReadSection($iniMove, $SectionName[$i])
If Not @error Then
For $ii = 1 To $Section[0][0]
$Value = IniRead($iniMove, $SectionName[$i], $Section[$ii][0], "")
$Split = StringSplit($Value, "|")
If Not @error Then
WinMove($Section[$ii][0], "", $Split[1], $Split[2], $Split[3], $Split[4])
EndIf
Next
EndIf
Next
EndIf
;ReTrans
$SectionName = IniReadSectionNames($iniTrans)
If Not @error Then
For $i = 1 To $SectionName[0]
$Section = IniReadSection($iniTrans, $SectionName[$i])
If Not @error Then
For $ii = 1 To $Section[0][0]
$Value = IniRead($iniTrans, $SectionName[$i], $Section[$ii][0], "255")
WinSetTrans($Section[$ii][0], "", $value)
Next
EndIf
Next
EndIf
;ReOnTop
$SectionName = IniReadSectionNames($iniTop)
If Not @error Then
For $i = 1 To $SectionName[0]
$Section = IniReadSection($iniTop, $SectionName[$i])
If Not @error Then
For $ii = 1 To $Section[0][0]
$Value = IniRead($iniTop, $SectionName[$i], $Section[$ii][0], "False")
If $Value = "False" Then
WinSetOnTop($Section[$ii][0], "", 0)
WinSetState($Section[$ii][0], "", @SW_MINIMIZE)
Else
WinSetOnTop($Section[$ii][0], "", 1)
EndIf
IniDelete($iniTop, $SectionName[$i], $Section[$ii][0])
Next
EndIf
Next
EndIf
;ReHide
_AllWindowHideBack()
;ReImmunization
_AllWindowTransNoClickBack()
IniDelete($ini, "WRiTeR", "Notes")
IniWrite($ini, "WRiTeR", "Notes", StringReplace(_GUICtrlEdit_GetText($Edit1), @CRLF, "[CRLF]"))
FileDelete($iniWin)
FileDelete($iniTop)
FileDelete($iniTray)
FileDelete($iniHide)
FileDelete($iniTTI)
FileDelete($iniTrans)
FileDelete($iniMove)
DllClose($dll)
Exit
EndFunc
;show/hide main
Func _ToogleMain()
$State = WinGetState($Title)
If $State = 15 Or $State = 7 Then
WinSetState($Title, "", @SW_HIDE)
ElseIf $State = 23 Then
WinSetState($Title, "", @SW_RESTORE)
Else
WinSetState($Title, "", @SW_RESTORE)
EndIf
EndFunc
;show/hide tray-icon
Func _ToogleTray()
Opt("TrayIconHide", Not Opt("TrayIconHide", "Default"))
EndFunc
;show Tab1
Func _TrayLClick()
GUICtrlSetState($TabSheet1,$GUI_SHOW)
WinSetState($Title, "", @sw_show)
EndFunc
;show Tab2
Func _TrayRClick()
GUICtrlSetState($TabSheet2,$GUI_SHOW)
WinSetState($Title, "", @sw_show)
EndFunc
;show Help
Func _Help()
SplashTextOn("Hotkey Hilfe", "Hotkey Hilfe" & @TAB & @TAB & @TAB & @TAB & @TAB & @TAB & "Ende durch ESC" & @CRLF & @CRLF & "Hauptfenster:" & @CRLF & @CRLF & "ESC" & @TAB & @TAB & "versteckt Hauptfenster, Programm läuft weiter (Fokus)" & @CRLF & "STRG ESC" & @TAB & "zeigt/versteckt Hauptfenster (Global)" & @CRLF & @CRLF & "Fenster Management:" & @CRLF & @CRLF & "F9" & @TAB & @TAB & "setzt aktives Fenster ON TOP oder zurück (Fokus)" & @CRLF & "ALT Gr F9" & @TAB & "maximiert aktives Fenster (Fokus)" & @CRLF & "F10" & @TAB & @TAB & "setzt aktives Fenster halb-transparent/transparenz rückgängig (Fokus)" & @CRLF & "ALT +/-" & @TAB & @TAB & "setzt Fenster mehr/weniger transparent (Fokus)" & @CRLF & "ALT Gr Einfg" & @TAB & "setz Fenster ON TOP, transparent und immun gegen Eingaben (Fokus)" & @CRLF & "ALT Einfg" & @TAB & 'setzt die Einstellung die durch "ALT Gr Einfg" getroffen wurden, ' & @CRLF & @TAB & @TAB & 'zurück (Global)' & @CRLF & @CRLF & "Explorer Management:" & @CRLF & @CRLF & "F11" & @TAB & @TAB & "öffnet 2 Explorer-Fenster nebeneinander (Global)" & @CRLF & "ALT F11" & @TAB & "öffnet 2 Explorer-Fenster untereinander (Global)" & @CRLF & "ALT -Pfeiltaste-" & @TAB & "verschiebt Fenster an entsprechenden Bildschirmrand (Fokus)" & @CRLF & "ALT Gr S" & @TAB & "zeigt/versteckt versteckte Dateien unter Windows (Global)", 630, 500, -1, -1, 0 + 1 + 4 + 32, "", "", 400)
While 1
Sleep(100)
If _IsPressed("1B") Then
SplashOff()
ExitLoop
EndIf
WEnd
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Button Funcs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _BToogleTop()
For $i = 1 To _GUICtrlListView_GetItemCount($ListView1)
$LV_Checked = _GUICtrlListView_GetItemChecked($ListView1, $i - 1)
If $LV_Checked = True Then
$Window = _GUICtrlListView_GetItemText($ListView1, $i - 1, 1)
_ToggleTop($Window)
_GUICtrlListView_SetItemChecked($ListView1, $i - 1, False)
EndIf
Next
EndFunc
Func _BWindowTray()
For $i = 1 To _GUICtrlListView_GetItemCount($ListView1)
$LV_Checked = _GUICtrlListView_GetItemChecked($ListView1, $i - 1)
If $LV_Checked = True Then
$Window = _GUICtrlListView_GetItemText($ListView1, $i - 1, 1)
_WindowTray($Window)
_GUICtrlListView_SetItemChecked($ListView1, $i - 1, False)
EndIf
Next
EndFunc
Func _BWindowHide()
For $i = 1 To _GUICtrlListView_GetItemCount($ListView1)
$LV_Checked = _GUICtrlListView_GetItemChecked($ListView1, $i - 1)
If $LV_Checked = True Then
$Window = _GUICtrlListView_GetItemText($ListView1, $i - 1, 1)
_WindowHide($Window)
_GUICtrlListView_SetItemChecked($ListView1, $i - 1, False)
EndIf
Next
EndFunc
Func _BWindowTransNoClick()
For $i = 1 To _GUICtrlListView_GetItemCount($ListView1)
$LV_Checked = _GUICtrlListView_GetItemChecked($ListView1, $i - 1)
If $LV_Checked = True Then
$Window = _GUICtrlListView_GetItemText($ListView1, $i - 1, 1)
_WindowTransNoClick($Window)
_GUICtrlListView_SetItemChecked($ListView1, $i - 1, False)
EndIf
Next
EndFunc
Func _BToogleTrans()
WinSetOnTop($Title, "", 0)
$Window_Trans = InputBox("Transparency", "Please enter Transparency between 0 (invisible) and 255 (solid).", "", "", 210, 150)
If @error Then $Window_Trans = 200
WinSetOnTop($Title, "", 1)
For $i = 1 To _GUICtrlListView_GetItemCount($ListView1)
$LV_Checked = _GUICtrlListView_GetItemChecked($ListView1, $i - 1)
If $LV_Checked = True Then
$Window = _GUICtrlListView_GetItemText($ListView1, $i - 1, 1)
_ToggleTrans($Window, $Window_Trans)
_GUICtrlListView_SetItemChecked($ListView1, $i - 1, False)
EndIf
Next
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Hotkey Funcs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _HKToggleTop()
$Window = ''
_ToggleTop($Window)
EndFunc
Func _HKToogleTrans()
$Window = ''
$Window_Trans = 200
_ToggleTrans($Window, $Window_Trans)
EndFunc
Func _HKWindowHide()
$Window = ''
_ToggleHide($Window)
EndFunc
Func _HKWindowTray()
$Window = ''
_ToggleTray($Window)
EndFunc
Func _HKWindowTransNoClick()
$Window = ''
_WindowTransNoClick($Window)
EndFunc
Func _HKMoveWindowUP()
EndFunc
Func _HKMoveWindowDOWN()
EndFunc
Func _HKMoveWindowLEFT()
EndFunc
Func _HKMoveWindowRIGHT()
EndFunc
Func _HKMoveWindowMax()
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Window Funcs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;more Transparency
Func _TransPlus()
$WinGetHandle = WinGetHandle("")
$WinGetTitle = WinGetTitle("")
$ProcessName = _ProcessGetName(WinGetProcess($WinGetTitle))
_API_GetLayeredWindowAttributes($WinGetHandle,$i_transcolor,$Transparency)
If IniRead($iniTrans, $ProcessName, $WinGetTitle, "") = "" Then IniWrite($iniTrans, $ProcessName, $WinGetTitle, $Transparency)
If $Transparency = -1 or $Transparency = 255 Or $Transparency + 10 > 255 Then
WinSetTrans($WinGetTitle, '', 255)
Else
WinSetTrans($WinGetTitle, '', $Transparency + 10)
EndIf
_UpdateListView()
EndFunc
;less Transparency
Func _TransMinus()
$WinGetHandle = WinGetHandle("")
$WinGetTitle = WinGetTitle("")
$ProcessName = _ProcessGetName(WinGetProcess($WinGetTitle))
_API_GetLayeredWindowAttributes($WinGetHandle,$i_transcolor,$Transparency)
If IniRead($iniTrans, $ProcessName, $WinGetTitle, "") = "" Then IniWrite($iniTrans, $ProcessName, $WinGetTitle, $Transparency)
If $Transparency = -1 or $Transparency = 255 Then
WinSetTrans($WinGetTitle, '', 255 - 10)
ElseIf $Transparency - 10 > 0 then
WinSetTrans($WinGetTitle, '', $Transparency - 10)
Else
WinSetTrans($WinGetTitle, '', 10)
EndIf
_UpdateListView()
EndFunc
;sets fix trans to window
Func _ToogleTrans($Window, $Window_Trans)
$WinGetHandle = WinGetHandle($Window)
$WinGetTitle = WinGetTitle($Window)
$ProcessName = _ProcessGetName(WinGetProcess($WinGetTitle))
_API_GetLayeredWindowAttributes($WinGetHandle,$i_transcolor,$Transparency)
If IniRead($iniTrans, $ProcessName, $WinGetTitle, "") = "" Then IniWrite($iniTrans, $ProcessName, $WinGetTitle, $Transparency)
If $Transparency = -1 Or $Transparency = 255 Then
WinSetTrans($WinGetTitle,'', $Window_Trans)
Else
WinSetTrans($WinGetTitle,'', 255)
EndIf
_UpdateListView()
EndFunc
;immunize window
Func _WindowTransNoClick($Window)
$WinGetTitle = WinGetTitle($Window)
If $WinGetTitle <> $Title Then
$ProcessName = _ProcessGetName(WinGetProcess($WinGetTitle))
$Value = IniRead($iniTTI, $ProcessName, $WinGetTitle, "")
If $Value = "" Then
_Win_SetClickThrough($WinGetTitle)
IniWrite($iniTTI, $ProcessName, $WinGetTitle, "x")
Else
_Win_SetClickThrough($WinGetTitle, "", False)
IniDelete($iniTTI, $ProcessName, $WinGetTitle)
EndIf
EndIf
_UpdateListView()
EndFunc
;hide window
Func _WindowHide($Window)
$WinGetHandle = WinGetHandle($Window)
$WinGetTitle = WinGetTitle($Window)
$ProcessName = _ProcessGetName(WinGetProcess($WinGetTitle))
If IniRead($iniHide, $ProcessName, $WinGetTitle, "") = "" Then
WinSetState($WinGetTitle, "", @SW_HIDE)
IniWrite($iniHide, $ProcessName, $WinGetTitle, "x")
Else
WinSetState($WinGetTitle, "", @SW_SHOW)
IniDelete($iniHide, $ProcessName, $WinGetTitle)
EndIf
_UpdateListView()
EndFunc
;toogle on top
Func _ToggleTop($Window)
$WinGetHandle = WinGetHandle($Window)
$WinGetTitle = WinGetTitle($Window)
$ProcessName = _ProcessGetName(WinGetProcess($WinGetTitle))
$WinIsOnTop = _WinIsOnTop($WinGetHandle)
If IniRead($iniTop, $ProcessName, $WinGetTitle, "") = "" Then IniWrite($iniTop, $ProcessName, $WinGetTitle, $WinIsOnTop)
If $WinIsOnTop = True Then
WinSetOnTop($WinGetTitle, "", 0)
Else
WinSetOnTop($WinGetTitle, "", 1)
EndIf
WinSetOnTop($Form1_1, "", 1)
_UpdateListView()
EndFunc
;hide window to tray
Func _WindowTray($Window)
_UpdateListView()
EndFunc
;;;;;;;;;;;;;;;;
;Set-Back Funcs
;;;;;;;;;;;;;;;;
;set hide to tray back on all windows
Func _AllWindowTrayBack()
_UpdateListView()
EndFunc
;set immunization back
Func _AllWindowTransNoClickBack()
$SectionName = IniReadSectionNames($iniTTI)
If Not @error Then
For $i = 1 To $SectionName[0]
$Section = IniReadSection($iniTTI, $SectionName[$i])
If Not @error Then
For $ii = 1 To $Section[0][0]
$WinGetHandle = WinGetHandle($Section[$ii][0])
$Style = _WinAPI_GetWindowLong($WinGetHandle,$GWL_EXSTYLE)
If BitAND($Style,$WS_EX_TRANSPARENT) = $WS_EX_TRANSPARENT And BitAND($Style,$WS_EX_LAYERED) = $WS_EX_LAYERED Then
$ProcessName = _ProcessGetName(WinGetProcess($WinGetHandle))
If $ProcessName <> @ScriptName Then
_Win_SetClickThrough($WinGetHandle, "", False)
WinSetOnTop($WinGetHandle, "", 0)
WinSetTrans($WinGetHandle, "", 255)
IniDelete($iniTTI, $ProcessName, $Section[$ii][0])
EndIf
EndIf
Next
EndIf
Next
EndIf
_UpdateListView()
EndFunc
Func _AllWindowHideBack()
$SectionName = IniReadSectionNames($iniHide)
If Not @error Then
For $i = 1 To $SectionName[0]
$Section = IniReadSection($iniHide, $SectionName[$i])
If Not @error Then
For $ii = 1 To $Section[0][0]
$Value = IniRead($iniHide, $SectionName[$i], $Section[$ii][0], "x")
If $Value <> "" Then
WinSetState($Section[$ii][0], "", @SW_SHOW)
Else
WinSetState($Section[$ii][0], "", @SW_HIDE)
EndIf
Next
EndIf
Next
EndIf
_UpdateListView()
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Explorer Funcs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;2 explorer windows vertical
Func _ExploreVertical()
$appHorizontal = False
_Explore($appHorizontal)
EndFunc
;2 explorer windows horizontal
Func _ExploreHorizontal()
$appHorizontal = True
_Explore($appHorizontal)
EndFunc
;create explorer windows
Func _Explore($appHorizontal)
Local $aSize[3][5] ; [0]=Handle, [1]=Breite, [2]=Höhe, [3]=x, [4]=y
$aSize[0][1] = @DesktopWidth
$aSize[0][2] = @DesktopHeight
If $appHorizontal = True Then
$aSize[1][1] = @DesktopWidth/2
$aSize[2][1] = @DesktopWidth/2
$aSize[1][2] = @DesktopHeight
$aSize[2][2] = @DesktopHeight
$aSize[1][3] = 0
$aSize[2][3] = @DesktopWidth/2
$aSize[1][4] = 0
$aSize[2][4] = 0
ElseIf $appHorizontal = False Then
$aSize[1][1] = @DesktopWidth
$aSize[2][1] = @DesktopWidth
$aSize[1][2] = @DesktopHeight/2 + 12.5
$aSize[2][2] = @DesktopHeight/2 + 12.5
$aSize[1][3] = 0
$aSize[2][3] = 0
$aSize[1][4] = 0
$aSize[2][4] = @DesktopHeight/2 - 12.5
EndIf
Run ('Explorer.exe /e, ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}', '', @SW_HIDE)
WinWaitActive('Arbeitsplatz')
$aSize[1][0] = WinGetHandle('Arbeitsplatz')
WinMove($aSize[1][0], '', $aSize[1][3], $aSize[1][4], $aSize[1][1], $aSize[1][2] - 25)
WinSetTitle('Arbeitsplatz', '', 'Arbeitsplatz_1')
Run ('Explorer.exe /e, ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}', '', @SW_HIDE)
WinWaitActive('Arbeitsplatz')
$aSize[2][0] = WinGetHandle('Arbeitsplatz')
WinMove($aSize[2][0], '', $aSize[2][3], $aSize[2][4], $aSize[2][1], $aSize[2][2] - 25)
WinSetTitle('Arbeitsplatz', '', 'Arbeitsplatz_2')
WinSetState($aSize[1][0], '', @SW_SHOW)
WinSetState($aSize[2][0], '', @SW_SHOW)
EndFunc
;show/hide hidden files
Func _ToogleHiddenFiles()
_ChangeFileVisible()
If @error Then Exit
_ChangeFileVisible2()
EndFunc
;change RegKey for show/hide hidden files
Func _ChangeFileVisible()
Local $i_State
;
$i_State = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden")
If $i_State = 1 Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD", "2")
If Not @error Then Return 1
ElseIf $i_State = 2 Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD", "1")
If Not @error Then Return 1
EndIf
If @error Then Return 0
EndFunc
;change explorer view to show/hide hidden files
Func _ChangeFileVisible2()
Local $i_State
Local $i_TabControl
$i_State = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden")
If $i_State = 1 Then
$i_Down = 16
ElseIf $i_State = 2 Then
$i_Down = 15
EndIf
Run("RunDll32.exe shell32.dll,Options_RunDLL 0", "", @SW_HIDE)
WinWait("Ordneroptionen", "")
WinSetTrans("Ordneroptionen", "", 0)
$h_Win = WinGetHandle("Ordneroptionen", "")
While $i_TabControl <> 2
$i_TabControl = ControlCommand($h_Win, "", "SysTabControl321", "CurrentTab", "")
If $i_TabControl == 1 Then
Sleep(100)
ControlCommand($h_Win, "", "SysTabControl321", "TabRight", "")
ElseIf $i_TabControl == 2 Then
ElseIf $i_TabControl == 3 Then
Sleep(100)
ControlCommand($h_Win, "", "SysTabControl321", "TabLeft", "")
ElseIf $i_TabControl == 4 Then
Sleep(100)
ControlCommand($h_Win, "", "SysTabControl321", "TabLeft", "")
Sleep(100)
ControlCommand($h_Win, "", "SysTabControl321", "TabLeft", "")
EndIf
WEnd
ControlSend($h_Win, "", "", "{TAB}")
Sleep(100)
ControlSend($h_Win, "", "", "{DOWN " & $i_Down & "}{SPACE}")
Sleep(100)
ControlSend($h_Win, "", "", "!b")
Sleep(100)
ControlSend($h_Win, "", "", "{TAB}")
Sleep(100)
ControlSend($h_Win, "", "", "{TAB}")
Sleep(100)
ControlSend($h_Win, "", "", "{TAB}{ENTER}")
Return 1
EndFunc
;window to top
Func _MoveWindowUP()
_MoveWindow("UP")
EndFunc
;window to bottom
Func _MoveWindowDOWN()
_MoveWindow("DOWN")
EndFunc
;window to left
Func _MoveWindowLEFT()
_MoveWindow("LEFT")
EndFunc
;window to right
Func _MoveWindowRIGHT()
_MoveWindow("RIGHT")
EndFunc
;window
Func _MoveWindowMax()
_MoveWindow("Max")
EndFunc
;moves window
Func _MoveWindow($dummy)
Local $aSize[3][5] ; [0]=Handle, [1]=Breite, [2]=Höhe, [3]=x, [4]=y
Local $a = Opt("WinTitleMatchMode", 4)
Local $b = Opt("WinSearchChildren", 1)
$aSize[0][1] = @DesktopWidth
$aSize[0][2] = @DesktopHeight
Switch $dummy
Case "UP"
$aSize[1][1] = @DesktopWidth
$aSize[2][1] = @DesktopWidth
$aSize[1][2] = @DesktopHeight / 2
$aSize[2][2] = @DesktopHeight / 2
$aSize[1][3] = 0
$aSize[2][3] = 0
$aSize[1][4] = 0
$aSize[2][4] = @DesktopHeight / 2
$WinGetTitle = WinGetTitle('active')
If $WinGetTitle <> $Title Then
$ProcessName = _ProcessGetName(WinGetProcess($WinGetTitle))
If IniRead($iniMove, $ProcessName, $WinGetTitle, "") = "" Then
$WinPos = WinGetPos($WinGetTitle)
If Not @error Then
IniWrite($iniMove,$ProcessName, $WinGetTitle, $WinPos[0] & "|" & $WinPos[1] & "|" & $WinPos[2] & "|" & $WinPos[3])
EndIf
EndIf
If BitAND(WinGetState($WinGetTitle), 32) = 32 Then WinSetState($WinGetTitle, '', @SW_RESTORE)
WinMove($WinGetTitle, '', $aSize[1][3], $aSize[1][4], $aSize[1][1], $aSize[1][2] - 25)
Else
WinMove($WinGetTitle, '', 0, 0)
EndIf
Case "DOWN"
$aSize[1][1] = @DesktopWidth
$aSize[2][1] = @DesktopWidth
$aSize[1][2] = @DesktopHeight / 2
$aSize[2][2] = @DesktopHeight / 2
$aSize[1][3] = 0
$aSize[2][3] = 0
$aSize[1][4] = $aSize[1][2]
$aSize[2][4] = @DesktopHeight / 2
$WinGetTitle = WinGetTitle('active')
If $WinGetTitle <> $Title Then
$ProcessName = _ProcessGetName(WinGetProcess($WinGetTitle))
If IniRead($iniMove, $ProcessName, $WinGetTitle, "") = "" Then
$WinPos = WinGetPos($WinGetTitle)
If Not @error Then
IniWrite($iniMove,$ProcessName, $WinGetTitle, $WinPos[0] & "|" & $WinPos[1] & "|" & $WinPos[2] & "|" & $WinPos[3])
EndIf
EndIf
If BitAND(WinGetState($WinGetTitle), 32) = 32 Then WinSetState($WinGetTitle, '', @SW_RESTORE)
WinMove('active', '', $aSize[1][3], $aSize[1][4], $aSize[1][1], $aSize[1][2] - 25)
Else
WinMove('active', '', @DesktopWidth - 305, @DesktopHeight - 340)
EndIf
Case "LEFT"
$aSize[1][1] = @DesktopWidth / 2
$aSize[2][1] = @DesktopWidth / 2
$aSize[1][2] = @DesktopHeight
$aSize[2][2] = @DesktopHeight
$aSize[1][3] = 0
$aSize[2][3] = @DesktopWidth / 2
$aSize[1][4] = 0
$aSize[2][4] = 0
$WinGetTitle = WinGetTitle('active')
If $WinGetTitle <> $Title Then
$ProcessName = _ProcessGetName(WinGetProcess($WinGetTitle))
If IniRead($iniMove, $ProcessName, $WinGetTitle, "") = "" Then
$WinPos = WinGetPos($WinGetTitle)
If Not @error Then
IniWrite($iniMove,$ProcessName, $WinGetTitle, $WinPos[0] & "|" & $WinPos[1] & "|" & $WinPos[2] & "|" & $WinPos[3])
EndIf
EndIf
If BitAND(WinGetState($WinGetTitle), 32) = 32 Then WinSetState($WinGetTitle, '', @SW_RESTORE)
WinMove('active', '', $aSize[1][3], $aSize[1][4], $aSize[1][1], $aSize[1][2] - 25)
Else
WinMove('active', '', 0, @DesktopHeight - 340)
EndIf
Case "RIGHT"
$aSize[1][1] = @DesktopWidth / 2
$aSize[2][1] = @DesktopWidth / 2
$aSize[1][2] = @DesktopHeight
$aSize[2][2] = @DesktopHeight
$aSize[1][3] = $aSize[1][1]
$aSize[2][3] = @DesktopWidth / 2
$aSize[1][4] = 0
$aSize[2][4] = 0
$WinGetTitle = WinGetTitle('active')
If $WinGetTitle <> $Title Then
$ProcessName = _ProcessGetName(WinGetProcess($WinGetTitle))
If IniRead($iniMove, $ProcessName, $WinGetTitle, "") = "" Then
$WinPos = WinGetPos($WinGetTitle)
If Not @error Then
IniWrite($iniMove,$ProcessName, $WinGetTitle, $WinPos[0] & "|" & $WinPos[1] & "|" & $WinPos[2] & "|" & $WinPos[3])
EndIf
EndIf
If BitAND(WinGetState($WinGetTitle), 32) = 32 Then WinSetState($WinGetTitle, '', @SW_RESTORE)
WinMove('active', '', $aSize[1][3], $aSize[1][4], $aSize[1][1], $aSize[1][2] - 25)
Else
WinMove('active', '', @DesktopWidth - 305, 0)
EndIf
Case "Max"
$WinGetTitle = WinGetTitle('active')
If $WinGetTitle <> $Title Then
$ProcessName = _ProcessGetName(WinGetProcess($WinGetTitle))
If IniRead($iniMove, $ProcessName, $WinGetTitle, "") = "" Then
$WinPos = WinGetPos($WinGetTitle)
If Not @error Then
IniWrite($iniMove,$ProcessName, $WinGetTitle, $WinPos[0] & "|" & $WinPos[1] & "|" & $WinPos[2] & "|" & $WinPos[3])
EndIf
EndIf
WinSetState('active', '', @SW_MAXIMIZE)
EndIf
EndSwitch
Opt("WinTitleMatchMode", $a)
Opt("WinSearchChildren", $b)
EndFunc ;==>_MoveWindow
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Extended Window Funcs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;check if window is visible
Func IsVisible($handle)
If BitAnd( WinGetState($handle), 2 ) Then
Return 1
Else
Return 0
EndIf
EndFunc
;get transparency of a window
Func _API_GetLayeredWindowAttributes($hwnd, ByRef $i_transcolor, ByRef $Transparency)
$i_transcolor = -1
$Transparency = -1
Local Const $AC_SRC_ALPHA = 1
Local Const $ULW_ALPHA = 2
Local Const $LWA_ALPHA = 0x2
Local Const $LWA_COLORKEY = 0x1
Local $Ret = DllCall("user32.dll", "int", "GetLayeredWindowAttributes", "hwnd", $hwnd, "long*", $i_transcolor, "byte*", $Transparency, "long*",0)
Select
Case @error
Return SetError(@error,0,0)
Case $ret[0] = 0
Return SetError(4,0,0)
Case Else
$i_transcolor = $ret[2]
$Transparency = $ret[3]
Return $ret[4]
EndSelect
EndFunc ;==>_API_SetLayeredWindowAttributes
;set window "immun"
Func _Win_SetClickThrough($title,$text = "",$noclic = True)
Local $hWnd = WinGetHandle($title,$text)
If @error Then Return SetError(1,0,0)
If $noclic Then
_WinAPI_SetWindowLong($hWnd,$GWL_EXSTYLE,BitOR(_WinAPI_GetWindowLong($hWnd,$GWL_EXSTYLE),$WS_EX_TRANSPARENT))
If @error Then Return SetError(2,0,0)
WinSetTrans($hWnd,"",50) ; Sets the Layered Attribute, but still shows the window
WinSetOnTop($hwnd, "", 1)
If @error Then Return SetError(2,0,0)
Else
_WinAPI_SetWindowLong($hWnd,$GWL_EXSTYLE,BitAND(_WinAPI_GetWindowLong($hWnd,$GWL_EXSTYLE),BitNOT($WS_EX_TRANSPARENT)))
If @error Then Return SetError(2,0,0)
EndIf
Return 1
EndFunc
;check if win is "on top"
Func _WinIsOnTop($WindowHandle)
Local $long = _WinAPI_GetWindowLong(WinGetHandle($WindowHandle),$GWL_EXSTYLE)
Return BitAND($long,8)=8 ; $WS_EX_TOPMOST = 8
EndFunc
;checks double-click on listviewitem
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
$blubb = _GUICtrlListView_GetItemText($hWndFrom, DllStructGetData($tInfo, "Index"), 1)
$Tops = WinSetOnTop($blubb,"",Not _WinIsOnTop($blubb))
;~ _update()
If Not _WinIsOnTop($blubb) Then
WinSetState($blubb, "", @sw_minimize)
IniDelete($ini, "Set Back on Exit", $blubb)
ElseIf _WinIsOnTop($blubb) Then
WinActivate($blubb)
IniWrite($ini, "Set Back on Exit", $blubb, "")
EndIf
WinSetOnTop($Form1_1,'',1)
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
um kurz darauf einzugehen, hier wird per HotKey eine Funktion aufgerufen, die die Hauptfunktion mit Parametern aufruft. Die angemeckerte Funktion existiert, ka warum eine Fehlermeldung kommt:
[autoit]Func _HKToogleTrans()
$Window = ''
$Window_Trans = 200
_ToggleTrans($Window, $Window_Trans)
EndFunc
;sets fix trans to window
Func _ToogleTrans($Window, $Window_Trans)
$WinGetHandle = WinGetHandle($Window)
$WinGetTitle = WinGetTitle($Window)
$ProcessName = _ProcessGetName(WinGetProcess($WinGetTitle))
_API_GetLayeredWindowAttributes($WinGetHandle,$i_transcolor,$Transparency)
If IniRead($iniTrans, $ProcessName, $WinGetTitle, "") = "" Then IniWrite($iniTrans, $ProcessName, $WinGetTitle, $Transparency)
If $Transparency = -1 Or $Transparency = 255 Then
WinSetTrans($WinGetTitle,'', $Window_Trans)
Else
WinSetTrans($WinGetTitle,'', 255)
EndIf
_UpdateListView()
EndFunc
wo ist jetzt der fehler oO