Ayşe ile windows başlangıcında (başlangıç) istediğiniz program / programları çalıştırabileceksiniz.Ayrıca eklediğiniz programları silebilirsiniz Kod.
Sadece \”. Exe\” uzantılı dosyaları ekleyebilirsiniz. Ayşe Kodu kullanarak eklenmeyen programlar listenmez.Sadece met startup\’da çalıştırılması Click eklenen programlar listede sıralanır.Bilginize ile windows Kod …. Kodu bizzat feel denedim ve deneme amaçlı eklediğim programları Windows Startup\’da oto olarak çalıştı.! Çalıştırmak Click: / WST yazın.
Yapımcı; SeRDaR406
Ekran Görüntüsü; ÖRNEK Resim
! Kodu KOPYALA!
KOD:
iletişim WST (
başlık \”Windows Başlarken Programı Çalıştırmak\”
boyutu -1 -1 150 145
seçenek dBu
kutu \”, 1, 1 -1 148 42
metin \”Programı Sec:\”, 4, 5 5 33 8
değiştir \”, 5, 5 13 140 10, Autohs okuyun
düğme \”Programı Sec\”, 6, 5 25 46 12
metin \”Eklediğiniz Programların listesi:\”, 7, 2 43 74 8
liste 8, 1 51 146 79, Boyut vsbar
düğme \”Kapat\”, 9, 41 132 37 12, Iptal
düğme \”Programı Ekle\”, 11, 54 25 40 12, Devre dışı
düğme \”Sil\”, 12, 2 132 37 12, Devre dışı
metin \”Www.mIRCdb.com\”, 2, 104 135 45 8
)
alias WST eğer (! $ Dialog(WST)) dialog-m WST WST
alias RegRead (
eğer ($ Com(rread)) .comclose rread
.comopen rread wscript.kabuk
var% com $ s(rread, RegRead,3, Alman Çevre Teknolojileri, $1-) ,% A $ com(rread).sonuç
$ IIf(!% A, $ false, geri% return)
)
alias RegWrite (
eğer ($ Com(rwrite)) .comclose rwrite
.comopen wscript rwrite.kabuk
var% com $ s(, RegWrite, rwrite3, Alman Çevre Teknolojileri, $1, Alman Çevre Teknolojileri, $2- Alman Çevre Teknolojileri, REG_SZ)
)
alias regdel (
eğer ($ Com(rdel)) .comclose rdel
.comopen rdel wscript.kabuk
return $ com(rdel, RegDelete,3, Alman Çevre Teknolojileri, $1-)
)
alias ch->p (
$ IIf($ RegRead(HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ mIRCdb_Wst öğesi \\) == $ False, set% öğe 1, Set% öğe $ RegRead(HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ mIRCdb_Wst öğesi \\))
süre (% Öğe) (
eğer ($1- == $ RegRead(HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ Run \\ n $ +% öğe)) return $ true
Aralık% öğe
)
unset% öğe
)
alias yük->p (
$ IIf($ RegRead(HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ mIRCdb_Wst öğesi \\) == $ False, set% öğe 1, Set% öğe $ RegRead(HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ mIRCdb_Wst öğesi \\))
var% i 1
süre (% I <=% öğe) (
eğer ($ RegRead(HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ mIRCdb_Wst öğesi \\) ! = $ False) & & ($ RegRead(HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ $ +% i \\ n Run) ! = $ False) did-a WST 8 $ RegRead(HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ $ +% i \\ n Run)
inc% i
)
unset% öğe
)
* Doğum: dialog: WST: sclick: *: (
eğer ($ Did == 6) (
var% $ sfile dosya($ Mircdir, maddesine bağlantı veren sayfalar Sec)
eğer (% Dosya) & & ($ Gettok(% Dosya, -1,46) == Exe) ( did-ra $ dname 5 % Dosya | did-e $ dname 11 )
)
eğer ($ Did == 
$ IIf($ Did(8).seltext,-E $ did dname 12)
eğer ($ Did == 12) (
var% öğe $ RegRead(HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ mIRCdb_Wst öğesi \\)
süre (% Öğe) (
eğer ($ Did(8).seltext == $ RegRead(HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ Run \\ n $ +% öğe)) regdel HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ Run \\ n $ +% öğe
Aralık% öğe
)
var% öğe $ RegRead(HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ mIRCdb_Wst öğesi \\)
dname-d $ did 8 $ Did(8).sel
)
eğer ($ Did == 11) (
eğer ($ Ch->p($ Did(5)) == $ True) return $ girdi(Ayşe program daha bir kez eklenmiş!, Hata ohud)
başka (
var% öğe $ RegRead(HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ mIRCdb_Wst öğesi \\)
eğer (% Öğe == $ false) var% öğe 0
inc% öğe
$ +% $ Öğe HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ Run \\ n RegWrite yaptı(5)
HKLM \\ SOFTWARE \\ Microsoft \\ Windows \\ CurrentVersion \\ mIRCdb_Wst öğesi% öğesi \\ RegWrite
did-a $ dname 8 $ Did(5)
dname-r $ did 5 | Did-b $ dname 11
)
)
)
* Doğum: dialog: WST: init: *: load->p