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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 103 منذ 10 ساعة مضت
آخر رد: مصمم هاوي
  تعديل كود ارسال صورة الى الواتس new_programer 0 59 12-03-24, 03:12 AM
آخر رد: new_programer
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 86 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 130 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 150 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 240 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 173 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 201 19-01-24, 12:42 PM
آخر رد: Taha Okla
  ممكن تعديل في كود التفقيط للارقام melad2002 2 323 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 457 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify

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


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