Okunma
50
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
ÖZELLERİ AÇ/KAPA
ÖZELİM AÇIK
ÖZELİM KAPALI