|
mIRC Windows Startup Programs(WST) |
|
|
 |
Okunma |
|
299 |
Facebookta Paylaş
Çalistirmak for: / WST yazin.
Kod;
ileti?im WST (
title Windows Ba? larken Program Çal? t? rmak
boyutu -1 -1 150 145
seçenek dBu
kutu, 1, 1 -1 148 42
metin Program? Sn, 4, 5 5 33 8
, 5 düzenlemek, 5 13 140 10 autohs okuyun
dü?mesi Program? Sn, 6, 5 25 46 12
metin Ekledi? iniz Programlar? n listesi, 7, 2 43 74 8
listesinde 8, 1 51 146 79, boyut vsbar
dü?mesini kapat, 9, 41 132 37 12, iptal
dü?mesi Program? Ekle, 11, 54 25 40 12, devre d???
dü?mesi SIL, 12, 2 132 37 12, devre d???
metin www.mIRCdb.com, 2, 104 135 45 8
)
alias WST if (! $ dialog (WST)) dialog-m WST WST
alias (RegRead
rread comclose ($ com (rread)) e?er.
rread WScript.Shell comopen.
var% com ($ s rread, RegRead, 3, Alman Çevre Teknolojileri, $ 1 -),% a $ com (rread). sonuç
$ IIf (!% A, $ false, geri dönmek% a)
)
alias (RegWrite
($ Com if (rwrite)). Comclose rwrite
comopen WScript.Shell rwrite.
var% com (RegWrite, 3, Alman Çevre Teknolojileri, rwrite $ s $ 1, Alman Çevre Teknolojileri, $ 2 -, Alman Çevre Teknolojileri, REG_SZ)
)
alias regdel (
rdel comclose ($ com (rdel)) e?er.
rdel WScript.Shell comopen.
return $ com (rdel, RegDelete, 3, Alman Çevre Teknolojileri, $ 1 -)
)
alias ch-p (
$ IIf ($ RegRead (HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem) == $ false, 1, madde% ö?e $ RegRead (HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem)) set% set
(% Ö?e) (süre
$ +% Ö?e)) $ true return ($ 1 - == $ RegRead (HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunn e?er
Aral?k% ö?e
)
unset% ö?e
)
alias yük-p (
$ IIf ($ RegRead (HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem) == $ false, 1, madde% ö?e $ RegRead (HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem)) set% set
var% i 1
(% I =% ö?e) (süre
($ RegRead if (HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem)! = $ False) & & ($ RegRead (HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunn $ +% i)! = $ False) did-a WST 8 $ RegRead (HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunn $ +% i)
inc% i
)
unset% ö?e
)
dialogwstsclick üzerinde (
($ Did == 6) (if
var% sfile ($ mircdir, maddesine ba?lant? veren sayfalar Sec) $ dosya
(% Dosyas?) & & ($ gettok (% dosyas?, -1,46) == exe) (did-ra $ dname% 5 dosya e?er did-e $ dname 11)
)
$ IIf ($ ($ did == 8) e?er did (8). Seltext, did-e $ dname 12)
($ Did == 12) (if
var% ö?e $ RegRead (HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem)
(% Ö?e) (süre
($ Did (8). Seltext == $ RegRead (HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunn $ +% ö?e)) regdel HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunn $ +% ö?e varsa
Aral?k% ö?e
)
var% ö?e $ RegRead (HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem)
-D $ dname 8 $ did (did 8). Sel
)
($ Did == 11) (if
bir kez eklenmi ($ ch-p ($ did (5)) == $ true) return $ input (Ay?e program daha olacak?!, ohud, Hata)
else (
var% ö?e $ RegRead (HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem)
(% Ö?e == $ false) var% 0 ürün e?er
inc% ö?e
HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunn $ +% ö?e $ did (5) RegWrite
HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem% ö?e RegWrite
did-a $ dname 8 $ did (5)
did-r $ dname 5 did-b $ dname 11
)
)
)
dialogwstinit yük-p
|
Yorumlar |
|
|
