تعديل بيسط على الكود ليصيح جاهزآ

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعديل بيسط على الكود ليصيح جاهزآ
#1
السلام عليكم 
لقد واجهتني مشكلة كبيرة وهي كتالي :
معي كود كامل لصنع نكات ولكن السيرفر عمل تحديث
واجبر المستخدمين ع وضع كابيتشا " عبارة امان "
اريد من الاخوة المبرمجين ان يعطوني فكرة اين اضع 
PictureBox
لكي تظر عبارة امان للمستخدم واين اكتب حروف
عبارة الأمان في
textbox

الكود
كود :
Imports System.Text
Imports System.Net
Imports System.IO

Public Class Form2

   Private Shared Function GEN(ByVal len As Integer, ByVal typ As String) As [String]
       'you can remove static if using gui
       Dim rnd As New Random()
       Dim An As [String] = "0123456789"
       Dim sb As New StringBuilder(len)
       Dim arr As [String] = ""
       arr = An
       For i As Integer = 0 To len - 1
           sb.Append(arr(rnd.[Next](arr.Length)))
       Next
       arr = ""
       Return sb.ToString()
   End Function
   Private Shared Sub create_id(ByVal id As [String], ByVal pass As [String])
       'you can remove static if using gui
       Dim c_USERAGENT As String = "Mozilla/5.0 (Linux; Android 5.1.1; SM-G928X Build/LMY47X) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.83 Mobile Safari/537.36"
       Dim mob As [String] = "2010" + GEN(7, "num")
       Dim [cBYTE] As Byte() = Nothing
       Dim IDx As [String] = ""
       Try
           '1 => Reg mobile number
           [cBYTE] = Encoding.UTF8.GetBytes("{""cc"":""EG"",""pn"":""" + mob + """}")
           Dim c_REQ As HttpWebRequest = DirectCast(WebRequest.Create("https://registnew.nimbuzz.com/phonenumbers"), HttpWebRequest)
           c_REQ.UserAgent = c_USERAGENT
           c_REQ.ContentType = "text/plain"
           c_REQ.Method = "POST"
           c_REQ.ContentLength = [cBYTE].Length
           Dim [cSTR] As Stream = c_REQ.GetRequestStream()
           [cSTR].Write([cBYTE], 0, [cBYTE].Length)
           [cSTR].Close()
           Dim c_RES As HttpWebResponse = DirectCast(c_REQ.GetResponse(), HttpWebResponse)
           Dim c_STRING As String = c_RES.StatusDescription + New StreamReader(c_RES.GetResponseStream()).ReadToEnd()
           c_STRING = c_STRING.Replace("""", "'")
           c_REQ.Abort()
           c_RES.Close()

           If c_STRING.StartsWith("Created") Then
               IDx = c_STRING.Substring(c_STRING.IndexOf("{'id':'") + "{'id':'".Length)
               IDx = IDx.Substring(0, IDx.IndexOf("',") - 0)

               ' 2 => Reg fb acount here will reg nothing to skip this
               [cBYTE] = Encoding.UTF8.GetBytes("{""token"":""""}")
               c_REQ = DirectCast(WebRequest.Create("https://registnew.nimbuzz.com/facebooktokens/" + IDx), HttpWebRequest)
               c_REQ.UserAgent = c_USERAGENT
               c_REQ.ContentType = "text/plain"
               c_REQ.Method = "PUT"
               c_REQ.ContentLength = [cBYTE].Length
               [cSTR] = c_REQ.GetRequestStream()
               [cSTR].Write([cBYTE], 0, [cBYTE].Length)
               [cSTR].Close()
               c_RES = DirectCast(c_REQ.GetResponse(), HttpWebResponse)
               c_STRING = c_RES.StatusDescription + New StreamReader(c_RES.GetResponseStream()).ReadToEnd()
               c_STRING = c_STRING.Replace("""", "'")
               c_REQ.Abort()
               c_RES.Close()

               If c_STRING.StartsWith("Created") Then
                   ' 3 => reg new nimbuzz id
                   [cBYTE] = Encoding.UTF8.GetBytes("{""password"":""" + pass + """,""username"":""" + id + """}")
                   c_REQ = DirectCast(WebRequest.Create("https://registnew.nimbuzz.com/credentials/" + IDx), HttpWebRequest)
                   c_REQ.UserAgent = c_USERAGENT
                   c_REQ.ContentType = "text/plain"
                   c_REQ.Method = "PUT"
                   c_REQ.ContentLength = [cBYTE].Length
                   [cSTR] = c_REQ.GetRequestStream()
                   [cSTR].Write([cBYTE], 0, [cBYTE].Length)
                   [cSTR].Close()
                   c_RES = DirectCast(c_REQ.GetResponse(), HttpWebResponse)
                   c_STRING = c_RES.StatusDescription + New StreamReader(c_RES.GetResponseStream()).ReadToEnd()
                   c_STRING = c_STRING.Replace("""", "'")
                   c_REQ.Abort()
                   c_RES.Close()

                   If c_STRING.StartsWith("Created") Then
                       Console.WriteLine("Id created ok ..")

                   End If
               End If

           End If
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       End Try

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       create_id("emad", "2017eee")
   End Sub
End Class
وشكراً Heart
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تعديل علي الكود دموع الوطن 10 159 08-08-18, 09:19 AM
آخر رد: elgokr
  [VB.NET] تعديل قاعدة البيانات محمد اسماعيل 7 133 18-07-18, 07:26 PM
آخر رد: elgokr
  [سؤال] تنفيذ الكود اللى عليه Checked ابو روضة 11 226 10-07-18, 06:06 PM
آخر رد: elgokr
  اخواني لدي مثال مشروع تعديل علي بيانات موجودة علي حسب تاريخ اليوم نور الهدى الهدى 7 193 06-07-18, 05:54 PM
آخر رد: elgokr
  ارجو تصحيح الكود التالي bidaya 1 50 30-06-18, 09:24 PM
آخر رد: elgokr
  [VB.NET] اريد مساعدتي في تصحيح او تعديل الكود 0theghost0 8 187 29-06-18, 07:40 PM
آخر رد: elgokr
  هل هناك طريقة لتسريع هذا الكود ابو روضة 2 144 29-06-18, 03:00 AM
آخر رد: YousefOkasha
  [سؤال] أحاول أخذ باك أب لقاعدة البيانات من نوع mySQL ولكن لا أستطيع مرفق الكود dametucorazon 12 247 21-06-18, 05:19 AM
آخر رد: dametucorazon
Thumbs Up [VB.NET] هل ممكن تغيير رقم الهارد عن طريق الكود رمضان محمد 0 75 15-06-18, 07:33 AM
آخر رد: رمضان محمد
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 15 2,024 15-06-18, 07:28 AM
آخر رد: رمضان محمد

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


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