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
عند التجربة انتظر اكثر من دقيقة لتشاهد شيئا و كانه قد تدخل في الملف ,,, هل الكود ناقص؟
شكر الله لكم جميعا.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير