Bağlantı Hataları
Yazan: admin 12 Eylül 2009 Cumartesi
Kategori: Hazır Kodlar
Ortak IRC Baglanti Hatalari
Bu dokuman kullanicilara baglanti sorunlari ve cozumleri hakkinda
yardimci olmak amaciyla hazirlanmistir.
Icindekiler
———–
1 * [10049] Can’t assign requested address
2 * [10050] Network is down or [10051] Network unreachable
3 * [10052] Network dropped connection on reset
4 * [10053] Software cause connection abort
5 * [10054] Connection reset by peer
5.1 Read Error
5.2 Write Error
5.3 Ping Timeout
5.4 Broken pipe
6 * [10055] No buffer space available
7 * [10060] Connection timed out
8 * [10061] Connection refused
9 * [10065] No route to host Error
10 * Unable to resolve IRC server
1 * [10049] Can’t assign requested address
——————————————
Bunun anlami, IRC serverin su an ulasilamaz oldugudur. Muhtemelen
adminler DNS kayitlarini, DDoS (Distributed Denial of Service)
saldirilarina hedef olmamak icin, var olmayan bir IP numarasina
255.255.255.255 yonlendirmistir. Ag uzerinde belli bir IRC serverine
veya baska bir aga baglanmayi deneyiniz! (Server IP adresini
255.255.255.255 olarak ayarladiklarinda, “Can’t assign requested
address” hata iletisini alirsiniz. 127.0.0.1 IP adresine
ayarladiklarinda ise, “Connection refused” ileti hatasini alirsiniz,
cunku server olarak kendinize baglanmaya calisiyor olursunuz. Sayet,
IP adresini tamamen silip birsey yazmazlarsa da, bu seferde “Unable
to resolve IRC server” ileti hatasini alirsiniz.)
2 * [10050] Network is down or [10051] Network unreachable
———————————————————-
Bu tip hatalar, baglanilan serverin calismadigi zamanlarda veya veri
kaynaklarinin tekrardan baglanmasini onleyecek ag icerisindeki
kisimlarin calismadigi zamanlarda meydana gelmektedir.
3 * [10052] Network dropped connection on reset
———————————————–
IRC serverine, hostluk yapan server veya ag bozulmus veya yeniden
baslatilmistir. Bir kac dakika icerinde yeniden isler yoluna girer.
4 * [10053] Software cause connection abort
——————————————-
Bu tip bir hata cesitli sebeplerle meydana gelebilir. Aslinda, bu
bir sonraki hata ile aynidir.
5 * [10054] Connection reset by peer
————————————
Baglantinin peer tarafindan yeniden baslatilmis olmasinin bir cok
nedeni vardir. Bir cok durumda, sever artik soketin iyi olmadigina
karar verip, kendi tarafindan baglantiyi kapatir.
5.1 * Read Error
—————-
Read error (okuma hatasi) server, kullanicinin clientini tam olarak
okuyamadigi zamanlarda meydana gelir. Serverler, client uzerinden
bir takim bilgileri toplar. Server, bu bilgilerin alimi esnasinda
bir hata ile karsilasirsa, kullanicinin baglantisini kopararak read
error cikis mesaji verdirir.
5.2 * Write Error
—————–
Write error (yazim hatasi) server, kullanicinin clientina tam olarak
Clone Scanner
Yazan: admin 12 Eylül 2009 Cumartesi
Kategori: Hazır Kodlar
;Maximum Script Clone Scanner
;by Maximum
;/clonescan [#channel] [-a]
on *:load:if ($version >= 5.8) { echo $colour(info) -a * loaded simple clone scanner 04b by Maximum | echo $colour(info) -a * command: /clonescan [channel] [-a] } | else { echo $colour(info) -a * mirc version: $version – v5.8 needed, get newer mirc at www.mircturk.com, unloading.. | .unload -rs $script }
alias clonescan {
var %chan = $iif($left($1,1) == $chr(35),$1,#), %type = $iif($2,$2,$iif($left($1,1) == -,$1))
if ($dialog(clonescanner) == $null) && (%type != -a) { dialog -m clonescanner clonescanner }
if (%chan !ischan) {
if (%type == -a) { echo $colour(info) -a * Please enter a valid channel, ie. a channel that you are in. | return }
else { did -ra clonescanner 4 Please enter a valid channel, ie. a channel that you are in. | return }
}
if ($chan(%chan).ial != $true) {
.ial on
if (%type == -a) { echo $colour(info) -a * %chan Taranıyor..Lütfen Bekleyiniz.. }
else { did -ra clonescanner 4 Taranıyor Lütfen Bekleyiniz.. %chan $+ … }
set %cs.chan $addtok(%cs.chan,%chan,32) | raw -q WHO %chan | set %cs.type %type | return
}
else {
if ($dialog(clonescanner)) { did -r clonescanner 2 | dialog -t clonescanner Maximum Script Clone Scanner – Taranıyor. }
if ($hget(cs)) { hfree cs }
hmake cs $nick(%chan,0)
var %i = 1, %ticks = $ticks, %clones
while ($nick(%chan,%i)) { hadd cs $address($nick(%chan,%i),2) $hget(cs,$address($nick(%chan,%i),2)) $iif($numtok($hget(cs,$address($nick(%chan,%i),2)),38) > 0,$chr(38)) $nick(%chan,%i) | inc %i }
var %o = 1
if (%type == -a) { echo -a – | echo -a * Clone Scan in %chan }
while ($hget(cs,%o).item) {
if ($numtok($hget(cs,$hget(cs,%o).item),38) > 1) {
if (%type == -a) { echo -a $numtok($hget(cs,$hget(cs,%o).item),38) => $hget(cs,%o).item $+ : $hget(cs,$hget(cs,%o).item) }
else { did -a clonescanner 2 $hget(cs,%o).item ( $+ $numtok($hget(cs,$hget(cs,%o).item),38) $+ ): $hget(cs,$hget(cs,%o).item) | did -z clonescanner 2 }
inc %clones
}
inc %o
}
if (%type == -a) { echo -a * Sonuçlandı. $iif(%clones > 0,%clones,no) group $+ $iif(%clones > 1,s) Bulundu %chan (done: $+ $calc($ticks – %ticks) $+ ms) | echo -a – }
else { did -ra clonescanner 4 Sonuçlandı. $iif(%clones > 0,%clones,no) Group $+ $iif(%clones > 1,s) Bulundu %chan (done: $+ $calc($ticks – %ticks) $+ ms) }
hfree cs
}
}
raw 352:*:if ($istok(%cs.chan,$2,32)) { halt }
raw 315:*:if ($istok(%cs.chan,$2,32)) { set %cs.chan $remtok(%cs.chan,$2,1,32) | clonescan $2 %cs.type | unset %cs.type | halt }
menu channel {
Maximum Clone Scanner:clonescan #
}
dialog clonescanner {
title “diE Script clone Scanner”
size -1 -1 180 100
option dbu
button “”, 1, 0 0 0 0, ok
list 2, 2 2 176 93
box “”, 3, 2 87 176 12
text “”, 4, 5 91 170 7
}
IRC’de dinlediginiz sarkilari herkes gorsun!
Yazan: admin 12 Eylül 2009 Cumartesi
Kategori: Hazır Kodlar
/song {
set %chan $1
if ($1 == $null) set %chan #
if ($dll(WinAmpI.dll, IsRunning, 0) == false) {
msg %chan WinAmp isn’t running!
halt
}
set %color1
set %color2
set %shf $dll(WinAmpI.dll, GetShuffle, 0)
set %state $dll(WinAmpI.dll, GetPlayState, 0)
set %vol $dll(WinAmpI.dll, GetVolume, 0)
set %song $dll(WinAmpI.dll, GetSong, 0)
set %poslen $dll(WinAmpI.dll, GetSongPosition, 0) $+ / $+ $dll(WinAmpI.dll, GetSongLength, 0)
set %track $dll(WinAmpI.dll, GetSongNumber,0) $+ / $+ $dll(WinAmpI.dll, GetSongCount,0)
set %bitrate $dll(WinAmpI.dll, GetBitRate, 0) $+ kbps
set %repeat $dll(WinAmpI.dll, GetRepeat, 0)
if (c isincs $gettok($chan(#).mode,1,32)) {
msg %chan WinAmp: %state $+ Song: %song $+ Position/Length: %poslen $+ Track: %track $+ BitRate: %bitrate $+
halt
}
if (%shf == true) {
set %shf1 Açık
}
if (%shf == false) {
set %shf1 Kapalı
}
if (%repeat == true) {
set %repeat Açık
}
if (%repeat == false) {
set %repeat Kapalı
set %emre emre
}
amsg Winamp - %song : Vol: % $+ %vol }
}
Günün Sözü
Yazan: admin 12 Eylül 2009 Cumartesi
Kategori: Hazır Kodlar
alias gununsozu { if $sock(gununsozu) { echo 12 -a * /gununsozu: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen gununsozu www.mynet.com 80 } }
on *:sockopen:gununsozu:{
var %c = sockwrite -n $sockname
if ($sockerr) { echo $colour(info) -a * /gununsozu: Hata. | return }
%c GET /soz.asp HTTP/1.1 | %c Host: mynet.com | %c Connection: Close $str($crlf,2)
}
on *:sockread:gununsozu:{
var %g | sockread %g | if *class=”f1001″>* iswm %g { echo 4 -a * Günün sözü; $htmlfree($v2) }
}
alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|t|<[^>]*$)/g,$null)
Günlük Fal
Yazan: admin 12 Eylül 2009 Cumartesi
Kategori: Hazır Kodlar
;Günlük Fal addonı, kodlayan: ‘el33t’
;Günlük falınıza bakmak için “/günlükfal” yazınız, ya da popupslardaki Günlük Fal’a tıklayınız.
on *:LOAD:echo 12 -st > Günlük Fal addonını yüklediniz. “/günlükfal” yazarak yada popupslardaki Günlük Fal’a tıklayarak falınıza bakabilirsiniz.
menu status,menubar,channel {
-
Günlük Fal:günlükfal
}
alias günlükfal { if !$sock(muneccim) { if $dialog(sa_gunlukfal) { dialog -x sa_gunlukfal } | dialog -ma sa_gunlukfal sa_gunlukfal } | else { echo 12 -st > Hata: Başka bir fala bakılıyor. } }
alias -l falgoster { if !$window(GünlükFal) { window -k0 @GünlükFal } | aline -p @GünlükFal $1- }
on *:sockopen:muneccim:{
if %burç {
sockwrite -n $sockname GET $+(/gunluk_fal/bugun.asp?burc=,%burç) HTTP/1.1
sockwrite -n $sockname Host: muneccim.com $+ $crlf $+ $crlf
}
else { echo 12 -st > Hata: Burç seçmelisiniz.. }
}
on *:sockread:muneccim:{
if ($sockerr) {
echo 12 -st > Hata: Bağlantı hatası, lütfen tekrar deneyiniz.
halt
}
else {
var %temptext
sockread %temptext
if (*<td><p align=”center”><img src=”../images/*”></td>* iswm %temptext) && $istok(koc.boga.ikizler.yengec.aslan.basak.terazi.akrep.yay.oglak.kova.balik,$gettok($gettok($gettok
(%temptext,3,47),1,34),1,46),46) { falgoster $+(04,$upper($gettok($gettok($gettok(%temptext,3,47),1,34),1,46))) }
if (*<p align=”center”><big><big><font face=”Arial Black”>*</font></big></big></p>* iswm %temptext) { falgoster $+(14,$htmlfree(%temptext)) }
if (<p><font color=”#000000″ face=”Arial Narrow”><strong><big>* iswm %temptext) { falgoster $+(10,$htmlfree(%temptext)) | falgoster | if $sock(muneccim) { sockclose muneccim } }
}
unset %burç
}
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
dialog sa_gunlukfal {
title “Günlük Fal”
size -1 -1 59 35
option dbu
combo 1, 3 8 53 55, size drop
box “Burç:”, 2, 1 0 57 21
button “Oku”, 3, 3 22 25 10
box “”, 4, 1 17 29 17
button “Kapat”, 5, 31 22 25 10, ok
box “”, 6, 29 17 29 17
}
on *:dialog:sa_gunlukfal:*:*:{
if $devent = INIT {
didtok $dname 1 44 koç,boğa,ikizler,yengeç,aslan,başak,terazi,akrep,yay,oğlak,kova,balık
did -c $dname 1 1
}
if $devent = SCLICK {
if $did = 3 { if !$sock(muneccim) { set %burç $did($dname,1).sel | sockopen muneccim muneccim.com 80 } | else { echo 12 -st > Hata: Başka bir fala bakılıyor. } }
}
}
Ülke – Şehir Bulucu
Yazan: admin 12 Eylül 2009 Cumartesi
Kategori: Hazır Kodlar
raw 401:*: { msg #nerden $2 : Nick’i online degil! }
alias nerden {
set %ip $1
sockclose nerden
sockopen nerden www.ripe.net 80
}
on *:sockopen:nerden:{
sockwrite -n $sockname GET /fcgi-bin/whois?form_type=simple&full_query_string=&searchtext= $+ %ip $+ &submit.x=15&submit.y=7 HTTP/1.1
sockwrite -n $sockname Host: www.ripe.net $+ $crlf $+ $crlf
}
on *:sockread:nerden:{
sockread %ğ
if (descr: isin %ğ) && (TurkTelecom !isin %ğ) { msg #nerden 4 $+ $replace(%ğ,descr,şehir) }
if (country: isin %ğ) { msg #nerden 2 $+ $replace(%ğ,country,ülke,tr,Türkiye,de,Almanya,nl,Hollanda) }
}
on *:text:*:#Nerden:{
if ($1 == !nerden) && $2 { bak $2 }
}
alias bak { whois $1 | enable #dirim }
#dirim off
raw 378:*: { nerden $gettok($6,2,64) | disable #dirim }
#dirim end
Hızlı services bot oluşturma
Yazan: admin 12 Eylül 2009 Cumartesi
Kategori: Hazır Kodlar
/set %kanal8 $$?=”Botun Gireceği Kanal 8? (Ornek: #Zurna)”
/set %kanal9 $$?=”Botun Gireceği Kanal 9? (Ornek: #Zurna)”
/set %kanal10 $$?=”Botun Gireceği Kanal 10? (Ornek: #Zurna)”
/set %os-timer $$?=”Kaç tane services bot oluşturulacak? (Ornek: 25)”
/timer %os-timer 4 /bot-2
}
/bot-2 {
//set %nicks $read(”system/nicks.txt”
//botserv bot add %nicks Sanalnikah %server 7©Kelebek4.7© | //msg #bot.raw %nicks Nickinde Bot Oluşturuldu. Zaman: $time $date dir. ßy NoBotes
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal1 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal1 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal2 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal2 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal3 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal3 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal4 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal4 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal5 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal5 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal6 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal6 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal7 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal7 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal8 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal8 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal9 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal9 kanalına girdi.
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal10 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal10 kanalına girdi.
//timer 0 110 //msg operserv raw : $+ %nicks part %kanal1 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal1 kanalına çıktı.
//timer 0 120 //msg operserv raw : $+ %nicks part %kanal2 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal2 kanalına çıktı.
//timer 0 130 //msg operserv raw : $+ %nicks part %kanal3 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal3 kanalına çıktı.
//timer 0 140 //msg operserv raw : $+ %nicks part %kanal4 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal4 kanalına çıktı.
//timer 0 150 //msg operserv raw : $+ %nicks part %kanal5 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal5 kanalına çıktı.
//timer 0 160 //msg operserv raw : $+ %nicks part %kanal6 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal6 kanalına çıktı.
//timer 0 170 //msg operserv raw : $+ %nicks part %kanal7 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal7 kanalına çıktı.
//timer 0 180 //msg operserv raw : $+ %nicks part %kanal8 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal8 kanalına çıktı.
//timer 0 190 //msg operserv raw : $+ %nicks part %kanal9 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal9 kanalına çıktı.
//timer 0 200 //msg operserv raw : $+ %nicks part %kanal10 | //timer 0 1 //msg #bot.raw %nicks Nicki %kanal10 kanalına çıktı.
}
Bunu Alias Bölümüne Yazıp Statüse /botat yazın karşınıza gelen bölümleri doldurun ve serverınıza istediğiniz kadar kanallara çıkıp giren bot yapın.
#bot.raw da hangi botun nereye girdiğini görebilirsiniz.Ama bir nicks.txt olması lazım bunu oluşturup system die bir klasöre atın addon hazır…
Günlük Burç Yorumcusu Plus
Yazan: admin 12 Eylül 2009 Cumartesi
Kategori: Hazır Kodlar
/*
Kullanımı:
Kanalda;
!burc burcadı yazan kişinin
özeline, yazılan burcun o günkü
yorumunu gönderir.
Örnek: !burc oglak
*/
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x }
alias isn { if ($2 isin $1) return $true }
on *:text:*:#: {
if ($1 == !burc) {
if (!$2) msg $nick Burcun adını girmediniz!
elseif ($isn($2,ö)) || ($isn($2,ş)) || ($isn($2,ı)) || ($isn($2,ç)) || ($isn($2,ü)) || ($isn($2,ğ)) msg $nick Türkçe karakter girmeyiniz!
else {
if (!%burclar) set %burclar Koc Boga Ikizler Yengec Aslan Basak Terazi Akrep Yay Oglak Kova Balik
if ($istok(%burclar,$2,32)) {
msg $nick 4,1Burcun Yorumu Alınıyor.Bekleyin…
set %burcid $findtok(%burclar,$2,32)
sockclose $+(burc*,$nick)
sockopen $+(burc*,$nick) www.muneccim.com 80
sockmark $+(burc*,$nick) $+($gettok(%burclar,%burcid,32),¿,%burcid)
}
else msg $nick Burç adı hatalı! Tekrar deneyiniz..!
}
}
}
on *:sockopen:burc*: {
var %s = sockwrite -n $sockname
%s GET /gunluk_fal/bugun.asp?burc= $+ $gettok($sock($sockname).mark,2,191) HTTP/1.1
%s Host: www.muneccim.com
%s $crlf
}
on *:sockread:burc*: {
sockread %data
if (face=”Arial Narrow”> isin %data) {
msg $remove($sock($sockname),burc*) $+ $gettok($sock($sockname).mark,1,191) Burcunun Bugünkü Yorumu:
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),1 $+ – $+ $calc($numtok($htmlfree(%data),32) / 2),32)
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),$calc($calc($numtok($htmlfree(%data),32) / 2) +1) $+ – $+ $numtok($htmlfree(%data),32),32)
unset %burcid %data
}
}
Canlı Iddaa Maç Sonuçları Gösterici Plus
Yazan: admin 12 Eylül 2009 Cumartesi
Kategori: Hazır Kodlar
/*
Kullanımı:
Kanalda;
!iddaa mackodu
yazıldığında,yazan kişinin özeline
maç koduna ait maçın bilgileri
(skoru,saati vs..) gönderilir.
*/
alias -l msend msg $remove($1,iddaa*) $htmlfree($2-)
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x }
alias isn { if ($2 isin $1) return $true }
on *:text:*:#: {
if ($1 == !iddaa) {
if (!$2) msg $nick 4Maç kodunu girmediniz!
elseif ($2 isnum) {
set %mcode $nick $2
msg $nick 4,1Lütfen Bekleyiniz…
sockclose $+(iddaa*,$nick)
sockopen $+(iddaa*,$nick) www.iddaa.com 80
sockmark $+(iddaa*,$nick) $2
}
else msg $nick 4Maç kodu yalnız sayılardan oluşmalıdır.
}
if ($1 == !idbilgi) msg $nick Bu kod,maç koduna göre maçın o anki canlı sonucu verir.(4BY SeRDaR406)
}
on *:sockopen:iddaa*: {
if ($sockerr) msend $sockname 4Kaynak siteye bağlanamıyor.Daha sonra tekrar deneyiniz…!
else {
var %s = sockwrite -n $sockname
%s GET /iddaacom/Canli/canli.asp HTTP/1.1
%s Host: www.iddaa.com
%s $crlf
}
}
on *:sockread:iddaa*: {
sockread %read
if (MAC_ID isin %read) {
set %mack $htmlfree(%read)
if ($sock($sockname).mark == %mack) sockmark $sockname true
}
if (true isin $sock($sockname).mark) {
if (onClick=”td isin %read) {
if ($sock($sockname).mark == true) { msend $sockname Ev sahibi Takım: $+ $chr(32) $+ %read | sockmark $sockname true1 }
elseif ($sock($sockname).mark == true1) msend $sockname Konuk Takım: $+ $chr(32) $+ %read
}
if (_ht isin %read) msend $sockname İlk Yarı Skoru: $+ $chr(32) $+ %read
if (_ft isin %read) msend $sockname Maç Skoru: $+ $chr(32) $+ %read
if (_dk isin %read) {
$iif(MS isin %read,msend $sockname Zaman: $+ $chr(32) $+ Maç Sonu,msend $sockname Zaman: $+ $chr(32) $+ %read)
sockclose $sockname
}
}
if (</table> isin %read) { msg $remove($sockname,iddaa*) 4Maç kodu hatalı(bulunamadı!) | sockclose $sockname }
}
Seslenme
Yazan: admin 12 Eylül 2009 Cumartesi
Kategori: Hazır Kodlar
on 1:text:*:?: if ($me isin $1- ) { echo 4 -a 4 $nick 1 Özelde sana sesleniyor! 2[14 $1- 2] }
on 1:text:*:#: if ($me isin $1- ) { echo 4 -a 4 $nick 2 $chan 1kanalinda sana sesleniyor! 2[14 $1- 2] }