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/)
-   -   Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1023835-tab-harf-sectiginizde-sectiginiz-harflerle-baslayan-nickleri-listeler.html)

OperServ 13 Aralık 2023 02:16

Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Kod:

on *:tabcomp:#:{
  var %letter = $left($1-, 1)
  if ($len(%letter) == 1) {
    var %x = 1
    while (%x <= $nick(#, 0)) {
      var %nick = $nick(#, %x)
      if ($left(%nick, 1) == %letter) {
        echo -a $+(%,letter,%letter, Başlayan nickler:,%nick)
      }
      inc %x
    }
    echo -a -
  }
}

Bu kod, bir kanalda bir harf yazıldığında o harfle başlayan nickleri belirtir. Örneğin, "a" harfi girildiğinde "a" harfi ile başlayan nickleri size belirtecek ve sonrasında bir boşluk verecektir. Bu şekilde diğer harfler için de aynı işlemi yapabilirsiniz.

ZaLiM1979 13 Aralık 2023 11:46

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

OperServ Nickli Üyeden Alıntı (Mesaj 1042847924)
Kod:

on *:tabcomp:#:{
  var %letter = $left($1-, 1)
  if ($len(%letter) == 1) {
    var %x = 1
    while (%x <= $nick(#, 0)) {
      var %nick = $nick(#, %x)
      if ($left(%nick, 1) == %letter) {
        echo -a $+(%,letter,%letter, Başlayan nickler:,%nick)
      }
      inc %x
    }
    echo -a -
  }
}

Bu kod, bir kanalda bir harf yazıldığında o harfle başlayan nickleri belirtir. Örneğin, "a" harfi girildiğinde "a" harfi ile başlayan nickleri size belirtecek ve sonrasında bir boşluk verecektir. Bu şekilde diğer harfler için de aynı işlemi yapabilirsiniz.




Güzel Kod. Bunu su sekilde yapamazmiyiz? misal: a yazip ve tab tikladigimda, a harfiyle baslayan nickleri ve a harfini icinde barindiran tüm nickleri teker teker tablasin.. Normalde zaten a yazip ve tab tiklayinca a ile baslayan tüm nickleri teker teker editboxa yaziyor zaten.. :-)


Saygilar ve Tsk'ler..

OperServ 13 Aralık 2023 17:36

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042848013)
Güzel Kod. Bunu su sekilde yapamazmiyiz? misal: a yazip ve tab tikladigimda, a harfiyle baslayan nickleri ve a harfini icinde barindiran tüm nickleri teker teker tablasin.. Normalde zaten a yazip ve tab tiklayinca a ile baslayan tüm nickleri teker teker editboxa yaziyor zaten.. :-)


Saygilar ve Tsk'ler..

Eğer bir MIRC scriptinde belirli bir harfle başlayan veya içinde belirli bir harfi içeren nickleri tek tek tabladırmak istiyorsanız, şu şekilde bir kod yazabilirsiniz:


Kod:

on *:TABCOMP:#: {
  var %letter = $left($1-, 1)
  if ($len(%letter) == 1) {
    var %x = 1
    while (%x <= $nick(#, 0)) {
      var %nick = $nick(#, %x)
      if ($istok(%nick, %letter, 1)) {
        echo -a $+(%,letter,%letter, içeren nick:,%nick)
      }
      inc %x
    }
    echo -a -
  }
}

Echo -a yerine msg # belirtirsek:

Bu kod, bir kanalda bir harf yazdıktan sonra tab tuşuna bastığınızda, o harfi içeren nickleri ve o harfi içeren tüm nickleri belirtir. Örneğin, "a" harfini yazdıktan sonra tab tuşuna bastığınızda "a" harfiyle başlayan veya içinde "a" harfini barındıran tüm nickleri belirtecektir..

ZaLiM1979 14 Aralık 2023 11:04

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

OperServ Nickli Üyeden Alıntı (Mesaj 1042848152)
Eğer bir MIRC scriptinde belirli bir harfle başlayan veya içinde belirli bir harfi içeren nickleri tek tek tabladırmak istiyorsanız, şu şekilde bir kod yazabilirsiniz:


Kod:

on *:TABCOMP:#: {
  var %letter = $left($1-, 1)
  if ($len(%letter) == 1) {
    var %x = 1
    while (%x <= $nick(#, 0)) {
      var %nick = $nick(#, %x)
      if ($istok(%nick, %letter, 1)) {
        echo -a $+(%,letter,%letter, içeren nick:,%nick)
      }
      inc %x
    }
    echo -a -
  }
}

Echo -a yerine msg # belirtirsek:

Bu kod, bir kanalda bir harf yazdıktan sonra tab tuşuna bastığınızda, o harfi içeren nickleri ve o harfi içeren tüm nickleri belirtir. Örneğin, "a" harfini yazdıktan sonra tab tuşuna bastığınızda "a" harfiyle başlayan veya içinde "a" harfini barındıran tüm nickleri belirtecektir..


Ben bu sekilde yaptim.
Kod:

on *:TABCOMP:#: {
  var %letter = $left($1-, 1)
  if ($len(%letter) == 1) {
    var %x = 1
    while (%x <= $nick(#, 0)) {
      var %nick = $nick(#, %x)
      if ($istok(%nick, %letter, 1)) {
        msg $active $+(%,letter,%letter, içeren nick:,%nick)
      }
      inc %x
    }
    msg $active -
  }
}


ama mahlesef calismiyor. misal s yazdim ve tab tikladim ama kanala sadece bu kismi msg $active - <-yani - yaziyor.

OperServ 14 Aralık 2023 13:10

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042848429)
Ben bu sekilde yaptim.
Kod:

on *:TABCOMP:#: {
  var %letter = $left($1-, 1)
  if ($len(%letter) == 1) {
    var %x = 1
    while (%x <= $nick(#, 0)) {
      var %nick = $nick(#, %x)
      if ($istok(%nick, %letter, 1)) {
        msg $active $+(%,letter,%letter, içeren nick:,%nick)
      }
      inc %x
    }
    msg $active -
  }
}


ama mahlesef calismiyor. misal s yazdim ve tab tikladim ama kanala sadece bu kismi msg $active - <-yani - yaziyor.

Kod:

alias nickTamamla {
  var %letter = $left($1-, 1)
  if ($len(%letter) == 1) {
    var %x = 1
    while (%x <= $nick(#, 0)) {
      var %nick = $nick(#, %x)
      if ($istok(%nick, %letter, 1)) {
        msg # $+(%,letter,%letter, içeren nick:,%nick)
      }
      inc %x
    }
    msg # -
  }
}
on *:TABCOMP:#: {
  $nickTamamla($1-)
}

Bu, nickTamamla adında bir alias oluşturuyor ve TABCOMP olayında bu alias'ı çağırıyor. Kanal adını # sembolüyle temsil ediyorum, bu nedenle # sembolünü kullanarak kanal adını doğrudan belirtiyorum. Ayrıca msg komutunda boşlukları düzgün bir şekilde eklemeye dikkat edin. Bu kodu MIRC üzerinde deneyebilir ve çıktıyı kontrol edebilirsiniz.

ZaLiM1979 14 Aralık 2023 13:44

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Sagolasin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ama mahlesef buda olmuyor.
ALLAH razi olsun.

OperServ 14 Aralık 2023 16:06

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042848454)
Sagolasin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ama mahlesef buda olmuyor.
ALLAH razi olsun.

Kodu denedim çalışıyor sizin sunucuda hata var

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:06 -->-> Daha önceki mesaj 15:31 --

Alıntı:

OperServ Nickli Üyeden Alıntı (Mesaj 1042848465)
Kodu denedim çalışıyor sizin sunucuda hata var

Pardon yanlış yazmışım düzenleme butonu aktif değil, mirc version kaç?

ZaLiM1979 14 Aralık 2023 16:32

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

OperServ Nickli Üyeden Alıntı (Mesaj 1042848465)
Kodu denedim çalışıyor sizin sunucuda hata var

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:06 -->-> Daha önceki mesaj 15:31 --



Pardon yanlış yazmışım düzenleme butonu aktif değil, mirc version kaç?


Mirc version 7.75 mirc.com'dan indiriyorum.

manikdepresif 14 Aralık 2023 22:11

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042848471)
Mirc version 7.75 mirc.com'dan indiriyorum.

calisti mi kod

ZaLiM1979 15 Aralık 2023 08:06

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

manikdepresif Nickli Üyeden Alıntı (Mesaj 1042848547)
calisti mi kod


Sagolsun @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ile bisürü denedik ama olmadi tam istedigim gibi. :-)

manikdepresif 15 Aralık 2023 16:16

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] nasil bi sey istiyorsun ? Acikca detayli sekilde yazabilirsen yardimci olmaya calisayim.

Toprak 15 Aralık 2023 16:37

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
İstediği şey editbox kısmında göstersin nicki; /editbox MESAJ olarak düzeltebilirsin.

manikdepresif 15 Aralık 2023 19:12

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
istedigi kod ilgimi cekti.
Sag tik yaparak menu'den acip kapatilabilir.

Kod:

#coklutab off
on 1:TABCOMP:#: { if !$istok(%tab,$1-,32) { set %tab %tab $1- | tabtus } | .timertab -m 1 400  tabver }
#coklutab end
alias -l tabver {  editbox  %tab |  unset %tab }
alias -l tabtus { .comopen scrll WScript.Shell  | noop $com(scrll,sendkeys,1,bstr,{TAB})  | .comclose scrll }
menu channel {
  Coklu Tablama $iif($group(#coklutab).status == on,KAPAT,AC)): $iif($group(#coklutab).status == off,.enable #coklutab,.disable #coklutab)
}

Not: Eger ayarlardan com komutlarini pasiflestirmisseniz kod calismaz.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:35 -->-> Daha önceki mesaj 18:02 --

Cumle icinde tablama yaparsaniz sorun cikarabilir bu kodla bilginize ona ayar cekmeye calisicam.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:36 -->-> Daha önceki mesaj 18:35 --

Ornek: selam a (TAB) gibi

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:05 -->-> Daha önceki mesaj 18:36 --

Duzelttim son hali asagidadir.
Kod:

#coklutab on
on 1:TABCOMP:#: { if ($0 > 1) { set  %_pretab $gettok($1-,$+(1,-,$calc($0 - 1)),32) }
  var %s_ = $eval($+($,$0),2)
if !$istok(%tab,%s_ ,32) { set %tab %tab %s_  | tabtus } | .timertab -m 1 300  tabver }
#coklutab end
alias -l tabver {  editbox  %_pretab %tab | unset %tab %_pretab  }
alias -l tabtus { .comopen scrll WScript.Shell  | noop $com(scrll,sendkeys,1,bstr,{TAB})  | .comclose scrll }
menu channel {
  Coklu Tablama $iif($group(#coklutab).status == on,KAPAT,AC)): $iif($group(#coklutab).status == off,.enable #coklutab,.disable #coklutab)
}



--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:12 -->-> Daha önceki mesaj 19:05 --

Kullanim ornekleri
: s + TABTUSU -> "s" nicki ile baslayan tum kullaniciklari editbox satirina doldurur
: *a + TABTUSU -> sonu "a" ile biten nickleri editbox satirina doldurur.
: *e* + TABTUSU -> icinde "e" gecen nickleri editbox satirina doldurur.

ZaLiM1979 15 Aralık 2023 19:21

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

manikdepresif Nickli Üyeden Alıntı (Mesaj 1042848785)
istedigi kod ilgimi cekti.
Sag tik yaparak menu'den acip kapatilabilir.

Kod:

#coklutab off
on 1:TABCOMP:#: { if !$istok(%tab,$1-,32) { set %tab %tab $1- | tabtus } | .timertab -m 1 400  tabver }
#coklutab end
alias -l tabver {  editbox  %tab |  unset %tab }
alias -l tabtus { .comopen scrll WScript.Shell  | noop $com(scrll,sendkeys,1,bstr,{TAB})  | .comclose scrll }
menu channel {
  Coklu Tablama $iif($group(#coklutab).status == on,KAPAT,AC)): $iif($group(#coklutab).status == off,.enable #coklutab,.disable #coklutab)
}

Not: Eger ayarlardan com komutlarini pasiflestirmisseniz kod calismaz.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:35 -->-> Daha önceki mesaj 18:02 --

Cumle icinde tablama yaparsaniz sorun cikarabilir bu kodla bilginize ona ayar cekmeye calisicam.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:36 -->-> Daha önceki mesaj 18:35 --

Ornek: selam a (TAB) gibi

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:05 -->-> Daha önceki mesaj 18:36 --

Duzelttim son hali asagidadir.
Kod:

#coklutab on
on 1:TABCOMP:#: { if ($0 > 1) { set  %_pretab $gettok($1-,$+(1,-,$calc($0 - 1)),32) }
  var %s_ = $eval($+($,$0),2)
if !$istok(%tab,%s_ ,32) { set %tab %tab %s_  | tabtus } | .timertab -m 1 300  tabver }
#coklutab end
alias -l tabver {  editbox  %_pretab %tab | unset %tab %_pretab  }
alias -l tabtus { .comopen scrll WScript.Shell  | noop $com(scrll,sendkeys,1,bstr,{TAB})  | .comclose scrll }
menu channel {
  Coklu Tablama $iif($group(#coklutab).status == on,KAPAT,AC)): $iif($group(#coklutab).status == off,.enable #coklutab,.disable #coklutab)
}



--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:12 -->-> Daha önceki mesaj 19:05 --

Kullanim ornekleri
: s + TABTUSU -> "s" nicki ile baslayan tum kullaniciklari editbox satirina doldurur
: *a + TABTUSU -> sonu "a" ile biten nickleri editbox satirina doldurur.
: *e* + TABTUSU -> icinde "e" gecen nickleri editbox satirina doldurur.


altdaki kod güzel, ama belirtilen tüm nickleri arkaarka degilde teker teker editboxa yazmasi mümkün degilmi? normal mircde nickin ilk harfe ve tab tiklandiginda ilk harfle baslayan nickleri teker teker editboxa yazdigi gibi.. umarim dogru anlattim.

manikdepresif 15 Aralık 2023 19:34

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
benim kafamdaki kod bu. Senin aradigini ornekle gosterir misin editbox satirinda resim atip ?

ZaLiM1979 15 Aralık 2023 19:59

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

manikdepresif Nickli Üyeden Alıntı (Mesaj 1042848805)
benim kafamdaki kod bu. Senin aradigini ornekle gosterir misin editbox satirinda resim atip ?


Hareketli Resim oldugu icin bildigim siteye yükledim.


Link: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


görüldügü gib Nickin ilk harfini yazdigim ve tabladigim zaman eger o harf ile 1den fazla nick varsa, hepsini yaziyor editbox'a. Benim istedigim hepsini birden degilde teker teker yazsin editbox'a. Umarim anlatabilmisimdir.


*s* yaptigimdada aynisi oluyor. denemedim ama sanirim *s gibi son harfden yaparsakda aynisi oluyor.



Tsk'ler ve saygilar.

manikdepresif 15 Aralık 2023 20:13

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] alt alta mi yazsin yani nickleri onu mu istiyorsun ?

ZaLiM1979 15 Aralık 2023 20:17

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

manikdepresif Nickli Üyeden Alıntı (Mesaj 1042848811)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] alt alta mi yazsin yani nickleri onu mu istiyorsun ?


Yok 1'den fazla nick varsa ayni kriterlere uyan teker teker yazsin editbox'a. Hepsini birden degil. Misal: 3 nick var son harfi T olan Ahmet, mehmet ve cevat. ben ilk taba bastigimda önce birini göztersin, sonra bidaha tablayinca 2nci nicki ve bidaha tabladigimda 3ncü nicki göztersin.
Anlatabildim umarim?


Tsk'ler ve saygilar.

OperServ 15 Aralık 2023 20:48

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042848812)
Yok 1'den fazla nick varsa ayni kriterlere uyan teker teker yazsin editbox'a. Hepsini birden degil. Misal: 3 nick var son harfi T olan Ahmet, mehmet ve cevat. ben ilk taba bastigimda önce birini göztersin, sonra bidaha tablayinca 2nci nicki ve bidaha tabladigimda 3ncü nicki göztersin.
Anlatabildim umarim?


Tsk'ler ve saygilar.

Kod:

on 1:TABCOMP:#: {
  if ($0 > 1) {
    set %_pretab $gettok($1-,$+(1,-,$calc($0 - 1)),32)
  }
  var %s_ = $eval($+($,$0),2)
  if !$istok(%tab,%s_ ,32) {
    set %tab %tab %s_
    tabtus
  }
  .timertab -m 1 300 tabver
}
alias -l tabver {
  var %nextnick = $gettok(%tab,1,32)
  editbox %_pretab %nextnick
  var %newtab = $gettok(%tab,2-,-1)
  unset %tab
  if (%newtab) {
    set %tab %newtab
  }
}
alias -l tabtus {
  .comopen scrll WScript.Shell
  noop $com(scrll,sendkeys,1,bstr,{TAB})
  .comclose scrll
}
menu channel {
  Coklu Tablama $iif($group(#coklutab).status == on,KAPAT,AC)): $iif($group(#coklutab).status == off,.enable #coklutab,.disable #coklutab)
}

Bu kod, her tab tuşuna bastığınızda, sırayla kriterlere uyan nickleri editbox'a yazacak..

İlk tab bastığınızda bir nick gösterecek, bir sonraki tab tuşuna bastığınızda bir sonraki nicki gösterecek ve bu şekilde devam edecektir

manikdepresif 15 Aralık 2023 20:56

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Kod'a gerek yok bunun icin zaten TAB tusuna bastiginda tek tek gosteriyor.
-
Bu arada nickleri editboxda coklu olarak alt alt yazdirmak istiyorsan da asagida ki kod isini gorecektir.

Kod:

#coklutab on
on 1:TABCOMP:#: {
  if ($0 > 1) { set  %_pretab $gettok($1-,$+(1,-,$calc($0 - 1)),32) }
  var %s_ = $eval($+($,$0),2)
  if !$istok(%tab,%s_ ,32) { set %tab %tab %s_  | tabtus }
  .timertab -m 1 300  tabver
}
#coklutab end
alias -l tabver {  tokenize 32  %_pretab %tab | clipboard  | edityaz $* | editbox $active | ctrlv  }
alias -l edityaz { clipboard -a $1  $crlf  |  unset %tab %_pretab }
alias -l tabtus { .comopen scrll WScript.Shell  | noop $com(scrll,sendkeys,1,bstr,{TAB})  | .comclose scrll }
alias -l ctrlv {  .comopen scrll WScript.Shell  | noop $com(scrll,sendkeys,1,bstr,^V)  | .comclose scrll }
menu channel {
  Coklu Tablama $iif($group(#coklutab).status == on,KAPAT,AC)): $iif($group(#coklutab).status == off,.enable #coklutab,.disable #coklutab)
}



--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:56 -->-> Daha önceki mesaj 20:50 --

Alıntı:

Bu kod, her tab tuşuna bastığınızda, sırayla kriterlere uyan nickleri editbox'a yazacak..

İlk tab bastığınızda bir nick gösterecek, bir sonraki tab tuşuna bastığınızda bir sonraki nicki gösterecek ve bu şekilde devam edecektir
ikinci taba basmasina gerek yok ki , tek seferde tum tab uyusmalarini gosterip editbox'a yan yana yazdiriyor..
Son verdigim ise alt alta yazdiriyor.
Kim ne kullanacaksa tercih kullanan kisiye kalmis.

ZaLiM1979 16 Aralık 2023 09:52

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Alıntı:

OperServ Nickli Üyeden Alıntı (Mesaj 1042848817)
Kod:

on 1:TABCOMP:#: {
  if ($0 > 1) {
    set %_pretab $gettok($1-,$+(1,-,$calc($0 - 1)),32)
  }
  var %s_ = $eval($+($,$0),2)
  if !$istok(%tab,%s_ ,32) {
    set %tab %tab %s_
    tabtus
  }
  .timertab -m 1 300 tabver
}
alias -l tabver {
  var %nextnick = $gettok(%tab,1,32)
  editbox %_pretab %nextnick
  var %newtab = $gettok(%tab,2-,-1)
  unset %tab
  if (%newtab) {
    set %tab %newtab
  }
}
alias -l tabtus {
  .comopen scrll WScript.Shell
  noop $com(scrll,sendkeys,1,bstr,{TAB})
  .comclose scrll
}
menu channel {
  Coklu Tablama $iif($group(#coklutab).status == on,KAPAT,AC)): $iif($group(#coklutab).status == off,.enable #coklutab,.disable #coklutab)
}

Bu kod, her tab tuşuna bastığınızda, sırayla kriterlere uyan nickleri editbox'a yazacak..

İlk tab bastığınızda bir nick gösterecek, bir sonraki tab tuşuna bastığınızda bir sonraki nicki gösterecek ve bu şekilde devam edecektir


Bu Kod zaten mirc'in yaptigini yapiyor. Benim istedigim sey o degil. Sanirim ben istegimi tam aciklayamiyorum/anlatamiyorum.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 09:52 -->-> Daha önceki mesaj 09:33 --

Benim istegime en uykun kod simdilik bu.
Kod:

#coklutab on
on 1:TABCOMP:#: { if ($0 > 1) { set  %_pretab $gettok($1-,$+(1,-,$calc($0 - 1)),32) }
  var %s_ = $eval($+($,$0),2)
if !$istok(%tab,%s_ ,32) { set %tab %tab %s_  | tabtus } | .timertab -m 1 300  tabver }
#coklutab end
alias -l tabver {  editbox  %_pretab %tab | unset %tab %_pretab  }
alias -l tabtus { .comopen scrll WScript.Shell  | noop $com(scrll,sendkeys,1,bstr,{TAB})  | .comclose scrll }
menu channel {
  Coklu Tablama $iif($group(#coklutab).status == on,KAPAT,AC)): $iif($group(#coklutab).status == off,.enable #coklutab,.disable #coklutab)
}

Kullanim ornekleri
: s + TABTUSU -> "s" nicki ile baslayan tum kullaniciklari editbox satirina doldurur
: *a + TABTUSU -> sonu "a" ile biten nickleri editbox satirina doldurur.
: *e* + TABTUSU -> icinde "e" gecen nickleri editbox satirina doldurur.


Tek eksik olan, kriterlere uyan nickleri teker teker degilde hepsini birden editbox'a yazdirmasi. Sagolun varolun.

ZaLiM1979 16 Aralık 2023 19:06

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Pc'den gif ekleme testi..

ZaLiM1979 20 Aralık 2023 16:17

Cevap: Tab Harf Seçtiğinizde Seçtiğiniz Harflerle Başlayan Nickleri Listeler
 
Facebook'dan resim gözterme linki ekleme testi..




sanirim 2 sekildede olmuyor, yada ben yanlis yapiyorum :)


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
birsey daha ögrenmis oldum :)

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 15:36 -->-> Daha önceki mesaj 15:25 --

Arkadaslar Facebooka dosya indirmek icin yüklemek mümkün'mü bilen varmi nasil oluyor?

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:17 -->-> Daha önceki mesaj 15:36 --

Soru haloldu.. kendi sayfamda yapilmiyor bi grub actim ordan indirmek icin dosya ekleniyor. :)


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

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