ForumTEK.Net - IRC Forumu

ForumTEK.Net - IRC Forumu (http://www.forumtek.net/index.php)
-   mIRC Parça Kodlar (http://www.forumtek.net/forumdisplay.php?f=53)
-   -   Link Kısalt (http://www.forumtek.net/showthread.php?t=58)

Toprak 25 Ocak 2015 23:38

Link Kısalt
 
Fikir sahibi: @saywhat


Kod:

alias kisalt {
  if ($sock(is.gd)) sockclose $v1 | sockopen is.gd www.is.gd 80 | sockmark is.gd $1
}
on *:sockopen:is.gd:{
  var %s sockwrite -n $sockname
  %s GET $+(/api.php?longurl=,$sock($sockname).mark)  HTTP/1.1
  %s Host: $sock($sockname).addr
  %s $crlf
}
on *:sockread:is.gd:var %s, %e echo 4 -a Kisaltilmiş hali: | sockread -f %s | if $regex(s,%s,(http\:\/\/.+)) { %e $regml(s,1) }


Komut: /kisalt www.forumtek.net


All times are GMT +3. The time now is 12:29.

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.