تقييم الموضوع :
  • 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 ك ب / التحميلات : 15)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] التحكم في العناصر محمد اسماعيل 1 52 26-10-16, 12:39 PM
آخر رد: العواد الصغير
Rainbow [كود] كود التحكم بمنفذ USB ( تفعيل - تعطيل ) من الريجستري محمد مسافر 5 223 24-09-16, 06:24 PM
آخر رد: محمد مسافر
Rainbow [كود] التحكم بمنفذ usb ( تفعيل - تعطيل ) محمد مسافر 2 123 17-09-16, 03:34 PM
آخر رد: جميل علي
  التحكم بالإقلاع abdulla2 1 151 06-09-16, 02:18 AM
آخر رد: abdulla2
  [VB.NET] التحكم في شاشة البداية بالكود ابو يوسف النواوي 5 180 26-08-16, 03:12 AM
آخر رد: أبو عمر
  التحكم في طول التقرير برمجيا Reportviewer sniperjawadino 9 273 17-07-16, 04:03 AM
آخر رد: sniperjawadino
  [سؤال] كيف يمكن اضافة Checkbox فى الجريد و التحكم من خﻻله فى السجﻻت DR.YASER 3 235 05-05-16, 09:13 PM
آخر رد: Compiler
Rainbow [VB.NET] سؤال عن التحكم داخل اليست فيو محمد اسماعيل 2 152 26-04-16, 05:39 PM
آخر رد: محمد اسماعيل
  [VB.NET] طلب : كود التحكم في حجم الفورم ومكانه hamada salah90 2 362 13-04-16, 10:09 AM
آخر رد: hamada salah90
  [سؤال] التحكم فى رسائل الايميل mohamed haroon 0 129 30-01-16, 02:22 PM
آخر رد: mohamed haroon

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


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