Sie sind nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: Silkroad Online Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
03.01.2010, 16:55
Spoiler
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
HotKeySet("^m","minimize_sro")
HotKeySet("^n","close")
HotKeySet("^h" , "usage")
TrayTip("SRO Minimizer", "Welcome to SRO Minimizer",2,1)
Sleep(2000)
usage()
While 1
Sleep(10000)
WEnd
Func usage()
TrayTip("SRO Minimizer", "Usage: " & Chr(13) & "Press STR + M(inimize) to minimize sro " & Chr(13) & "Press STR + N to close this Script" & Chr(13) & "Press STR + H(elp) for this usage tip", 3,1)
Sleep(3000)
EndFunc
Func minimize_sro()
If(WinExists("SRO_Client"))Then
If( BitAnd( WinGetState("SRO_Client"), 16) )Then
TrayTip("SRO Minimizer", "Already minimized..",1,1)
Else
WinSetState ( "SRO_Client", "", @SW_MINIMIZE )
TrayTip("SRO Minimizer", "Succesfully minimized",1,1)
EndIf
Else
TrayTip("SRO Minimizer", "SRO_Client not found!",2,3)
EndIf
EndFunc
Func close()
TrayTip("SRO Minimizer", "Good Bye...",2,1)
Sleep(2000)
Exit
EndFunc
|
03.01.2010, 17:04
03.01.2010, 17:25
03.01.2010, 18:19
