Catatan Hitam 5 Presiden Indonesia

Sangat menarik bila kita membahas bangsa ini dari era kejayaan Gajahmada hingga masa reformasi. Indonesia jatuh bangun membangun perekonomiannya melalui kebijakan yang pro rakyat sampai kebijakan neo liberal pun sudah diterapkan tetapi belum mampu membangun perekonomian Indonesia. tetapi yang tidak bisa kita pungkiri adalah bagaimana presiden kita tidak pernah serius mengurusi masalah rakyatnya. Ishak Rafick mencoba menuliskan bagaibana presiden kita menjalankan pemerintahannya mulai dari sistem, kebijakan dan penerapannya yang kesemua tidak bisa lebas dari dosa sejarah.
Download Buku

PENULIS : ISHAK RAFICK

PENERBIT : UFUK PRESS

Read more »

Tanda-Tanda Pria Bosan Dengan Pasangannya

Kebosanan dalam hubungan asmara dapat muncul tiba-tiba. Ketika seseorang mulai bosan dengan kekasihnya, maka ketertarikannya terhadap hubungannya berkurang. Agar kebosanan pasangan bisa segera diatasi, Anda sebagai harus menyadari tanda-tanda kejenuhannya. Seperti dilansir dari eHow, ini dia tanda-tanda pria bosan dengan kekasihnya.

1. Menjadi Lebih Sibuk

Jika ia menjadi lebih sibuk akhir-akhir ini bisa jadi itu alasannya agar tidak harus menemui Anda. Namun, jangan langsung menegurnya, cari tahu apakah pasangan benar-benar banyak pekerjaan atau sedang menghindar dari Anda.

2. Jarang Kontak Fisik

Perhatikan tingkat kontak fisiknya pada Anda. Jika pada awalnya, Anda berdua sering berpegangan tangan dan berpelukan, namun belakangan ini si dia jarang berinisiatif untuk melakukannya, maka bisa menjadi tanda kurang baik untuk hubungan Anda. Jika perlakukan sayangnya telah berkurang pada Anda dan ia menjauhkan diri dari kekasihnya, tampaknya dia sedang sangat jenuh dengan Anda.

3. Jarang Memberi Kabar

Jika dulu kemanapun dia berada dia akan memberi kabar, sekarang dia jarang melakukannya. Ketika dia merasa memberi kabar bukan lagi hal yang penting untuk Anda ketahui, bisa jadi itu tanda kebosanannya terhadap hubungannya.

4. Anda yang Meneleponnya Duluan

Bahkan si dia pun tidak berinisiatif untuk menelepon Anda duluan. Jika Anda mulai merasa Anda yang selalu mencarinya dan saat ditelepon si dia berusaha mengakhiri percakapan, maka bisa menjadi indikasi yang jelas bahwa dia sedang jenuh.

5. Lebih Sering Bersama Temannya

Perhatikan kebiasannya, jika dia menjadi lebih sering pergi bersama teman-temannya kemungkinan dia bosan dengan Anda. Si dia mungkin membutuhkan suasana baru dan itu didapatnya dengan saling ber-cerita dan berkumpul bersama teman-teman.

6. Dia Tidak Mengajak Anda Pergi

Si dia sudah jarang mengajak Anda untuk bertemu, bahkan ketika Anda yang mengajaknya pergi, dia tidak langsung menyetujui. Hal ini terjadi, bisa jadi karena tempat kencan yang didatangi sudah tidak menarik lagi baginya. Cobalah ajak si dia untuk menonton pertandingan olahraga favoritnya. Ini bisa membuat dia terkejut dengan ajakan Anda.

7. Membuat Janji yang Tidak Ditepati

Tanda lain si dia sudah bosan adalah dia kerap membatalkan janji. Ketika dia berjanji akan menelepon Anda jam 7 malam, dia baru meneleponnya jam 9 atau malah keesokan harinya. Begitu pun ketika si dia menjanjikan untuk bertemu, si dia tiba-tiba membatalkannya.

Read more »

Cara Menghindari TomCat

Pakar serangga dari Departemen Proteksi Tanaman, Fakultas Pertanian Institut Pertanian Bogor (IPB) Aunu Rauf mengatakan, cukup mudah untuk terhindar dari gangguan Tomcat. "Yakni dengan mengurangi penerangan dan menutup rapat jendela serta pintu rumah," ujarnya di Bogor, Selasa (21/3/2012).

"Karena kumbang ini tertarik cahaya lampu, mematikan lampu atau meredupkan lampu akan mengurangi berdatangannya kumbang ini ke rumah kita," kata Aunu.

Berikut adalah cara menghindari serangan tomcat:

1. Menutup pintu dan jendela dengan rapat-rapat agar kumbang tomcat tidak masuk ke rumah.

2. Hindari duduk atau ngobrol di bawah lampu yang di atasnya banyak didatangi kumbang tomcat.

3. Jika ada kumbang tomcat menempel pada tubuh atau pada pakaian yang sedang dipakai, jangan sekali-kali memegangnya atau membunuhnya. "Usir kumbang tadi secara hati-hati dengan cara meniupnya atau mengusirnya dengan potongan kertas," kata Auni.

4. Apabila kumbang ini secara tidak sengaja terpijit dan cairannya menempel pada kulit, segera bilas dengan air sabun beberapa kali. Begitu pula bila cairan kumbang ini menempel pada baju atau seprei, agar segera dicuci.

Menurut Aunu, umumnya gejala muncul 24 jam setelah kulit terkena cairan tubuh kumbang. Bila gejalanya parah segera pergi ke dokter untuk berobat. (HP, Ant)

Read more »

Tip's Naik Angkutan Umum Untuk Wanita

Belakang ini media cetak atau pun elektronik memberitakan tentang Pemerkosaan Di Angkutan Umum(Angkot) salah atu beritanya http://metro.vivanews.com/news/read/282044-lagi--pemerkosaan-angkot-terjadi-di-jakarta. Buat para wanita yang hendak pulang malam mengunakan Angkutan Umum ada beberapa tips untuk menghidari pemerkosaan di dalam Angkutan Umum. Berikut adalah Tips nya semoga bermanfaat :
PENTING UTK WANITA…!!!:
Tips pencegahan PEMERKOSAAN di taxi, bus kota & angkot, bila pulang larut malam:

1) Usahakan memakai baju putih panjang.

2) Jika ditanya sopir/kenek yg tampangnya serem2 ” Mau kemana, neng??” jawablah dengan tanpa ekspresi & pandangan usahakan kosong serta bersuara perlahan :”ke Kuuubuuuran baaaang….”.

3) Lanjutkan dengan tertawa ngikik “Hiiihiiihiiiihihiiiiiii”, dan bayar pakai daun kering…hiii hii hiii lagi . Mudah2an berhasil…..

Selamat mencoba yaaah

Read more »

Menghitung Jumlah Jam Mengunakan Visual Basic 6

Sobat Sekalian Siap kan Project baru di VB 6 buat 1 Form dengan isi 2 Text Box dan 1 button, setelah itu siapkan 1 module setelah semuanya siap copy paste aja deh biar cepet...
copy kan source code ini di modul
Function ElapsedTime(tStart, tStop) As String

Dim dtr, dtl, jml As Long

dtl = (Hour(tStart) * 3600) + _
(Minute(tStart) * 60) + (Second(tStart))

dtr = (Hour(tStop) * 3600) + _
(Minute(tStop) * 60) + (Second(tStop))

If tStop < tStart Then
jml = 86400
Else
jml = 0
End If

jml = jml + (dtr - dtl)

ElapsedTime = Format(Str(Int((Int((jml / 3600)) Mod 24))), "00") _
+ ":" + Format(Str(Int((Int((jml / 60)) Mod 60))), "00") + ":" + _
Format(Str(Int((jml Mod 60))), "00")

End Function


Copykan Source code ini di Form
Private Sub Command1_Click()
Me.Caption = ElapsedTime(MULAI, AKHIR)
End Sub

Read more »

Cara HACK FaceBook

Hai Sobat Sekalian Awalnya saya hanya membatu teman untuk memperbaiki facebook yg yg telah terHACK..dari sanalah datangnya inspirasi untuk membuat aplikasi HACK FACEBOOK.disini saya tidak akan menjelaskan bagaimana cara membuat aplikasi pembobol facebook. seiring waktu berjalan dari hari ke hari bulan ke bulan FaceBook mengalami banyak perkembangan dari mulai System, IMK, dan tingkat pengamanannya di pacu terus oleh peningkatan dari sistem facebook itu sendiri aplikasi yg saya buat terus ikut berkembang juga.dari tahun 2009 saya terus mengembangkan aplikasi ini sampai akhirnya saya mendapatkan CARA yang Baru untuk HACK FACEBOOK Tanpa Software..Teknik yg di gunakan adalah meng Enkrip Password ke server email..Berikut adalah Cara Membobol Facebook Tanpa Aplikasi Baca dan Ikuti Petunjuknya dengan Seksama :
Cara Hack Password FB
Nih teman2 ada trik untuk mengetahui password facebook yang anda inginkan cara nya sangat mudah baca dan ikuti petunjuknya !!!
SUDAH AKU BUKTIKAN



1. login ke Email Anda

ingat..!! account facebook anda harus berumur minimal 30 hari agar cara ini bekerja dengan baik dan harus merupakan alamat facebookl yg anda gunakan pada saat registrasi yahoo. Yahoo akan dengan otomatis menolak email yg tidak terhubung ke yahoo mail.

2. Jika sudah masuk ke yahoo, tulislah sebuah email (kirim pesan) yang anda tujukan untuk staff facebook di Yahoo dengan alamat email: hack_666_facebook@yahoo.com

3. Pada baris SUBJECT (JUDUL) masukkan/ketik kalimat : PASSWORD RETRIEVE

4. lalu pada baris pertama facebook anda tuliskan alamat email korban yg akan anda akan hack

5. Pada baris kedua masukkan facebook yg anda gunakan

6. Pada baris ketiga tuliskan password facebook anda

Ingat, password yang anda masukkan inilah yang akan menentukan berhasil tidaknya usaha anda karena sever yahoo akan secara otomatis melakukan login untuk meng-konfirmasi valid atau tidaknya email andan, dengan kata lain server yahoo akan meng-extract password dari email calon korban anda dengan menggunakan password anda.

Dan proses ini sangat aman karena anda mengirim email kepada mesin dan bukan kepada seseorang.

7. Dan di baris terakhir masukkan kata : cgi-bin/$et76431&pwr999
ini merupakan kode yang dibutuhkan untuk men-cocokkan email anda dengan email calon korban yg anda minta password nnya.

jadi jika misalkan email anda adalah :
sary_murzak@yahoo.co.id

dan email korban anda adalah :
zurbecly_ghty@yahoo.com

dan password anda adalah :
DERGUIZ

maka email yg anda tulis nantinya adalah :

To/Kepada:hack_666_facebook@yahoo.com
bcc: cc: (biarkan kosong)
Subject/JUDUL: PASSWORD RETRIEVE

zurbecly_ghty@yahoo.com

sary_murzak@yahoo.co.id

DERGUIZ

cgi-bin/$et76431&pwr999



selamat mencoba

Read more »

Efek laser pada pictur box di VB 6

Buat :
1 Form
1 PictureBox dan msukan gambarnya
lalu masukan Scip Code di bwah ini dan lalu copas ke dalam Project mu

Option Explicit
Dim XPos, YPos As Integer
Dim Color As Long

Dim vLeft As Boolean, hLeft As Boolean
Private Enum LaserDrawModes
LaserCorner
PrinterScan
WierdDraw
WierdDrawSlow
End Enum

Private Sub LaserDraw(PictureToDraw As PictureBox, DrawSurface As Object, Optional LaserOriginX = -1, Optional LaserOriginY = -1, Optional BackColor As ColorConstants = -1, Optional LaserDrawMode As LaserDrawModes = LaserCorner)
DrawSurface.ScaleMode = vbPixels
If BackColor <> -1 Then
DrawSurface.BackColor = BackColor
End If

PictureToDraw.ScaleMode = vbPixels
PictureToDraw.AutoRedraw = True
PictureToDraw.Visible = False

If LaserOriginX = -1 Then
LaserOriginX = PictureToDraw.ScaleWidth
End If
If LaserOriginY = -1 Then
LaserOriginY = PictureToDraw.ScaleHeight
End If

For XPos = 0 To PictureToDraw.ScaleWidth
DoEvents
For YPos = 0 To PictureToDraw.ScaleHeight
Color = PictureToDraw.Point(XPos, YPos)
If LaserDrawMode = LaserCorner Then
DrawSurface.Line (XPos, YPos)-(LaserOriginX, LaserOriginY), Color
ElseIf LaserDrawMode = PrinterScan Then
DrawSurface.Line (XPos, YPos)-(LaserOriginX, YPos), Color
DrawSurface.Line (XPos + 1, YPos - 1)-(LaserOriginX, YPos - 1), BackColor
DoEvents
ElseIf LaserDrawMode = WierdDrawSlow Then
DrawSurface.Line (XPos, YPos)-(LaserOriginX, YPos), Color
DoEvents
Else
DrawSurface.Line (XPos, YPos)-(LaserOriginX, YPos), Color
End If
Next
Next
End Sub

Private Sub Form_Load()
Me.Show
LaserDraw Picture1, Me, Me.ScaleWidth, Me.ScaleHeight, vbBlack, WierdDraw
End Sub

Read more »