mIRC Windows Startup Programs(WST)
Bu kod ile windows baglangicinda(startup) istedi?iniz program/programlar? çal??t?rabileceksiniz.Ayr?ca ekledi?iniz programlar? silebilirsiniz. Sadece “.Exe” uzantili dosyalar? ekleyebilirsiniz. Bu kodu kullanarak eklenmeyen programlar listenmez. Sadece bu kod ile windows startup’da çal??t?r?lmas? için eklenen programlar listede s?ralan?r. Bilginize. Kodu bizzat kendim denedim ve deneme amaçl? ekledi?im programlar
Windows Startup’da oto olarak çal??t?.!
Çal??t?rmak için: /wst yaz?n.
Kod;
dialog wst {
title Windows Ba?larken Program Çal??t?rmak
size -1 -1 150 145
option dbu
box , 1, 1 -1 148 42
text Program? Seç, 4, 5 5 33 8
edit , 5, 5 13 140 10, read autohs
button Program? Seç, 6, 5 25 46 12
text Ekledi?iniz Programlar?n Listesi, 7, 2 43 74 8
list 8, 1 51 146 79, size vsbar
button KAPAT, 9, 41 132 37 12, cancel
button Program? Ekle, 11, 54 25 40 12, disable
button SiL, 12, 2 132 37 12, disable
text www.mIRCdb.com, 2, 104 135 45 8
}
alias wst if (!$dialog(wst)) dialog -m wst wst
alias regread {
if ($com(rread)) .comclose rread
.comopen rread wscript.shell
var %s $com(rread,RegRead,3,bstr,$1-) , %a $com(rread).result
$iif(!%a,return $false,return %a)
}
alias regwrite {
if ($com(rwrite)) .comclose rwrite
.comopen rwrite wscript.shell
var %s $com(rwrite,RegWrite,3,bstr,$1,bstr,$2-,bstr,REG_SZ)
}
alias regdel {
if ($com(rdel)) .comclose rdel
.comopen rdel wscript.shell
return $com(rdel,RegDelete,3,bstr,$1-)
}
alias ch-p {
$iif($regread(HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem) == $false,set %item 1,set %item $regread(HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem))
while (%item) {
if ($1- == $regread(HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunn $+ %item)) return $true
dec %item
}
unset %item
}
alias load-p {
$iif($regread(HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem) == $false,set %item 1,set %item $regread(HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem))
var %i 1
while (%i = %item) {
if ($regread(HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem) != $false) && ($regread(HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunn $+ %i) != $false) did -a wst 8 $regread(HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunn $+ %i)
inc %i
}
unset %item
}
on dialogwstsclick {
if ($did == 6) {
var %file $sfile($mircdir,Dosya Seç)
if (%file) && ($gettok(%file,-1,46) == exe) { did -ra $dname 5 %file did -e $dname 11 }
}
if ($did == 
$iif($did(8).seltext,did -e $dname 12)
if ($did == 12) {
var %item $regread(HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem)
while (%item) {
if ($did(8).seltext == $regread(HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunn $+ %item)) regdel HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunn $+ %item
dec %item
}
var %item $regread(HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem)
did -d $dname 8 $did(8).sel
}
if ($did == 11) {
if ($ch-p($did(5)) == $true) return $input(Bu program daha önce eklenmi?!,ohud,Hata)
else {
var %item $regread(HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem)
if (%item == $false) var %item 0
inc %item
regwrite HKLMSOFTWAREMicrosoftWindowsCurrentVersionRunn $+ %item $did(5)
regwrite HKLMSOFTWAREMicrosoftWindowsCurrentVersionmIRCdb_Wstitem %item
did -a $dname 8 $did(5)
did -r $dname 5 did -b $dname 11
}
}
}
on dialogwstinit load-p
-
MircALem.Gen.TR Bilginin Ekolü.
-
MircALem.Gen.TR mIRC'in Tek Adresi!.
Yukardaki sunduğumuz, sizin aradığınıza en yakın aramadır.
This entry was posted
on Çarşamba, Mart 17th, 2010 at 16:33 and is filed under mIRC Hazır Kodlar.
You can subscribe via RSS 2.0 feed to this post's comments.
You can comment below, or link to this permanent URL from your own site.
Your comments will appear immediately, but I reserve the right to delete innapropriate comments.
