Siapa

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Dia

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Siapa

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Kamu

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

SiapaKamuSiapaDia.BlogSpot.Com

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Pages

Selasa, 31 Oktober 2017

Tanda-tanda Akhir Zaman


    Selama beribu-ribu tahun lamanya manusia telah hidup di dunia zaman telah berlalu dan mengalami perubahan sesuai dengan perkembangan hidup manusia (baca perkembangan islam abad pertengahan) . Islam sendiri meyakini bahwa manusia saat ini tengah hidup di akhir zaman dan hari kiamat atau hari akhir dibangkitkannya manusia akan segera tiba.
    Meskipun tidak ada yang mengetahui kapan hari kiamat itu akan datang kecuali Allah Subhanahu Wa Ta’ala. Setiap umat Islam tentunya harus mengimani hari akhir atau hari kiamat tersebut karena pada hari tersebut manusia yang sudah mati akan dibangkitkan kembali dan dihisab amal perbuatannya(baca fungsi iman kepada Allah SWT). Hari kiamat atau yang dikenal dengan hari akhir zaman atau yaumul akhir adalah hari dimana umat manusia akan dibangkitkan oleh Allah subhanahu wa ta’ala dan ditimbang amal perbuatannya.
    Tanda-tanda Akhir Zaman
    Meskipun tidak ada seorangpun yang tahu kapan akan datang hari kiamat ada beberapa hal yang menandai bahwa manusia saat ini tengah berada di akhir zaman atau yang dikenal dengan sebutan Asyrath as saah dan kejadiant tersebut terjadi sekali maupun berulang-ulang. Berikut adalah tanda tanda akhir zaman :
    1. Diutusnya Nabi Muhammad SAW
    Rasulullah SAW adalah Rasul penutup yang menandakan bahwa kaum manusia saat ini adalah kaun yang hidup di akhir zaman.  Rasul bersabda (baca keutamaan cinta kepada Rasulullah SAW bagi umatnya)
     ‘(Masa) diutusnya aku dan (hari terjadinya) Kiamat seperti dua (jari) ini’.”(Anas Radhiyallahu ‘Anhu) berkata, “Dan beliau Shallallahu ‘Alaihi wa Sallam merapatkan jari telunjuk dengan jari tengahnya.” (HR. Muslim).
    1. Wafatnya Nabi Muhammad SAW
    Dalam suatu hadits Rasul bersabda
    ‘Hitunglah enam (tanda) menjelang datangnya hari Kiamat  dan beliau Shallallahu ‘Alaihi wa Sallam menyebutkan diantaranya : ‘Kematianku’.” (HR. Al-Bukhari).
    1. Penaklukan Baitul Maqdis
    Penaklukan baitul maqdis atau yang dikenal dengan masjidil aqsa di Palestina adalah salah satu tanda akhir zaman khususnya yang terjadi pada tahun ke 16 H sebagaimana yang disebutkan dalam hadits (baca sejarah peradaban islamdan peninggalan sejarah islam)
    ‘Hitunglah enam (tanda) menjelang datangnya hari Kiamat  dan beliau Shallallahu ‘Alaihi wa Sallam menyebutkan diantaranya : ‘Penaklukan Baitul Maqdis’.” (HR. Al-Bukhari).
    1. Mewabahnya Tha’un ‘Amwas
    Rasul bersabda :
    “Hitunglah enam (tanda) menjelang datangnya hari Kiamat dan beliau Shallallahu ‘Alaihi wa Sallam menyebutkan diantaranya : ‘Kemudian banyaknya kematian yang menimpa kalian bagaikan penyakit (qu’ash1) kambing’.” (HR. Al-Bukhari).
    Ibnu Hajar berpendapat bahwa wabah penyakit tha’un ‘amwas sudah merebak saat masa  kekhalifahan ‘Umar bin Khatab atau pasca penaklukan baitul maqdis. Wabah tersebut terjadi pada tahun 18 H dan menewaskan lebih dari 25000 jiwa.
    1. Berlimpahnya Harta Hingga Tidak Ada Yang Menerima Sedekah
    Disebutkan dalam hadits rasulullah tanda akhir zaman yang lain adalah berlimpahnya harta dan sulitnya menemukan orang untuk diberi sedekah. (baca keutamaan bersedekah)
    “Tidak akan terjadi hari Kiamat hingga harta benda banyak pada kalian, lalu melimpah ruah, sampai-sampai menyusahkan pemilik harta (mencari) orang yang menerima sedekah darinya, dan seorang dipanggil (untuk) menghadapnya, lalu dia berkata, ‘Aku tidak memiliki keperluan terhadapnya’.” (HR. Al-Bukhari dan Muslim).
    1. Munculnya Beragam Fitnah
    Fitnah yang dimaksud disini adalah cobaan atau ujian. Sebagaimana tanda ini disebutkan dalam suatu hadits
    “Sesungguhnya menjelang datangnya hari Kiamat (terjadi) banyak fitnah,bagaikan bagian malam yang gelap gulita. Seseorang yang di pagi hari dalam keadaan beriman, dan di sore harinya menjadi kafir. (Ada) yang di sore harinya dalam keadaan beriman, dan di pagi harinya menjadi kafir. Orang yang duduk di saat itu lebih baik daripada orang yang berdiri, orang yang berdiri di saat itu lebih baik daripada orang yang berjalan, dan orang yang berjalan saat itu lebih baik daripada orang yang berlari. Maka patahkanlah busur-busur kalian, putuskanlah tali-tali busur kalian, dan pukulkanlah pedang-pedang kalian ke batu. Jika (rumah) salah seorang dari kalian dimasuki (fitnah), maka jadilah seperti yang terbaik dari kedua anak Adam (Habil).” (HR. Imam Ahmad, Abu Dawud, Ibnu Majah, dan al-Hakim)
    1. Banyaknya Nabi Palsu
    Bermunculannya nabi palsu adalah salah satu tanda akhir zama. Pada masa Rasulullah sendiri setelah Rasul wafat ada beberapa orang yang mengaku sebagai nabi diantaranya yaitu Musailamah al kazzab, Thulaihah bin Khuwailid al-Asadi,serta di masa ini juga muncul nabi palsu seperti Mirza ahmad al qadiyani yang berasal dari India.  Rasul bersabda
    “Tidak akan terjadi hari Kiamat hingga dibangkitkan ‘para dajjal (pendusta)’ yang (jumlahnya) mendekati tiga puluh, semuanya mengaku bahwa mereka adalah utusan Allah (Rasulullah).” (HR Bukhari)
    1. Tersebarnya Stabilitas Keamanan
    Tanda akhir zaman yang lainnya adalah rasa aman dalam diri manusia dan keamanan yang terjamin disetiap negara. Rasul bersabda
    ‘Tidak akan terjadi Kiamat hingga seseorang pengendara (kendaraan)berjalan di antara Irak dan Mekkah tidak merasa takut kecuali (takut) tersesat di jalan’.” (HR Ahmad)
    1. Fenomena Api Hijaz
    Munculnya api Hijaz pada pertengahan abad ke 7 H yakni pada tahun 654 H adalah salah satu pertanda akhir zaman sesuai dengan sabda nabi Muhammad SAW
    “Tidak akan terjadi hari Kiamat sampai api keluar dari tanah Hijaz yang menerangi leher-leher unta di Bashra.” 
    1. Peperangan dengan Bangsa Turki
    Imam Muslim meriwayatkan dari Abu Hurairah RA bahwa Rasululullah SAW bersabda:  “Tidak akan terjadi hari Kiamat hingga kaum muslimin memerangi bangsa Turki, yaitu kaum yang wajah-wajahnya seperti tameng yang dilapisi kulit, mereka memakai (pakaian) yang terbuat dari bulu, dan berjalan (dengan sandal) yang terbuat dari bulu.” (HR Muslim) (baca juga perkembangan islam di Eropa)
    1. Peperangan dengan Bangsa ‘Ajam
    Sesungguhnya rasul bersabda bahwa :
    “Tidak akan terjadi hari Kiamat sampai kalian memerangi bangsa Khuz dan bangsa Karman dari kalangan ‘Ajam, bermuka merah, berhidung-hidung pesek, bermata sipit, wajah-wajah mereka bagaikan tameng yang dilapisi kulit, dan sandal-sandal mereka terbuat dari bulu.” (HR. Al-Bukhari)
    1. Hilangnya Amanat
    Salah satu tanda akhir zaman adalah hilangnya amanat pada suatu kaum. Sesuai dengan hadits Rasulullah
    ‘Jika amanat telah disia-siakan, maka tunggulah Kiamat.’ (Abu Hurairah ra) bertanya, ‘Wahai Rasulullah, bagaimana amanat itu disia-siakan?’ Beliau Shallallahu ‘Alaihi wa Sallam menjawab, ‘Jika urusan diserahkan kepada selain ahlinya, maka tunggulah Kiamat!’.” (HR. Al-Bukhari)
    1. Diangkatnya ilmu dan fenomena Kebodohan
    Wafatnya para ulama dan mereka yang berilmu adalah salah satu tanda akhir zaman dan kiamat sudah dekat. Sebagaimana yang disebutkan dalam hadits berikut  (baca juga islam dan ilmu pengetahuan)
     “Sesungguhnya Allah tidak mencabut ilmu langsung dari para hamba, tetapi mencabut ilmu dengan mewafatkan para ulama, sehingga ketika tidak tersisa lagi seorang alim, maka manusia akan menjadi orang-orang bodoh sebagai pemimpin, lalu mereka ditanya, kemudian mereka akan memberikan fatwa tanpa ilmu, maka mereka seat lagi menyesatkan orang lain.” (HR. Al-Bukhari dan Muslim)
    1. Banyaknya Pasukan dan Pendukung Kezhaliman
    Makin maraknya orang dan pendukung kezhaliman adalah salah satu tanda akhir zaman. Rasul bersabda
    Dua kelompok manusia penghuni neraka yang belum pernah aku lihat, (yaitu) golongan orang-orang yang membawa cemeti seperti buntut sapi, mereka memukuli manusia dengannya ”(HR Muslim)
    1. Merebaknya Perzinaan
    Masalah zina saat ini bukan lagi jadi rahasia besar dan hal yang tabu khususnya di negara barat. Hal ini adalah salah satu pertanda bahwa akhir zaman telah tiba sebagaimana yang disebutkan dalam hadits rasulullah SAW bersabda : (baca juga cara bertaubat dari zina dan amalan penghapus dosa zina)
    ‘Sesungguhnya diantara tanda-tanda Kiamat adalah ………’ dan beliau Shallallahu ‘Alaihi wa Sallam menyebutkan diantaranya : ‘Merebaknya perzinaan’.”
    1. Merajalelanya praktek riba
    Riba adalah suatu perbuatan mengambil keuntungan dari harta yang dipinjamkan dan hal ini dilarang dalam islam. Merajalelanya praktek riba yang dilakukan oleh bank modern saat ini adalah salah satu tanda akhir zaman sebagaimana disebutkan dalam hadits berikut (baca juga cara menghindari riba dan hukum riba dalam islam)
    Sungguh akan datang suatu zaman pada manusia, seseorang tidak peduli (lagi) dengan (status) kehalalan atau keharaman harta yang ia peroleh” (HR Bukhari)
    1. Fenomena anggapan alat musik adalah halal
    Tanda yang lain adalah musik yang semakin merebak dan orang menganggapnya halal. Sebagaimana disebutkan dalam hadits
    “Kelak terjadi dari umatku beberapa kaum yang menghalalkan zina, sutra, khamer dan alat-alat musik. Dan sungguh ada beberapa kaum yang akan singgah di suatu pegunungan yang tinggi, pada sore harinya (seorang pengembala) menjambangi mereka dengan membawa hewan ternaknya,  mereka didatangi –oleh pengembala fakir itu- untuk suatu kebutuhan, lalu mereka berkata: ‘Kembalilah kepada kami besok.’ Maka di malam harinya Allah (membinasakan) mereka dan hancurlah gunung tersebut, dan merubah sebagian mereka menjadi kera dan babi sampai hari kiamat.”
    1. Maraknya peredaran Minuman Keras atau khamer
    Minuman keras atau minuman beralkohol haram hukumnya dan salah satu tanda akhir zaman adalah merebaknya khamer atau minuman keras tersebut. Sebagaimana disebutkan dalam hadits berikut (baca juga minuman haram menurut islam)
    ‘Diantara tanda-tanda Kiamat adalah ………..dan beliau Shallallahu ‘Alaihi wa Sallam menyebutkan diantaranya : ‘(Maraknya) minuman khamer ’.” (HR Muslim)
    1. Berlomba-lomba Menghiasi Masjid
    Sebagaimana yang diriwayatkan oleh  Ibnu Abbas RA bahwa Rasul bersabda :
    “Sungguh kamu akan menghiasinya (masjid-masjidmu) sebagaimana bangsa Yahudi dan Nashrani menghias (tempat-tempat ibadah mereka).” (HR. Al-Bukhari)
    1. Berlomba-lomba Meninggikan Bangunan
    Saat ini setiap negara dan wilayah berlomba-limba mendirikan gedung yang tinggi dan hal ini  adalah salah satu tanda akhir zaman. Sebagaimana yang disebutkan dalam hadits
    “Dan bahwa engkau (akan) menyaksikan orang yang bertelanjang kaki dan badan, lagi miskin yang mengembala domba, berlomba-lomba meninggikan bangunan.” (HR Muslim)
    1. Budak Wanita Melahirkan Tuannya
    Tanda selanjutnya adalah adanya seorang wanita yang melahirkan tuannya, maksudnya adalah sang ibu nantinya akan melayani anak yang ia lahirkan seperti tuannya. Seperti yang disebutkan dalam hadits
     “Aku kabarkan kepadamu tentang tanda-tandanya, (yaitu) jika seorang budak wanita melahirkan tuannya.” (Muttafaqun ‘Alaihi)
    1. Maraknya Pembunuhan
    Banyaknya kasus pembunuhan keji yang terjadi saat ini adalah salah satu pertanda akhir zaman yang disebutkan dalam hadits berikut
    “Tidak akan datang hari Kiamat hingga banyak al-harj.” Mereka bertanya, “Wahai Rasulullah, apakah al-harj itu?” Beliau menjawab, “Pembunuhan, pembunuhan.” (HR. Muslim).
    1. Zaman Semakin Singkat
    Semakin cepatnya waktu berlalu adalah salah satu pertanda bahwa kiamat sudah semakin dekat/  Dari Abu Hurairah RA, “Rasulullah SAW bersabda :
    “Tidak akan terjadi hari Kimat hingga zaman semakin singkat, maka jadilah setahun bagaikan sebulan, sebulan bagaikan sepekan, sepekan bagaikan hari jum’at seperti sehari, sehari bagaikan sejam, dan sejam bagaikan seperti terbakarnya pelepah pohon kurma (cepat sekali, pent.).” (HR Ahmad, at-Tirmidzi, dan Al-Albani meshahihkannya).
    1. Pasar Semakin berdekatan
    Semakin merebaknya pasar atau tempat berjual beli adalah salah satu tanda akhir zaman. Rasul bersabda
     “Tidak akan terjadi hari Kiamat hingga muncul berbagai fitnah, banyaknya kebohongan dan berdekatannya pasar.” (HR. Ahmad)
    1. Fenomena Kemusyrikan
    Sesungguhnya rasul bersabda dan menyebutkan bahwa salah satu pertanda akhir zaman adalah banyaknya fenomena kemusyrikan atau orang yang menyekutukan Allah SWT sebagaimana disebutkan dalam hadits berikut (baca syirik dalam islam)
     “Jika pada umatku pedang telah diletakkan, maka ia tidak akan pernah diangkat darinya sampai hari Kiamat, dan tidak akan terjadi hari Kiamat hingga beberapa kabilah dari umatku mengikuti kaum musyrikin, dan beberapa kabilah dari umatku menyembah berhala.”
    1. Menjamurnya Perbuatan dan Ucapan Keji atau Fasha, Putusnya Silaturahmi, dan Buruknya Hubungan antar tetangga
    Tanda akhir zaman yang lainnya adalah orang semakin mudah berbuat dan berkata keji, semakin mudahnya memutus silaturahmi dan hubungan antar tetangga yang buruk, sebagaimana yang disebutkan dalam hadits berikut
     “Tidak akan terjadi hari Kiamat hingga muncul (banyak) perbuatan dan perkataan keji, pemutusan silaturahmi, dan jeleknya hubungan bertetangga.” 
    1. Orangtua Bergaya Anak Muda
    Tanda akhir zaman ini banyak kita temui saat ini, para orangtua yang berpakaian dan bertingkah laku seperti anak muda. Hal ini disebutkan dalam hadits berikut
     ‘Akan ada di akhir zaman satu kaum yang menyemir rambut mereka dengan warna hitam bagaikan dada burung merpati, mereka tidak akan pernah mencium harumnya surga’.” (HR. Ahmad).
    1. Maraknya kekikiran
    Semakin banyak orang kikir dan merebaknya kebakhilan adalah salah satu tanda akhir zaman yang disebutkan dalam hadits berikut
     “Zaman semakin berdekatan, amal berkurang dan kekikiran dilemparkan (ke dalam hati).” (HR. Al-Bukhari)
    1. Maraknya Perdagangan
    Perdagangan yang banyak dipraktekkan saat ini adalah salah satu tanda akhir zaman yang disebutkan oleh rasulullah SAW
     “Menjelang datangnya hari Kiamat, salam hanya diucapkan kepada orang-orang tertentu, dan merebaknya perdagangan hingga seorang wanita turut serta (bersama) suaminya dalam berdagang.”
    1. Banyaknya Peristiwa Gempa Bumi
    Bumi yang didiami oleh manusia semakin tua dan pergeseran lempeng benua yang menua membuat gempa semakin sering terjadi. Hal ini adalah salah satu tanda akhir zaman. Rasulullah SAW bersabda
     “Tidak akan terjadi hari Kiamat hingga terjadi banyak peristiwa gempa bumi.” (HR. Al-Bukhari)
    1. Banyaknya Orang-Orang yang Ditenggelamkan ke Dalam Bumi, Diubah Raut Wajahnya dan Dilempar Batu
    Tanda terakhir yang menjadi pertanda datangnya kiamat semakin dekat, disebutkan dalam hadits berikut ini
     “Akan ada pada akhir umatku (orang-orang) yang ditenggelamkan ke dalam bumi, dirubah rawut wajahnya, dan dilempari (batu).” Aisyah Radhiyallahu ‘Anha berkata: ‘Aku bertanya, (Wahai Rasulullah, apakah kami akan dibinasakan sementara masih ada orang-orang soleh ditengah-tengah kami?. Beliau menjawab, “Benar, ketika kemaksiatan telah merajalela.”
    Demikian tanda-tanda akhir zaman yang telah terjadi dan berlangsung hingga saat ini. Untuk itulah seorang umat muslim harus senantiasa waspada dan meningkatkan ibadahnya kepada allah SWT karena kiamat pasti akan datang meskipun tanda-tanda kiamat besar belum nampak.

Cara mencari uang / coin dari faucethub



Sebelum kalian memulai, kalian harus tau apa itu faucethub.io


Faucethub.io merupakan salah situs microwallet yang populer dan terpercaya untuk saat ini.
Jangan khawatir takut tidak dibayar untuk mendaftar di situs ini.
Tenang saja. Karena saya sudah membuktikanya sendiri dan tiap minggu saya mendapatkan Ratusan Ribu Satoshi dan bahkan ada yang mendapatkan jutaan satoshi tiap minggu itu semua tergantung dari kerajinan para member untuk mengikuti program yang terdapat pada situs faucethub.

Jika kamu tertarik ingin mengikuti program program yang terdapat pada Situs microwallet ini.

Berikut adalah cara mendaftar di Faucethub.io

1. Pertama kunjungi situs Faucethub.io dengan melalui link Refferal agar mendapatkan Bonus Sebesar 50000 Satoshi.
Isi semua data yang sesuai dan kemudia verifikasi email dan masuk ke akun milikmu.


















2. Anda akan dibawa kehalaman form pendaftaran. Isikan data-data Anda dengan benar sama caranya seperti anda membuka akun di epay.info yang sudah dijelaskan diblog ini.

























3.  Setelah Anda mengisikan data dengan lengkap klik menu Sign up.
4.  Buka email Anda yang sudah Anda isikan di form pendaftaran tadi untuk proses verifikasi, admin faucethub.io secara otomatis mengirimkan link untuk verifikasi di inbox email Anda.

















5.  Klik link verifikasi pada inbox email Anda, 

6. Setelah login sukses silahkan anda isi alamat addres wallet / dompet anda, pilih berdasarkan address coin kalian Currency, Jika kalian belum mempunyai wallet address silakan daftar atau download aplikasi android nya di playstore atau di link ini https://freewallet.org/ setelah selesai jangan lupa klik Link This Address liat seperti di gambar dibawah ini



















7. Tahap selanjutnya adalah mendapatkan coint tersebut, berdasarkan top list faucet, bnyknya terganting dari situs2 tersebut. Klik TOP FAUCETS lalu kalian pilih berdasarkan mata uang coin kalian. lihat gambar















8. kalian pilih top list situs yg memberi coin / satosi yg kalian mau, tinggal klik - klik - isi perintah / capcha. otomatis coin / satosi akan terkerim di layanan faucethub.io jika sudah terkumpul kalian bisa mentransfer / withdraw coin anda ke app freewallet kalian atau dompet kalian berdasarkan minimum yang bisa di withdraw.

9. cara withdraw seperti gambar di bawah ini, masuk ke menu dashboard - withdraw pilih address wallet kalian. ketikan jumlah nya di kolom Amount. lihat gambar di bawah ini.


















10. Selesai. itu contoh saya wd dan sukses..........

XAMPP WIN32 1.8.1 VC9


Bagi kalian yang sulit instal xampp untuk server di windows Xp dikarnakan tidak bisa menjalankan httpd.exe / "httpd is not valid win32 application".
saya sarankan gunakan versi ini XAMPP WIN32 1.8.1 VC9

Klik DOWNLOAD

VPS Murah / Dedicated Servers

Bagi kalian yang membutuhkan VPS murah namun berkualitas
saya rekomendasi DI SINI Tempatnya
Kelebihan Menurut saya pribadi.
Harga murah
Berkualitas
Pilihan OS banyak
Setup Instan
dari Linux sampai windows pun tersedia macam2 nya, di cek aja deh biar kalian gak penasaran.

Ini Link nya gan => routerhosting


Senin, 30 Oktober 2017

Load PNG Visual basic 06 / vb6

Buatlah sebuah project baru, dan masukan Script dibawah ini : 
Tambahkan di form1  PictureBox = Picture1 , CommandButton = Command1, dan
Tambah kan Module isi kan script Modul dibawah ini


'=====ADD to FORM1======
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Sub Command1_Click()
 Dim Token As Long
 Dim C As Long
 
 C = Me.BackColor
 
 If C < 0 Then C = GetSysColor(C - &H80000000)
 
 Token = InitGDIPlus
 
 Picture1.Picture = LoadPictureGDIPlus(App.Path & "\2.png")
 
 FreeGDIPlus Token
End Sub



'=====ADD to Module1======
Option Explicit

Private Type GUID
   Data1    As Long
   Data2    As Integer
   Data3    As Integer
   Data4(7) As Byte
End Type

Private Type PICTDESC
   size     As Long
   Type     As Long
   hBmp     As Long
   hPal     As Long
   Reserved As Long
End Type

Private Type GdiplusStartupInput
    GdiplusVersion           As Long
    DebugEventCallback       As Long
    SuppressBackgroundThread As Long
    SuppressExternalCodecs   As Long
End Type

Private Type PWMFRect16
    left   As Integer
    top    As Integer
    Right  As Integer
    Bottom As Integer
End Type

Private Type wmfPlaceableFileHeader
    Key         As Long
    hMf         As Integer
    BoundingBox As PWMFRect16
    Inch        As Integer
    Reserved    As Long
    CheckSum    As Integer
End Type

' GDI Functions
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PICTDESC, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long
Private Declare Function PatBlt Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long

' GDI+ functions
Private Declare Function GdipLoadImageFromFile Lib "gdiplus.dll" (ByVal FileName As Long, GpImage As Long) As Long
Private Declare Function GdiplusStartup Lib "gdiplus.dll" (Token As Long, gdipInput As GdiplusStartupInput, GdiplusStartupOutput As Long) As Long
Private Declare Function GdipCreateFromHDC Lib "gdiplus.dll" (ByVal hDC As Long, GpGraphics As Long) As Long
Private Declare Function GdipSetInterpolationMode Lib "gdiplus.dll" (ByVal Graphics As Long, ByVal InterMode As Long) As Long
Private Declare Function GdipDrawImageRectI Lib "gdiplus.dll" (ByVal Graphics As Long, ByVal Img As Long, ByVal x As Long, ByVal y As Long, ByVal Width As Long, ByVal Height As Long) As Long
Private Declare Function GdipDeleteGraphics Lib "gdiplus.dll" (ByVal Graphics As Long) As Long
Private Declare Function GdipDisposeImage Lib "gdiplus.dll" (ByVal Image As Long) As Long
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "gdiplus.dll" (ByVal hBmp As Long, ByVal hPal As Long, GpBitmap As Long) As Long
Private Declare Function GdipGetImageWidth Lib "gdiplus.dll" (ByVal Image As Long, Width As Long) As Long
Private Declare Function GdipGetImageHeight Lib "gdiplus.dll" (ByVal Image As Long, Height As Long) As Long
Private Declare Function GdipCreateMetafileFromWmf Lib "gdiplus.dll" (ByVal hWmf As Long, ByVal deleteWmf As Long, WmfHeader As wmfPlaceableFileHeader, Metafile As Long) As Long
Private Declare Function GdipCreateMetafileFromEmf Lib "gdiplus.dll" (ByVal hEmf As Long, ByVal deleteEmf As Long, Metafile As Long) As Long
Private Declare Function GdipCreateBitmapFromHICON Lib "gdiplus.dll" (ByVal hIcon As Long, GpBitmap As Long) As Long
Private Declare Function GdipDrawImageRectRectI Lib "gdiplus.dll" (ByVal Graphics As Long, ByVal GpImage As Long, ByVal dstx As Long, ByVal dsty As Long, ByVal dstwidth As Long, ByVal dstheight As Long, ByVal srcx As Long, ByVal srcy As Long, ByVal srcwidth As Long, ByVal srcheight As Long, ByVal srcUnit As Long, ByVal imageAttributes As Long, ByVal callback As Long, ByVal callbackData As Long) As Long
Private Declare Sub GdiplusShutdown Lib "gdiplus.dll" (ByVal Token As Long)

' GDI and GDI+ constants
Private Const PLANES = 14            '  Number of planes
Private Const BITSPIXEL = 12         '  Number of bits per pixel
Private Const PATCOPY = &HF00021     ' (DWORD) dest = pattern
Private Const PICTYPE_BITMAP = 1     ' Bitmap type
Private Const InterpolationModeHighQualityBicubic = 7
Private Const GDIP_WMF_PLACEABLEKEY = &H9AC6CDD7
Private Const UnitPixel = 2

' Initialises GDI Plus
Public Function InitGDIPlus() As Long
    Dim Token    As Long
    Dim gdipInit As GdiplusStartupInput
 
    gdipInit.GdiplusVersion = 1
    GdiplusStartup Token, gdipInit, ByVal 0&
    InitGDIPlus = Token
End Function

' Frees GDI Plus
Public Sub FreeGDIPlus(Token As Long)
    GdiplusShutdown Token
End Sub

' Loads the picture (optionally resized)
Public Function LoadPictureGDIPlus(PicFile As String, Optional Width As Long = -1, Optional Height As Long = -1, Optional ByVal BackColor As Long = vbWhite, Optional RetainRatio As Boolean = False) As IPicture
    Dim hDC     As Long
    Dim hBitmap As Long
    Dim Img     As Long
     
    ' Load the image
    If GdipLoadImageFromFile(StrPtr(PicFile), Img) <> 0 Then
        Err.Raise 999, "GDI+ Module", "Error loading picture " & PicFile
        Exit Function
    End If
 
    ' Calculate picture's width and height if not specified
    If Width = -1 Or Height = -1 Then
        GdipGetImageWidth Img, Width
        GdipGetImageHeight Img, Height
    End If
 
    ' Initialise the hDC
    InitDC hDC, hBitmap, BackColor, Width, Height

    ' Resize the picture
    gdipResize Img, hDC, Width, Height, RetainRatio
    GdipDisposeImage Img
 
    ' Get the bitmap back
    GetBitmap hDC, hBitmap

    ' Create the picture
    Set LoadPictureGDIPlus = CreatePicture(hBitmap)
End Function

' Initialises the hDC to draw
Private Sub InitDC(hDC As Long, hBitmap As Long, BackColor As Long, Width As Long, Height As Long)
    Dim hBrush As Long
     
    ' Create a memory DC and select a bitmap into it, fill it in with the backcolor
    hDC = CreateCompatibleDC(ByVal 0&)
    hBitmap = CreateBitmap(Width, Height, GetDeviceCaps(hDC, PLANES), GetDeviceCaps(hDC, BITSPIXEL), ByVal 0&)
    hBitmap = SelectObject(hDC, hBitmap)
    hBrush = CreateSolidBrush(BackColor)
    hBrush = SelectObject(hDC, hBrush)
    PatBlt hDC, 0, 0, Width, Height, PATCOPY
    DeleteObject SelectObject(hDC, hBrush)
End Sub

' Resize the picture using GDI plus
Private Sub gdipResize(Img As Long, hDC As Long, Width As Long, Height As Long, Optional RetainRatio As Boolean = False)
    Dim Graphics   As Long      ' Graphics Object Pointer
    Dim OrWidth    As Long      ' Original Image Width
    Dim OrHeight   As Long      ' Original Image Height
    Dim OrRatio    As Double    ' Original Image Ratio
    Dim DesRatio   As Double    ' Destination rect Ratio
    Dim DestX      As Long      ' Destination image X
    Dim DestY      As Long      ' Destination image Y
    Dim DestWidth  As Long      ' Destination image Width
    Dim DestHeight As Long      ' Destination image Height
 
    GdipCreateFromHDC hDC, Graphics
    GdipSetInterpolationMode Graphics, InterpolationModeHighQualityBicubic
 
    If RetainRatio Then
        GdipGetImageWidth Img, OrWidth
        GdipGetImageHeight Img, OrHeight
     
        OrRatio = OrWidth / OrHeight
        DesRatio = Width / Height
     
        ' Calculate destination coordinates
        DestWidth = IIf(DesRatio < OrRatio, Width, Height * OrRatio)
        DestHeight = IIf(DesRatio < OrRatio, Width / OrRatio, Height)
'        DestX = (Width - DestWidth) / 2
'        DestY = (Height - DestHeight) / 2

        DestX = 0
        DestY = 0

        GdipDrawImageRectRectI Graphics, Img, DestX, DestY, DestWidth, DestHeight, 0, 0, OrWidth, OrHeight, UnitPixel, 0, 0, 0
    Else
        GdipDrawImageRectI Graphics, Img, 0, 0, Width, Height
    End If
    GdipDeleteGraphics Graphics
End Sub

' Replaces the old bitmap of the hDC, Returns the bitmap and Deletes the hDC
Private Sub GetBitmap(hDC As Long, hBitmap As Long)
    hBitmap = SelectObject(hDC, hBitmap)
    DeleteDC hDC
End Sub

' Creates a Picture Object from a handle to a bitmap
Private Function CreatePicture(hBitmap As Long) As IPicture
    Dim IID_IDispatch As GUID
    Dim Pic           As PICTDESC
    Dim IPic          As IPicture
 
    ' Fill in OLE IDispatch Interface ID
    IID_IDispatch.Data1 = &H20400
    IID_IDispatch.Data4(0) = &HC0
    IID_IDispatch.Data4(7) = &H46
     
    ' Fill Pic with necessary parts
    Pic.size = Len(Pic)        ' Length of structure
    Pic.Type = PICTYPE_BITMAP  ' Type of Picture (bitmap)
    Pic.hBmp = hBitmap         ' Handle to bitmap

    ' Create the picture
    OleCreatePictureIndirect Pic, IID_IDispatch, True, IPic
    Set CreatePicture = IPic
End Function

' Returns a resized version of the picture
Public Function Resize(Handle As Long, PicType As PictureTypeConstants, Width As Long, Height As Long, Optional BackColor As Long = vbWhite, Optional RetainRatio As Boolean = False) As IPicture
    Dim Img       As Long
    Dim hDC       As Long
    Dim hBitmap   As Long
    Dim WmfHeader As wmfPlaceableFileHeader
 
    ' Determine pictyre type
    Select Case PicType
    Case vbPicTypeBitmap
         GdipCreateBitmapFromHBITMAP Handle, ByVal 0&, Img
    Case vbPicTypeMetafile
         FillInWmfHeader WmfHeader, Width, Height
         GdipCreateMetafileFromWmf Handle, False, WmfHeader, Img
    Case vbPicTypeEMetafile
         GdipCreateMetafileFromEmf Handle, False, Img
    Case vbPicTypeIcon
         ' Does not return a valid Image object
         GdipCreateBitmapFromHICON Handle, Img
    End Select
 
    ' Continue with resizing only if we have a valid image object
    If Img Then
        InitDC hDC, hBitmap, BackColor, Width, Height
        gdipResize Img, hDC, Width, Height, RetainRatio
        GdipDisposeImage Img
        GetBitmap hDC, hBitmap
        Set Resize = CreatePicture(hBitmap)
    End If
End Function

' Fills in the wmfPlacable header
Private Sub FillInWmfHeader(WmfHeader As wmfPlaceableFileHeader, Width As Long, Height As Long)
    WmfHeader.BoundingBox.Right = Width
    WmfHeader.BoundingBox.Bottom = Height
    WmfHeader.Inch = 1440
    WmfHeader.Key = GDIP_WMF_PLACEABLEKEY
End Sub


Minggu, 29 Oktober 2017

Open firefox/chrome via visual basic 6 / vb6

Buatlah sebuah project baru, dan masukan Script dibawah ini :
tambahkan button Command1 dan Command2

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                        ByVal hwnd As Long, _
                        ByVal lpOperation As String, _
                        ByVal lpFile As String, _
                        ByVal lpParameters As String, _
                        ByVal lpDirectory As String, _
                        ByVal nShowCmd As Long) _
                        As Long
Dim Website As String

Private Sub Command1_Click()
    'membuka via http
    Dim Website As String
    Website = "https://siapadiasiapakamu.blogspot.co.id/"
    ShellExecute Me.hwnd, "open", Website, vbNullString, vbNullString, vbNormal
End Sub

Private Sub Command2_Click()
    'membuka via directory
    Website = "C:\Users\suryazone\Desktop\web.html" 'ganti sesuai lokasi yg kamu mau
    Shell ("C:\Program Files (X86)\Mozilla Firefox\Firefox.exe " &amp; Website), vbMinimizedNoFocus
End Sub