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] }

Sonraki sayfa »