Menü Eklemek

[Skorpion]

selam arkadaslar 

 

forumdan buldugum bir scripe menü eklemek istiyorum birtürlü beceremedim

scripti exe ye dönüstürüp calisririnca ,sag asagidaki exe nin üstüne tiklayinca

bir menü acilmasini istiyorum

bu menüde kullanim ve cikis fonksiyonu istiyorum

mesela kullanima tiklayinca traytip calissin cikisa tiklayinca ciksin

benim icin asagidaki scripte bunu ekliyebilirmisiniz acaba

 

Saygilar

Do
HotKeySet("{F6}", "a")  
Hotkeyset("{F7}","b")
Hotkeyset("{ESC}", "c")
Hotkeyset("{PAUSE}", "d")
Hotkeyset("{E}", "e")
sleep(10)
until 1=2
func a()
Send("{p}")
endfunc
func b()
Send("Skorpion")
endfunc
func c()
ProcessClose("Oto2.exe")
endfunc
func d()
ProcessClose("firefox.exe")
endfunc
func e()
ProcessClose("Opera.exe")
endfunc

[blue_life]

@Skorpion

 

Aşağıdaki örneği kendine göre ayarlarlarsın...

 

Local $MAINTITLE = "BlueLife 1-2-3"

Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.
Opt("TrayIconHide", 0) ;0=show, 1=hide tray icon
TraySetClick(8) ;Just right menu


TrayCreateItem("&Resume Hotkey")
TrayItemSetOnEvent(-1, "_ResumeHotkey")
TrayCreateItem("&Pause Hotkey")
TrayItemSetOnEvent(-1, "_PauseHotkey")
TrayCreateItem("")
TrayCreateItem("E&xit")
TrayItemSetOnEvent(-1, "_MenuExit")

TraySetToolTip($MAINTITLE)
TraySetState()

_ResumeHotkey() ;Set Hotkey

While 1
   Sleep(100) ;Cpu Save
WEnd
Exit

Func _MenuExit()
    Exit
EndFunc

Func _PauseHotkey()
    HotKeySet("{F6}")
    HotKeySet("{F7}", "b")
    HotKeySet("{ESC}", "c")
    HotKeySet("{PAUSE}", "d")
    HotKeySet("{E}", "e")
EndFunc

Func _ResumeHotkey()
    HotKeySet("{F6}", "a")
    HotKeySet("{F7}", "b")
    HotKeySet("{ESC}", "c")
    HotKeySet("{PAUSE}", "d")
    HotKeySet("{E}", "e")
EndFunc
 ; ------------------------
Func a()
    Send("{p}")
EndFunc   ;==>a
Func b()
    Send("Skorpion")
EndFunc   ;==>b
Func c()
    ProcessClose("Oto2.exe")
EndFunc   ;==>c
Func d()
    ProcessClose("firefox.exe")
EndFunc   ;==>d
Func e()
    ProcessClose("Opera.exe")
EndFunc   ;==>e