01.Imports System.DateTime
02.Imports System
03.Imports System.IO
04.Imports System.IO.DirectoryInfo
05.
06.Public Class Form2
07.
08.
09. Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
10.
11. Public Function SaveScreen(ByVal theFile As String) As Boolean
12.
13.
14. Dim data As IDataObject
15. data = Clipboard.GetDataObject()
16. Dim bmap As Bitmap
17. If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
18. bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Bitmap)
19. Me.PictureBox1.Image = bmap
20. Me.PictureBox1.Image.Save(theFile, Imaging.ImageFormat.Jpeg)
21.
22. End If
23. End Function
24.
25. Private Sub Command2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command2.Click
26. Hide()
27. Dim fname2 As String
28. fname2 = System.DateTime.Now.ToLongDateString
29. Dim fname1 As String
30. fname1 = System.DateTime.Now.ToString("HH_mm_ss")
31. Dim di As DirectoryInfo = New DirectoryInfo("c:\" + fname2)
32.
33. Threading.Thread.Sleep(200)
34.
35. Call keybd_event(System.Windows.Forms.Keys.Snapshot, 0, 0, 0)
36. System.Threading.Thread.Sleep(100)
37. SaveScreen("C:\" + fname2 + fname1 + ".jpeg")
38. di.Create()
39. Me.Show()
40.
41. End Sub
42.
43. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
44. ComboBox1.Items.Add("บันทึกหน้าจอทุก 3 นาที")
45. ComboBox1.Items.Add("บันทึกหน้าจอทุก 5 นาที")
46. ComboBox1.Items.Add("บันทึกหน้าจอทุก 10 นาที")
47. ComboBox1.Items.Add("หยุดการบันทึกหน้าจอ ")
48. End Sub
49.
50.End Class
