You need to add these things to your project first of all
- Three buttons (add,show,clear)
- Listbox
- Textbox
VB.NET, C#, Java, HTML, JQuery, Javascript, PHP, Software Reviews, Computer Tips and Tech News
'creating our httpwebrequest target NOTE: you can use any websites that use to provide proxies directly Dim the_request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://proxy-ip-list.com") 'creating the httpwebresponce Dim the_response As System.Net.HttpWebResponse = the_request.GetResponse 'defining the stream reader to read the data from the httpwebresponse Dim stream_reader As System.IO.StreamReader = New System.IO.StreamReader(the_response.GetResponseStream()) 'defining a string to stream reader fisnished streaming Dim code As String = stream_reader.ReadToEnd 'haha here we use the regex Dim expression As New System.Text.RegularExpressions.Regex("[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,4}") 'adding the proxies to the listbox Dim mtac As MatchCollection = expression.Matches(code) For Each itemcode As Match In mtac ListBox1.Items.Add(itemcode) NextAfter the first button we will see the second button which save.
If ListBox1.Items.Count = (0) Then MessageBox.Show("Please click grab to grab proxies and then try saving", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Else 'defining a streamwriter Dim S_W As IO.StreamWriter 'converting listbox items to string Dim itms() As String = {ListBox1.Items.ToString} ''defining a savefiledialog Dim save As New SaveFileDialog Dim it As Integer save.FileName = "Grabbed Proxies" save.Filter = "Grabbed Proxies (*.txt)|*.txt|ALL Files (*.*)|*.*" save.CheckPathExists = True save.ShowDialog(Me) S_W = New IO.StreamWriter(save.FileName) For it = 0 To ListBox1.Items.Count - 1 S_W.WriteLine(ListBox1.Items.Item(it)) Next S_W.Close() End IfAt last we need to add a line of code to clear the listbox which is
ListBox1.Items.Clear()
RegistryKey path = Registry.LocalMachine.OpenSubKey("Software\\Google\\Chrome\\Extensions\\dmibjfmphcpfoacbchialfobiohmhged");//path of the registry string read = (string)path.GetValue("path");//creating a string to get the value of 'path' MessageBox.Show(read,"Registry Key Value", MessageBoxButtons.OK,MessageBoxIcon.Information);//the messagebox pops with the key 'path' valueI am sorry i couldn't explain everything in the code , as you can see in the first line we define where our key is "Local Machine" you can put anything places as in your registry for that by the way remember when you read or write registry you should use double // for the destination .
RegistryKey set = Registry.CurrentUser.CreateSubKey("Software\\Shim\\Ultimate_programming_tutorials");//setting the path set.SetValue("website", "http://ultimateprogrammingtutorials.blogspot.com");//setting the value MessageBox.Show("Value has been added " + set,"Value Added",MessageBoxButtons.OK,MessageBoxIcon.Information);//creating a messagebox to show it's added(value) set.Close();//closing the current processwebsite is the name of the value we are setting and http://ultimateprogrammingtutorials.blogspot.com is the value of work :).