| immortaL | 06 Mart 2017 17:10 |
Güncel mIRC Socket !burc Kod
Kullanımı: !burc burcunuz şekildedir.
Örnek: !burc oglak (Türkçe karakter kullanmayınız ve küçük harf kullanınız)
Not: Www.FixSohbet.Net`de denenmiştir. Kod:
alias burc {
if $sock(burc) { sockclose burc }
sockopen burc mahmure.hurriyet.com.tr 80
set %brcs $1
}
alias htmlfree { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:burc:{
var %burc = sockwrite -n burc
%burc GET /astroloji/burclar/ $+ %brcs HTTP/1.1
%burc Host: mahmure.hurriyet.com.tr
%burc User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0
%burc Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%burc Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
;%burc Accept-Encoding: gzip, deflate
%burc Cookie: hcatFrom=astroloji; _sgf_user_id=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; hrp_gb=gb.636240726995469550-dfbd235b-ab04-4914-a4bc-2ff0f7878eee; __atuvc=6%7C10; ASP.NET_SessionId=4a4giokhxmtt1wa2hbiqfpqs; __atuvs=58bc94ec413b9cfb000; semPageCounter=2
%burc Connection: keep-alive
%burc Upgrade-Insecure-Requests: 1
%burc $crlf
}
on *:sockread:burc:{
var %burcc
sockread %burcc
var %text $htmlfree(%burcc)
var %rtext $replace(%text,•, ,ç,$chr(231),ö,$chr(246),ü,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220))
if ( isin %burcc) { msg #Gevezeyiz 2 %rtext | sockclose burc }
}
on *:text:*:#Gevezeyiz: {
if ($1 == !burc) { .burc $2 }
}]
|
