Mail Gonderme kodları

Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

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") = Text1.Text
Flds.Item(schema & "sendpassword") = Text2.Text
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = Text3.Text
.From = Text4.Text
.Subject = Text5.Text
.HTMLbOdy = Text6.Text
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With

Programınızı lisansli yapin

Option Explicit

Private Sub Form_Load()
Dim kbel As String
kbel = GetSetting("sinir", "sinirla", "kbel", 0)
If kbel >= 5 Then 'Burdaki 5 rakamini isterseniz yükseltebilirsiniz bu rakam programin kaç kere çalisacagini belirtiyor.
SaveSetting "sinir", "sinirla", "kbel", 111111
MsgBox "Programin kullanim süresi bitti", vbOKOnly, "Uyari'"
Unload Me
End
Else
kbel = kbel + 1
SaveSetting "sinir", "sinirla", "kbel", kbel
Label1.Caption = kbel
End If
End Sub

Form'u saydam yapmak

Module kodları :

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long


Public Const HDS_BUTTONS = &H2
Public Const GWL_STYLE = (-16)
Const SWP_DRAWFRAME = &H20
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H4
Public Const COLOR_WINDOW = 5
Public Const COLOR_WINDOWTEXT = 8
Public Const SWP_FLAGS = SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME
Public Const SW_NORMAL = 1
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1
Public Const LVM_FIRST = &H1000
Public Const LVM_GETHEADER = (LVM_FIRST + 31)
Public Const GWL_EXSTYLE = -20
Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H2&
Public Const WS_EX_LAYERED = &H80000
Public Const WS_EX_TRANSPARENT = &H20&
   
 


Public Sub SaydamYap(frm As Form, SeffaflikDerecesi As Integer)
Dim stil As Long
stil = GetWindowLong(frm.hwnd, GWL_EXSTYLE)

If (stil And WS_EX_LAYERED) = 0 Then
     SetWindowLong frm.hwnd, GWL_EXSTYLE, stil Or WS_EX_LAYERED
    SetLayeredWindowAttributes frm.hwnd, 0, SeffaflikDerecesi, LWA_ALPHA
End If
End Sub

Form_Load'a :

SaydamYap me , 203

Flooder programı kodlamak

Timer1 Code:

Sendkeys (Text1.text)
SendKeys "{ENTER}"

Start button Code:
Timer1.Interval = Text2.text
Timer1.enabled = True
Label1.caption = "Spammer is now Flooding"

Stop Button Code:
Timer1.enabled = False
Label1.caption = "Spammer has stopped Flooding"

f2 ile program gizlemek

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF2) = -32767 Then
Shell "explorer http://google.com.tr"
ElseIf GetAsyncKeyState(vbKeyF2) = -32767 Then
Shell "explorer http://turkhackteam.org"
End If
End Sub

Dosya gömme kodları

Module eklenecek kodlar :

Option Explicit

Sub VeriÇıkar(Numara As Byte, Tür As String, Dosya As String)
Dim Buffer() As Byte
Buffer = LoadResData(Numara, Tür)
Open Dosya For Binary As #1
Put #1, , Buffer()
Close #1
End Sub

Formloada eklenecek kodlar :

VeriÇıkar 101, "CUSTOM","C:\deneme.exe"

Programi baslangica eklemek

Assagıdaki kodu formload'a ekliyoruz
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\" & App.EXEName & ".exe"