Source Code [v 0.1]
Imports Microsoft.Win32
Public Class Form1
Dim proxy As New wvp
Dim one As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
helpfunction()
End Sub
Sub setproxy()
If Form2.ListBox1.Items.Count = 0 Then
If MsgBox(" No proxy countine?", vbYesNo, "") = vbYes Then
navigate()
Else
Button1.Enabled = True
Return
End If
Else
Try
If one = Nothing Then
Form2.ListBox1.SelectedIndex = 0
one = "FUCK !"
End If
Dim items As String = Form2.ListBox1.SelectedItem.ToString
Dim ip As String = items.Split(":"c).First
Dim port As String = items.Split(":"c).Last
Form2.ListBox1.SelectedIndex += 1
proxy.SetProxy(ip.ToString, Convert.ToInt16(port.ToString))
TextBox4.Text = "Wait for loading proxy..."
WaitCounter.Start()
Delay(20)
navigate()
Catch ex As Exception
If MsgBox("Bad proxy. Countine with out it?" + vbNewLine + " [" + ex.ToString + "]", vbYesNo, "") = vbYes Then
navigate()
Else
Return
End If
End Try
End If
End Sub
Private Function helpfunction()
setproxy()
End Function
Private Function navigate()
If TextBox1.Text = Nothing Then
MsgBox("No Link", vbOKOnly, "")
Button1.Enabled = True
Else
WebBrowser1.Navigate(TextBox1.Text)
TextBox4.Text = "Navigating borwser..."
WaitCounter.Start()
Delay(20)
Try
WebBrowser1.Document.GetElementById("skip_button").InvokeMember("click")
TextBox3.Text = TextBox3.Text + 1
TextBox4.Text = "Skip Button clicked !"
Delay(10)
setproxy()
Catch ex As Exception
TextBox4.Text = "Excaption!" & ex.ToString
TextBox5.Text = +1
Delay(10)
setproxy()
End Try
End If
End Function
Private Sub Wait_tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WaitCounter.Tick
TextBox2.Text = TextBox2.Text + 1
TextBox1.Enabled = False
Button1.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
If TextBox2.Text > 30 Then
WaitCounter.Stop()
TextBox1.Enabled = True
Button1.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
TextBox2.Text = 0
End If
End Sub
' -------> ------> ------> ' Not used functions !
Sub Delay(ByVal dblSecs As Double)
Const OneSec As Double = 1.0# / (1440.0# * 60.0#)
Dim dblWaitTil As Date
Now.AddSeconds(OneSec)
dblWaitTil = Now.AddSeconds(OneSec).AddSeconds(dblSecs)
Do Until Now > dblWaitTil
Application.DoEvents() ' Allow windows messages to be processed
Loop
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form2.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WaitCounter.Start()
Delay(20)
proxy.DisableProxy()
WebBrowser1.Navigate("http://www.ipaddrs.com/")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Process.Start("rundll32.exe", "shell32.dll,Control_RunDLL inetcpl.cpl")
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Application.Restart()
End Sub
End Class
REM x M4TPAC
Public Class wvp
Sub DisableProxy()
Dim regKey As RegistryKey
Try
regKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", RegistryKeyPermissionCheck.ReadWriteSubTree)
regKey.SetValue("ProxyEnable", False, RegistryValueKind.DWord)
regKey.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Public Sub SetProxy(ByVal ServerName As String, ByVal port As Integer)
Dim regkey1 As RegistryKey
regkey1 = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", RegistryKeyPermissionCheck.ReadWriteSubTree)
regkey1.SetValue("ProxyServer", ServerName + ":" + port.ToString(), RegistryValueKind.Unknown)
regkey1.SetValue("ProxyEnable", RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryValueKind.DWord)
regkey1.Close()
End Sub
End Class
