U N C 0 Đ E R
الذهاب إلى القناة على Telegram
782
المشتركون
لا توجد بيانات24 ساعات
لا توجد بيانات7 أيام
لا توجد بيانات30 أيام
أرشيف المشاركات
سبرايييز
تخمين انستا النسخه 4
تخمين على الرقم فقط
سرعه عاليه جنت اشتغل عليه ويه ذاك الفوك ثنينهن سوه سويت كم لايك يستحق ؟؟ وانزله
اداة تخمين انستا
طريقه العمل
لسته يوزرات
لسته باس
لسته بروكسي
وشغله
من يصيد تلكا بصف البرنامج
جربو للتاكيد من عمله
عمل البرنامج
1- لسته يوزرات لو 100000
2- لسته باسوورد كذالك
3- لسته بروكسيات
مثلا اول يوزر بلسته dhg يجرب على اليوزر كل الرموز الي انت ظايفهن ما فتح يغير اليوزر ثاني وكذا
الي ينفتح الحساب يخلي بصف البرنامج بلسته
له من اراء افكار اعتراضات ؟؟
@abbas_5
البرنامج كملته وشغال
جنت بره عيد الحب وكذا
هسه جيت المهم
نقص شي واحد بروكسيات ماعندي حتى اجربه على بروكسيات + كهرباء راح تطفه باجر بس اظيفله خاصيه البروكسي ويخلص او من تجي الكهرباء
اداة رفع
منشور وصوره شخصيه + يتابع 10
انت تختار الي تريد يرفعه يعني فقط صوره فقط منشور الخ...
برنامج تحميل صوره شخصيه مال انستا hd
تخلي اليوزر ودوس get photo
وللحفظ sava
ما شفت واحد طرح هيج برنامج وحبيت اسوي
اما هذا الثاني
وضيفته تخلي رابط الصوره ويحمله الك ويعرضه على البكجر بوكس 😁
يعني الاول يجيب الرابط وسوالف الثانيه وهذا يحمل الصوره على البكجر بوكس (يعني يعرضه الك يحمل البايتات بالميموري الخ...)
وتكدر من يعرضه ع البكجر
تخلي زر حفظ سيف فايل دايلوك
وشكرا
Dim c As New System.Net.WebClient
Dim ImageInBytes1() As Byte = c.DownloadData(DivinityTextBox1.Text)
Dim ImageStream1 As New IO.MemoryStream(ImageInBytes1)
PictureBox2.Image = New System.Drawing.Bitmap(ImageStream1)
DivinityButton6.Text = "|| Goo Post ||"
فنكشن قديم من زمان سويته 😂 وجنت استخدمه بهواي سوالف
المهم
عمل الفنكشن
تخلي رابط منشور بالنستا
وهو يسحب
يوزر
اسم
رابط الصوره
عدد لايكات
عدد كومنتات
ستخدامه سهل لليعرف للفجول
Public Sub getpost()
Dim ss As String
Dim http As New HttpRequest
ss = http.Get(DivinityTextBox3.Text).ToString()
Dim sss As String = Regex.Match(ss, "Likes, (.*?) Comments").Groups(1).Value
Dim sss1 As String = Regex.Match(ss, "Comments - (.*?) ").Groups(1).Value
Dim sss2 As String = Regex.Match(ss, "(https:\/\/.+\.jpg)").Groups(1).Value
Dim sss3 As String = Regex.Match(ss, "(@(.*?)) on Instagram").Groups(2).Value
Dim sss4 As String = Regex.Match(ss, """id"":""(.*?)"",").Groups(1).Value
Dim sss5 As String = Regex.Match(ss, "user_id"" content=""(.*?)"" ").Groups(1).Value
Label25.Text = sss + " " + "Comments"
Label10.Text = sss1
DivinityTextBox1.Text = sss2
Label27.Text = "(@" + sss3
DivinityTextBox2.Text = sss4 + "_" + sss5
End Sub
