| immortaL | 05 Haziran 2016 14:05 |
mIRC Mail Dialog.
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:
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
}
|
