IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   IP'ye tıklama ile Kline atmak. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/2495-ipye-tiklama-ile-kline-atmak.html)

Alience 01 Ocak 2006 13:12

/echo yerine /msg kullan o nun için

MeGaBytE 14 Ağustos 2006 11:14

Yanıt: IP'ye tıklama ile Kline atmak.
 
Alıntı:

©º©º®î©º Nickli Üyeden Alıntı
;;@Giris/Cikis Penceresinde veya menual pencerede görünen
;[23:36] *** Notice -- Client connecting on port 6669: Auth ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) [clients]
;[23:36] *** Notice -- Client exiting: Auth ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) [Quit]
; giriş ve cıkışlar gibi ip lere tek tık ile K:line atar..

on ^1:SNOTICE:*:{
if (exiting isin $1-) {
if (!$window(@Giris/Cikis)) { window -en @Giris/Cikis }
echo 4 -t @Giris/Cikis Çıkış : $1- | halt
}
if (Connecting isin $1-) {
if (!$window(@Giris/Cikis)) { window -en @Giris/Cikis }
echo 3 -t @Giris/Cikis Giriş : $1- | halt
}
halt
}
on ^1:HOTLINK:*.*.*:*:{
if ( $active = #) { halt }
else {
if (@ isin $1) {
$x:CoCoRiCo($1,2)
return $1
}
}
halt
}
on *:HOTLINK:*.*.*:*:{
if ($active = #) { halt }
else {
if (@ isin $1) {
$x:CoCoRiCo($1,1)
}
}
}

alias -l X:CoCoRiCo {
if ($2 = 1 ) {
var %q $mid($1,$pos($1,@),$len($1))
var %x $calc($len(%q) - 1 )
;S:ban secenegi (Kline)
.Kline $+(*,$left(%q,%x)) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
echo 4:lined ip $+(*,$left(%q,%x))
}
if ($2 = 2 ) {
var %q $mid($1,$pos($1,@),$len($1))
var %x $calc($len(%q) - 1 )
Titlebar: K:LINED EDILECEK! $+(*,$left(%q,%x))
}
}



Arkadaşım verdiğin Komutu Remote'a atıp Statuste IP'ye tıkladiğim Zaman Direk Şu hayati veriyor
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!

Sebebi Nedir Acaba ?

CoCoRiCo 15 Ağustos 2006 22:54

Yanıt: IP'ye tıklama ile Kline atmak.
 
Alıntı:

MeGaBytE Nickli Üyeden Alıntı
Arkadaşım verdiğin Komutu Remote'a atıp Statuste IP'ye tıkladiğim Zaman Direk Şu hayati veriyor
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!
[AyOpS] TITLEBAR: Geçersiz Bir Komut!

Sebebi Nedir Acaba ?

Titlebar: K:LINED EDILECEK! $+(*,$left(%q,%x))
bu kısmı
Titlebar : K:LINED EDILECEK! $+(*,$left(%q,%x))
bu sekilde degiştir. : noktayı ayırırsan sorun cıkmaz.

ASA 16 Ağustos 2006 05:01

Yanıt: IP'ye tıklama ile Kline atmak.
 
Arkadaşımızın verdiği kodları çalıştıramayanlar bide bunu denesin

alt+R yapında mirc dosyası çıkar oraya altda yazanı kopyala

On ^1:SNOTICE:*connecting*: {
if (%meydeymeydey == 1) {
if ($window(@ConnExit, wid) == 0) { window -dChk[0]l +ftl @ConnExit }
aline -c7 @ConnExit $4-
if ($len($9) >= 9) {
%a = $left($9,4)
%i = 0
%bukadar = 0
while (%i < 4) {
inc %i
%b = $mid(%a, %i,1)
if (%b isin qwrtypsdfghjklzxcvbnm) {
inc %bukadar
}
}
if (%bukadar == 4) {
%glineho = $pos($10,@,1) + 1
%glinehos = $mid($10, %glineho, $len($10) - 1)
%uzun = $len(%glinehos) - 1
%glinehost = $left(%glinehos, %uzun)
aline -c4 @ConnExit G-line $9 %glinehost
gline *@ $+ %glinehost +365d : trojan
unset %glineho
unset %glinehos
unset %uzun
unset %glinehost
inc %glinecount
}
unset %bukadar
}
}
haltdef
}
On ^1:SNOTICE:*exiting*: {
if (%meydeymeydey == 1) {
if ($window(@ConnExit, wid) == 0) { window -dChk[0]l +ftl @ConnExit }
aline -c12 @ConnExit $4-
haltdef
}

Sonra alieas a gel ve altda olan $eyide oraya kopyala

spam {
if (%meydeymeydey != 1) {
%meydeymeydey = 1
mode $me +s +ckeG
echo -a Anti Spam OnLine.
halt }
elseif (%meydeymeydey == 1) {
unset %meydeymeydey
echo -a Anti Spam offLine
echo -a Toplam Kline sayısı: %klinecount
unset %klinecount
window -c @ConnExit
}
}

/spam yaptığında bi pencere çıkacak. Bu çıkan pencerede giriş çıkışları gösterir. Tek tıkla at gitsin ;)

Kolay gelsin

aLoSs 18 Ağustos 2006 11:54

Yanıt: IP'ye tıklama ile Kline atmak.
 
SONRA Unknown command
SPAM Unknown command

şu kodu tam olarak verebilecek biri yokmu , hala çalıştıramadım denildiği gibi

ASA 18 Ağustos 2006 19:31

Yanıt: IP'ye tıklama ile Kline atmak.
 
İkisindede hata yok

TrusTy 19 Ağustos 2006 15:40

Yanıt: IP'ye tıklama ile Kline atmak.
 
Anti Spam offLine
Toplam Kline sayısı:
-
SONRA Unknown command
-
SPAM Unknown command
-
Anti Spam OnLine.
-
SONRA Unknown command
-
SPAM Unknown command
-
Anti Spam offLine
Toplam Kline sayısı:
-
SONRA Unknown command
-
SPAM Unknown command
-

pencere açılıyor kapanıyor kafasına gore anlamadım:S

ASA 19 Ağustos 2006 18:19

Yanıt: IP'ye tıklama ile Kline atmak.
 
ALT+R ye basarak mIRC editoru acin
ve asagidaki kodu remote kismina ekleyin...



menu @ConnExit {
dclick: {
%satir = $line(@ConnExit, $1)
%glineho = $pos(%satir,@,1) + 1
%hede = $pos(%satir,[,1) - 2
%bukadar = %hede - %glineho
%glinehoo = $mid(%satir, %glineho, %bukadar)
aline -c4 @ConnExit G-Line %glinehoo
dline @ConnExit $1
gline *@ $+ %glinehoo +90d : 1S14pam12/1T14rojan 1N14edeniyle 1B14anlandınız. [Nick]
unset %satir
unset %hede
unset %bukadar
unset %glineho*
}
}
On ^1:SNOTICE:*connecting*: {
if (%meydeymeydey == 1) {
if ($window(@ConnExit, wid) == 0) { window -dChk[0]l +ftl @ConnExit }
aline -c7 @ConnExit $4-
if ($len($9) >= 9) {
%a = $left($9,4)
%i = 0
%bukadar = 0
while (%i < 4) {
inc %i
%b = $mid(%a, %i,1)
if (%b isin qwrtypsdfghjklzxcvbnm) {
inc %bukadar
}
}
if (%bukadar == 4) {
%glineho = $pos($10,@,1) + 1
%glinehos = $mid($10, %glineho, $len($10) - 1)
%uzun = $len(%glinehos) - 1
%glinehost = $left(%glinehos, %uzun)
aline -c4 @ConnExit G-line $9 %glinehost
gline *@ $+ %glinehost +365d : 1S14pam12/1T14rojan 1N14edeniyle 1B14anlandınız. [Nick]
unset %glineho
unset %glinehos
unset %uzun
unset %glinehost
inc %glinecount
}
unset %bukadar
}
}
haltdef
}
On ^1:SNOTICE:*exiting*: {
if (%meydeymeydey == 1) {
if ($window(@ConnExit, wid) == 0) { window -dChk[0]l +ftl @ConnExit }
aline -c12 @ConnExit $4-
haltdef
}
}
daha sonra aliases sekmesine geliyor ve asagidaki kodu ekliyoruz
-------------------------------------------------------»
spam {
if (%meydeymeydey != 1) {
%meydeymeydey = 1
mode $me +s +ckeG
echo -a Anti Spam OnLine.
halt }
elseif (%meydeymeydey == 1) {
unset %meydeymeydey
echo -a Anti Spam offLine
echo -a Toplam Kline sayısı: %klinecount
unset %klinecount
window -c @ConnExit
}
}

-----------------------------------------------------------------------


Bu iki kismi ekledikten sonra OK tusuna basip Editorumuzu kapatiyoruz. İşlem bu kadar Şimdi geldik kullanmaya

/spam yazdiginiz vakit
Anti Spam OnLine.
der ve ayri bir pencere acilir.


Mause ile giris cikislara tiklayarak gline atabilirsiniz. Trojanlar girer girmez cikarlar ciktiklari
zaman mause ile tiklayip gline atabilirsiniz.
Kapatmak icin yine komut
/spam

Anti Spam offLine
Toplam Kline sayısı:

MeGaBytE 20 Ağustos 2006 13:47

Yanıt: IP'ye tıklama ile Kline atmak.
 
Alıntı:

©º©º®î©º Nickli Üyeden Alıntı
Titlebar: K:LINED EDILECEK! $+(*,$left(%q,%x))
bu kısmı
Titlebar : K:LINED EDILECEK! $+(*,$left(%q,%x))
bu sekilde degiştir. : noktayı ayırırsan sorun cıkmaz.



usta dediğini yaptım gerçekten sorun vermedi ama bu seferde
[13:53:08] -Irc.Haydi.NET- *** Global -- from webchat.haydi.net: Clone Alert: 5 clients from 88.226.169.233

şekiLde olan IP'leri tıkLamıyor

İdent ve IP'yi yanyana bulunduranları tıklıyor;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gibi acaba ba$ında @ işareti bulunmadiğindan mi kaynaklanıyor diğerinin tıklanmamasi,yoksa dediğim gibi identle IP'in yanyana oldugu durumlarda mi tıklıyor sadece ?

MeGaBytE 20 Ağustos 2006 13:53

Yanıt: IP'ye tıklama ile Kline atmak.
 
Alıntı:

Alience Nickli Üyeden Alıntı
on *:HOTLINK:*.*.*:*:{
if ($active = #) { halt }
else {
if (@ isin $1) {
$x:CoCoRiCo($1,1)
}
}
}


yerine ctrl tusuna basıp ta hotlinki kullanmak daha mantıklı olur gibime geliyor böylece yanlış tıklama olayını egale etmiş oluruz.

on ^*:HOTLINK:*.*.*:*:{ }
on *:HOTLINK:*.*.*:*:{
if ( $mouse.key & 2 ) {
if ($active = #) { halt }
else {
if (@ isin $1) {
$x:CoCoRiCo($1,1)
}
}
}
}



usta yapsanda bunu bir şey deişmiyor yine tıklama ile Oluyor :)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:33.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk