| Hoşgeldin, Ziyaretçi |
Sitemizden yararlanabilmek için Kayıt olmalısınız.
|
| Kimler Çevrimiçi |
Toplam: 30 kullanıcı aktif
» 0 Kayıtlı
» 29 Ziyaretçi
Google
|
| Son Aktiviteler |
Vn5socks.net - Service Se...
Forum: GÜNCEL PROXY SOCK4 SOCK5 LİSTESİ
Son Yorum: vn5socks.net
9 saat önce
» Yorumlar: 54
» Okunma: 45,228
|
Hijyenik Klima Santraller...
Forum: Web Site Tanıtımı
Son Yorum: nullsix
, 10:49 PM
» Yorumlar: 0
» Okunma: 3
|
İzmir Son Dakika
Forum: Web Site Tanıtımı
Son Yorum: inurdemirelseo
, 03:31 PM
» Yorumlar: 0
» Okunma: 7
|
Betvevo
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 02:57 PM
» Yorumlar: 0
» Okunma: 6
|
Asobahis
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 02:47 PM
» Yorumlar: 0
» Okunma: 5
|
Roofbet
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 02:38 PM
» Yorumlar: 0
» Okunma: 5
|
Instagram gizlilik hesap ...
Forum: Yeni Sunucular
Son Yorum: inurdemirelseo
, 02:32 PM
» Yorumlar: 0
» Okunma: 9
|
Maslakcasino
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 02:30 PM
» Yorumlar: 0
» Okunma: 6
|
Casinosezar
Forum: Web Site Tanıtımı
Son Yorum: chaos415
, 02:12 PM
» Yorumlar: 0
» Okunma: 5
|
Shopsocks5.com - Service ...
Forum: GÜNCEL PROXY SOCK4 SOCK5 LİSTESİ
Son Yorum: shopsocks5.com
, 12:57 PM
» Yorumlar: 31
» Okunma: 22,417
|
|
|
Dialoglar Hakkında Herşey |
|
Yazar: Lamer - 02-22-2020, 02:28 AM - Forum: mIRC Scripting Dersleri
- Yorum Yok
|
 |
Dialoglar Hakkında Herşey
;-----------------------------------------------
; Dialog Yardım Dosyası
; Anlatım by Cappystarj0e
;----------------------------------------------
; Örnek Dialog Penceresi
Kod: dialog Ornek {
title "Örnek - Dialog'un Title kısmı..."
size -1 -1 134 216
option dbu
icon C:\resimlerim\VatanScr.jpg, 1
edit "EDIT", 1, 70 16 50 10, limit 34
text " TEXT", 2, 10 17 31 8
list 3, 9 30 50 44, sort size extsel hsbar vsbar
combo 4, 63 30 60 45, sort size edit hsbar vsbar drop
box "BOX Texti...", 5, 5 3 122 83
radio "Radyo Düğmesi", 6, 8 90 50 10, group flat left push
check "Check düğmesi", 7, 8 102 50 10, 3state flat left push
tab "Tab 1", 8, 6 116 118 77
icon 9, 17 140 98 42, C:\resimlerim\deneme.bmp, 1, tab 8 noborder bottom
button "Button", 10, 67 91 55 20, default flat multi
link " Coded by CAPPYSTARJOE", 11, 36 200 66 8
}
Alias Ornek { dialog -m ornek ornek }
Bu dialog da hemen hemen bütün dialog elemanları tanıtılmıştır. Code kısmını mirc'in remotesine yapıştırıp [b]/Ornek yazarak dialog'u açabilirsiniz fakat iconlar hata verebilir o yüzden icon ların bulunduğu satırları ya kendinize göre ayarlamanız yada silmeniz önerilir.[/b]
Şimdi sırayla bunların ne anlama geldiklerini ve nasıl çalıştıklarını anlatmaya çalışayım.
::::: DIALOG ELEMANLARI :::::
::: Size :::
Size [X] [Y] [W] [H]
Dialog'un boyutlarını belirler 4 parametresi vardır.
ilk iki parametre genelde -1 olarak kullanılır. Bu şekilde kullanıldığı zaman dialog penceresinin ekranın ortasında açılmasını sağlar. Eğer siz buraya başka değerler girerseniz girdiğiniz değerlere göre ekranın belirli bir bölgesinde açığa çıkar.
3. [W] parametresi soldan sağa ne kadar boyutta olduğunu gösterir.
4. [H] parametresi de yukarıdan aşağıya ne kadar boyutta (büyüklükte) olacağını gösterir.
::: Title :::
Title "yazı..."
Dialog pencresinin en üst bandında (Titlebar) yer alan yazıyı kontrol etmek için kullanılır.
::: Edit :::
edit "yazı..." [N], [X] [Y] [W] [H], [read | pass | multi | return | autohs | autovs | hsbar vsbar | limit N ]
Dialog penceresinde bir satır meydana getirmek için kullanılır. Yalnız bu ve bundan sonra anlatacağım dialog elemanlarının index numaraları vardır. Yani her eleman kendisini tanıtan bir sayıya eşdeğerdir. Dialog komutlarında bu sayı ile tanınır. Yukarıda verdiğimiz örnekte edit in index numarası 1 dir. 1 den sonra görüleceği üzere yine 4 tane parametre mevcuttur. Bundan sonra gelen parametreler Dialog penceresine yerleştireceğiniz elemanın görünümü ve değişik kullanımları ile alakalı parametrelerdir.
Örneğin...
read; edite bir yazı girilmesini engeller. Sadece editteki yazıyı okuyabilirsiniz.
pass; edit'e girilen bir sayının *** şeklinde gözükmesini sağlar. Onu gizler.
multi; editte normalde 1 satır vardır. editi 1 den fazla satır halinde kullanmak için bu parametre kullanılır. vs.
::: Text :::
Text "yazı..." [N], [X] [Y] [W] [H]
Dialog penceresine yazı yazmak için kullanılır.
::: Button :::
Button "yazı..." [N], [X] [Y] [W] [H], [ default | flat | multi | OK | CANCEL ]
Dialog'da button oluşturmak için kullanılır.
Flat; Button görünümü ile alakalıdır.
Default; Buttonun dialog penceresi açıldığı andan itibaren üstünde bir karatı gözükmesi olayıdır. Yani diğer elemanlardan daha aktif bi şekilde gözükür seçiliymiş gibi görünür. O durumu bozmadığınız sürece Enter'a bastığınız zaman o butona basmış olursunuz.
::: List :::
List [N], [X] [Y] [W] [H], [ sort | extsel | hsbar | vsbar | size ]
Dialog da Listeler oluşturmak için kullanılır.Bilinen [N], [X] [Y] [W] [H] parametrelerinin dışında [ sort | extsel | hsbar | vsbar | size ] gibi parametreleri mevcuttur.
Sort; Listeye girilen yazıların listede alfabetik sırayla düzenlenmesini sağlar.
Extsel; Listede birden fazla seçim yapmanıza imkan sağlar.
hsbar & vsbar; Liste kontrolü için sağdan sola ve aşağıdan yukarıya scrolleri etkinleştirir.
size; Bu da sanırım listenin boyutu ile alakalı bir parametre ama tam olarak ne oldugunu bilmiyorum. Ama listelerin hemen hepsinde var.
::: Combo :::
Combo [N], [X] [Y] [W] [H], [ sort | size | edit | hsbar | vsbar | drop ]
Dialog da aktif bir edit elemanı oluşturmak için kullanılır. 2 kullanımı vardır.
1.si Liste şeklinde olanıdır. Üstte bir satır altta bir liste şeklinde...
2.si Tıklandığında aşağıya açılabilen bir edit görünümündedir. İçinde bir çok satır barındırır.
Bu özellikleri "drop" parametresi ile belirlenir. Eğer drop u kullanırsanız. Combo'nuz 2. tipte çalışır.
List'in parametreleri ile aynı olan parametreler List'deki görevler ile aynı görevleri yapar.
Edit; Combo da seçilen bir satırın kontrol edilebilmesi için kullanılır. Yani eğer bu parametre kullanılmamışsa combo daki satırları kullanıcı değiştiremez. Ona sadece seçenekler sunarsınız. Eğer edit kullanılırsa combo içindeki bir satırı kullanıcıya da değiştirtebilirsiniz.
::: Box :::
Box "yazı..." [N], [X] [Y] [W] [H]
Dialog elemanlarını bir çerçeve içinde toplamak için kullanılır.
::: Radio :::
Radio "yazı..." [N], [X] [Y] [W] [H], [ group | flat | left | push ]
Bir kez tıklandığında ancak grup içerisinde başka radyo düğmesi var iken değeri değişebilen bir elemandır. Seçenekler için kullanılır. Örneğin, kullanıcı birçok seçenek içinden sadece 1 tane veya sadece belirli sayıda seçeneği seçebilecek durumdaysa Radyo düğmesi kullanılır.
Group; Birçok seçeneği grup halinde toplamak ve kullanıcıya bunlardan sadece 1 tanesini seçtirmek için kullanılan bir parametredir. Group içinde bulunan radyo düğmelerine tıkladığınızda sadece 1 i tıklı gözükür diğerine tıkladığınız zaman tıklı gözüken radyo düğmesi boş olur. Böyle bir düzeneği ancak group parametresi ile sağlayabilirsiniz.
Flat; Radyo düğmesinin görünümü ile alakalı bir parametredir.
Left; Bu parametreyi kullanmazsanız, Tıklanacak kısım solda yazı kısmı sağda olacak şekilde bir Radyo düğmesi oluşturmuş olursunuz. Eğer bu parametreyi kullanısanız yazı kısmını sola, tıklanacak kısmı da sağa çekmiş olursunuz.
Push; Radyo düğmesinin Button gibi gözükmesini sağlar. Yalnız button dan farklı olarak basıldığı zaman basılı kalır. Ve group içinde aynı radyo düğmesi gibi davranır.
::: Check :::
Check "yazı..." [N], [X] [Y] [W] [H], [ 3state | flat | left | push ]
Seçeneklerin aktif olduğunu göstermek amacıyla kullanılır. Yani bir seçeneği seçtiğimizi belirtmek için kullanabiliriz. Radyo düğmesi ile biraz benzerlik göstermektedir.Fakat Tek bir Radyo düğmesi tıklandığında değeri değişemezken bir check düğmesinin değerini istediğimiz gibi değiştirebiliriz. Yani tıklı halden boş hale, boş halden tıklı hale geçirebiliriz. Radyo düğmesi ile aynı olan parametreleri aynı görevleri yaparlar.
3state; Görünüm ile alakalı bir parametredir.
::: Icon :::
1] icon [Dosya yolu], [Index]
2] icon [N], [X] [Y] [W] [H], [Dosya yolu], [Index], [ noborder | Left | Right | bottom | Top | Center ]
Bu dialog elemanının 2 kullanım şekli vardır.
1.si Dialog penceresinin title barda yer alan (sol üst köeşedeki) iconunu kontrol etmek için kullanılır.
2.si Dialog penceresine bir resim eklemek için kullanılır.
Left | Right | bottom | Top | Center ; parametreleri icon elemanının [X] [Y] [W] [H] değerleri ile oluşturulan alanda nasıl yerleştirileceği ile ilgili olan parametrelerdir.
[Index] i tam olarak bilmiyorum.Ama genelde sıfır olarak kullanıyorum.
::: Tab :::
Tab "yazı...", [N], [X] [Y] [W] [H]
Dialog penceresindeki alanı kullanma açısından büyük faydalar sağlar.Aynı alanda birçok elemanı tab ile kullanabilirsiniz.Burda dikkat edilmesi gereken husu şudur: Tab içinde kullandığımız herhangi bir dialog elemanının parametresine "tab [N]" i eklemeliyiz.
Örneğimizde de görüleceği üzere;
icon 9, 17 140 98 42, C:\resimlerim\deneme.bmp, 1, tab 8 noborder bottom
9 numaralı icon elemanı 8 numaralı tab içinde kullanıldığı için sonuna "tab 8" gibi bir parametre konulmuş.Bu 9 numaralı icon elemanının sadece 8 numaralı tab içerisinde aktif olacağını ifade eder.
::: link :::
Link "yazı...", [N], [X] [Y] [W] [H]
Link oluşturmak için kullanılır.Tek başına çalışmaz.Aktif olması için kod gerekir.
;----------------------------------------------------------------------
::::: DIALOG OLAYLARI (DIALOG EVENTS) :::::
on 1:dialog ialogIsmi:Olay(Event):[N]: { ...kodlar... }
On 1:dialog:isim:INIT:0:{ ...kodlar... } ;>> Buradaki dialog olayı INIT'dir Dialog'un ilk gösterildiği anda nelerin yapılaması gerektiği buraya yazılır.
On 1:dialog:isim:CLOSE:0:{ ...kodlar... } ;>> Dialog kapanırken nelerin yapılması gerektiği buraya yazılır.
On 1:dialog:isim:EDIT:[N]:{ ...kodlar... } ;>> [N] numarasına sahip bir edit veya combo elemanının içinde bir değişiklik yapıldığı zaman ne yapılması gerektiği buraya yazılır.
On 1:dialog:isim:SCLICK:[N]:{ ...kodlar... } ;>> [N] numarasına sahip bir elemanın üzerinde tek bir tıklama yapıldıgı zaman ne yapılacağı buraya yazılır.
On 1:dialog:isim:DCLICK:[N]:{ ...kodlar... } ;>> [N] numarasına sahip bir elemanın üzerinde çift tıklama yapıldıgı zaman ne yapılacağı buraya yazılır.
On 1:dialog:isim:MENU:[N]:{ ...kodlar... } ;>> Menu'de bir seçenek seçildiği zaman ne yapılacağı buraya yazılır.
On 1:dialog:isim:SCROLL:[N]:{ ...kodlar... } ;>> Dialogda kullanılan bir [N] numarasına sahip elemanın scroll'unun pozisyon değiştirmesi durumunda yapılacak olan işlemler buraya yazılır.
::: Mouse Event'ları :::
on 1:dialog:isim:MOUSE:[N]:{ ...kodlar.. } ;>> Mouse [N] numaralı elemanın üzerine geldiğinde yapılacak işlemler...
on 1:dialog:isim:sclick:[N]:{ ...kodlar... } ;>> Mouse un Sol tuşuyla [N] elemanına tıklanırken yapılacak işlemler...
on 1:dialog:isim:uclick:[N]:{ ...kodlar... } ;>> Mouse un sol tuşuyla [N] elemanına tıklandıktan sonra yapılacak işlemler...
on 1:dialog:isim:dclick:[N]:{ ...kodlar... } ;>> Mouse ile [N] elemanına çift tıklandığında yapılacak işlemler...
on 1:dialog:isim:rclick:[N]:{ ...kodlar... } ;>> Mouse un sağ tuşuyla [N] elemanına tıklandığında yapılacak olan işlemler buraya yazılır.
::::: DIALOGLARDA BAZI ALIASLAR :::::
::: /Dialog Komutu :::
/DIALOG -mdtsonkcvie Dialog ismi [Dialog ismi] [X] [Y] [W] [H] [yazı...]
Dialog penceresinde kullanılan bu komutun parametrelerinin neler olduğuna bir bakalım.
/dialog -m [Isim] [Isim] ;
/dialog -a ... ; Dilaog penceresini aktif windows penceresinde >açmak< için kullanılır. (-m ile beraber kullanılır. "/dialog -ma [isim] [isim]" şeklinde...)
/dialog -v [Isim] ; Dialog penceresini aktif windows'a >taşımak< için kullanılır. Tek başına kullanılabilir. -a dan bu yönüyle farklıdır.
/dialog -x [isim] ; Dialog penceresini kapatmak için kullanılır.
/dialog -d ... ; Dialog penceresi normalde "-m" ile açıldığında sağ üst köşesinde sadece X gibi bir işaret vardır ve programı ordan kapatırsınız.Eğer dialog pencerenize "Simge Durumuna Küçült" özelliği katmak istiyorsanız -m ile bir likte "-md" şeklinde bir parametre kullanırsınız.
/dialog -t [Isim] Yazı... ; Dialog penceresindeki titlebar da bulunan yazıyı bu komutla kontrol edebilirsiniz.
/dialog -s [Isim] [X] [Y] [W] [H] ; Dialog penceresinin boyutlarını kontrol etmek için kullanılır.
/dialog -r [Isim] ; Dialog penceresini ekranın ortasına taşır.
/dialog -o [Isim] ; Dialog penceresini windowsda çalışan tüm pencerelerin üstünde tutmak için kullanılır. (On Top)
/dialog -n [Isim] ; Bundan bir önceki komutun "/dialog -o [Isim]" in tam tersi işlemi yapar.
/dialog -k [Isim] ; Dialog içindeki bir "OK" parametresine sahip tuşa (Button'a) basma işlemini gerçekleştirmek için kullanılır.
/dialog -c [Isim] ; Dialog içindeki bir "Cancel" parametresine sahip tuşa (Button'a) basma işlemini gerçekleştirmek için kullanılır.
/dialog -i [Isim] ; Dialog penceresi "-md" parametresiyle açılmışsa yani "Simge durumuna Küçült" özelliği varsa o dialog u simge durumuna küçültmek için kullanılır.
/dialog -e [Isim] ; Yine Dialog penceresi "-md" parametresiyle açılmışsa yani "Simge durumuna Küçült" özelliği varsa o dialog u simge durumundan kurtarıp aktif ekrana taşımak için kullanılır.
::: /DID Komutu :::
/did komutu dialog penceresi açıldıktan sonra yapılacak işlemleri için anahtar bir komuttur.
[i]/did -ftebvhnmcukradiogj [Isim] [N] [Sayı] [Yazı... | DosyaYolu...][/i]
/did -f [Isim] [N] ; Bir dialog elemanını aktif etmek için kullanılır. Bu özellik bir pencerenin diğer bir pencere üzerinde daha aktif olması gibi birşey. Bir dialog elemanı diğer elemanlardan daha aktif gözükür. Deneyerek görebilirsiniz.
/did -t [Isim] [N] ; Bir dialog butonunu default buton yapmak için kullanılır. Default button Dialog elemanlarında anlatılmıştı.
/did -b [Isim] [N] ; Bir dialog elemanını ([N] numarasına sahip olan elemanı) çalışamaz hale getirmek ve üzerine donmuş gibi bir görüntü vermek için kullanılır.
/did -e [Isim] [N] ; "/did -b ..." deki etkiyi kaldırmak için kullanılır.
/did -h [Isim] [N] ; Bir dialog elemanını dialog penceresinden silmek için kullanılır.
/did -v [Isim] [N] ; Dialog penceresinden silinmiş (did -h ... uygulanmış) bir elemanı tekrar görünür kılmak için kullanılır.
/did -c [Isim] [N] ; Dialog penceresinde kullanılan elemanlardan, check düğmesi ve radio düğmesinde tıklama işlemini gerçekleştirmek için List ve Combo da ise belli bir satırın aktifleştirilmesi (seçili hale gelmesi) için kullanılır.
/did -u [Isim] [N] ; "/did -c ..." işlemininin tersini yapar.
/did -r [Isim] [N] ; [N] numarasına sahip dialog elemanındaki bir text'i silmek için kullanılır.
/did -a [Isim] [N] ; [N] numarasına sahip dialog elemana bir text girmek için kullanılır.
/did -d [Isim] [N] [sayı] ; [N] dialog elemanında [sayı]. satırın silinmesi işlemini yapar.
/did -i [Isim] [N] [sayı] ; [N] dialog elemanında [sayı]. satıra text girilmesi işlemini yapar.
/did -o [Isim] [N] [sayı] ; [N] dialog elemanında [sayı]. satırdaki textin değiştirilmesi işlemini yapar.
/did -g [Isim] [N] [sayı] [Dosya Yolu] ; [N] dialog elemanındaki bir resim yada iconun değiştirilmesi için kullanılır.
/did komutunu birçok dialog elemanı için aynı anda tek komutta kullanabilirsiniz bunun için eleman numaraları arasına virgül koymalısınız. Örneğin "/did -b Ornek 1,2,3,4 " gibi...
::::: DIALOGLARDA BAZI IDENTIFIERLAR :::::
::: $dialog() Identifier'ı :::
$dialog([Isim]/[Sayı])
En basit haliyle dialog içindeki bilgileri çekmek kullanılır. Örneğin "$dialog(ornek) = Ornek" ise o dialog mirc içinde açık demektir.Bunun tersi durumda $dialog(Ornek) = $null olacaktır. ($null Boş demektir.) Şimdi de $dialog identifierının parametrelerini görelim.
$dialog(Isim).x , $dialog(Isim).y , $dialog(Isim).w , $dialog(Isim).h ; Dialog penceresinin pzoisyonları hakkında bilgi verir.
$dialog(Isim).cw, $dialog(Isim).ch ; Dialog penceresinin boyutları hakkında bilgi verir. (En ve Boy)
$dialog(Isim).title ; Dialog penceresinin titlebar'ında yazan yazıyı ifade eder.
$dialog(Isim).table ; Bu identifier eğer "Isim" e eşitse o dialog o an kullanılıyor demektir.
$dialog(Isim).Ok ; Dialog içinde button parametresi "OK" olan bir button seçildiyse onun [N] eleman numarasını verir.
$dialog(Isim).cancel ; Dialog içinde button parametresi "Cancel" olan bir button seçildiyse onun [N] eleman numarasını verir.
::: $did([Isim],[N],[Sayı]) identifier'ı :::
Bu identifierlar eğer dialog eventlarında kullanılıyorsa çoğunda "Isim" kısmı yazılmaz. Ama eğer event dışında kullanılacaksa mutlaka "Isim" kısmı yazılmalıdır.
$did([N]) ve $did([N]).text ; Bu iki identifier aynı görevi görür. [N] numarasına sahip bir elemanın içindeki yazıyı ifade eder.
$did([N],[Sayı]).Len ; [N] numarasına sahip dialog elemanının [Sayı]. satırdaki yazının karakter sayısını verir.
$did([N]).Lines ; [N] elemanının barındırdığı toplam satır sayısını verir.
$did([N],[Sayı]).sel ; [Sayı] , sıfıra eşit değilse, [N] elemanındaki seçili satırın kaçıncı satır olduğunu verir. Eğer [Sayı] sıfır alınırsa [N] elemanında seçili olan toplam satır sayısını verir.
$did([N]).seltext ; Eğer eleman Edit ise editte seçili olan yazıyıi, Liste elemanında ise listede seçili olan satırdaki yazıyı verir.
$did([N]).selstart ; Edit te seçili olan bir yazının başlangıç karakterini verir.
$did([N]).selend ; Edit te seçili olan bir yazının son karakterini verir.
$did([N]).edited ; Eğer başlangıçta editte yazılan yazı değişmişse "$did([N]).edited = $true" olur. Eğer değişiklik yoksa "$did([N]).edited = $false" olur.
$did([Isim],[N]).state ; Check veya Radyo Düğmesinin tıklı olup olmadığı hakkında bilgi verir. Bu değer 1 e eşit se check düğmesi veya radyo düğmesi tıklı demektir.1'e eşit değilse tıklı olmadığı anlamına gelir. Eğer bu değer 2 ye eşitse tıklı olup olmadığı belirsiz anlamına gelir.
$did([Isim],[N]).enable ; Eğer [N] numaralı eleman kullanılabilir bir durumda ise (yani "/did -b ..." ile kullanılamaz hale geitirilmemiş ise) bu identifier $true ya eşit olur. Aksi halde $false'a eşit olur.
$did([Isim],[N]).visible ; Eğer [N] numaralı dialog elemanı görünür durumda ise (yani "/did -h ..." ile görünemez hale getirilmemiş ise) bu identifier $true ya eşit olur. Aksi halde $false'a eşit olur.
;----------------------------------------------------------------------
|
|
|
|
!ip [IP|NICK] Takip Kodu. |
|
Yazar: Lamer - 02-22-2020, 02:14 AM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Gelişmiş bir nick/ip takip kodu
Kırmızı olarak mobil ve web portu işaretledim onu kendinize göre düzenleyiniz.
Kod: on *:input:#:{
if $regex($1,/^[!.&-][ıiİ]p$/Si) {
if !$2 { msg # Lütfen Nick/IP belirtiniz. Kullanımı:4 !ip [IP|NICK] }
elseif $regex($2,/\d+\.\d+\.\d+\.\d+/Si) {
if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($2),) IP'ine ait kayıt bulunamadı. | return }
msg # =====" 2Nick "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "=====
msg # -
var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
msg # 2-4 $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191))
dec %:_ar
}
msg # -
msg # 4* Bilgi: $+(2,$strip($2),) IP'sine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır.
msg # ===============================================================
msg # -
.hadd -ms Ns-list $strip($2) #
ns list $+(*@,$strip($2))
}
else {
if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($5),) Nick'ine ait kayıt bulunamadı. | return }
msg # =====" 2IP "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "=====
msg # -
var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
msg # 2-4 $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191))
dec %:_ar
}
msg # -
msg # 4* Bilgi: $+(2,$strip($2),) Nick'ine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır.
msg # ===============================================================
msg # -
}
}
}
on *:notice:*:?:{
if ($nick == NickServ) {
if $regex($1-,/uyan veriler:/Si) && $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { msg $hget(Ns-list,$regml(1)) $+(2,$regml(1),) IP'ine ait NickServ kayıtları. }
elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) && $hget(Ns-list,$regml(1)) { msg # $hget(Ns-list,$regml(1)) Nick:4 $strip($1) }
elseif $regex($1-,/liste sonu/Si) {
$iif($4 == 0/0,msg $hget(NS-list,1).data NickServ de identify edilmiş nick bulunmamaktadır.)
.hfree -sw Ns-list
}
}
}
on *:snotice:*:{
if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5), %_hub $regml(1)
var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 7005,Mobil,$iif(%_port == 1985,Web,IRC))) Girişi
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_ip,.txt) $+($date,¿,$time) %_nick %_ident %_girs
.write $+(IP/,%_nick,.txt) $+($date,¿,$time) %_ip %_ident %_girs
}
elseif $regex($1-,/his\/her nickname to/Si) {
var %_nk = $token($1-,-1,32), %_it $token($token($1-,1,64),2,40), %_ips $token($token($1-,2,64),1,41)
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_ips,.txt) $+($date,¿,$time) %_nk %_it Nick Değişimi
.write $+(IP/,%_nk,.txt) $+($date,¿,$time) %_ips %_it Nick Değişimi
}
elseif $regex($1-,/Permanent (.+) added for .+@(.+) on.+from (.+)!.+/Si) { .hadd -msu15 IRC-Giris $regml(2) $regml(3) $regml(1) Uyguladı. }
elseif $regex($1-,/Client exiting/Si) {
if $regex($1-,/Client exiting\: (.+) \((.+)@(.+)\) .+/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $regml(3) }
elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) }
var %:ban = $hget(IRC-Giris,%_cip)
$iif(!$isdir(IP),.mkdir IP)
.write $+(IP/,%_cip,.txt) $+($date,¿,$time) %_cnk %_cit $iif(%:ban,%:ban,Sunucudan Çıkış)
.write $+(IP/,%_cnk,.txt) $+($date,¿,$time) %_cip %_cit $iif(%:ban,%:ban,Sunucudan Çıkış)
$iif($hget(IRC-Giris,%_cip),.hdel -ms IRC-Giris %_cip)
}
}
|
|
|
|
|
!Nerden Addonu GünceL |
|
Yazar: Lamer - 02-22-2020, 02:04 AM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
NERDEN KODU GÜNCEL
KİŞİNİN NERDEN OLDUNU GÖREBİLİRSİNİZ
ÜLKE ŞEHİR İSP GİBİ SONUCLARI GÖSTERİR
Kullanımı: !nerden IP/NICK
Kod: on *:text:*:#:{
if $regex($1,/^[!.-]nerden$/Si) {
if !$2 { msg # Lütfen !Nerden IP/Nick Olarak Belirtiniz. | return }
set %:kanal #
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
else { .enable #nerdenbul | .who +I $2 }
}
}
on *:input:#:{
if $regex($1,/^[!.-]nerden$/Si) {
if !$2 { msg # Lütfen !Nerden IP/Nick Olarak Belirtiniz. | return }
set %:kanal #
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
else { .enable #nerdenbul | .who +I $2 }
}
}
#nerdenbul off
raw 352:*: _nerden $4
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) www.ipaddresslocation.org 80 | sockmark $+(yerbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:yerbul*:{
sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
sockwrite -n $sockname Host: www.ipaddresslocation.org
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -n $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 -n $sockname $crlf
}
on *:sockread:yerbul*:{
var %:yerbul | sockread -f %:yerbul
if (Hostname: isin %:yerbul) { msg %:kanal Hostname:4 $iif(!$token($htmlfree(%:yerbul),3,58),Belirsiz,$token($htmlfree(%:yerbul),3,58)) }
if (IP Country: isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Country Code: isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Continent: isin %:yerbul) { msg %:kanal Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP City: isin %:yerbul) { msg %:kanal Şehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Latitude: isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (IP Longitude: isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
if (ISP Provider: isin %:yerbul) { msg %:kanal ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname }
}
|
|
|
|
Ağ Güvenliği |
|
Yazar: Lamer - 02-21-2020, 11:44 PM - Forum: Hacking Program Bölümü
- Yorum Yok
|
|
Ağınızın ve verilerinizin kullanılabilirliğini ve bütünlüğünü korumak için tasarlanmış etkinlikleri ifade eder. Donanım ve yazılım teknolojilerini içerir. Ağ güvenliğinin sağlanması için aşağıdaki konularda somut olarak ne yapıldığını ve ne yapılması gerektiğini ortaya koyması gerekir. Örneğin Skype benzeri anlık mesajlaşma uygulamalarına izin verilir. Torrent trafiği yasak olabilir. Bu durumda ihtiyaçlar düşünülerek karar verilmelidir.
E-posta ve İletişim Faaliyetleri - E-posta eklerinin oluşturduğu tehditlerin ele alınması gerekir.
Antivirüs Politikaları - Zararlı yazılımların oluşturduğu tehditlere karşı sürekli güncellenmesi gereken antivirüs yazılımları edinilmelidir.
Erişim Politikaları - Ağ kaynaklarına kimin ve nasıl erişeceği belirlenmelidir.
Parola Kuralları - Kullanıcıların ve kurumun genelinde parolaların sıklıkları değiştirilmelidir.
Şifreleme Kuralları - Ağ üzerindeki verinin ve veri trafiğinin hangi durumlarda ve nasıl şifrelenmesi gerektiği belirlenmelidir.
Uzaktan Erişim Kuralları - Kurumsal ağ dışında kurum kaynaklarına kimlerin nasıl ulaşacağını belirlemelidir. Ağ güvenliğini sağlamak için gerekli olan başlıca cihazlar veya yazılımlar
Firewall - Ağınıza izinsiz erişim engeli getirir.
Sızma Testi ve Engelleme Sistemi - Ağınıza sızma girişimlerini tespit edip engellemek için kullanılmalıdır.
- Kablosuz ağınıza kimlerin nasıl bağlanabileceğini denetlemek için kullanılmalıdır.
Antivirüs Yazılımları
Ağ güvenliği için yapılması gerekenler şunlardır;
- Ağ üzerindeki cihazların envanterlerini çıkartmak
- Ağ üzerinde hangi cihazların olduğu, bunların fiziksel olarak bulundukları yer bilgileri listelenmelidir.
Standart Konfigürasyon - Ağ üzerindeki cihazların türlerine göre hazırlanmış standart konfigürasyonları olmaldıır.
Güvenlik Tehditleri
Ağ için en yaygın dış tehditler şunlardır;
- Virüsler, solucanlarve truva atları,
- Casus yazılım ve reklam atları,
- Sıfır gün Saldırısı (geriye doğru sayım)
- Korsan saldırılar
- Hizmet Engelleme Saldırıları
- Veri durdurma ve hırsızlık
- Kimlik Hırsızlığı
[*]Güvenlik Çözümleri
- Virüsten koruma ve casus tanımlama
- Güvenlik duvarı filitreleme
- Özel güvenlik duvarı sistemleri
- Erişim kontrol listeleri oluşturma
- İzinsiz giriş önleme siteleri
- Kişiye özel ağlar
|
|
|
|
Havij Kullanımı ve İndirme Linki |
|
Yazar: Lamer - 02-21-2020, 11:23 PM - Forum: Hacking Program Bölümü
- Yorum Yok
|
|
Öncelikle haviji açalım.
Ardından url yerine sql açıklı sitenin urlsini yazıp, Analyze tuşuna basalım.
Şimdi ise tarama bitince Tables bölümüne gelelim.Ardından "Get Tables" butonuna tıklayalım.Sonuçların geldigini göreceğizdir.
Tablomuzu seçip, Get Columns butonuna tıklayalım ve kolonlarımız gelsin !
Son olarak kolonlarımızı seçip "Get Data" diyelim.
İşlem tamamlandı !!
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir! |
|
|
|
|
Badnick-Koruması (Hash) |
|
Yazar: Admin - 02-21-2020, 10:46 AM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
 |
Badnick-Koruması (Hash) Yapımcısı Toprak Arkadaşımız
Kod: on *:start:{ $iif(!$isfile(badnick.tprk),.mkdir badnick.tprk) | .hmake badnick.tprk | .hload badnick badnick.tprk }
on @*:join:#:{
if $hfind(badnick,$nick,1,W).data {
mode # +b $nick
kick # $nick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
if !$hget(bdnck,$nick) {
.hinc -msu20 bdnck $nick
msg #Opers [ JOIN ] $nick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),])
}
}
}
on *:nick:{
if $hfind(badnick,$newnick,1,W).data {
msg #Opers [ NICK ] $newnick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1,W).data),$chr(32),])
var %:c $regsubex($str(-,$comchan($newnick,0)),/./g, $iif($regex($nick($comchan($newnick,\n),$me).pnick,/(%|@|&|~\.)/i),$comchan($newnick,\n) $chr(32)))
var %c = 1 | while %c <= $token(%:c,0,32) {
mode $token(%:c,%c,32) +b $newnick | kick $token(%:c,%c,32) $newnick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
inc %c
}
}
}
on *:text:*:#:{
if $regex($1,/^[!\.]badnick$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m badnick %n $strip($3)
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesine eklendi.
}
if $regex($2,/^s[ıiİ]l$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return }
.hdel -m badnick $hfind(badnick,$strip($3),1,W).data
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesinden silindi.
}
if $regex($2,/^tara$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return }
msg # Nick: $strip($3) - 4Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),])
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
msg # Badnick listesi
msg # -
var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
msg # -
msg # Badnick listesi sonu
}
}
if $regex($1,/^[!\.]tara$/Si) {
if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return }
if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return }
var %:tara = 1 | while %:tara <= $nick($2,0) {
if $hfind(badnick,$nick($2,%:tara),1,W).data {
msg #Opers [ TARAMA ] $nick($2,%:tara) nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%:tara),1,W).data),$chr(32),])
mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
}
inc %:tara
}
}
}
;- [!.]badnick ekle Nick (4*?) Mask olarak ekleyebilirsiniz.
;- [!.]badnick sil Nick
;- [!.]badnick tara Nick Etkilenen nick'in maskını gösterir. (Nick: turgay - Mask: [ *gay ])
;- [!.]badnick list
;- [!.]tara #Kanal Belirlenen kanal'da badnick taraması yapar.
badnick.tprk dosyası mirc klasorun (//run $mircdir)[b]Yani Ana bölümüne içine atınız.[/b]
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
|
|
|
|
|
iP-Nick-ident-Koruması |
|
Yazar: Admin - 02-21-2020, 10:42 AM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
; Kodun çalışma mantığı aşağıda ki şemada belirtilmiştir.
; !ekle (IP Adresi) şeklinde ip ekleyebilir o nick'i sunucu/serverden uzaklaştırabilirsiniz.
; !ekle (@Ident) şeklinde ise, identd yasaklayabilirsiniz.
; !ekle Nick yaptığınızda da, bahsi geçen nick'i uzaklaştırır ayrıca, wildcard olarakta nickleri ekleyebilirsiniz örnk; *ali* olarak eklediniz ali ve türevi nickleri uzaklaştırır.
; !list (IP, NICK, IDENT) komutları ile de bahsi geçen listeleri görebilmektesiniz.
; DIPNOT (KOD) Oper/adminler için hazırlanmıştır bu nedenle bu rütbeye dahil olmayan/olamayan kişiler kullanamaz.
; ##### Bu kod sadece zline.txt dosyasından işlem yapmaktadir. ###
; ##### Yapimci: By Entrance #####
Kod: on *:input:*: {
if ($regex($1,/(^[!]ekle$)/i)) {
if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt }
if $read(zline.txt,w,$+(*:,$2,*)) { echo -a Zaten $token($read(zline.txt,w,$+(*,$2,*)),1,58) listeye ekli | halt }
if $regex($left($2,1),@) { echo -a Ident listeye eklendi! | write zline.txt $+(Ident:,$2) | halt }
if $regex($2,\d) && $regex($2,\W) { echo -a IP listeye eklendi! | write zline.txt $+(IP:,$2) | halt }
echo -a Nick listeye eklendi! | write zline.txt $+(Nick:,$2)
}
if ($regex($1,/(^[!]((ç|c)(i|ı)kar|s(i|ı)l)$)/i)) {
if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt }
if $regex($left($2,1),@) && $regex($2,$chr(64)) && !$read(zline.txt,w,$+(*,$2,*)) { echo -a Ident listede bulunmuyor! | halt }
if $regex($2,\d) && $regex($2,\W) && !$read(zline.txt,w,$+(*,$2,*)) { echo -a IP zaten listede bulunmuyor! | halt }
if !$read(zline.txt,w,$+(*,$2,*)) { echo -a Nick zaten listede bulunmuyor! | halt }
echo -a $token($read(zline.txt,w,$+(*,$2,*)),1,58) Listeden silindi! | write $+(-dl,$readn) zline.txt
}
if ($regex($1,/(^[!]l(i|ı)st$)/i)) {
if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt }
if (!$regex($2,/(ip|ident|nick)/i)) { echo -a $qt($2) Adın da, mask bulunmuyor. Masklar: IP / Ident / Nick | halt }
if ($lines(zline.txt) == 0) { echo -a Listede hiç bir kayıt bulunmamaktadir! | halt }
if $masks($2) == 0 { echo -a $2 Listesinde kayıt bulunmuyor! | halt }
echo -ae $2 listesi -
var %s 1 | while (%s <= $lines(zline.txt)) { $iif($2 isin $read(zline.txt,%s),echo -a $+(%s,]) $replace($read(zline.txt,%s),$chr(58),$+(:,$chr(32)))) | inc %s
}
echo -ae List sonu.
}
}
alias masks { var %s 1 | while (%s <= $lines(zline.txt)) { $iif($1 isin $read(zline.txt,%s),return 1) | inc %s } return 0 }
on *:snotice:*connecting*: {
var %s 1, %nick $9, %ident $right($token($10,1,64),-1), %ip $remove($token($10,2,64),$chr(41))
while (%s <= $lines(zline.txt)) {
$iif($regex($read(zline.txt,%s),/Ident/i),$iif($right($gettok($read(zline.txt,%s),2,58),-1) == %ident,gzline %nick +0 Forbidden Tion! $+([Data:,%ident,]) ))
$iif($regex($read(zline.txt,%s),/IP/),$iif($gettok($read(zline.txt,%s),2,58) == %ip,gzline %nick +0 Forbidden Tion! $+([Data:,%ip,]) ))
$iif($regex($read(zline.txt,%s),/Nick/i),$iif($gettok($read(zline.txt,%s),2,58) iswm %nick,gzline %nick +0 Forbidden Tion! $+([Data:,%nick,]) ))
inc %s
}
}
|
|
|
|
|
GİRİŞTE ÜLKE/ŞEHİR/İSP GÖSTERME kodları |
|
Yazar: Admin - 02-21-2020, 06:15 AM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Sunucuya giriş yapan kullanıcının ülke/şehir/isp adresini @Giriş penceresine yansıtır.
En az oper yetkiniz olması gerek ve sunucuya giriş/çıkış(snotice)'leri görmeniz gerekmektedir.
NOT : ALT BOLÜMDE KANALDA YANSITMA HEM ÖZELDE YANSITMA İÇİN KODLARIDA BULUNMAKTADIR.
Kod: on *:snotice:*on*port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | proxy $4 | nerd $4 $6
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias nerd {
:tekrar
var %:x $rand(0,9999999)
if $sock($+(xxnerden,%:x)) { goto tekrar }
sockopen $+(xxnerden,%:x) www.ipsorgu.com 80
sockmark $+(xxnerden,%:x) $1
hadd -m nerden $1 $2
}
on *:sockopen:xxnerden*: {
var %komut sockwrite -nt $sockname
%komut GET $+(/?ip=,$sock($sockname).mark) HTTP/1.1
%komut Host: www.ipsorgu.com
%komut User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0
%komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
%komut DNT: 1
%komut Connection: keep-alive
%komut Upgrade-Insecure-Requests: 1
%komut Cache-Control: max-age=0
%komut $crlf
}
on *:sockread:xxnerden*: {
var %x, %nick | sockread %x
if $regex(%x,/lke : <em style="color:#666">(.*?)</em></strong>.+ehir : <em style="color:#666">(.*?)</em></strong>/i) {
var %ulke $regml(1), %sehir $regml(2), %ip $sock($sockname).mark, %nick $token($hget(nerden,$sock($sockname).mark),1,32)
msg #Opers 45[Login5] 2Nick: %nick 2IP: %ip 2Ulke: $iif(%ulke,$v1,Belirsiz) 2Sehir: $iif(%sehir,$v1,Belirsiz)
msg operserv raw swhois %nick : %ulke , %sehir
hdel -m nerden %ip
sockclose $sockname
}
}
Kod: 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:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
.hfree -sw %:n
sockclose $sockname
}
}
ÜLKE ŞEHİR GÖSTERİMİ KANALDA YANSITMAK İÇİN
Kod: #giriste on
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)
msg #Şehir Nick:2 %:n - IP:2 %ip - Ulke:2 %ülke - Sehir:2 %sehir - ISP:2 %:isp
.hfree -sw %:n
sockclose $sockname
}
}
#giriste end
menu menubar {
+> IP GIRIS
..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on }
..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off }
..Durum < $replace($group(#giriste).status, off, Kapalı, on, Açık) >:.
}
ÜLKE ŞEHİR GÖSTERİMİ HEM ÖZELDE HEM KANALDA
Kod: 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ş)
msg %:n Girişiniz: - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
msg #kanal Nick: 4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
.echo @Şehir Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
.hfree -sw %:n
sockclose $sockname
}
}
Kod: on *:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +I $9 }
on ^*:join:#: {
if $nick == $me { return }
if o isin $usermode {
if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(giris,$nick) 1 $hget(sehir,$nick) | haltdef }
else {
hadd -m chan $nick $addtok($hget(chan,$nick),#,32)
if !$sock($+(nrdbul,$nick)) { who +I $nick }
haltdef
}
}
}
raw 352:*:bul $4 $6 | haltdef
alias bul {
sockopen $+(nrdbul,$1) www.ipaddresslocation.org 80
sockmark $+(nrdbul,$1) $+($1,*,$2)
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:nrdbul*:{
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,42)) 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:nrdbul*:{
var %x | sockread %x
if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) }
if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) }
if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) {
hadd -mu5 $sockname webisp $regml(1)
hadd -mu5 $sockname webnick $token($sock($sockname).mark,2,42)
hadd -mu5 $sockname webip $token($sock($sockname).mark,1,42)
hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick))
hdel -m chan $hget($sockname,webnick)
hadd -m giris $hget($sockname,webnick) $hget($sockname,webip)
hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41))
tokenize 32 $hget($sockname,webchan)
echo $* $+($chr(3),$color(join)) $timestamp *** Giriş: $hget($sockname,webnick) $hget(giris,$hget($sockname,webnick)) 1 $hget(sehir,$hget($sockname,webnick))
}
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
Girişte Şehrine Göre Haber/Hava Durumu
Kendi botumda olan kodu sizlerle paylaşmak istedim Sinan arkadaşım Adamca' için bota eklemiş ti ve hoşuma gitti bende yapmıştım bari paylaşayım beğenenler kullansın dedim.
Kod: on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:{ .var %:rand $rand(100,9999999) | .sockopen $+(city,%:rand) www.ipaddresslocation.org 80 | .sockmark $+(city,%:rand) $+($4,¿,$6) }
alias bbüyük { return $replace($1,a,A,b,B,c,C,ç,C,Ç,C,d,D,e,E,f,F,g,G,ğ,G,Ğ,G,h,H,ı,I,i,I,İ,I,j,J,k,K,l,L,m,M,n,N,o,O,ö,O,Ö,O,p,P,r,R,s,S,t,T,u,U,v,V,y,Y,z,Z,w,W,x,X,q,Q,ş,S,Ş,S,@,A) }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias trchra return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Åž,ş,ÄŸ,ğ,Ãœ,ü,Äž,ğ,$chr(39),-)
on *:sockopen:city*:{
sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
sockwrite -n $sockname host: www.ipaddresslocation.org
sockwrite -n $sockname $crlf
}
on *:sockread:city*: {
if ($sockerr) { .sockclose $sockname | return }
var %city | sockread %city
if (IP Country: isin %city) && (*Turkey* !iswm $token($htmlfree(%city),2,58) ) {
msg #Opers [ Yurt Dışı ] [Nick: $token($sock($sockname).mark,2,191) ] [IP: $token($sock($sockname).mark,1,191) ] [Ülke: $token($htmlfree(%city),2,58) ]
sockclose $sockname
return
}
if (IP City: isin %city) {
if !$token($htmlfree(%city),2,58) { return }
msg #Opers [ ŞEHİR ] [Nick: $token($sock($sockname).mark,2,191) ] [IP: $token($sock($sockname).mark,1,191) ] [Şehir: $token($htmlfree(%city),2,58) ]
var %:hava $rand(10,999999) | .sockopen $+(hava,%:hava) www.mynet.com 80 | .sockmark $+(hava,%:hava) $+($bbüyük($token($htmlfree(%city),2,58)),¿,$token($sock($sockname).mark,2,191))
sockclose $sockname
}
}
on *:sockopen:hava*:{ var %:hava sockwrite -n $sockname | %:hava GET /havadurumu/asya/turkiye/ $+ $token($sock($sockname).mark,1,191) HTTP/1.1 | %:hava Host: www.mynet.com | %:hava $crlf }
on *:sockread:hava*:{
if ($sockerr) { .sockclose $sockname | return }
var %hava | sockread %hava
if (*span class="hvDay">*</span* iswm %hava) {
msg $token($sock($sockname).mark,2,191) :5Ülkeniz: Türkiye 5Sehriniz: $trchra($token($sock($sockname).mark,1,191))
msg $token($sock($sockname).mark,2,191) :5Tarih: $date $htmlfree(%hava) 5Saat: $time
}
if (*span class="hvMood">*</span* iswm %hava) { msg $token($sock($sockname).mark,2,191) :5Durum: $trchra($regsubex($trchra($htmlfree(%hava)),/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1)))) }
if (*span class="hvDeg1">*/span* iswm %hava) { .hadd -ms Hava $token($sock($sockname).mark,2,191) $trchra($htmlfree(%hava)) }
if (*span class="hvDeg2">*</span* iswm %hava) {
msg $token($sock($sockname).mark,2,191) :5EnYuksek: $trchra($hget(Hava,$token($sock($sockname).mark,2,191))) 5EnDusuk: $trchra($htmlfree(%hava))
msg $token($sock($sockname).mark,2,191) :
msg $token($sock($sockname).mark,2,191) : $+(",$trchra($token($sock($sockname).mark,1,191)),") İl'inden sondakika haberleri..
msg $token($sock($sockname).mark,2,191) :
.hdel -ms Hava $token($sock($sockname).mark,2,191)
var %:haber $rand(100,999999) | .sockopen $+(haber,%:haber) rss.haberler.com 80 | .sockmark $+(haber,%:haber) $+($trchra($token($sock($sockname).mark,1,191)),¿,$token($sock($sockname).mark,2,191))
sockclose $sockname
return
}
}
on *:sockopen:haber*:{
var %:haber sockwrite -n $sockname
%:haber GET /rss.asp?kategori= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
%:haber Host: rss.haberler.com
%:haber $crlf
if (!$hget(Haber)) { .hmake Haber }
}
on *:sockread:haber*:{
if ($sockerr) { .sockclose $sockname | return }
var %haber | sockread %haber | .tokenize 32 %haber
if (<title> isin %haber) {
if $htmlfree(%haber) == Haberler.Com { return }
msg $token($sock($sockname).mark,2,191) :5Baslik: $trchra($htmlfree(%haber))
}
if (*<description>* iswm %haber) {
if (*Türkiye'nin en kapsamlı haber portalı.* iswm $htmlfree(%haber)) { return }
msg $token($sock($sockname).mark,2,191) :5Aciklama: $trchra($htmlfree(%haber))
}
if (*<pubDate>*</pubDate>* iswm %haber) {
msg $token($sock($sockname).mark,2,191) :5Zaman: $trchra($htmlfree(%haber))
msg $token($sock($sockname).mark,2,191) :
.hinc Haber $token($sock($sockname).mark,2,191) 1
if $hget(Haber,$token($sock($sockname).mark,2,191)) == 2 {
msg $token($sock($sockname).mark,2,191) :5Sohbet Kanal'larımız: #Sohbet
msg $token($sock($sockname).mark,2,191) :5Radyo Kanal'ımız: #Radyo
msg $token($sock($sockname).mark,2,191) :5User Yardım Kanal'ımız: #Help
msg $token($sock($sockname).mark,2,191) :5Oper Yardım Kanal'ımız: #OperHelp
msg $token($sock($sockname).mark,2,191) :
msg $token($sock($sockname).mark,2,191) :1Sunucu kuralları için5 /kurallar 1komutunu kullanınız.
msg $token($sock($sockname).mark,2,191) :1Online oper listesi için5 /ircops 1komutunu kullanınız.
msg $token($sock($sockname).mark,2,191) :1Online helper listesi için5 /helpers 1komutunu kullanınız.
.hdel Haber $token($sock($sockname).mark,2,191)
.sockclose $sockname
return
}
}
}
|
|
|
|
|
