مرجع سورس های ویژوال بیسیک ( درخواست سورس )

[vpn3vpn]

دوست عزیز چندین سورس ایرسال ایمیل با امکانات مختلف در همین تاپیک موجوده .. در ضمن شما میگین همون که با SMTP کار میکنه ، SMTP بلاخره نیاز به یک سرور داره ... من همه سورس هایی که دیدم همه سرور میخواستند و اون هایی که سرور نمیخواستند معمولا یا کار نمیکردند و یا مشکلی داشتند ... پیشنهاد میکنم حتما از سورس هایی که از سرور مخصوصلا POP3 استفاده میکنن استفاده کنین ( در همین تاپیک سورس های ارسال ایمیل با POP3 موجوده )

خوب اونا داخل فرم یه تکست دارن که باید سرور رو اونجا بنویسم.ولی نمیدونم باید چی بنویسم.
من یه نمونه دیدم که داخل فرمش سروری نداست.در ضمن اینا پسورد ایمیل خودم رو هم نمی خوان.!!!
این رو اینجا آپلود میکنم.ببینید سورسشو دارید:


لینک دانلود: http://persiandrive.net/649721

[rd kopol]

با سلام خدمت دوستان عزیز.
من سورس برنامه ای رو میخوام که قطع یا وصل بودن به اینترنت رو مشخص کنه .
با تشکر.

[MoBiN.R]

خوب اونا داخل فرم یه تکست دارن که باید سرور رو اونجا بنویسم.ولی نمیدونم باید چی بنویسم.
من یه نمونه دیدم که داخل فرمش سروری نداست.در ضمن اینا پسورد ایمیل خودم رو هم نمی خوان.!!!
این رو اینجا آپلود میکنم.ببینید سورسشو دارید:


لینک دانلود: http://persiandrive.net/649721

دوست عزیز این نمونه ای که شما گذاشتین هم میل سرور داره و اونم برنامه نویس داخل کد های برنامه میل سرور گوگل ( جیمیل ) رو وارد کرده .. در ضمن این برنامه پسوورد هم میخواد .... برای وارد کردن میل سرور میتونین از میل سرور های یاهو و جیمیل هم استفاده کنید ... متاسفانه من میل سرور یاهو و جیمیل رو نمیدونم ولی اگر شما و یا از آشناهاتون سایت شخصی داشته باشن میتونین از میل سرور سایت طرف مقابل به این صورت mail.YourDomainName.com استفاده کنید ... اگر بخواید میتونم این برنامه ای که دادید رو دیس اسمبل کنم شاید بتونم اسم میل سرورشو در بیارم ...

با سلام خدمت دوستان عزیز.
من سورس برنامه ای رو میخوام که قطع یا وصل بودن به اینترنت رو مشخص کنه .
با تشکر.

دوست عزیز "rd kopol" اینم نمونه کد برای اطلاع از وضعیت کانکت و عدم کانکت به اینترنت :

Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

Public Function ConnectState() As boolean
If InternetGetConnectedState(&H1, 0) = 1 Then
ConnectState = True
Else
ConnectState = False
End If
End Function

این کد های بالا رو در ماژول قرار بدید و تابع ConnectState رو فراخونی کنید میتونید وضعیت اتصال رو مشخص کنید .. اگر خروجی True بود اتصال برقراره و اگر False بود اتصال برقرار نیست .

[vpn3vpn]

ممنونم.من برام مهم نیست که میل سرورو بدونم.می خوام سورس یه برنامه رو داشته باشم که میل بفرسته با سرور stmp گوگل.مثل همین برنامه که گذاشتم.
تو این انجمن همون پستای اول بود ولی نمیدونم کدومش به کار من میخوره و کار میکنه.اگر لینک این چیزی که من میخوام رو بزارید خیلی خیلی ممون می شم!

[MoBiN.R]

ممنونم.من برام مهم نیست که میل سرورو بدونم.می خوام سورس یه برنامه رو داشته باشم که میل بفرسته با سرور stmp گوگل.مثل همین برنامه که گذاشتم.
تو این انجمن همون پستای اول بود ولی نمیدونم کدومش به کار من میخوره و کار میکنه.اگر لینک این چیزی که من میخوام رو بزارید خیلی خیلی ممون می شم!

دوست عزیز سورس کامل ارسال ایمیل رو براتون نوشتم .. توی این سورس از میل سرور جیمیل استفاده میکنه و شما نیاز به وارد کردن چیز اضافی نمیباشید ..

Sub SendMail(Sender, Subject, Reciever, Text, Password, AttachFile)
    If Sender <> "" Or Password <> "" Then
        
        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 = "SendMail Project"
            .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
    Else
        MsgBox "Please, Fill the Sender Mail Address or Sender Mail Password", vbCritical, "Connection Error"
    End If
End Sub

تابع بالا برای ارسال میل و برای استفاده از این تابع :

SendMail "YourGmailAddress","Subject","Reciver","Text","YourGMailPassword","AttachFile"

[vpn3vpn]

مرسی.ولی نگفتی که این دو تا کد رو کجا باید بزارم.
واسه دکمه send و Attach چی بنویسم.اطلاعات آدرس جیمیل و پسورد و گیرنده و... رو از کجا بهش بدم.یه توضیح کاملتر اگر بدید خیلی خیلی ممنون میشم.
یه ارور هم موقع اجرا تو این سطر: .AddAttachment (AttachFile) میگیره که فکر کنم اشکال از منه که نمی دونم چه کار باید کنم.اگر تونستید یه پروژه باهاش بسازید که فقط gmail.pass.resiver,attach و متن رو بخواد و بهم بدید.
مرسی!

[MoBiN.R]

مرسی.ولی نگفتی که این دو تا کد رو کجا باید بزارم.
واسه دکمه send و Attach چی بنویسم.اطلاعات آدرس جیمیل و پسورد و گیرنده و... رو از کجا بهش بدم.یه توضیح کاملتر اگر بدید خیلی خیلی ممنون میشم.
یه ارور هم موقع اجرا تو این سطر: .AddAttachment (AttachFile) میگیره که فکر کنم اشکال از منه که نمی دونم چه کار باید کنم.اگر تونستید یه پروژه باهاش بسازید که فقط gmail.pass.resiver,attach و متن رو بخواد و بهم بدید.
مرسی!

با سلام .. سورس مورد نظر رو براتون نوشتم و اینجا آپلود کردم

[vpn3vpn]

آقا دمت گرم.خیلی با حالی.من اول فقط به خاطر این برنامه عضو شدم. ولی حالا که میبینم اینجا شما چقدر تحویل میگیرید کسی رو که نمی شناسید از این به بعد تو همین انجمن فعالیت میکنم و سورس های ویژوال رو می زارم!برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید

[MoBiN.R]

خواهش میکنم دوست عزیز .. مهم شناختن نیست .. مهم کمک کردنه .. این که ما فقط به کسایی که میشناسیم کمک کنیم خوب نیست و از انسانیت فاصله داره ...ممنونم که برای فعالیت این فروم رو انتخاب کردید .. ورود به این انجمن رو به شما تبریک میگم و امیدوارد در کنار شما و دوستان دیگر فعالیت مفیدی داشته باشیم .. باتشکر

[rd kopol]

با سلام خدمت دوستان عزیز.(مخصوصا آقا MoBiN.R )
من سورس برنامه ای رو میخواستم که دکمه start ویندوز رو غیر فعال-فعال کنه.
با تشکر