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

Bu addon üzerinden belirlediğiniz ve listeye eklediğiniz kişilere kimliğinizi göstermeden veya göstererek mail atabilirsiniz.

not: renklendirmesi icin mdx.dll gereklidir.
Kod:
alias mail { dialog -m mail mail }

alias dlls if $1 = mdx { return mdx.dll } | if $1 = bars { return bars.mdx }

dialog mail {

  title "Mail Gönderme by SuLh"

  size -1 -1 219 191

  option dbu

  list 1, 5 17 88 122, size

  edit "", 2, 4 147 89 13, autohs autovs

  button "Ekle", 3, 5 163 39 17

  button "Sil", 4, 52 163 39 17

  edit "", 6, 109 18 95 12, autohs autovs

  text "Gönderen Email", 7, 133 10 50 8

  edit "", 8, 108 48 98 12, autohs autovs

  text "Konu", 9, 145 40 12 8

  edit "", 10, 108 81 101 78, autohs autovs

  text "Mesajınız", 11, 142 69 25 8

  button "Gönder", 12, 115 164 41 16

  button "Kapat", 13, 167 164 39 16,ok

  link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
14, 79 183 65 8

  text "Email Listem", 5, 29 9 31 8

}

on *:dialog:mail:init:*: {

  var %bs 1

  while (%bs <= $lines(mailler.txt)) {

    did -a mail 1 $read(mailler.txt,%bs)

    inc %bs

  }

  dll $dlls(mdx) MarkDialog $dname

  dll $dlls(mdx) SetDialog $dname bgcolor $rgb(5,0,0)

  dll $dlls(mdx) SetFont 1,2,3,4, +a default 13 1200 Tahoma

  dll $dlls(mdx) SetColor 1,2,7,9,11,5 text $rgb(2,255,255) 

  dll $dlls(mdx) SetColor 1,2,7,9,11,5 textbg $rgb(0,0,0) 

  dll $dlls(mdx) SetColor 1,2,7,9,11,5,14 background $rgb(0,0,0)

  dll $dlls(mdx) SetColor 20 background $rgb(5,255,255)

}

on *:dialog:mail:sclick:*: {

  if ($did == 3) {

    if $did(2) == $null { echo -a Lutfen bir mail giriniz. }

    else { write mailler.txt $did(2) | echo -a $did(2) linki eklendi. | did -a mail 1 $did(2) }

  }
 

  if ($did == 4) { write -d mailler.txt $did(1).sel | echo -a $did(1).seltext silindi. | did -d mail 1 $did(1).sel }

  if ($did == 12) {

    if ($did(6) == $null) || ($did(8) == $null) || ($did(10) == $null) { echo -a Lutfen gerekli yerleri doldurun. | return } 

    set %kime $did(1).seltext

    set %gonderen $did(6)

    set %konu $did(8)

    set %mesaj $did(10)

    yeni

  }

}
 

alias yeni { sockopen ahaha 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }

on *:sockopen:ahaha: {

  if ($sockerr > 0) { echo -a Socket baglanamadi. | return }

  sockwrite -n $sockname GET /yeni.php?kime= $+ %kime $+ &kimden= $+ %gonderen $+ &konu= $+ $replace(%konu,$chr(32),$chr(37) $+ 20) $+ &mesaj= $+ $replace(%mesaj,$chr(32),$chr(37) $+ 20) HTTP/1.1

  sockwrite -n $sockname Host: yutupmp3.tk

  sockwrite -n $sockname $crlf

}
 

on *:sockread:ahaha: {

  var %enes

  sockread %enes

  write weblog.txt %enes

}
 

menu * {

  Mail Gönderme: mail

}