تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لدي كود التحكم في الدوس لكن فيه خطء
#1
السلام عليكم
عندي كود التحم في الدوس من الفيجوال بيسك دوت نت
لكن يضهرلي خطء في الكود

كود :
If Dir("c:\Temp.dos") <> "" Then Kill("c:\Temp.dos")
        If TextBox1.Text = "clr" Then
            TextBox2.Text = ""
            Exit Sub
        End If
        Process.Start("cmd.exe /c " & TextBox1.Text & "> c:\Temp.dos", AppWinStyle.Hide)
        Try
            ReadData()
            Dim OpenResult As New StreamReader("c:\Temp.dos")
            TextBox2.Text = OpenResult.ReadToEnd
            OpenResult.Close()
        Catch ex As FileNotFoundException
            GoTo ReadData
        Catch ex2 As IOException
            GoTo ReadData
        End Try
        Application.DoEvents()

الخطء

هنا
ReadData()

اتمنى الحل
الرد }}}
تم الشكر بواسطة:
#2
الـ ReadData دالة غير موجودة
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة:
#3
ممكن تعطيني دالة ReadData
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته
أخي الكريم الكلمة ReadData ليست دالة وإنما هي رقم سطر وبالتالي يكون التعديل بالطريقة التالية
كود :
If Dir("c:\Temp.dos") <> "" Then Kill("c:\Temp.dos")
        If TextBox1.Text = "clr" Then
            TextBox2.Text = ""
            Exit Sub
        End If
        Process.Start("cmd.exe /c " & TextBox1.Text & "> c:\Temp.dos", AppWinStyle.Hide)
        Try
ReadData:
            Dim OpenResult As New StreamReader("c:\Temp.dos")
            TextBox2.Text = OpenResult.ReadToEnd
            OpenResult.Close()
        Catch ex As FileNotFoundException
            GoTo ReadData
        Catch ex2 As IOException
            GoTo ReadData
        End Try
        Application.DoEvents()

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#5
شكرا لك و جزاك الله خيرا
و انا روحت حدفة تلك النقطتان ظنيت انهما نوضعو بالخطء :p
الرد }}}
تم الشكر بواسطة:
#6
اخي يضهر لي خطء عندم انفد امر
انضر الى الصورة

http://www11.0zz0.com/2013/03/21/00/383787925.jpg
الرد }}}
تم الشكر بواسطة:
#7
السلام عليكم ورحمة الله وبركاته
تفضل أخي هذا هو الكود
ولكن لاحظ أنني قمت بتغيير مكان الملف إلى C:\games\Temp.dos
والسبب أن الكتابة على القرص C مباشرة يحتاج إلى إذن مسؤول
وتستطيع أنت تغييره إلى أي مكان آخر
والآن أتركك مع الكود
كود :
Dim FileName As String = "C:\games\Temp.dos"
        If Dir(FileName) <> "" Then Kill(FileName)
        If TextBox1.Text = "clr" Then
            TextBox2.Text = ""
            Exit Sub
        End If
        Dim NewProcess As New System.Diagnostics.ProcessStartInfo
        NewProcess.Arguments = "/c " & TextBox1.Text & " > " & FileName
        NewProcess.FileName = "cmd.exe"
        NewProcess.WindowStyle = ProcessWindowStyle.Hidden
        Process.Start(NewProcess)
        Try
ReadData:
            Dim OpenResult As New StreamReader(FileName)
            TextBox2.Text = OpenResult.ReadToEnd
            OpenResult.Close()
        Catch ex As FileNotFoundException
            GoTo ReadData
        Catch ex2 As IOException
            GoTo ReadData
        End Try
        Application.DoEvents()

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#8
ولله اخي البرنامج لا يضهر اخطاء لكن عندما اكتب امر يعلق البرنامج ( يحصل بلوك ) و لا يشتغل Sad
هل يوجد حل

شوف الصورة
http://www13.0zz0.com/2013/03/21/10/574006377.jpg

[ATTACH=CONFIG]2044[/ATTACH]


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#9
ولله اخي البرنامج لا يضهر اخطاء لكن عندما اكتب امر يعلق البرنامج ( يحصل بلوك ) و لا يشتغل Sad
هل يوجد حل
الرد }}}
تم الشكر بواسطة:
#10
السلام عليكم ورحمة الله وبركاته
أخي الكريم الكود صحيح 100%
لكن سبب التعليق أن البرنامج سيقوم بتنفيذ أمر دوس وسينتظر النتائج عن طريق الملف Temp.dos
فإذا لم يجد الملف سيدخل البرنامج في حلقة تكرارية حتى يظهر الملف فإذا لم يظهر الملف أبدا سوف يتوقف عن الإستجابة تماما
وسبب عدم ظهور الملف هو أن الدوس ليس قادرا على حفظ النتائج في مكان يطلب من إذن مسؤول وإلا سيعطي نتيجة واحدة وهي
Access Denied
ولن يحفظ النتائج، وسيبقى البرنامج عالقا داخل الحلقة التكرارية بانتظار ظهور الملف الذي لن يظهر أبدا
حسنا ما الحل؟!!
الحل:
هذا الملف المضغوط هو عبارة عن مشروع، فقط قم بفك الضغط عنه وضعه على سطح الكتب أو في أي مكان لا يطلب إذن مسؤول
وقم بتنفيذ المشروع وسوف لن يعلق بإذن الله وستجد النتائج ظهرت أمامك

بالتوفيق


الملفات المرفقة
.zip   VBDos.zip (الحجم : 69.86 ك ب / التحميلات : 33)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحكم فى عرض طريقة التاريخ فى الاداة datetimepicker Ahmed.vb 3 508 08-11-23, 01:27 AM
آخر رد: الحزين اليماني
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
Rainbow [كود] كود الدخول على لوحه التحكم محمد مسافر 2 374 22-07-23, 05:31 PM
آخر رد: Taha Okla
  التحكم بالبرنامج ( عند المستخدم ) عن طريق برنامج اخر (تعديل - حذف - اضافه - تغير كود) mohamedallams 2 1,134 06-09-22, 10:32 PM
آخر رد: رضوان الجماعي
  [سؤال] * تم الحل * التحكم بمخرجات السريال بورت واعادة تحويلها mohamedallams 1 431 30-08-22, 06:42 PM
آخر رد: mohamedallams
  [سؤال] التحكم في scroll الخاص بالجريد فيو حسن الجلب 2 587 21-08-22, 01:12 PM
آخر رد: DR.YASER
  التحكم فى لون خلفية الازرار من خلال الكود nabil.1710 6 1,828 03-05-22, 09:53 PM
آخر رد: nabil.1710
  [سؤال] كيفيه التحكم في شريط التمرير الخاص بالجريد فيو حسن الجلب 1 897 14-01-22, 11:43 PM
آخر رد: asmarsou
  [VB.NET] التحكم بالترقيم التلقائي بناء على قيمة مربع نصي مسلم_١ 0 1,110 30-11-21, 06:20 AM
آخر رد: مسلم_١
  التحكم فى مكان الMsgBox اسلام الكبابى 2 923 04-10-21, 01:33 AM
آخر رد: اسلام الكبابى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم