[immortaL]

Bu dialog sayesinde, mirc üzerinden mail atabileceksiniz. İsterseniz kendi adınıza, isterseniz sahte bir isimle yollayabilirsiniz.

Not: Renklendirme için mdx.dll gereklidir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 "https://www.hobichat.net", 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 www.yutupmp3.tk 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
}