mIRC Scripting

mIRC Scripting (https://www.mircscripting.net/)
-   Showcase - Hazır kodlar (https://www.mircscripting.net/showcase-hazyr-kodlar/)
-   -   Hızlı Memo Gönderimi (Multi Mesaj) (https://www.mircscripting.net/showcase-hazyr-kodlar/434-hyzly-memo-goenderimi-multi-mesaj.html)

UnLimitedBOY 10 Ekim 2009 22:01

Hızlı Memo Gönderimi (Multi Mesaj)
 
PHP- Kodu:

alias MultiMesaj dialog -m MultiMesaj MultiMesaj 
 
dialog MultiMesaj 
  
size --1 280 220 
  title KELEBEK Admin MultiMesaj Sistemi 
  box 
"Nickler Listesi:",15 5 150 148 
  button 
"Tamam",2159 100 110 50,ok 
  
list 315 20 130 140 
  button 
"Ekle",4170 60 50 20 
  edit 
"",5170 35 90 20 
  text 
"Nick:",6170 20 45 15 
  button 
"Sil",7222 60 40 20 
  box 
"Ayarlar ( Ekle/Sil )",8159 5 110 85 
  button 
"BAŞLAT",9159 160 110 50 
  button 
"Gidecek Mesajı Ayarla",106 160 140 50 

 
on 1:dialog:MultiMesaj:sclick:*: { 
  if (
$did == 3) {  
    
did -ra $dname 5 $did(3).seltext 
  

  if (
$did == 4) {  
    
set %MultiMesaj [ %MultiMesaj $did(5
    
did -a $dname 3 $did(5
    
did -ra $dname 5  
  

  if (
$did == 7) {  
    if (
$did(3).sel 0) {  
      
set %MultiMesaj $remtok(%MultiMesaj,$did(3).seltext,32
      
did -d MultiMesaj 3 $did(3).sel  
      did 
-ra $dname 5  
    
}  
  } 
  if (
$did == 9) { MultiMesaj.Gonder 
  if (
$did == 10) { MultiMesaj.Ayar 

 
on *:dialog:MultiMesaj:init:*: { 
  var %

  
while ($gettok(%MultiMesaj,%a,32)) { 
    
did -a MultiMesaj 3 $gettok(%MultiMesaj,%a,32
    
inc %
  


 
alias MultiMesaj.Gonder 
  
set %sikici 1 
  
$+(.,timer,MMS0 1 /MultiMesaj.Gonder.Devam 

 
alias MultiMesaj.Gonder.Devam 
  if 
$gettok(%MultiMesaj,1,32) == $null {  
    $+(.,
timer,MMSoff 
    
echo -*** Mesaj Gönderilecek NickListesi şu anda boş
    goto 
son 
  

  if 
$gettok(%MultiMesaj,1,32) != $null {  
    if 
$gettok(%MultiMesaj,%sikici,32) != $null {  
      .
ms send $gettok(%MultiMesaj,%sikici,32) %MultiMesaj.Mesaj 
      inc 
%sikici 1 
      
goto son 
    

    if 
$gettok(%MultiMesaj,%sikici,32) == $null {  
      $+(.,
timer,MMSoff 
      
echo -*** Mesaj Gönderimi başarıyla tamamlandı
      goto 
son 
    

  } 
  :
son 

 
alias MultiMesaj.Ayar 
  
set %MultiMesaj.Mesaj $$?="Lütfen Gönderilecek Mesajı Giriniz" 
  
echo -*** Gönderilecek Mesaj: %MultiMesaj.Mesaj 


Code: UnLimitedBOY
Tarih: 13.06.2009

Komut Kullanım: /MultiMesaj

Ne işe yarar?
Nick Listesine ekleyeceniz nicklere tek tek otomatik olarak mesaj göndermeye yarar. Bütün mesajların gönderimi tamamlandığında sistem durur.

Not: Bu sistem adminler için ayarlanmıştır. Sunucularda, genelde 5 dk'lık bir zaman dilimiyle mesaj göndermenize izin verir. bu durumda aşağıda vereceğim koddaki zaman dilimini değiştiriniz.

Mevcut Kod: $+(.,timer,MMS) 0 1 /MultiMesaj.Gonder.Devam
Userler için değişecek kod: $+(.,timer,MMS) 0 301 /MultiMesaj.Gonder.Devam

Happy 03 Mayıs 2012 20:03

Bunu kanalda
!gönder Nick1,Nick2,Nick3 Mesaj

Şeklinde ayarlıyabilirmiyiz?

CoCoRiCo 05 Mayıs 2012 18:09

iki sekilde ayarlamak mümkün...
1) kanalda 1 den fazla nick sectiginde otomatik olarak memo penceresini acarak gönderme...
:: bunun için kod'u ilk kez eklediginde scripti birkereye mahsus kapatıp acman gerekir. Ki; nick listesini kontrol eden zamanlayıcı calısabilsin.. Menual yapmak istersende
/timer_nicklist_memo_kontrol -m 0 1600 .chknlist yazıp enterlaman yeterli.



PHP- Kodu:

alias secekle set %MultiMesaj [ %MultiMesaj $replace($snicks,$chr(44),$chr(32)) | MultiMesaj }
on *:start:{ .timer_nicklist_memo_kontrol -m 0 1600 .chknlist  }
alias chknlist $iif($count($snicks,$chr(44)),$iif(!$dialog(MultiMesaj),secekle,$null)) } 

2) Kanalda nikleri secip üzerina sag tıkladıgında menu'de görecegin niklere göndere bilecegin yöntem
:: bu yöntemde secilecek nickler CTRL ile belli nickler SHIFT ile bir nick ile diger nick aralıgındaki kişiler.. yara nickler üzerinde klasik yöntemle fare ile karalayarak.. yapmak mümkün bunun için de şu kodu eklemelisin..


PHP- Kodu:

menu nicklist 
MultiMesaj $qt($replace($snicks,$chr(44),$chr(32))) : secekle 
}
alias secekle set %MultiMesaj [ %MultiMesaj $replace($snicks,$chr(44),$chr(32)) | MultiMesaj 



++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz.   Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.



mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials



User Alert System provided by Advanced User Tagging v3.1.3 (Lite) - vBulletin Mods & Addons Copyright © 2026 DragonByte Technologies Ltd. Runs best on HiVelocity Hosting.

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76

SEO by vBSEO 3.6.1