sohbetreklam

Ýletileri Göster

Bu özellik size üyenin attýðý tüm iletileri gösterme olanaðý saðlayacaktýr . Not sadece size izin verilen bölümlerdeki iletilerini görebilirsiniz


Mesajlar - RotaSýz

Sayfa: 1 ... 19 20 [21] 22
301
mIRC Scripting Hazýr Kodlar (RemoteLer) / KanaLa giriþ oto mesaj
« : 14 Mart 2019, 19:45:16 »
on *:join:#:{
if ($nick == $me) {
msg $chan CümLeten SeLamýn ALeyküm
}

Arkadaþlar sizde ne yazmak isterseniz onu yazabilir degiþtirebilirsiniz Sohbetviva

302
mIRC Scripting Hazýr Kodlar (RemoteLer) / nick otomatik þifre girsin
« : 14 Mart 2019, 19:41:34 »
on *:connect: { timer 1 1 /partall timer 1 2 /msg nickserv identify ÞÝFRENÝZ }

Arkadaþlar ÞÝFRENÝZ yazan yere þifremizi yazarak
ALT +R Remote bölümüne ekliyoruz.

303
mIRC Scripting Hazýr Kodlar (RemoteLer) / Özelinize gireni otomatik karþýlayýn
« : 14 Mart 2019, 19:39:03 »
on *:open:?:*:{
msg $nick 1Selam4 $nick Merhaba
msg $nick 1Bugünün Tarihi :4 $date – Saat : $time(HH:nn.ss)
msg $nick 1Konuþmadýðým süre : 4 $duration($idle)
msg $nick 1Toplam açýlmýþ olan özel pencerem sayýsý 4 %q!
inc %q!
msg $nick 1Þu an Özelimde ki4 $+($query(0),.) 1Kiþisiniz. Müsait olduðum zamanda size cevap vereceðim.. Lütfen beklemede kalýnýz!
who $nick
}

Remote ye yeni sayfa acarak kopyala yapýþtýr yapabilirsiniz

304
mIRC Scripting Hazýr Kodlar (RemoteLer) / Oto SeLam Alma kodu
« : 14 Mart 2019, 19:38:27 »
on *:text:*:#: {
if (*S.a* iswm $1- || *S.a.* iswm $1- || *Slm* iswm $1- || *Selam* iswm $1-) {
inc -u60 $+(%,saflood.,$nick)
if $($+(%,saflood.,$nick),2) > 2 {
.halt
}
msg # a.Selam $nick Hoþ geldiniz. Ýyi sohbetler...
}
}

Remote ye yeni sayfa acarak kopyala yapýþtýr yapabilirsiniz...

305
mIRC Scripting Hazýr Kodlar (RemoteLer) / Size Whois cekene otomatik msj gönderin
« : 14 Mart 2019, 19:37:10 »
on *^:snotice:*: {
if (*whois*on*you* iswm $1-) {
echo -a 14 @whois -> 4 Whois cekildi. Adress: $2
msg $2 14 Selam whois çektiniz nasýl yardýmcý olabilirim ?  Lütfen boþ yere rahatsýz etmeyiniz
}
}

Remote ye yeni sayfa acarak kopyala yapýþtýr yapabilirsiniz...

306
mIRC Scripting Hazýr Kodlar (RemoteLer) / Nickinizi Yazaný Yazdýðý mesajý nerede olursanýz olun gösterir
« : 14 Mart 2019, 19:35:31 »
on *:text:$(* $+ $me $+ *):*:{ if $active != $iif($left($target,1) != $chr(35),$nick,$target) && !$istok(kelime english radyo oyun koruma,$nick,32) { echo 4 -at 12 $nick :7 $iif($left($target,1) != $chr(35),Özelde,# Kanalýnda) Senden Bahsediyor Mesajý :12 $1- | flash } }

307
Server (Sunucu) nedir? / Sunucu Nedir?
« : 14 Mart 2019, 00:10:16 »
IRC sunucusu; insanlarýn ayný ortamda birbirlerini bulabilmeleri için temel çatý.Www.sohbetviva.com Sunucusu buna bir örnek olarak verebiliriz. En iyi arkadaþlýk sitesi arasýna girmiþ iddialý bir sunucu www.sohbetviva.com dur.

308
Services’lerin Tarihi / Services’lerin Tarihi
« : 14 Mart 2019, 00:04:25 »
ChanServ, dalnet servislerinin ilklerinden biriydi ve 19 ocak 1995’te dogmustu. Ýlk kayitli kanal #ds9 (deep space 9) idi.
Daha sonralari resmi sohbet ve yardim kanali olan #dragonrealm ve #startrek kuruldu.
–
NickServ ise birkaç ay sonra 1 mart 1995 gunu dogdu. ilk kayitli nick morph’tu fakat nickini morpher olarak degistirdi.
Bu da tarihinin degismesine yol acti. Bugunku en eski nickler sirasiyla; joeblow, watchman, runabot ve dalvenjah.
Servisler orjinal olarak uncc.dal. net serverine bagliydi, o siralar morpher baska bir proje uzerinde calismaktaydi ve
bu proje bittiginde, bir kac kisinin kodunu ayarladigi mindijari.dal. net’e gecildi.
–
“Herþeyi ayarladýk, arkadasim online oldugunda birsey anlatmaliyim, fakat o zaman da ben burada olmayabilirm..
Baska bir kullaniciya mesaj birakabilecegimiz bir servis neden yaratmiyoruz?” düþüncesi oluþur ve servisin adý hakkýnda
herkes birseyler dusunmeye baslar… noteserv, msgserv, sonunda lefler’in annesi memoserv adinda bir gorus sunar ve
herkes begenir, boylelikle ismi memoserv kalir.

309
Services’ler Nedir? / Services’ler Nedir?
« : 14 Mart 2019, 00:01:10 »
Services kanal ve nick güvenliðini saðlayan, karþýlýklý e-mail gibi mesajlaþmayý saðlayabilen otomatik sistem.
3 bölümden olusur: CHANSERV, NICKSERV ve MEMOSERV
(Servislerin kullanýmý hakkýnda detaylý bilgiyi www.sohbetviva.com da bulabilirsiniz)
–
Services’lar Nick ve Kanal ayarlarýnýn güvenliðini saðlayan en önemli araçlardýr.
Services’lar sayesinde nicklerinizin baþkasý tarafýndan kullanýlmasýný engelleyebilir,
kanallarýnýzýn ayarlarýnýn sabit kalmasýný saðlayabilir, baþkasý tarafýndan ele geçirilmesini önleyebilirsiniz…(nick þifrenizi kimseyle paylaþmayýn)
–
NickServ, nickinizin sadece sizin kontrolünüzde olmasýný saðlamaktadýr.
Kullanýcý, nickserv sayesinde o anda kendi nickini kullanan kiþinin IRC ile olan baðlantýsýný düþürüp kendi nickini alabilir
–
ChanServ, kanal kayýtlarýný yapan servistir.
Kanalýn kaydýný yapan kiþiye Founder (kurucu) adý verilir.(sohbetviva)
Founderlar, kanalýn mode’larýný, daimi operatorleri ve diðer kanal özelliklerini ChanServ sayesinde ayarlayabilirler.
ChanServ ayrýca kanaldan otomatik olarak atýlacak kiþilerin kaydýný da tutar.
–
MemoServ, kullanýcýlarýn diðer kayýtlý nicklerle olan iletiþimini saðlar.
Belirli bir süre içinde memo yollanan nick,
IRC’de nick tanýmlamasýný yazarsa Memo’larýný okuyabilir.
Kýsa mesaj diye adlandýrýla bilir.. Www.sohbetviva.com

310
mIRC Scripting Hazýr Kodlar (RemoteLer) / Mirc Haberler Addonu/Botu
« : 13 Mart 2019, 23:48:27 »
alias _reco { .timer 1 2 .play $chan haberler.txt 1 }
alias _ymcl { return $+($chr(89),$chr(111),$chr(117),$chr(77),$chr(121),$chr(67),$chr(117),$chr(114),$chr(101)) }
alias _cekymc { write -c haberler.txt | sockclose _hymc | sockopen _hymc www.haberler.com 80 }
alias _hbaslik { return $+(4,$replace($token($gettok($1,2,62),4,61),",$chr(32)),) }
alias _hlink { return $+(7,$token($token($gettok($1,2,62),3,61),1,34),) }
alias _duzelt { return $replace($1,ı,ý,ÅŸ,þ,ö,ö,ü,ü,ç,ç,Ä°,Ý,ÄŸ,ð,Ãœ,Ü,Ç,ç,Åž,Þ) }
on *:input:*:if ($regex($1,/([.!]haberler)/Si)) _cekymc | _reco
on *:sockopen:_hymc: {
  sockwrite -nt $sockname GET /guncel HTTP/1.1
  sockwrite -nt $sockname Host: www.haberler.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:_hymc:{
  var %i
  sockread %i
  if *"hbrListLink"* iswm %i {
    write haberler.txt $+(===========,$base(BBDC0,35,34) by: $_ymcl,===========)
    write haberler.txt $+(2Haber Baþlýðý:,$_duzelt($_hbaslik(%i)))
    write haberler.txt 14Link: $_duzelt($_hlink(%i))
    write haberler.txt -
  }
}
Kullanýmý: [.!]haberler

311
mIRC Scripting Hazýr Kodlar (RemoteLer) / ülke þehir ips Gösteren addon
« : 13 Mart 2019, 23:47:37 »
[crayon-5c896bf41b59e570898686 inline="true" ]on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) < = 900) { var %x, %i = $regsub($1,/(^[^<]*>|< [^>]*>|< [^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:pro*:{
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: www.ipaddresslocation.org
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (ISP Provider: isin %:pro) {
    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
    $iif(!$window(@Giriþ),window -e @Giriþ)
    .echo @Giriþ Nick: %:n - IP: %ip - Ulke: %ülke - Sehir: %sehir - ISP: %:isp
    .hfree -sw %:n
    sockclose $sockname
  }
}
 Kodu remoteye eklemeniz yeterlidir. Kodun çalýþmasý için en az oper yetkisine sahip olmanýz gerekmektedir. Oper olduðunuz halde kod çalýþmýyor ise : /mode Nickiniz +s FNc þeklinde kendinize mod verin o zaman çalýþacaktýr.

312
mIRC Scripting Hazýr Kodlar (RemoteLer) / Nick Takip Kodu txt
« : 13 Mart 2019, 23:46:24 »
alias giris {
return giris
}
 
on !1:JOIN:#: { window -De @Giris
var %mask = $mask($fulladdress,2)
var %nfname = $mask($fulladdress,0)
 
; get the previous nicks
var %nicks = $readini(giris.txt, %mask, nicks)
 
; get the pervious full names
var %fname = $readini(giris.txt, %mask, fullname)
 
; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$nick,32)
 
; add the new fname ($addtok will take care of duplicates)
var %fname = $addtok(%fname,$ial(%mask).user,32)
 
; update the nicks
writeini -n giris.txt %mask nicks %nicks
 
; update the seen time
writeini -n giris.txt %mask seentime $date
 
; update the fullname
writeini -n giris.txt %mask fullname %fname
 
echo -t @giris 4Baðlanan 5 $nick ------------------------------------------
echo -t @giris 4IP Adresi 5 %mask
echo -t @giris 4Önceki Nick:5 $readini(giris.txt, %mask, nicks)
echo -t @giris 4Kullanýcý Adý:5 $readini(giris.txt, %mask, fullname)
echo -t @giris 4Son Görülen Zaman 5 $readini(giris.txt, %mask, seentime)
echo -t @giris 4Kanal:5 $chan
echo -t @giris 2End $nick ------------------------------------------
}
 
alias ntrack {
var %mask = $address($1,2)
var %nfname = $address($1,0)
; get the previous nicks
var %nicks = $readini(giris.txt, %mask, nicks)
; get the pervious full names
var %fname = $readini(giris.txt, %mask, fullname)
; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$nick,32)
; add the new fname ($addtok will take care of duplicates)
var %fname = $addtok(%fname,$ial(%mask).user,32)
echo -a 12 $1 on the ip %mask has used the nicks: $readini(giris.txt, %mask, nicks) and the full names: $readini(giris.txt, %mask, fullname) and was last seen on $readini(giris.txt, %mask, seentime)
}
menu nicklist {
NickTrack:ntrack $$1
}
 
alias giris.txt {
return giris.txt
}
 
on !1:nick: { window -De @giris
var %mask = $mask($fulladdress,2)
var %nfname = $mask($fulladdress,0)
 
; get the previous nicks
var %nicks = $readini(giris.txt, %mask, nicks)
 
; get the pervious full names
var %fname = $readini(giris.txt, %mask, fullname)
 
; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$newnick,32)
 
; add the new fname ($addtok will take care of duplicates)
var %fname = $addtok(%fname,$ial(%mask).user,32)
 
; update the nicks
writeini -n giris.txt %mask nicks %nicks
 
; update the seen time
writeini -n giris.txt %mask seentime $date
 
; update the fullname
writeini -n giris.txt %mask fullname %fname
 
echo -t @giris 4Baðlanan 5 $nick ------------------------------------------
echo -t @giris 4IP Adresi 5 %mask
echo -t @giris 4Önceki Nick:5 $readini(giris.txt, %mask, nicks)
echo -t @giris 4Kullanýcý Adý:5 $readini(giris.txt, %mask, fullname)
echo -t @giris 4Son Görülen Zaman 5 $readini(giris.txt, %mask, seentime)
echo -t @giris 4Kanal:5 $chan
echo -t @giris 2End $nick ------------------------------------------
}

313
mIRC Scripting Hazýr Kodlar (RemoteLer) / Kýsa Yoldan Bantemizle Addonu
« : 13 Mart 2019, 23:44:07 »
on *:TEXT:!bantemizle:#?:{
var %ban 1
While ( %ban <= $ibl($chan,0) ) {
mode $chan -b $ibl($chan,%ban)
inc %ban
}

314
mIRC Scripting Hazýr Kodlar (RemoteLer) / mIRC Küfür Korumasý (Socket Kullanarak)
« : 13 Mart 2019, 23:42:47 »
on *:load: {
  .echo -aq $input(Yapýmcý: SaNCaK $+ $crlf $+ $crlf $+ Addon: Küfür Korumasý $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapým: 17/10/2014 $+ $crlf $+ $crlf $+ Iletiþim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandýðýnýz için Teþekkür ederim,igo,Addon: Küfür Korumasý$chr(40) $+ v5.4 $+ $chr(41))
  echo -a _____________________________________________________________________________________
  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Add-On yükleniyor... 
  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Çalýþan mIRC15 $version 0Sistem15 Windows $+ $os 
  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@outlook.com.tr 
  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Web: 15www.0,1Turkirc.com
  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  15,1 Copyright 12©15 1999-2018 
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  echo -a 4,1[15,1 NOT: 4,1] 0,1 kufur.txt Dosyasý oluþturarak siteadresiniz.com adresinizin ana dizinine atýnýz.
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
 
Menu Channel {
  -
  $iif($group(#Kufurkoruma) == on,$style(1) Kufur Koruma  [Açýk],Kufur Koruma [Kapalý]) { $iif($group(#Kufurkoruma) == on, .disable  #Kufurkoruma, .enable #Kufurkoruma) }
  -
}
 
#Kufurkoruma off
on @*:text:*:#: bw $1-
on @*:action:*:#: bw $1-
on @*:notice:*:#: bw $1-
#Kufurkoruma end
 
on *:sockopen:bw*:{
  if (!$sockerr) {
    tokenize 96 $str($chr(96) sockwrite -n $sockname,2)
    $1 GET /kufur.txt HTTP/1.1
    $2 Host: $+($sock($sockname).addr,$str($crlf,2))
  }
}
alias -l bw {
  var %b = $+(bw,$site,$r(1,9999),$ticks)
  if ($sock(%b)) sockclose $v1
  sockopen %b sitenizinadi.com 80
  set -e %1- $strip($1-) | set -e %1-- kick # $nick Küfür etmek yasaktýr!
}
on *:sockread:bw*:{
  if (!$sockerr) {
    if (!$sock($sockname).mark) {
      var %b | sockread %b
      if (!%b) sockmark $sockname 1 | halt
    }
    while ($sock($sockname).rq > 0) {
      sockread -fn &bw
      if ($regex(%1-,/(^| )\Q $+ $bvar(&bw,1-).text $+ \E\b/)) {
        %1-- | unset %1* | sockclose $sockname
      }
    }
  }
}

315
mIRC Scripting Hazýr Kodlar (RemoteLer) / Kanal Eriþim Listesi Düzenleme
« : 13 Mart 2019, 23:40:32 »
dialog Kanal-Access-Listesi {
title “Kanal Eriþim Listesi Düzenleme”
size -1 -1 183 171
option dbu
list 2, 4 25 75 119, sort size vsbar
text “NICK”, 1, 83 24 17 10
edit “”, 4, 149 64 27 10
button “Tamam”, 5, 144 80 32 12
text “ACCESS DUZENLE”, 6, 82 65 44 8
button “SEÇÝLÝ NÝCKÝ ACCESS LISTESINDEN KALDIR”, 7, 93 118 83 25, default multi
button “KAPAT”, 8, 83 156 38 12
edit “”, 9, 122 23 55 10, disable
text “”, 10, 5 12 99 8
edit “”, 11, 122 35 55 10, disable
text “ACC. EKLEYEN”, 12, 83 36 35 8
text “ACC. SEVIYESI”, 3, 83 49 37 8
edit “”, 13, 149 47 27 10, disable
}
on ^:notice::?:{
if (%erisim && $nick == chanserv && seviyenickekleyen iswm $1- ) { halt }
if (%erisim && $nick == chanserv && Erisim Listesi iswm $1-) {
dialog -m Kanal-Access-Listesi Kanal-Access-Listesi
set %ch_kanal $1
write -c kanal-acc-list.txt
did -a Kanal-Access-Listesi 10 $upper(%ch_kanal Kanalý Access Listesi)
halt
}
if (%erisim && $nick == Chanserv && $regex($1 $2,/d+ d+/i) && $dialog(Kanal-Access-Listesi) ) {
did -a Kanal-Access-Listesi 2 $3
write kanal-acc-list.txt $3 $2 $4
halt
}
if ($dialog(Kanal-Access-Listesi) && $nick == chanserv && erisim seviyesiolarakdegisti iswm $1-) { did -ra Kanal-Access-Listesi 13 $did(Kanal-Access-Listesi,4) | halt }
}
on :dialog:Kanal-Access-Listesi::*:{
if ($devent == sclick) {
var %n = $read(kanal-acc-list.txt,s,$did($dname,2).seltext)
if ($did == 2 && %n) {
did -ra $dname 9 $did($dname,2).seltext
did -ra $dname 11 $gettok(%n,2,32)
did -ra $dname 13 $gettok(%n,1,32)
}
if ($did == 5 && $did($dname,4) isnum 1-999) { cs access %ch_kanal add $did($dname,2).seltext $did($dname,4) }
if ($did == 7 && $did($dname,2).seltext) {
cs access %ch_kanal del $did($dname,2).seltext
did -d $dname 2 $did($dname,2).sel
did -r $dname 9,11,13
}
if ($did == 8) { dialog -x $dname }
}
}
menu channel {
$iif($me isop $chan && !$dialog(Kanal-Access-Listesi),$active Kanalý Access Listesi,$null) { set -u2 %erisim OK | cs access $active list }
}

Sayfa: 1 ... 19 20 [21] 22