mIRC Fake Mail Gönderici / mIRCScripting

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

not: renklendirmesi icin mdx.dll gereklidir.

 

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 }

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir