I have the following code, and for some reason when I start the script, the code under the first button automatically
gets loaded. I can't figure out why though.
What am I missing ?
Code: Select all
#NoEnv
#Warn
#SingleInstance Force
DetectHiddenWindows, On
SetTitleMatchMode, 2
PathToScript1 = SRT\Afmelden\SRT Cloud afmelden.ahk
PathToScript2 = TSI\Afmelden\TSI Cloud afmelden.ahk
PathToScript3 = SRT\Afmelden\srt picklists v2.1.ahk
PathToScript4 = TSI\Afmelden\tsi picklists v2.ahk
PathToScript6b = SRT\\hotkeys.ahk v1.0.ahk
PathToScript7 = "\\WINSCHOTEN\Verkooporder\Salesorder.exe"
PathToScript8 = "\\WINSCHOTEN\Verkooporder\order importeren CLOUDVERSIE.ahk"
/*
y=top
x=left
*/
Gui,+AlwaysOnTop +LastFound +HwndGuiHwnd -Caption
Gui, Add, Button, x10 y10 w100 h20 gScript1 , SRT afmelden
Gui, Add, Button, x115 y10 w100 h20 gScript2 , TSI afmelden
Gui, Add, Button, x10 y30 w100 h20 gScript3 , SRT automatisch
Gui, Add, Button, x115 y30 w100 h20 gScript4 , TSI automatisch
Gui, Add, Button, x10 y50 w100 h20 gScript5 , Reload SRT
Gui, Add, Button, x115 y50 w100 h20 gScript6 , Reload TSI
Gui, Add, Button, x10 y70 w100 h20 gScript6b , Sneltoetsen
Gui, Add, Button, x10 y90 w100 h20 gScript7 , Orderformulier
Gui, Add, Button, x10 y110 w100 h20 gScript8 , Order importeren
Gui, Add, Button, x115 y110 w100 h20 gScript9 , Reload QLauncher
Gui, Font, s17 Bold
Gui, Add, Button, x10 y140 w205 h28 gScript112 , Noodknop !
Gui, Show, y630 x1020 , Quicklauncher
WinSet, Transparent, 20, % "ahk_id " GuiHwnd
OnMessage("0x200", "MOUSEOVER")
MOUSEOVER(){
Global GuiHwnd
MouseGetPos, , , Hwnd
if(Hwnd = GuiHwnd){
WinSet, Transparent, 255, % "ahk_id " GuiHwnd
SetTimer, MOUSELEAVE, 20
}
}
MOUSELEAVE(){
Global GuiHwnd
MouseGetPos, , , Hwnd
if(Hwnd != GuiHwnd){
WinSet, Transparent, 1, % "ahk_id " GuiHwnd
SetTimer, MOUSELEAVE, Off
}
}
Script1:
Loop
{
IfWinNotExist, SRT Cloud afmelden.ahk
run, %PathToScript1%
Sleep, 500
break
}
SendLevel,1
Send, {LWin down}{a down}
Send, {LWin up}{a up}
return
Script2:
Loop
{
IfWinNotExist, TSI Cloud afmelden.ahk
run, %PathToScript2%
Sleep, 500
;gui, show
break
}
SendLevel,1
Send, {LWin down}{t down}
Send, {LWin up}{t up}
return
Script3:
Loop
{
IfWinNotExist, srt picklists v2.1.ahk
run, %PathToScript3%
Sleep, 500
break
}
SendLevel,1
Send, {LWin down}{p down}
Send, {LWin up}{p up}
return
Script4:
Loop
{
IfWinNotExist, tsi picklists v2.ahk
run, %PathToScript4%
Sleep, 500
break
}
SendLevel,1
Send, {LWin down}{k down}
Send, {LWin up}{k up}
return
Script5:
SendLevel,1
Send, {LWin down}{q down}
Send, {LWin up}{q up}
return
Script6:
SendLevel,1
Send, {LWin down}{r down}
Send, {LWin up}{r up}
return
Script6b:
IfWinNotExist, hotkeys.ahk v1.0.ahk
run, %PathToScript6b%
Sleep, 500
return
Script7:
SetWorkingDir, \\Winschoten\Verkooporder
run, %PathToScript7% ; \\WINSCHOTEN\Verkooporder\Salesorder.exe, \\WINSCHOTEN\Verkooporder
SetWorkingDir, %A_ScriptDir%
MsGbox, %A_ScriptDir%
return
Script8:
Loop
{
IfWinNotExist, order importeren CLOUDVERSIE.ahk
run, %PathToScript8%
Sleep, 500
gui, show
break
}
SendLevel,1
Send, {LWin down}{o down}
Send, {LWin up}{o up}
return
Script9:
Reload
return
Script112:
DetectHiddenWindows, On
WinGet, List, List, ahk_class AutoHotkey
Loop %List%
{
WinGet, PID, PID, % "ahk_id " List%A_Index%
If ( PID <> DllCall("GetCurrentProcessId") )
PostMessage,0x111,65405,0,, % "ahk_id " List%A_Index%
}
GuiClose:
ExitApp