27-01-17, 06:01 PM
السلام عليكم
لقد واجهتني مشكلة كبيرة وهي كتالي :
معي كود كامل لصنع نكات ولكن السيرفر عمل تحديث
واجبر المستخدمين ع وضع كابيتشا " عبارة امان "
اريد من الاخوة المبرمجين ان يعطوني فكرة اين اضع
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
وشكراً