Bonjour je souhaite faire un programme qui fasse des capture d'écran toutes les 10 secondes mais il devient très vite gourmant

Pouvez-vous me dire ce qui cloche svp merci ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Do
            System.Threading.Thread.Sleep(10000)
            Opacity = 0
            Dim toto2 As String
            Dim toto1 As String
            Dim toto As String
            Dim NomFichier As String
 
            Dim Bounds As Rectangle
            Dim Screenshot As System.Drawing.Bitmap
            Dim Graph As Graphics
 
 
            Bounds = Screen.PrimaryScreen.Bounds
            Screenshot = New System.Drawing.Bitmap(Bounds.Width, Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
            Graph = Graphics.FromImage(Screenshot)
            Graph.CopyFromScreen(Bounds.X, Bounds.Y, 0, 0, Bounds.Size, CopyPixelOperation.SourceCopy)
            toto2 = Replace(Now, ":", "")
            toto1 = Replace(toto2, "/", "")
            toto = Replace(toto1, " ", "")
            NomFichier = "F:\LOGICIELS ACTIFS\Mon programme\" & toto & ".png"
            Screenshot.Save(NomFichier)
        Loop
    End Sub
 
End Class