• Duyuru; Sizde hemen Üye Olup Sorunuzu Sorabilirsiniz, katılım ve kullanım tamamen Ücretsizdir!
Ulutr blog

Türkçe Ingilizce - Ingilizce Türkçe Kelime Ceviri Kodlaması

Linux

Yönetici
25 Ara 2021
123
5
18
33
istanbul
/translate <Kelime>
yazdığınız kelime Türkçe ise İngilizce karşılığını verir. İngilizce ise Türkçe karşılığını verir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias Translate {
set %XPass 4,4.4,1 XPass 4,4.
sockopen $+(trans_word*,$1) www.tureng.com 80
sockmark $+(trans_word*,$1) $+(tr/turkce-ingilizce/,$replace($1,Ü,u,ü,u,ç,c,Ç,c,Ö,o,ö,o,Ş,s,ş,s,İ,i,ı,i,ğ,g,Ğ,g)) }
on :sockopen:trans_word:{ if $sockerr { echo -ag %Xpass 5 bağlantı sağlanamadı | halt }
sockwrite -tn $sockname GET $+(/,$sock($sockname).mark) HTTP/1.1
sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.102 Safari/537.36
sockwrite -tn $sockname Connection: keep-alive
sockwrite -tn $sockname Host: tureng.com
sockwrite -tn $sockname Content-Type: text/html
sockwrite -tn $sockname $crlf }
on :sockread:trans_word:{ var %t:word | sockread %t:word | tokenize 32 $left(%t:word,107)
if <ul class="suggestion-list"> iswm %t:word { unset %/total:word | echo -ag %XPass 5Hatalı kelime girişi yaptınız. Lütfen kelimeyi kontrol ediniz! | sockclose $sockname | return }
if <title>Tureng-- iswm %t:word { set %/total:word $addtok(%/total:word,$+(4Kelime:5,$gettok($gettok(%t:word,2,45),1,45)),32) }
if (<td class="" lang=""><a iswm %t:word) { inc %/count:word 1 | if %/count:word == 2 { set %/total:word $addtok(%/total:word,$+(4Cevirisi:5,$gettok($gettok($remove($replace(%t:word,','),<,>),-1,34),1,47)),32)
echo -ag %XPass $replace(%/total:word,Ü,u,ü,u,ç,c,Ç,c,Ö,o,ö,o,Ş,s,ş,s,İ,i,ı,i,ğ,g) | unset %/count:word | unset %/total:word | sockclose $sockname
}
}
}
 
Üst Alt