15-07-22, 06:00 AM
صباح الخير او مساء الخير
الاجراء التالي قم بمناداته من مؤقت وهو لتصوير الشاشة ما التعديل المطلوب اللذي يجعل البرنامج يعمل باستمرار الى ان اوقفه باجراء او بكود ما.
لا اريده ان يتوقف بسبب خطأ الوصول!!!
PHP كود :
Private Sub cap()
Dim fs1 As New FileStream(workpath, FileMode.Append)
Dim sw As New StreamWriter(fs1)
Dim bounds As New Rectangle
bounds = Screen.PrimaryScreen.Bounds
Dim g As Graphics = Nothing
Dim sc As New Bitmap(bounds.Width, bounds.Height)
g = Graphics.FromImage(sc)
g.CopyFromScreen(0, 0, 0, 0, sc.Size)
Me.Cursor.Draw(g, New Rectangle(Windows.Forms.Cursor.Position, Me.Cursor.Size))
Dim html As String = BitmapToString(sc) & "\"
sw.WriteLine(html)
g.Dispose()
sc.Dispose()
sw.Close()
fs1.Close()
lbl.Invoke(Sub() lbl.Text = Date.Now.Subtract(et).ToString("hh\:mm\:ss"))
End Sub
عند التجربة انتظر اكثر من دقيقة لتشاهد شيئا و كانه قد تدخل في الملف ,,, هل الكود ناقص؟
شكر الله لكم جميعا.
