Forum Sitesi - Genel Forum Sitesi Sevgiara Sohbet
Gelişmiş Arama

ikonAna Sayfa ikonVbulletin ikonvBulletin Tema ikonSiteni Tanıt ikonDJ Özel ikonForum Oyunları ikonDizin
 
HM - AKTİVİTE
stats
HM - Duyurular

» Harbimekan.Com - Forum Kuralları 
» Harbimekan.Com - Yönetime Katılım Şartları
» Harbimekan.Com - Önerileriniz 
» Harbimekan.Com - Şikayetleriniz 
» Harbimekan.Com - DJ`lere Özel Bölüm  

Sizden Gelenler : Günün Sözü

"Kar taneleri ne güzel anlatıyor, birbirlerine zarar vermeden de yol almanın mümkün olduğunu.”


Öneren : 
Nutella

» Günün Sözü Önerileriniz İçin Tıklayınız «
Reklam ( Sponsor ) Alanı
Torrent Sitesi
Reklam ( Sponsor ) Alanı
İnstagram ucuz takipçi satın al
Go Back   HarbiMekan.Com - Genel Forum ve Paylaşım Sitesi Harbimekan.Com ~İRC Özel Bölüm~ Mirc Scripting
Mirc Scripting Mirc Scripting Kodları

Başlık

Konu Bilgileri
Konu Başlığı
!wiki-Sorgulamak istediğiniz kelime
Konudaki Cevap Sayısı
0
Şuan Bu Konuyu Görüntüleyenler
 
Görüntülenme Sayısı
95

Kullanıcı Etiket Listesi

Yeni Konu aç  Cevapla
 
LinkBack Seçenekler Stil
Alt 15 Şubat 2021, 07:03   #1
 Te5ir - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 02 Ocak 2021
Üye No: 296
Mesajlar: 36
Konular: 13
REP Puanı : 21
@Te5ir
12 !wiki-Sorgulamak istediğiniz kelime

Merhabalar Remotemizde wikipedia adresinden kelime sorgulatıyoruz..

Kod:
alias -l duzelt return $replacecs($1-,ü,ü,ı,ı,Å?,ş,Å,Ş,ç,ç,Ã?,Ö,ö,ö,Ä?,ğ,â??,',Ä°,İ,Ã?,Ü,Ã?,Ç,â,â,â?,-)

alias -l cozumle return $replacecs($1-,Ş,$chr(37) $+ C5 $+ $chr(37) $+ 9E,Ü,$chr(37) $+ C3 $+ $chr(37) $+ 9C,ş,$chr(37) $+ C5 $+ $chr(37) $+ 9F,ğ,$chr(37) $+ C4 $+ $chr(37) $+ 9F,ı,$chr(37) $+ C4 $+ $chr(37) $+ B1,İ,$chr(37) $+ C4 $+ $chr(37) $+ B0,Ç,$chr(37) $+ C3 $+ $chr(37) $+ 87,ç,$chr(37) $+ C3 $+ $chr(37) $+ A7,ü,$chr(37) $+ C3 $+ $chr(37) $+ BC,ö,$chr(37) $+ C3 $+ $chr(37) $+ B6,Ö,$chr(37) $+ C3 $+ $chr(37) $+ 96)

alias -l \-/ { if !$regex($sock(wiki).status,/^active$/i) { sockopen wiki tr.wikipedia.org 80 } }

alias -l \wik/ { if !$regex($sock(wikidia).status,/^active$/i) { sockopen wikidia tr.wikipedia.org 80 } }


on *:sockopen:wiki: { 
  sockwrite -n $sockname GET $+(/wiki/,$cozumle(%wpc)) HTTP/1.0
  sockwrite -n $sockname host: $sock($sockname).addr
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}

on *:sockread:wiki: { 
  if ($sockerr) { /msg %c- 4Bağlantı Hatası! 5Hata No:2 $sock($sockname).wserr  5Hata Mesajı:2 $sock($sockname).wsmsg | halt }
  var %wiki | sockread %wiki
  if $regex(%wiki,/<\160><\142>/i) {
    if $regex($duzelt(%wiki),/Vikipedi\S{1}de\40bu\40isimde\40bir\40madde\40bulunmamaktadır\./i) {
    /msg %c- Vikipedi'de bu isimde bir madde bulunmamaktadır. | set -e %&$ okay | sockclose wiki }
    else { /msg %c- $regsubex($duzelt(%wiki),/<[^>]+>|\[\d+\]/g,) }
  }
}


on *:sockopen:wikidia: { 
  sockwrite -n $sockname GET $+(/wiki/,$cozumle(%wpc)) HTTP/1.0
  sockwrite -n $sockname host: $sock($sockname).addr
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}

on *:sockread:wikidia: { 
  if ($sockerr) { /did -a wikidia 6 Bağlantı Hatası! Hata No: $sock($sockname).wserr  Hata Mesajı: $sock($sockname).wsmsg | halt }
  var %wiki | sockread %wiki
  if $regex(%wiki,/<\160><\142>/i) {
    if $regex($duzelt(%wiki),/Vikipedi\S{1}de\40bu\40isimde\40bir\40madde\40bulunmamaktadır\./i) {
    /did -a wikidia 4 Vikipedi'de bu isimde bir madde bulunmamaktadır. | sockclose wikidia }
    else { /did -a wikidia 4 $regsubex($duzelt(%wiki),/<[^>]+>|\[\d+\]/g,) }
  }
}

on *:sockclose:wikidia: { /did -a wikidia 6 http://tr.wikipedia.org/wiki/ $+ $cozumle(%wpc) }

on *:input:#: {
  if $regex($1-,/^[\.!]wiki\s.+$/S) {
    unset %&$ | set -e %c- $chan
    set -e %wpc $regsubex($replacex($2-,$chr(32),$chr(95)),/((?<=^|\_)(.))/Sg,$upper(\1)) | /\-/
  }
}
alias -l wikitara { if (%wpsearch) {
  unset %&$ | set -e %wpc $regsubex($replacex(%wpsearch,$chr(32),$chr(95)),/((?<=^|\_)(.))/Sg,$upper(\1)) | /\wik/ }
}

dialog wikidia {
  title "mIRC Wiki"
  size -1 -1 180 186
  option dbu
  edit "", 2, 5 9 87 10
  button "Aramaya Başla", 3, 94 8 47 12, flat
  edit "", 4, 4 27 167 132, read multi vsbar
  text "Sorgulanan Kriterin Linkini Görmek için Tıklayın", 5, 4 160 142 8
  link "Wiki Link", 6, 3 171 143 8
}

on *:dialog:wikidia:sclick:6: { $iif($did(6).text == Wiki Link,return,/run $did(6).text) }
on *:dialog:wikidia:sclick:3: { /did -r $dname 4 | /did -r $dname 6 | /set -e %wpsearch $did(2).text | /wikitara }


menu * {
  .Wiki Search:/dialog -m wikidia wikidia
}


çevrimdışı  
Alıntı ile Cevapla
Cevapla

Bookmarks

Etiketler
irc, kelime, sorgulatmai wiki


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Her gün bir kelime tevhid AdeLya91 DUA - Dua Köşesi 1 17 Ocak 2021 15:05
Her gün bir kelime tevhid AdeLya91 DUA - Dua Köşesi 1 17 Ocak 2021 15:05
Dünyada bedava olmasını istediğiniz 3 şey ? aDm Soru - Cevap 0 02 Mayıs 2020 00:15
Dünyada bedava olmasını istediğiniz 3 şey ? aDm Soru - Cevap 0 30 Nisan 2020 12:33
Dünyada bedava olmasını istediğiniz 3 şey ? aDm Soru - Cevap 0 30 Nisan 2020 05:30

Tüm Zamanlar GMT +2 Olarak Ayarlanmış. Şuanki Zaman: 08:50.

Forum Yasal Uyarı
Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.

Başlangıç : 17.03.2019 Vira Bismillahirrahmanirrahim.
Harbimekan.Com, lisanslı Vbulletin kullanan genel Forum Sitesi `dir.
İçerik sağlayıcı paylaşım sitelerinden biri olan Harbimekan.Com Forum, Eğlence ve Güncel Paylaşım Platformu Adresimizde 5651 Sayılı Kanun’un 8. Maddesine ve T.C.K’nın 125. Maddesine göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. Harbimekan.Com sitesindeki konular yada mesajlar hakkında yapılacak tüm hukuksal Şikayetler için sikayet@harbimekan.com iletişime geçilmesi halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 3 Gün (72 Saat) içerisinde Forum yönetimi olarak tarafımızdan gereken işlemler yapılacaktır.
juul - iQos Heets - Elektronik Sigara Likit - E Sigara - Fivem server list - Genel Kültür - Takipçi satın al - Oto Çekici - elektronik sigara