سورس حذف ایمیل و نمایش آی پی و مک آدرس کامپیوتر

حل شده 

Visual Basic 6

توسط moeinmq در 5 سال پیش
0 56.5k 1 5 سال پیش
moeinmq xman
0

دوستان قبلا ازینجا یه پروژه دریافت کرده بودم مبتنی بر ارسال ایمیل/حالا میخاستم بدونم سورسی هست که بشه باش ایمیل ارسال شده رو هم از قسمت سنت و هم از قسمت ترش پاک کرد؟برای جی میل هم همینطور

سورسی هست که آی پی اصلی کامپیوتر که تو dos میتونیم بدست بیاریمو نشونمون بده همچنین مک آدرس؟

دوستان ممنون میشم لطفا راهنمایی کامل بکنید

پاسخ ها

0

سلام
فکر کنم دو سوال غیر مرتبط به هم رو نمیشه تو یه پست پرسید (قبلا تو قوانین اومده بود) اگر خلافه لطفا مدیران درست کنن.
یاهو میل = ایمیل / گوگل میل(جیمیل) = ایمیل

1- تو vb6 خیلی کار سختیه من خیلی گشتم راهش فقط کمک گرفتن از outlook ه:
اول از reference گزینه Microsoft Outlook 9.0 object library رو اضافه کن.

       Private Sub DelateEmailFromOutlook()
            Dim tempApp As Outlook.Application
            Dim tempInbox As Outlook.MAPIFolder
            Dim InboxItems As Outlook.Items
            tempApp = CreateObject("Outlook.Application")
            tempInbox = tempApp.GetNamespace("MAPI").GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
            InboxItems = tempInbox.Items
            Dim DeleteMail As Outlook.MailItem
            For Each newMail In InboxItems
                DeleteMail.Delete()
            Next
            InboxItems = Nothing
            tempInbox = Nothing
            tempApp = Nothing
        End Sub

2- نمایش ip

MsgBox Winsock1.LocalIP

آخرین ویرایش: 24-01-2015 ساعت 18:34، توسط xMAN

خوش آمدید

برای طرح سوال، ایجاد بحث و فعالیت در سایت نیاز است ابتدا وارد حساب کاربری خود شوید. در صورتی که هنوز عضو سایت نیستید میتوانید در عرض تنها چند ثانیه ثبت نام کنید.