![]() |
![]() |
![]() | #1 | |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | istek merhaßa ArkadaşLar eLimde şöyLe ßir kod var... on *:connect:set %serverprox $server | window -c @proxy | .Remove Proxy.txt | .window -l @proxy | .titlebar @proxy List | sockopen Firefox [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 alias proxyler set %serverprox $server | window -c @proxy | .Remove Proxy.txt | .window -l @proxy | .titlebar @proxy List | sockopen Firefox [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 on *:sockopen:Firefox:{ sockwrite -n $sockname GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] HTTP/1.1 sockwrite -n $sockname Host: localhost sockwrite -n $sockname $crlf timerprint 1 3 proxy_yaz set %updated.proxy $date } on *:sockread:Firefox: sockread -f %Firefox | write_Proxy.txt %Firefox alias write_Proxy.txt { if $1 == HTTP/1.1 goto end if $1 == Date: goto end if $1 == Server: goto end if $1 == Last-Modified: goto end if $1 == ETag: goto end if $1 == Accept-Ranges: goto end if $1 == Content-Length: goto end if $1 == Content-Type: goto end write Proxy.txt $1- :end } alias proxy_yaz { window -l @proxy | titlebar @proxy List | set %print.out $lines(proxy.txt) | set %printing 1 if (%print.out == %printing) { goto end } aline @proxy $read(proxy.txt , %printing) | inc %printing | goto print :end } menu @proxy { dclick: Set %proxy.click $read(proxy.txt, $1) | Proxy.con $?*!="Tekrar Bağlanılsın Mı? Seçtiğiniz Proxy Adresi: $read(proxy.txt, $1) " Yenile:proxyler } alias Proxy.con { if ($1 == $false) { echo -s Bağlantı iptal edildi.. | goto end } echo 2 -s %serverprox "a Bağlanmak İçin Kullanılan Proxy : $replace(%proxy.click , : , $chr(32) ) | firewall on $replace(%proxy.click , : , $chr(32) ) | Echo -s $server Serverine Bağlanırken Kullanılan Proxy : $replace(%proxy.click , : , $chr(32) ) | server %serverprox :end } alias Proxywin { if $1 == $null proxy_yaz if $1 == minimized Window -c @proxy | proxy_yaz } ßu şeqiLde Düzgün çaLışıyor. yanLız ßen Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. adresi yerine ; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Adresinden ßiLgiLerini aLmasını istiyorum.. ßunu nasıL yapaßiLirim. yaRdımcı oLursanız çok makßuLe geçicek $imdiden te$ekkürLer. | |
| ![]() |
![]() |
Etiketler |
istek, mirc, mirc download, mirc indir |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
![]() | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
TCL istek | Sephiroth | Eggdrop, NeoStats, BNC | 1 | 16 Kasım 2012 02:55 |
TCL istek | aquabluee | Eggdrop, NeoStats, BNC | 0 | 02 Kasım 2012 21:52 |
TCL iStek.. | n1ks1z | Eggdrop, NeoStats, BNC | 0 | 02 Aralık 2010 09:22 |
!radyo , !istek istek parçasi | Yunus | mIRC Scripting Sorunları | 2 | 21 Temmuz 2008 21:11 |
tcl istek | hipokrat | TCL Scriptler | 0 | 17 Ocak 2008 09:08 |