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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طلب تعديل علي كود تفعيل وحفظ التفعيل ScreamVoice 13 259 11-10-18, 05:43 PM
آخر رد: ScreamVoice
  [سؤال] سؤال عام حول الكود في الفيجوال ستوديو Simo1991 2 78 11-10-18, 03:30 PM
آخر رد: Simo1991
  [VB.NET] مساعده :- في تعديل كود الطباعه dubai.eig 9 197 11-10-18, 02:34 PM
آخر رد: عبدالله الدوسري
  ممكن تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 9 185 06-10-18, 02:07 AM
آخر رد: ابو روضة
  تعديل كود بحث بسيط dasktop 5 116 05-10-18, 12:43 AM
آخر رد: elgokr
  ما هو الكود المُستخدم لعدم السماح بترك ال Combobox فارغة Hazem1 26 458 04-10-18, 09:47 PM
آخر رد: princelovelorn
  [سؤال] محتاج تعديل بسيط في كود ScreamVoice 7 121 04-10-18, 06:41 AM
آخر رد: ScreamVoice
  سؤال حول تعديل على نص trakktour 5 117 01-10-18, 02:57 AM
آخر رد: rnmr
  هل الكود التالي صحيح لاستعادة قاعدة بيانات أكسس Hazem1 8 167 30-09-18, 01:41 AM
آخر رد: Hazem1
  [VB.NET] اريد تغير بسيط ع الكود ... e-coder 3 107 29-09-18, 04:09 PM
آخر رد: عبد الرؤوف

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


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