chiecladangroi Quản trị viên
Tổng số bài gửi : 507 Điểm : 1261 Cám ơn : 22 Ngày tham gia : 22/07/2009 Đến từ : Kp4 - Đồng Nai
| Tiêu đề: VB chụp ảnh màn hình tự động 13/8/2009, 7:30 pm | |
| code ví dụ: - Code:
-
Option Explicit Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _ bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetVersionExA Lib "kernel32" _ (lpVersionInformation As OSVERSIONINFO) As Integer Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Private Const KEYEVENTF_KEYUP = &H2 Private Const VK_SNAPSHOT = &H2C Private Const VK_MENU = &H12
Dim blnAboveVer4 As Boolean Dim SoHinh
Private Sub Form_Load() Dim osinfo As OSVERSIONINFO Dim retvalue As Integer osinfo.dwOSVersionInfoSize = 148 osinfo.szCSDVersion = Space$(128) '128 retvalue = GetVersionExA(osinfo) If osinfo.dwMajorVersion > 4 Then blnAboveVer4 = True SoHinh = 1 End Sub
Private Sub Timer1_Timer() 'Chup bang phím PrintScreen If blnAboveVer4 Then keybd_event VK_SNAPSHOT, 0, 0, 0 Else keybd_event VK_SNAPSHOT, 1, 0, 0 End If Image1.Picture = Clipboard.GetData(2) DoEvents 'Ðoi cho Picture1 nhan het anh cua clipboard SavePicture Image1.Picture, "Data\Hinhchup-" & SoHinh & ".bmp" 'Luu anh lên dia SoHinh = SoHinh + 1 End Sub | |
|