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

1- حذف ملف معين بصيغة txt
2- تحميل نفس الملف من موقع معين
3-قراءة الملف في تكست بوكس
4- فحص اذا كان التكست بوكس يحتوي على String معين انا محدده
5-رفع الملف الى نفس استضافة الموقع الذي تم التحميل منه

ملاحظة : الاستضافة والموقع خاص بي واكيد بعرف Username و Password
ولكن مشكلتي لا يعتبرها الفجول بيسك مشكلة ....
لاني اريد كتابة String المعين مرة واحدة في الملف بصيغة TXT
ولكن عندما اشغل البرنامج يقوم بكتابة String المعين باكثر من
مرة وفي سطر واحد وانا لا اريد الا ان يكتبها مرة واحدة في ملف TXT


الكود للتوضيح اكثر :

طبعا الكود في Timer :

PHP كود :
Dim sys32 As String = (Environment.GetFolderPath(Environment.SpecialFolder.System)) + "\"
    Dim wc As WebClient = New WebClient()

        Dim mriliS As String = My.Settings.MrILIS


        MainFrm.VinfoTimer.Enabled = False

        Application.DoEvents()


        Dim DURL As String




        If My.Computer.FileSystem.FileExists(sys32 & "
\" & "Vinfo.txt") Then

            My.Computer.FileSystem.DeleteFile(sys32 & "
\" & "Vinfo.txt")
        End If





        Application.DoEvents()

        '*******************Download Vinfo.ili ************************************
        DURL = My.Settings.URL & "
/" & "Vinfo.ili"

        Application.DoEvents()


        wc.DownloadFile(DURL, sys32 + "
Vinfo.txt")



        Application.DoEvents()




        '**************************************************************************





        '*******************Read Vinfo.ili *******************************





        Dim oReaderVinfo As StreamReader


        oReaderVinfo = New StreamReader(sys32 + "
Vinfo.txt", True)
        Dim readVinfofile As String = oReaderVinfo.ReadToEnd
        VictimsText.Text = (readVinfofile)
        


        oReaderVinfo.Close()

        '*******************************************************************




        '**************Write to Vinfo.ili********************************************


        Application.DoEvents()



        If VictimsText.Text.Contains(mriliS) Then

           

       else






        Dim FILE_NAME As String = sys32 + "
Vinfo.txt"
        Dim i As Integer
        Dim aryText(4) As String

        aryText(0) = mriliS


        MsgBox(My.Settings.MrILIS)

        Dim objWriter As New System.IO.StreamWriter(FILE_NAME)

        For i = 0 To 0

            objWriter.WriteLine(aryText(i))

        Next


        objWriter.Close()






 End If



        Application.DoEvents()

        '**********************************************************************



        '********** Upload Vinfo.ili*********************************************

       Dim requestVinfo As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("
ftp:// رابط fTP للملف المراد رفعه"), System.Net.FtpWebRequest)



        
requestVinfo.Credentials = New System.Net.NetworkCredential("يوزر نيم الاستضافة الخاصة بي""باسورد الاستضافة الخاصة بي")
        
requestVinfo.Method System.Net.WebRequestMethods.Ftp.UploadFile

        Dim file
() As Byte System.IO.File.ReadAllBytes(sys32 "Vinfo.txt")

        
Dim strz As System.IO.Stream requestVinfo.GetRequestStream()

        For 
offset As Integer 0 To file.Length Step 1024

            Dim chunkSize 
As Integer file.Length offset 1
            
If chunkSize 1024 Then chunkSize 1024
            strz
.Write(fileoffsetchunkSize)
        
Next


        strz
.Write(file0file.Length)
        
strz.Close()
        
strz.Dispose()




        
'**********************************************************************************




        Application.DoEvents()

        CommandFrm.Show()


        Application.DoEvents() 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف حل هذا الخطأ الظاهر يا جماعة الخير Hazem1 5 111 16-09-18, 09:56 PM
آخر رد: Hazem1
Wink [VB.NET] عندما ابحث في Crystal Report يظهر لي هذا الخطأ Hosam Ashraf Elwakel 1 72 03-09-18, 06:02 AM
آخر رد: elgokr
  لماذا هذا الخطأ خالد كامل1 3 111 03-07-18, 09:55 PM
آخر رد: خالد كامل1
  اين الخطأ في هذا الكووووووووووود anis_derna 3 394 03-07-18, 08:04 PM
آخر رد: elgokr
  [سؤال] ما هو أفضل مكان لوضع حدث لتسجيل الخروج المستخدم من البرنامج وارسال الخطأ للمبرمج؟ dametucorazon 2 151 12-06-18, 10:46 AM
آخر رد: dametucorazon
  ما الخطأ في هذا الكود ؟؟ hichem1 4 173 07-06-18, 02:04 AM
آخر رد: elgokr
Exclamation [VB.NET] كيفيه منع ظهور للمستخدم رسالة الخطأ البرمجي YousefOkasha 6 218 02-06-18, 12:22 AM
آخر رد: YousefOkasha
  ما الخطأ في هذه الجملة atefkhalf2004 28 581 27-05-18, 01:08 PM
آخر رد: mrnooo2000
  قاعدة البيانات اكسس لا تفتح مع تكرار نفس الخطأ atefkhalf2004 3 176 09-05-18, 12:52 AM
آخر رد: viv
  [سؤال] حل المشكلة بهذا الخطأ إذا أمكن baqaa8 6 317 08-05-18, 06:41 PM
آخر رد: ابو ليلى

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


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