hi guys,
Why won't my code press the button in WB?????
Code:
Imports System.Runtime.InteropServices
Imports System.IO, System.Net, System.Net.Sockets
Public Class Proxy
Dim AppLocation, CurLocation As New Point(0, 0)
Sub Sync()
AppLocation = Me.Location
CurLocation = Cursor.Position
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Location = AppLocation - CurLocation + Cursor.Position
End Sub
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
Timer1.Enabled = True
Timer1.Start()
Sync()
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Timer1.Stop()
Sync()
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Me.Close()
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Me.WindowState = FormWindowState.Minimized
End Sub
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()
Loop
End Sub
<Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
End Function
Public Structure Struct_INTERNET_PROXY_INFO
Public dwAccessType As Integer
Public proxy As IntPtr
Public proxyBypass As IntPtr
End Structure
Private Sub RefreshIESettings(ByVal strProxy As String)
Const INTERNET_OPTION_PROXY As Integer = 38
Const INTERNET_OPEN_TYPE_PROXY As Integer = 3
Dim struct_IPI As Struct_INTERNET_PROXY_INFO
struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")
Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))
Marshal.StructureToPtr(struct_IPI, intptrStruct, True)
Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
End Sub
'Public Sub NormalViewsBrowserOne()
' If (BrowserURL.Text <> "") And (BrowserOneViews.Text <> "") And (BrowserOneDelay.Text <> "") Then
' Dim BrowserOneNeededViews As Integer = Val(BrowserOneViews.Text)
' Dim BrowserOneDoneViews As Integer = 0
' If (BrowserOneNeededViews > 0) Then
' Status.ForeColor = Color.Orange
' ViewsDone.ForeColor = Color.Orange
' Status.Text = "Status: Viewing..."
' ViewsDone.Text = "Views Completed: 0"
' WB.Navigate(BrowserURL.Text)
' BrowserOneDoneViews = BrowserOneDoneViews + 1
' BrowserOneNeededViews = BrowserOneNeededViews - 1
' ViewsDone.Text = "Views completed: " & BrowserOneDoneViews
' Delay(Val(BrowserOneDelay.Text))
' While (BrowserOneNeededViews > 0)
' WB.Refresh()
' BrowserOneDoneViews = BrowserOneDoneViews + 1
' BrowserOneNeededViews = BrowserOneNeededViews - 1
' ViewsDone.Text = "Views completed: " & BrowserOneDoneViews
' Delay(Val(BrowserOneDelay.Text))
' End While
' Status.ForeColor = Color.LimeGreen
' ViewsDone.ForeColor = Color.LimeGreen
' Status.Text = "Status: Completed Requested Views"
' Else
' MsgBox("You must enter 1 or more views", 0, "Error: Requested Views")
' End If
' Else
' MsgBox("You must fill in all the forms on enabled browsers first.", 0, "Error: Empty Forms")
' End If
'End Sub
Public Sub ProxyViewsBrowserOne()
Dim AmountOfProxies As Integer = ProxyList.Items.Count
If (BrowserURL.Text <> "") And (BrowserOneViews.Text <> "") And (BrowserOneDelay.Text <> "") Then
Dim BrowserOneNeededViews As Integer = Val(BrowserOneViews.Text)
Dim BrowserOneDoneViews As Integer = 0
Dim CounterProxies As Integer = 1
If (AmountOfProxies > 1) Then
If (BrowserOneNeededViews > 0) Then
Status.ForeColor = Color.Orange
ViewsDone.ForeColor = Color.Orange
Status.Text = "Status: Viewing..."
ViewsDone.Text = "Views Completed: 0"
RefreshIESettings(ProxyList.Items(0))
WB.Navigate(BrowserURL.Text)
'Add the adf.ly button click here.....
Try
WB.Document.GetElementById("skip_button").InvokeMember("click")
BrowserOneDoneViews = BrowserOneDoneViews + 1
BrowserOneNeededViews = BrowserOneNeededViews - 1
ViewsDone.Text = "Views completed: " & BrowserOneDoneViews
Delay(Val(BrowserOneDelay.Text))
Catch ex As Exception
End Try
'While (BrowserOneNeededViews > 0)
' If (AmountOfProxies > CounterProxies) Then
' RefreshIESettings(ProxyList.Items(CounterProxies))
' WB.Refresh()
' BrowserOneDoneViews = BrowserOneDoneViews + 1
' BrowserOneNeededViews = BrowserOneNeededViews - 1
' CounterProxies = CounterProxies + 1
' ViewsDone.Text = "Views completed: " & BrowserOneDoneViews
' Delay(Val(BrowserOneDelay.Text))
' Else
' CounterProxies = 0
' End If
'End While
Status.ForeColor = Color.LimeGreen
ViewsDone.ForeColor = Color.LimeGreen
Status.Text = "Status: Completed Requested Views"
Else
MsgBox("You must enter 1 or more views", 0, "Error: Requested Views")
End If
Else
MsgBox("You must have more than one proxy added.", 0, "Error: Not Enough Proxies")
End If
Else
MsgBox("You must fill in all the forms on enabled browsers first.", 0, "Error: Empty Forms")
End If
End Sub
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
If (BrowserOneProxies.SelectedIndex = 0) Then
If (ProxyList.SelectedItem <> "") Then
RefreshIESettings(ProxyList.SelectedItem)
'NormalViewsBrowserOne()
Else
MsgBox("No proxy is selected, please select a proxy", 0, "Error: No Proxy")
End If
ElseIf (BrowserOneProxies.SelectedIndex = 1) Then
ProxyViewsBrowserOne()
ElseIf (BrowserOneProxies.SelectedIndex = 2) Then
'NormalViewsBrowserOne()
End If
End Sub
Private Sub AddProxy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddProxy.Click
Dim NewProxy As String
NewProxy = InputBox("Please enter a proxy you which to add in the format of - ip:port (0.0.0.0:8080)", "Add A New Proxy", "127.0.0.1:8080")
If (NewProxy <> "") Then
ProxyList.Items.Add(NewProxy)
End If
End Sub
Private Sub DeleteProxy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteProxy.Click
Dim Selected As Integer = ProxyList.SelectedIndex
ProxyList.Items.RemoveAt(Selected)
End Sub
Private Sub ClearProxy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearProxy.Click
ProxyList.Items.Clear()
End Sub
Private Sub Export_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Export.Click
Dim AmountOfProxies = ProxyList.Items.Count - 1
If AmountOfProxies = -1 Then
MsgBox("You must have one proxy added.", 0, "Error: Not Enough Proxies")
Else
SaveFD.Title = "Save A Proxy List"
SaveFD.Filter = "Txt Files | *.txt"
SaveFD.ShowDialog()
Dim FILE_NAME As String = SaveFD.FileName()
If System.IO.File.Exists(FILE_NAME) = True Then
Dim i As Integer
Dim objwriter As New System.IO.StreamWriter(FILE_NAME, True)
For i = 0 To AmountOfProxies
objwriter.WriteLine(ProxyList.Items(i))
Next i
MsgBox("Proxies Saved", 0, "")
objwriter.Close()
End If
End If
End Sub
Private Sub Import_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Import.Click
OpenFD.Title = "Open A Proxy List"
OpenFD.Filter = "Txt Files | *.txt"
OpenFD.ShowDialog()
Dim FILE_NAME As String = OpenFD.FileName
Dim TextLine As String
If System.IO.File.Exists(FILE_NAME) = True Then
Dim objReader As New System.IO.StreamReader(FILE_NAME)
Do While objReader.Peek() <> -1
TextLine = objReader.ReadLine
ProxyList.Items.Add(TextLine)
Loop
End If
End Sub
Private Sub WebBrowserOne_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WB.DocumentCompleted
End Sub
End Class