Diễn Đàn Tin Học Kp4
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Diễn Đàn Tin Học Kp4

Nơi trao đổi kiến thức, chia sẻ kinh nghiệm, giao lưu kết bạn!
 
Trang ChínhTrang Chính  Latest imagesLatest images  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  

 

 VB chụp ảnh màn hình tự động

Go down 
Tác giảThông điệp
chiecladangroi
Quản trị viên
Quản trị viên
chiecladangroi


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

VB chụp ảnh màn hình tự động Empty
Bài gửiTiêu đề: VB chụp ảnh màn hình tự động   VB chụp ảnh màn hình tự động I_icon_minitime13/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
Về Đầu Trang Go down
http://anhtoanvn.tk
 
VB chụp ảnh màn hình tự động
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Chứng chỉ bất động sản,Khóa học bất động sản-0986661304
» [19/1] Dịch vụ trang trí mô hình tết tại Hà Nội 0915486473
» [13/1] Dịch vụ làm mô hình trang trí tết tại Hà Nội 0912254006
» [12/1] Dịch vụ làm mô hình trang trí tết tại Hà Nội 0982170586
» [20/1] Dịch vụ trang trí mô hình tết tại Hà Nội 0982170586

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn Đàn Tin Học Kp4 :: Chia sẻ thông tin :: Lập trình-
Chuyển đến