تکه کد ویژوال بیسیک ۶ برای پخش فایل صوتی در برنامه

در زیر برای شما تکه کدی را می گذارم که با استفاده از آن می توانید به راحتی از صفحه نمایش عکس گرفته و در درایو c با نام scr1.bmp ذخیره کنید
کارکرد این تکه کد خیلی ساده بوده و توسط api های ویندوز کار می کند.

In the following piece of code for you which I can easily take a photo of your screen and save to your hard drive. This code is written by Visual Basic 6.
تکه کد :
Source code :
Private Declare Function BitBlt Lib “gdi32″ (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib “user32″ (ByVal hwnd As Long) As Long
Private Const SRCCOPY = &HCC0020 ‘ (DWORD) dest = source

Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
Dim H_Dc As Long
H_Dc = GetDC(0)
Me.Cls
Me.AutoRedraw = True
Me.WindowState = vbMaximized
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, H_Dc, 0, 0, SRCCOPY
SavePicture Me.Image, “C:\Scr1.Bmp”
End Sub