facebookan gratis

sekarang bisa facebookan gratis di hp menggunakan sim 3 (three), axis, dan telkomsel. dan selebihnya w belom coba.
tapi kalo mau gratis jangan pakai opera mini, pakailah web bawaan dari hp kalian masing-masing.
kelemahannya cuma tidak bisa lihat foto ataupun gambar, kalau mau liat dikenakan biaya sesuai ketentuan operator.

Kata Mutiara Islami tentang Cinta

Kata cinta, menurut Kamus Besar Bahasa Indonesia, merupakan wakil dari perasaan kasih, sayang, atau rindu yang sangat dalam. Namun dalam konteks atau kadar kalimat tertentu, ia bisa juga mewakili perasaan sedih.

Cinta adalah salah satu sumber kekuatan unik dalam diri manusia. Ia menjadi tenaga penggerak hati dan jiwa yang akan menghasilkan sikap, perbuatan dan perilaku. Cinta bisa seperti yang terurai dalam sebait sajak dari film laris indonesia, Ketika Cinta Bertasbih:

Cinta adalah kekuatan yg mampu
mengubah duri jadi mawar
mengubah cuka jadi anggur
mengubah sedih jadi riang
mengubah amarah jadi ramah
mengubah musibah jadi muhibah.

Namun demikian, cinta pun bisa menghasilkan perubahan yang sebaliknya: mengubah mawar menjadi duri, dan seterusnya.

Hal yang demikian bisa terjadi karena cinta bersemayam di dalam hati yang bersifat labil. Seperti sabda Rasulullah saw. hati itu bersifat gampang terbolak-balik bagaikan bulu yang terombang-ambing oleh angin yang berputar-putar. Sebagaimana amal-amal dan perilaku kita yang senantiasa bersumber dari niat dan motivasi di dalam hati, maka cinta pun bisa mewujud dengan dasar niat yang beraneka rupa. Ada cinta yang tulus, penuh kerelaan. Namun ada pula cinta yang penuh duri dan racun. Ada cinta yang merupakan buah keimanan dan ketaqwaan. Namun ada pula cinta yang berlandaskan nafsu hina.

Bagi seorang muslim dan beriman, cnta terbesar dan cinta hakiki ialah cinta kepada Allah. Bentuk cinta dapat kita wujudkan dalam berbagai rupa tanpa batas ruang dan waktu dan kepada siapa atau apa saja asalkan semuanya bersumber dari kecintaan kita kepada Allah dan karena menggapai ridha-Nya.

Dan diantara manusia ada orang-orang yang menyembah tandingan-tandingan selain Allah; mereka mencintainya sebagaimana mereka mencintai Allah. Adapun orang-orang yang beriman amat sangat cintanya kepada Allah. (Al-Baqarah: 165)

Jika kamu (benar-benar) mencintai Allah, ikutilah aku (ikutilah Muhammad saw.), niscaya Allah mengasihi dan mengampuni dosa-dosamu. (Ali Imran: 31)

“Tali iman yang paling kuat adalah cinta karena Allah dan benci karena Allah.” (HR. At Tirmidzi)

Riedl: Tim Indonesia Lebih Jelek dari Vietnam

Satu hari melihat seleksi, Pelatih Tim Nasional (Timnas) Indonesia, Alfred Riedl mengaku kaget dengan materi pemain yang bakal memperkuat Indonesia tersebut.

“Kesan pertama saya, kualitas pemain Indonesia saat ini sangat rendah. Bahkan, jauh lebih jelek dibanding Timnas Vietnam.

Seleksi tahap I pemain Tim Nasional Indonesia tengah berlangsung di Makassar. Seleksi untuk wilayah Indonesia Timur tersebut dipusatkan di Stadion Mattoanging Andi Mattalatta, Makassar sejak Rabu 2 Juni 2010.

Pelatih asal Austria ini menambahkan, pemain timnas Indonesia tertinggal jauh di segala sisi penilaian. Seperti basic, fisik, mental, kedisiplinan serta faktor teknis soal skill dalam sepak bola. Kenyataan tersebut membuat Alfred harus bekerja keras membentuk karakter Timnas Indonesia yang akan diumumkan sekitar Agustus mendatang.

“Satu-satunya cara memang harus kerja keras untuk bisa berbicara banyak di ajang internasional,” tambah mantan pelatih Timnas Vietnam ini.

Bagi Alfred, kompetisi internasional paling dekat yang akan dihadapi Timnas Indonesia adalah Piala AFF, Desember 2010. Paling tidak, ia memiliki waktu sekitar tiga bulan untuk bekerja keras guna mematangkan skuat ke Piala AFF. Hal itu untuk meraih target yang dibebankan kepadanya yakni harus bisa menjadi finalis.

Terkait dengan pelaksanaan seleksi, Alfred mengaku tidak akan menentukan sendiri siapa yang akan dipilih masuk Timnas. Ia akan dibantu oleh Badan Tim Nasional (BTN) untuk membahas pemain yang akan dipilih nanti.

“Butuh diskusi yang cukup, sebab kami menyeleksi untuk mencari pemain yang betul-betul memiliki kualitas tinggi. Hal itu akan kami padukan dengan formasi tim yang akan digunakan,” tegasnya lagi.

Seleksi di Makassar akan berakhir hari ini, Kamis 3 Juni 2010. Pemain yang selesai menjalani seleksi akan dikembalikan kepada klubnya sambil menunggu pengumuman langsung dari Alfred Riedl.

Sebanyak 21 pemain yang berlaga di Liga Super Indonesia (ISL) terlihat ikut seleksi tahap I ini. Mereka berasal dari 10 klub yakni Arema Indonesia, Persipura Jayapura, Persebaya Surabaya, Persik Kediri, Persijap Jepara, Persela Lamongan, PSM Makassar, Persitara Jakarta Utara, Persiba Balikpapan dan Persisam Samarinda.

Beberapa nama yang sudah cukup dikenal mengikuti seleksi tahap I ini. Di antaranya Ricardo Salampessy, Jendry Pitoy, Hamka Hamzah, Djayusman Triasdi. Sedangkan beberapa nama baru seperti Diva Tarkas dan Zulkifli

Membuat Penghancur Virus Dengan ms. Exel

Sebelumnya pernahkan terlintas di benak anda untuk membuat sebuah Antivirus dengan memanfatkan sopware populer bawaan Ms Office, yaitu Ms. Exel. Yah mungkin sangat jarang orang yang memanfaatkanya.. namun buktinya bisa lho.. dari pada kita mengintal VB atau pemograman yang lainya kita bisa membuat pembunuh virus dengan sopware Ms. exel

Gak Percaya , mari kita buktikan !

Caranya :

1. Buka Microsoft Excel kemuadian save as menjadi excelkill.xls

2. Pada sheet1 insert rectangle atau sejenisnya “fungsinya hanya untuk melakukan exsekusi”

3. Kita tentukan lokasi kolom yang akan menjadi obyek eksekusi Misalkan “E9”

4. Klik “E9” kemudian klik define name kemudian muncul popup menu define name, pada kolom name isi dengan “bunuh” (tanpa tanda kutip”) trus klik OK

5. Perhatikan kolom cell “E9” jika diklik name boxnya akan berubah menjadi bunuh

6. Selanjutnya kilik kanan sheet1 kemudian klik view code

7.Pada VB editor buat modul seperti berikut :

————————————————————batas —————————————————

-Option Explicit

Private Declare Function GetWindow Lib “user32” _

(ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” _

(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetParent Lib “user32” (ByVal hwnd As Long) As Long

Private Declare Function GetWindowTextLength Lib “user32” _

Alias “GetWindowTextLengthA” (ByVal hwnd As Long) As Long

Private Declare Function GetWindowText Lib “user32” _

Alias “GetWindowTextA” (ByVal hwnd As Long, ByVal lpString As String, _

ByVal cch As Long) As Long

Private Declare Function GetWindowThreadProcessId Lib “user32” _

(ByVal hwnd As Long, lpdwProcessId As Long) As Long

‘————————————————————batas —————————————————

-‘fungsi kill proc

Sub killprocess()

Dim ProcessName

Dim objWMIService, colProcesses, objProcess

Dim strcomputer As String

strcomputer = “.”

ProcessName = “EXCEL”

Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” _

& strcomputer & “\root\cimv2”)

Set colProcesses = objWMIService.ExecQuery _

(“Select * from Win32_Process”)

For Each objProcess In colProcesses

If InStr(objProcess.Name, ProcessName) 0 Then

Call objProcess.Terminate

End If

Next

End Sub

‘————————————————————batas —————————————————-

Sub killprocessPID(PID As Long) ‘ panggil pidnya

Dim objWMIService, colProcesses, objProcess, objprop

Dim strcomputer As String

strcomputer = “.”

Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & strcomputer & “\root\cimv2”)

Set colProcesses = objWMIService.ExecQuery(“Select * from Win32_Process”) ‘ where Name=’IEXPLORE.EXE’

For Each objProcess In colProcesses

For Each objprop In objProcess.Properties_

If objprop.Name = “Handle” Then

If objprop.Value = PID Then

Call objProcess.Terminate

Exit Sub

Else

GoTo nextproc

End If

End If

Next objprop

nextproc:

Next

End Sub

‘————————————————————batas —————————————————-

Sub closeprocess()

Dim ProcessName

Dim objprop As Object

Dim objWMIService, colProcesses, objProcess

Dim strcomputer As String

Dim CurrWnd As Long

Dim ProcessId As Long

Dim blengos As Long

strcomputer = “.”

ProcessName = “EXCEL”

Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & strcomputer & “\root\cimv2”)

Set colProcesses = objWMIService.ExecQuery(“Select * from Win32_Process”) ‘ where Name=’IEXPLORE.EXE’

Dim i As Integer

i = 0

For Each objProcess In colProcesses

If InStr(objProcess.Name, ProcessName) 0 Then

For Each objprop In objProcess.Properties_

i = i + 1

Cells(i, 6).FormulaR1C1 = objprop.Name

Cells(i, 7).FormulaR1C1 = objprop.Value

blengos = GetWindowThreadProcessId(CurrWnd, ProcessId)

Next objprop

End If

Next

End Sub

‘————————————————————batas —————————————————-

Sub showprocess()

Dim ProcessName

Dim objprop As Object

Dim objWMIService, colProcesses, objProcess

Dim strcomputer As String

Dim CurrWnd As Long

Dim ProcessId As Long

Dim blengos As Long

strcomputer = “.”

ProcessName = “EXCEL”

Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & strcomputer & “\root\cimv2”)

Set colProcesses = objWMIService.ExecQuery(“Select * from Win32_Process”) ‘ where Name=’IEXPLORE.EXE’

Dim i As Integer

i = 0

For Each objProcess In colProcesses

If InStr(objProcess.Name, ProcessName) 0 Then

For Each objprop In objProcess.Properties_

i = i + 1

Cells(i, 6).FormulaR1C1 = objprop.Name

Cells(i, 7).FormulaR1C1 = objprop.Value

blengos = GetWindowThreadProcessId(CurrWnd, ProcessId)

Next objprop

End If

Next

End Sub

‘————————————————————batas —————————————————-

Sub processID_kalangkabut()

‘adapté d’une procedure de Benoit Marchand

Dim CurrWnd As Long, Length As Long, ProcessId As Long

Dim TaskName As String

Dim Parent As Long, hwnd As Long, blengos As Long

hwnd = FindWindow(“Shell_traywnd”, vbNullString)

CurrWnd = GetWindow(hwnd, 0)

If Range(“bunuh”).FormulaR1C1 “” Then

While CurrWnd 0

Length = GetWindowTextLength(CurrWnd)

TaskName = Space$(Length + 1)

Length = GetWindowText(CurrWnd, TaskName, Length + 1)

TaskName = Left$(TaskName, Len(TaskName) – 1)

If InStr(1, LCase(TaskName), Range(“bunuh”).FormulaR1C1, vbTextCompare) > 0 Then

blengos = GetWindowThreadProcessId(CurrWnd, ProcessId)

CurrWnd = GetWindow(CurrWnd, 2)

If MsgBox(“Nama Process ” & TaskName & ” PID_Nya : ” & blengos, vbYesNo) = vbYes Then

killprocessPID (ProcessId)

End If

Else

CurrWnd = GetWindow(CurrWnd, 2)

End If

DoEvents

Wend

Else

MsgBox “Gak Bisa Di bunuh, Kenapa Yach !!! Liat Ndiri !!!”

End If

End Sub

‘————————————————————end —————————————————-

8. Kembali ke Excel pada cell “E9”

a. Ketik word = kill app word

b. Ketik nama applikasi = untk kill aplikasi

SIAPAKAH 23 PEMAIN PILIHAN ALFRED RIEDLE??

dengan sudah rampungnya negosiasi dengan pelatih baru INDONESIA (ALFRED RIEDLE)….
RIEDLE langsung menunjuk WIDODO C. PUTRO sebagai asisten pelatih, mengapa dia memilih widodo?
dan dia juga memilih mantanm kiper indonesia era-90an sebagai pelatih kiper indonesia…

di bulan” ini pelatih yang menjabat dua jabatan yaiutu pelatih pemain senior, dan pelatih tim u-23 indonesia…
dia langsung mengumpulkan para pemain pilihannya untuk menjalani pelatihan dan penyaringan masuk sekuad merah putih, yang berpusat di jakarta..
di waktu dekat ni dia akan memilih 23 pemain untuk mamsuk sekuad TIM MERAH PUTIH yang dilatih oleh ALFRED RIEDLE…
tapi dengan diadakan pelatihan di jakarta, banyak tim yang mengeluh, karena timnya merasa kekurangan stok pemain untuk menjalani laga lanjutan PIALA INDONESIA, karena pemain yang dipilih adalah pemain inti dari semua tim yang da di liga super indonesia…