mIRCKoLiK.Net Blog Sayfanız !

on *:text:*:#: {
if $me isin $1- {
echo -ta Uyari $nick $chan kanalında senden bahsediyor ” $1- “
}
}
on *:text:*:?: {
if $me isin $1- {
echo -ta Uyari $nick özelde senden bahsediyor ” $1- “
}
}

Proxy tarama ve bilgilendirme scripti

!! KODU KOPYALA !!
CODE:

on ^*:snotice:*: {
if (*client*connect*on*port* iswm $1-) {
tr $remove($gettok($10,2,64),$chr(40),$chr(41),$chr(64))
}
halt
}
alias po {
;portlar buraya
return 21 22 23 33 47 56 54 80 70 1046 1080 1182 1183 1184 1188 1214 1278 1279 1745 1795 2124 2172 2173 2174 2175 2301 3128 3124 3127 4480 5463 6667 6588 8080 8000 8001 8118 8888 8922 10102 26260 31337 44322
}
alias tr {
set %prx $ticks | .dns $1
set %ip $1 | var %pi = 1
while (%pi <= $gettok($po,0,32)) {
var %ki = $gettok($po,%pi,32)
sockopen $+(prx-,$md5($+($r(a,z),$r(1,999),$ticks,$r(A,Z)))) %ip %ki
inc %pi
}
echo 4Taranan portlar:3 $gettok($po,0,32) (Ad.) :2 $po
}
on *:sockopen:prx-*: {
if ($sockerr) { sockclose $sockname | return }
echo 2 $chr(32)4PORT: $sock($sockname).port 4TIP: $sock($sockname).type 4AÇIK\\KAPALI: $portfree($sockerr) 4HATA\\WS_Err: $sock($sockname).wserr 4MESAJ\\WS_Msg: $sock($sockname).wsmsg
if ($portfree($sockerr)) && ($status(connected)) && (o isincs $usermode) {
;ofline denemeden sonra sil..?! ($status(connected)
gzline $+(*@,$sock($sockname).ip) Proxy yasaktır. 1D
}
.sockclose $sockname
}

on *:sockread:prx-*:{
if ($sockerr> 0) { echo :HATA: $sock($sockname).wserr | return }
; echo 4 -s :—> $sock($sockname).ip $sock($sockname).port
sockclose $sockname
}
on *:dns:{
if (%prx) {
var %di = $dns(0)
while (%di> 0) {
echo 2 $chr(32) 4DNS: $dns(%di) 4ADRES: $dns(%di).addr \\ $dns(%di).ip
dec %di
}
unset %prx | unset %ip
halt
}
unset %prx | unset %ip
}

Aynı anda birden fazla dosya indirilebilmenizi sağlayan bir kod.Ayrıca download’lar hakkında çeşitli bilgilerde elde edebilirsiniz.

Yüzde kaç indirildi vs..

Yapımcı; ^BeAsT^

HTTP Downloader v1.2 by ^BeAsT^
;===============================
; /download komutu:
; /download komutu dosya indirme olayını başlatan komutdur.
; Not: URL’den indirilen dosya, indirileceği klasöre URL’deki adı ile indirilir.
; Kullanımı: /download [-o]
; Örnek: /download mIRC http://www.mirc.co.za/download/mirc603.exe C:\\mIRC\\Download\\
;
; -o parametresi İndirilecek dosyanın adı ile indirilecek klasörde aynı isimde bir dosya daha varsa, onun üzerine yazar(indirir/kaydeder).
; Not: Bir download’ı(indirmeyi) sonlandırmak/iptal etmek istiyorsanız: /close -d komutunu kullanabilirsiniz.
;
; $download() tanımlayıcısı:
; Bu tanımlayıcı ile download’lar(indirmeler) hakkında bilgiler alabilirsiniz.
; Özellikler: ip, status, url, file, type, size, rcvd, cps, pc, secs
; $download(0) Toplam indirilme sayısını verir.
; $download(1) 1. download’ın adını verir.
; $download(2).file 2. download olayında indirilen dosyanın adını verir.
; $download(2).rcvd 2.download olayında alınan byte değerini verir.
;
; Events(Olaylar):
; Download olayı başarılı bir şekilde tamamlandığında bu event’ı kullanacaksınız.
; Kullanımı: on *:SIGNAL:download_complete:
; Örnek: on *:SIGNAL:download_complete:echo -s * Tamamlandı: $download($1).file
;
; Download geçersiz olduğunda kullanacağınız event:
; Kullanımı: on *:SIGNAL:download_fail:
; Örnek: on *:SIGNAL:download_fail:echo -s * Geçersiz download: $download($1).file – $2-

!! KODU KOPYALA !!
CODE:

alias download {
if (!$isid) {
var %4 = $iif($1 == -o,$true)
if (%4) { tokenize 32 $2- }
var %1 = download $+ $1,%2 = $longfn($3-)
if (!$3) { var %3 = insufficient parameters }
elseif ($sock(%1)) { var %3 = $+(‘,$1,’) name in use }
elseif (!$isdir(%2)) { var %3 = no such dir $+(‘,%2,’) }
if (%3) { if ($show) { echo $color(info) -se * /download: %3 } | return }
unset % [ $+ [ %1 $+ .* ] ]
set % [ $+ [ %1 $+ .file ] ] $+(%2,$iif($right(%2,1) != $chr(92),$chr(92)),$gettok($2,-1,47))
set % [ $+ [ %1 $+ .url ] ] http:// $+ $remove($2,http://))
set % [ $+ [ %1 $+ .ctime ] ] $ctime 0
set % [ $+ [ %1 $+ .status ] ] Connecting
if (%4) { .remove $+(“,$dl.var(%1,file),”) }
sockopen %1 $gettok($remove($2,http://),1,47) 80
}
else {
if ($1 == 0) { return $sock(download*,0) }
if ($iif($1 isnum,$sock(download*,$1),$sock(download $+ $1))) {
var %1 = $ifmatch,%2 = $dl.var(%1,file),%3 = $dl.var(%1,size),%4 = $file(%2).size
if (!$prop) { return $right(%1,-8) }
elseif ($prop == ip) { return $sock(%1).ip }
elseif ($prop == status) { return $dl.var(%1,status) }
elseif ($prop == url) { return $dl.var(%1,url) }
elseif ($prop == file) { return %2 }
elseif ($prop == type) { return $dl.var(%1,type) }
elseif ($prop == size) { return %3 }
elseif ($prop == rcvd) { return %4 }
elseif ($prop == cps) { return $int($calc(%4 / ($ctime – $dl.var(%1,ctime,2)))) }
elseif ($prop == pc) { return $int($calc($file(%2).size * 100 / %3)) }
elseif ($prop == secs) { return $calc($ctime – $dl.var(%1,ctime,1)) }
}
}
}
alias -l dl.var { return $gettok(% [ $+ [ $+($1,.,$2) ] ],$iif(!$3,1-,$3),32) }
alias -l dl.fail { var %1 = $right($1,-8) | .signal -n download_fail %1 $2- | close -d %1 }
alias -l dl.httpcode {
var %1 = $1 | goto %1
:100 | return Continue
:101 | return Switching Protocols
:200 | return OK
:201 | return Created
:202 | return Accepted
:203 | return Non-Authoritative Information
:204 | return No Content
:205 | return Reset Content
:206 | return Partial Content
:300 | return Multiple Choices
:301 | return Moved Permanently
:302 | return Moved Temporarily
:303 | return See Other
:304 | return Not Modified
:305 | return Use Proxy
:400 | return Bad Request
:401 | return Unauthorized
:402 | return Payment Required
:403 | return Forbidden
:404 | return Not Found
:405 | return Method Not Allowed
:406 | return Not Acceptable
:407 | return Proxy Authentication Required
:408 | return Request Time-out
:409 | return Conflict
:410 | return Gone
:411 | return Length Required
:412 | return Precondition Failed
:413 | return Request Entity Too Large
:414 | return Request-URI Too Large
:415 | return Unsupported Media Type
:416 | return Requested Range Not Satisfiable
:500 | return Internal Server Error
:501 | return Not Implemented
:502 | return Bad Gateway
:503 | return Service Unavailable
:504 | return Gateway Time-out
:505 | return HTTP Version not supported
:%1 | return
}
alias close {
if ($1 == -d) {
var %1 = download $+ $2
if ($sock(%1)) { unset % [ $+ [ %1 $+ .* ] ] | sockclose %1 }
}
else { close $1- }
}

on *:sockopen:download*:{
if ($sockerr) { dl.fail $sockname Unable to Connect | return }
var %1 = $dl.var($sockname,url),%2 = $dl.var($sockname,file)
set % [ $+ [ $sockname $+ .status ] ] Requesting File
sockwrite -tn $sockname GET %1 HTTP/1.1
sockwrite -tn $sockname Host: $gettok($remove(%1,http://),1,47)
sockwrite -tn $sockname Accept: *.*, */*
sockwrite -tn $sockname Range: $+(bytes=,$iif($exists(%2),$file(%2).size,0),-)
sockwrite -tn $sockname Connection: close
sockwrite -tn $sockname $crlf
}
on *:sockclose:download*:{ if ($dl.var($sockname,status) != done) { dl.fail $sockname Disconnected } }
on *:sockread:download*:{
if ($sockerr) { dl.fail $sockname Disconnected | return }
if ($dl.var($sockname,status) != downloading) {
var %1 | sockread %1 | tokenize 32 %1
if ($1 == HTTP/1.1) { if ($2 != 200 && $2 != 206) { dl.fail $sockname $iif($dl.httpcode($2),$ifmatch,$3-) } }
elseif ($1 == Content-Range:) { set % [ $+ [ $sockname $+ .size ] ] $gettok($3,-1,47) }
elseif ($1 == Content-Type:) { set % [ $+ [ $sockname $+ .type ] ] $2- }
elseif (!$1) {
set % [ $+ [ $sockname $+ .ctime ] ] $dl.var($sockname,ctime,1) $ctime
set % [ $+ [ $sockname $+ .status ] ] Downloading
return
}
}
else {
var %1 = $dl.var($sockname,file)
:sockread
sockread &1
if (!$sockbr) { return }
bwrite $+(”,%1,”) -1 &1
unset % [ $+ [ $sockname $+ .resume ] ]
if ($file(%1).size <$dl.var($sockname,size)) { goto sockread }
else {
var %1 = $right($sockname,-8),%2 = $dl.var($sockname,file)
set % [ $+ [ $sockname $+ .status ] ] Done
.signal -n download_complete %1
close -d %1
}
}
}
on *:exit:{ unset %download* | sockclose download* }
on *:unload:{ unset %download* | sockclose download* }
;Dosya sonu.

ÜSTTEKİ PLAİN TEXT YAZISINA TIKLAYARAK KODUN BOZULMAMIŞ HALİNİ ALINIZ

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

Bu kod ile,Windows Kayıt Defterine girdi ekleyebilir,silebilir ve okuyabilirsiniz.

Yapımcı;SeRDaR406

Kullanımlar:

/regwrite

Örnek:

/regwrite HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\p1 C:\\mirc.exe

/regdel

Örnek:

/regdel HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\p1

$regread(anahtar adı)

Girilen anahtar adında bir girdi varsa,girdi verilir.

Boş ise $false yanıtı verilir.

Örnek:

//echo -a $regread(HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\p1)

!! KODU KOPYALA !!
CODE:

alias regread {
if ($com(rread)) .comclose rread
.comopen rread wscript.shell
if (!$comerr) {
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
if (!$comerr) {
.comopen rwrite wscript.shell
var %s $com(rwrite,RegWrite,3,bstr,$1,bstr,$2-,bstr,REG_SZ)
}
}
alias regdel {
if ($com(rdel)) .comclose rdel
if (!$comerr) {
.comopen rdel wscript.shell
return $com(rdel,RegDelete,3,bstr,$1-)
}
}

Bu Kod ve Ders sayesinde flooddan artık düşmüyeceksiniz. Mesela bi mircindir.txt diye bir dosyanız var diyelim 300 satır bir dosyayı bir nicke gönderirken 15. satırda düşersiniz ama aşşağıdaki bilgiler sayesinde böyle birşey artık olmuyacaktır.

kod:
_linedance {
if ($timer(.line.dance. $+ $cid) == $null) {
hadd -m pnp.qcommand count. $+ $cid 1
hadd -m pnp.qcommand 1. $+ $cid $1-
_dolinedance 1
}
else {
hinc -m pnp.qcommand count. $+ $cid
hadd -m pnp.qcommand $hget(pnp.qcommand,count. $+ $cid) $+ . $+ $cid $1-
}
}
_dolinedance {
if ($hget(pnp.qcommand,$1 $+ . $+ $cid) != $null) {
var %data = $ifmatch
.timer.line.dance. $+ $cid -m 1 $calc(1500 – $gettok(1250 1000 750 500 250,$1,32)) _dolinedance $calc($1 + 1)
%data
}
else hdel -w pnp.qcommand *. $+ $cid
}

Örneğin

_linedance whois nick gibi Kullanacaksın

———————————————————————————
Bu kod kullanımı oldukça basit. Örneğin Birisine yazı gönderiyorsunuz…

Kodun Şu Şekilde olduğunu şekilde olduğunu düşünün

PHP Kod:
alias _m {
var %m = 1
while %m <= $lines(bilmemne.txt) {
msg $1 $read(bilmemne.txt,%m)
inc %m
}
}

/_m goXXip yazdığınızda bilmemne.txt dosyasını goXXip \’e gönderecektir.

bilmemne.txt \’nin 300 satır olduğunu düşünün. Daha 15. satırda düşersiniz.

Bu yüzden komutu şu şekilde düzenleyeceksiniz…

PHP Kod:
alias _m {
var %m = 1
while %m <= $lines(bilmemne.txt) {
_linedance msg $1 $read(bilmemne.txt,%m)
inc %m
}
}

Bu yazi tipi ile Seslendiginiz nicklerin alti çizgili ve kırmızı renktedir. Siz yazarken diye köşeler olur bu köşeler falan absolut: Seklinde olmaktadir.

Yazan : L4roXyL
kod:
* Doğum: input: *: (
($ ($ 1,1) bırakılırsa! = /) (
haltdef | var% 1 = 1,% 2 = $ 1 -,% v1,% t,% 3
($ Gettok (% 2,% 1,32)) (% v1 = $ v1 | if ($ aktif =% v1 | |% v1 Ison #) (% 3 = $ v1 | break) | inc% 1) while
% T = $ regsubex (% 2 ,$+(/ \\ b,% 3, \\ b / gi ),$+($ chr (3), 4, $ chr (31),% 3, $ chr (3) , $ chr (31)))
msg $ hedef% t | renk (kendi metin) $ hedef $, bana $ + ($ timestamp:)% t $ echo.
)
)

Kaynak:mircclub