mIRC İsim Mana Bulucu

alias isim dialog -m isim isim
dialog isim {
title "İsim Mana Bulucu"
size -1 -1 146 36
option dbu
edit "" 1, 5 7 135 11, read autohs
edit "", 2, 5 20 51 8
button "Anlamı Nedir?", 3, 56 20 35 9, default flat
box "", 5, 2 1 141 32
text "by Siluet", 4, 120 25 21 6
}
on *:dialog:isim:sclick:3: {
sockclose isim
isimanlam $did(isim,2)
did -r isim 1,2
did - isim 1 %aranan İsminin Manası Aranıyor..
}

alias isimanlam { sockclose isim | set - %aranan $1 | sockopen isim www.vazgectimsenden.com 80 }
on *:SockOpen:isim:{
sockwrite -n $sockname GET /isimara.asp?ad= $+ %aranan HTTP/1.1
sockwrite -n $sockname :vazgectimsenden.com
sockwrite -n $sockname $crlf
}
on *:SockRead:isim:{
var %anlamı
sockread %anlamı
if (* $+ %aranan $+ * iswm %anlamı) { did -r isim 1 | did -a isim 1 $htmlfre(%anlamı) demektir. }
if (*Veri Tabanımızda* iswm %anlamı) { did -r isim 1 | did -a isim 1 Aradığınız İsim Veri Tabanımızda Bulunmamaktadır.. }

}

alias htmlfre {
var %x, %i = $regsub($1-,/(^[^< ]*>|< [^>]*>|< [^>]*$)/g,$null,%x), %x = $remove(%x, ,HTTP/1.1 200 OK,Server: Microsoft-IIS/6.0)
return %x
}

/isim Yazarak Dialogu Açabilirsiniz.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir