منتديات المبرمجون الاقباط
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

طريقة تشغيل موقع ويب وبريد الكتروني من داخل برنامجك(هام)

اذهب الى الأسفل

طريقة تشغيل موقع ويب وبريد الكتروني من داخل برنامجك(هام) Empty طريقة تشغيل موقع ويب وبريد الكتروني من داخل برنامجك(هام)

مُساهمة من طرف Coptic_Programmer الجمعة يوليو 03, 2009 10:16 am

ضع الشيفرة التالية في Module أي وحدة نمطية

Option Explicit
' by kaled alzeeby alnamer soft


Public Const URL = 'http://www.kaled1.malware-site.www'
Public Const email = 'nemer_11@hotmail.com'
Public Declare Function ShellExecute Lib 'shell32.dll' Alias 'ShellExecuteA' (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1

Public Sub gotoweb()
Dim Success As Long

Success = ShellExecute(0&, vbNullString, URL, vbNullString, 'C:\', SW_SHOWNORMAL)

End Sub

Public Sub sendemail()
Dim Success As Long

Success = ShellExecute(0&, vbNullString, 'mailto:' & email, vbNullString, 'C:\', SW_SHOWNORMAL)

End Sub

اصنع فورم Form1 أضف اليه زرين Command1 _ Command2

أكتب في الأول الشيفرة التالية : gotoweb أكتب في الثاني الشيفرة التالية : sendemail

Coptic_Programmer
مشرف برامج
مشرف برامج

المساهمات : 43
تاريخ التسجيل : 29/10/2008

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى