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

من طرف 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