U N C 0 Đ E R

برنامج رفع صوره + ستوري + منشور للنستا اظيف لسته حسابات وهميه وهو يفتح كل حساب وظيف صوره شخصيه ستوري وينشر 20 صوره السعد الجبوري

برنامج عمل متابعه لشخص انت تختاره يعني انت ظيف حسابات وهميه والبرنامج يسجل دخول بيهن ويتابع اليوزر الي انت ختاريته طلب من الاخ سعد الجبوري اهداء اله

برنامج تغيير باسوورد حسابات الانستا ظيف بي لسته حسابات وتختار الباسوورد الجديد الهن ونطي ستارت وهو حيغير باسوورداتهن + يحفظهن بتكست بصف البرنامج طبعا تخرت بتنزيله قبل ساعه ونص هيج

صانع حسابات خصائص 1-حساب الي يصنعه ميطير 2-يصنع تلقائي 3-يرسل الحسابات للتلي + يحفظهن بتكست 4-تصالات خارجيه انت تخليهن 5-يرفع صوره شخصيه 6-يرفع منشور 7-يرفع ستوري 8-يتابع10

فنكشن عمل متابعه بال web.client

Dim array2 As String() = {"651931452", "7606752248", "1536542654", "6653957651", "534649695", "4114249443", "3924591223", "3230055602", "7353931624", "7709124619"} For i As Integer = 0 To array2.Length - 1 Dim str As String = array2(i) Using c As New WebClient c.Headers.Add("User-Agent", "Mozilla/5.0 (iPhone; CPU iPhone OS 12_0 like Mac OS X) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/12.0 Mobile/15E148 Safari/604.1") c.Headers.Add("Accept: */*") c.Headers.Add("accept-language: en-US,en;q=0.5") c.Headers.Add("Cookie", cs) c.Headers.Add("Content-Type: application/x-www-form-urlencoded") c.Headers.Add("x-csrftoken", csrftoken) c.Headers.Add("x-instagram-ajax: 1") c.Headers.Add("x-requested-with: XMLHttpRequest") c.UploadString("https://www.instagram.com/web/friendships/" + str + "/follow/", "application/x-www-form-urlencoded") End Using Next

كود الارسال عللى التلي الاستخدام مالته - تخلي توكن بثاني سطر - البارمتر الاول ايدي حسابك ع تلي - البارمتر الثاني الرساله الي تريدها مثال : sendMessage("571950424","hello") مثال واضح وسهل : https://up.top4top.net/downloadf-1044jvfh81-rar.html

Function sendMessage(id As String, text As String) Dim token As String = "" Dim result If IsNothing(id) Or IsNothing(text) Then result = False Else result = webClient.DownloadString("https://api.telegram.org/bot" + token + "/sendMessage?chat_id=" + id + "&text=" + text) End If Return result End Function

فنكشن تسجيل دخول فيس بوك 🤒 يجوز تستفادون منه

Function log() Dim postData As String = "lsd=AVrAO73c&version=1&ajax=0&width=0&pxr=0&gps=0&dimensions=0&m_ts=1486471475&li=M8GZWLMPWzfwY9u-GBQb4n6P&email=" & TextBox1.Text & "&pass=" & TextBox2.Text & "&login=%D8%AA%D8%B3%D8%AC%D9%8A%D9%84+%D8%A7%D9%84%D8%AF%D8%AE%D9%88%D9%84" Dim bytes As Byte() = Encoding.UTF8.GetBytes(postData) http.AddHeader("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8") http.AddHeader("Accept-Language", "ar,en-US;q=0.7,en;q=0.3") http.Referer = "https://mbasic.facebook.com/" http.Cookies = cookies Dim c As String = http.Post("https://mbasic.facebook.com/login.php?refsrc=https%3A%2F%2Fmbasic.facebook.com%2F&lwv=100&login_try_number=1&refid=8", bytes, "application/x-www-form-urlencoded").ToString RichTextBox1.Text = c If c.Contains("/logout.php?h") Then Label1.Text = "login" ElseIf Text.Contains("checkpoint") Then Label1.Text = "Block" Else Label1.Text = "filed" End If End Function

برمجه عسريع اداة رفع 1-صوره شخصيه 2-ستوري 3-منشور 4- يرفع كل الي ذكرتهن دفعه وحده يعني كلهن شلع تكدر ترفع شكد ما تريد صور كل ما يرفع ارجع دوس ويرفع :))