|
23 Ağustos 2015, 01:27 | #1 |
Üyelik tarihi: 20 Ağustos 2015
Mesajlar: 11 WEB Sitesi: www.Esohbet.Net IRC Sunucusu: Irc.Esohbet.Net İlgi Alanı: Alınan Beğeni: 12 |
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 "http://www.Esohbet.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 } |
Alıntı
|
23 Ağustos 2015, 10:49 | #2 |
Üyelik tarihi: 11 Şubat 2015
Bulunduğu yer: CR Codeman Goemon Mesajlar: 625 WEB Sitesi: CR IRC Sunucusu: iRC CR İlgi Alanı: Alınan Beğeni: 201 |
Cevap: mIRC Mail Dialog.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Eline Sağlık defe
|
Alıntı
|
Etiketler |
dialog, mail, mirc |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
mIRC Logo Değiştirme Dialog | pCkOpAt | Hazır Kodlar | 1 | 15 Ocak 2019 22:56 |
mIRC Alias Düzenleme Dialog | pCkOpAt | Hazır Kodlar | 0 | 03 Ocak 2019 15:52 |
mIRC Radyo Sistemi Dialog'lu | Fearless | Hazır Kodlar | 0 | 29 Mayıs 2016 12:55 |
CR Mail Block Hakkında | Goemon | ConferenceRoom | 0 | 05 Mart 2015 11:07 |
/facebook <e-mail> <password> | Toprak | Hazır Kodlar | 0 | 25 Ocak 2015 23:55 |