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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo اين الخطأ في الكود لو سمحتم samira20 6 127 01-12-18, 01:55 PM
آخر رد: asemshahen5
Photo اين الخطأ في الكود لو سمحتم samira20 0 42 30-11-18, 11:08 AM
آخر رد: samira20
  [سؤال] ما الخطأ في الكود التالي اسامه الهرماوي 2 85 23-11-18, 05:52 PM
آخر رد: Rabeea Qbaha
  حل مشكلة هذا الكود imam_boune 2 72 23-11-18, 02:13 PM
آخر رد: imam_boune
  [سؤال] ما الخطأ في هذا الكود اسامه الهرماوي 3 96 21-11-18, 02:05 AM
آخر رد: اسامه الهرماوي
  محتاج مساعدة فى تعديل كود بسيط Mohamed Magdy 5 92 17-11-18, 04:30 AM
آخر رد: elgokr
  [VB.NET] المساعدة في تعديل كود farfour 1 50 15-11-18, 06:18 PM
آخر رد: elgokr
  تعديل التاريخ من اليمين لليسار في الكريستال ريبورت جيولوجي مبتدئ 1 66 13-11-18, 01:05 AM
آخر رد: عبد العزيز البسكري
  مشكلة في الكود salahmax12 4 172 08-11-18, 08:36 PM
آخر رد: salahmax12
  [سؤال] طلب تعديل علي كود سكرين شوت ScreamVoice 2 84 08-11-18, 06:17 PM
آخر رد: ScreamVoice

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


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