Download Windows Media Player 11 dan Windows Media Player 12

Siapa yang tidak tahu software satu ini.. Windows Media Player merupakan media player yang merupakan bagian dari produk windows. Dan saat ini Windows Media Player sudah mencapai versi yang ke 12..!!! Tetapi disini saya tidak akan banyak mengulas tentang windows media player 12 karena saya belum dapat softwarenya hehe...

Untuk tampilan dari Windows Media Player 11 dapat dilihat dari gambar dibawah ini...

Sungguh menawan bukan..??? setelah mencoba windows media player 11 ini kesan pertama saya yaitu "MantaP". Kelebihan dari windows Media player 11 dibandingkan dengan winamp versi 5 atau media player lainnya yaitu kinerja dari program tersebut tidak terlalu membebani komputer. tetapi untuk kemudahan dalam penggunaannya winamp versi 5 masih lebih unggul..!!!

Jadi masih ingin untuk mengupdate Windows media player kamu..!!! kenapa gak download aja di link dibawah ini..

Windows media Player

Untuk informasi tentang fiture baru di Windows media player 12 kamu bisa baca artikelnya di situs arstechnica.com dan untuk link download Windows Media Player 12 kamu bisa cari di gunakan link berikut Windows Media Player 12

Menggunakan Komputer yang diproteksi oleh password

Saat kita main ke rumah teman atau sedang di kampus, seringkali kita ingin menggunakan komputer teman kita atau komputer kampus, tapi kita harus mengurungkan niat kita karena komputer tersebut diproteksi oleh password saat log in. untuk itu disini saya ingin berbagi trik yang sangat mudah, tidak perlu software tertentu atau dengan cara-cara yang aneh. Ide ini saya dapatkan setelah bingung saat ingin menggunakan komputer saya yang diproteksi oleh password. Tapi perlu diingat mungkin trik ini tidak selalu berhasil..!!! karena prinsip dari trik ini yaitu dengan memanfaatkan kecerobohan sang admin.

Ok..!!! Saat pertamakali menyalakan komputer maka akan muncul jendela logon seperti gambar di bawah ini..

Saat jendela log in muncul dan meminta password, tentu hal yang kita lakukan yaitu memasukan kata-kata yang mungkin dijadikan password oleh admin. Tapi jika menolak terus tentunya membuat frustasi juga. Jadi daripada lama kita gunakan cara ini...!!!

1. Tekan ctrl+alt+del (biasanya sih harus 2 x)

2. ketikan kata "Administrator" tanpa tanda petik di user dan untuk kolom password biarkan kosong lalu enter

bagaimana? dapat masuk..???

Nah lho bisa..???? Jadi maksud dari trik ini yaitu biasanya orang membuat account nya dengan nama tertentu sesuai keinginannya sendiri dan memberinya password tetapi kadang sang admin lupa user administratornya tidak di beri password..!!! dan biasanya user administrator tidak muncul (hide).

Tapi jika account administrator juga diberi password dan kita lupa..!!! hmm... Saya belum tahu tuh cara masuknya gimaNa..!!!!! ada yang tahu cara lain..????

Membuat Mp3 Player

Untuk membuat mp3 Player kita hanya membutuhkan beberapa Item yaitu:

1. Commandbutton (5)
2. Listbox (3)
3. CommonControlDialog (1)
4. MediaPlayer (1)

Ket: untuk menambahkan item seperti Mediaplayer dapat menambahkan dengan menekan tombol ctrl+t. Dan untuk mediaplayer, list1 dan list3 ubah properties visible menjadi false. dan ubah nama mediaplayer menjadi player.

Berikut tampilan setelah semua item dimasukan:




Ubah tampilan semenarik mungkin menurut anda..!!!

Masukan source kodenya sebagai berikut:

'---------------------------
Private Sub Command1_Click()
On Error Resume Next
Dim buka As String
With CommonDialog1
.Filter = "All Support*.mp3;*.wav;*.mid;*.wma;*.dat;*.avi;*.wmv;*.mpeg;*.mpgmp3 files*.mp3all files*.*"
.DialogTitle = "ebenk - Open Music files"
.FileName = ""
.ShowOpen
buka = .FileName
If .FileName = "" Then
Exit Sub
Else
List1.AddItem buka
List2.AddItem .FileTitle
End If
End With
End Sub

Private Sub Command2_Click()
Dim main As String
main = List1.Text
If List1.Text = "" Then
MsgBox "Tentukan Lagu Yang Akan Di Mainkan", vbCritical + vbOKOnly, "Konfirmasi"
Else
player.Open main
End If
End Sub

Private Sub Command3_Click()
player.Stop
End Sub

Private Sub Command4_Click()
player.Pause
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub List2_Click()
List1.ListIndex = List2.ListIndex
End Sub

Private Sub List2_DblClick()
Dim main As String
main = List1.Text
player.Open main
End Sub

Private Sub Player_EndOfStream(ByVal Result As Long)
On Error Resume Next
player.Stop
With Form1
If List1.ListIndex = List1.ListCount - 1 Then
List1.ListIndex = 0
.List2.ListIndex = .List1.ListIndex
If List1.ListCount = 1 Then
.List3.ListIndex = .List2.ListIndex
Else
.List3.ListIndex = .List2.ListIndex + 1
End If
Else
.List1.ListIndex = .List1.ListIndex + 1
.List2.ListIndex = .List1.ListIndex
If List1.ListCount = 1 Then
.List3.ListIndex = .List2.ListIndex
Else
.List3.ListIndex = .List2.ListIndex + 1
End If
End If
End With
player.Open List1.Text
End Sub
'-------------------------

Bagaimana apakah masih terjadi bug..???? Untuk source kode diatas tidak perlu dijelaskan lebih terperinci karena semua source kode diatas masih sangat mendasar..!!! Dan program diatas akan menjadi lebih baik jika anda mengembangkan sendiri

Untuk mendownload contoh project diatas silahkan download disini