This is a program I am working on for the online-game Roblox. It scans groups and outputs ones with money and no-owners to a list so that you can go in and claim the rewards for yourself. It also has a HWID checker system and is encrypted, so when I give it to my friends, they can't release it to others. This is REALLY easy to make and anyone can do it, so I will give the main chunk of my code below, however, not all of it since there are some parts that make my checker unique.
If Label3.Text = "One" Then Dim x As Integer x = 0 Do Until Form2.CheckBox1.Checked = True Dim rndnumber As Random Dim number As Integer rndnumber = New Random number = rndnumber.Next(0, 1000000) Dim group group = "https://www.roblox.com/groups/group.aspx?gid=" & number.ToString() Form2.TextBox1.Text = number.ToString Form2.TextBox2.Text = group Form2.WebBrowser1.Navigate(group) Delay(3) If Form2.WebBrowser1.DocumentText.Contains("No One!") Then Form2.ListBox1.Items.Add(Form2.WebBrowser1.Url) End If If Form2.WebBrowser1.DocumentText.Contains("No One!") And Form2.WebBrowser1.DocumentText.Contains("Funds:") Then ListBox1.Items.Add(Form2.WebBrowser1.Url) If RadioButton1.Checked = True Then Else End If End If x = x + 1 Label5.Text = x Delay(1) Loop