[اليوم السابع]

(31-05-20, 02:54 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل ياصديقي

كود :

  Dim SevenDay(ListBox1.Items.Count - 1) As String
       For i As Integer = 0 To ListBox1.Items.Count - 1
           SevenDay(i) = ListBox1.Items(i).ToString
       Next

ربنا ما يحرمنا منك يا كبير هجرب حالا واديك الرد

---

(31-05-20, 02:54 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل ياصديقي

كود :

  Dim SevenDay(ListBox1.Items.Count - 1) As String
       For i As Integer = 0 To ListBox1.Items.Count - 1
           SevenDay(i) = ListBox1.Items(i).ToString
       Next

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

كود :

 Dim IDS() As String = {"100"}

---

(31-05-20, 02:54 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل ياصديقي

كود :

  Dim SevenDay(ListBox1.Items.Count - 1) As String
       For i As Integer = 0 To ListBox1.Items.Count - 1
           SevenDay(i) = ListBox1.Items(i).ToString
       Next

انا الفكره كلها محتاج اعمل ريكوست بكل قيمه في الليست بوكس من خلال هذا الكود 

كود :

 Dim IDS() As String = {"882", "10002", "1000237", "10002"}
       For x = 0 To IDS.Length - 1
           postReq = DirectCast(WebRequest.Create("http://eslameid.com/circle-api-master/check/id/data/" & (IDS(x)) + "), HttpWebRequest)
           postReq.Method = "GET"
           postReq.KeepAlive = True
           postReq.CookieContainer = tempCookies
           postReq.ContentType = "application/x-www-form-urlencoded"
           postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
           postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
           Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
           Dim thepage1 As String = postreqreader.ReadToEnd
           thepage1 = thepage1.Replace("active", "private")
           Dim list As String = Regex.Unescape(thepage1)

           Application.DoEvents()

       Next