Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Threading

Public Class Form1
    Dim user As String = "IdHere"
    Dim pass As String = "PassHere"
    Dim traffic_announce As Boolean = False
    Dim lead_announce As Boolean = True

    Dim max_errors As Integer = 3
    Dim cc As New CookieContainer
    Private Function API_Request(url As String, postData As String) As String
        For i = 1 To max_errors
            Try
                Dim request As HttpWebRequest = HttpWebRequest.Create(url)
                With request
                    .Timeout = 10000
                    .ContentType = "application/x-www-form-urlencoded"
                    .Method = "POST"
                    .ContentLength = postData.Length
                    .CookieContainer = cc
                    .UserAgent = "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.111 Safari/537.36"
                End With


                Dim requestStream As Stream = request.GetRequestStream()
                Dim postBytes As Byte() = Encoding.ASCII.GetBytes(postData)
                requestStream.Write(postBytes, 0, postBytes.Length)
                requestStream.Close()
                Dim response As HttpWebResponse = request.GetResponse()
                cc.Add(response.Cookies)
                Dim server_response As String
                Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
                server_response = reader.ReadToEnd()
                reader.Dispose()
                requestStream.Dispose()
                response.Dispose()
                Return server_response
            Catch ex As Exception
            End Try
        Next
        Return "error"
    End Function
    Private Function page_source(ByVal URL As String) As String
        Dim errors As String
        For i = 1 To max_errors
            Try
                Dim req As Net.HttpWebRequest = Net.HttpWebRequest.Create(URL)
                req.CookieContainer = cc
                req.ContentType = "application/x-www-form-urlencoded"
                req.Timeout = 7000
                req.AllowAutoRedirect = True
                Dim res As Net.HttpWebResponse = req.GetResponse()
                Dim strm As New IO.StreamReader(res.GetResponseStream())
                Dim html As String = strm.ReadToEnd()
                strm.Dispose()
                res.Dispose()
                Return html
            Catch ex As Exception
            End Try
        Next
        Return "error"
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Left = -10000
        Dim r1 As String = API_Request("http://vipoffers.com/stats/vip/index.php", "user=" & user & "&pass=" & pass)

        If traffic_announce = True Then
            traffic.Start()
        End If
        If lead_announce = True Then
            lead.Start()
        End If
        hider.Start()
    End Sub

    Dim old_nr_cl As Integer = -1
    Private Sub traffic_Tick(sender As Object, e As EventArgs) Handles traffic.Tick
        Dim res As String = page_source("http://vipoffers.com/stats/vip/RESTful.php?report=gr&days=1")
        res = res.Replace("[", ",").Replace("]", ",")
        Dim sp() As String = res.Split(",")

        Dim nr_clicks As Integer
        For i = 7 To 99 Step +4
            nr_clicks += sp(i)
        Next
        If old_nr_cl = -1 Then
            old_nr_cl = nr_clicks
        End If
        If nr_clicks < old_nr_cl Then
            old_nr_cl = 0
        End If

        If nr_clicks > old_nr_cl Then
            For i = old_nr_cl To nr_clicks - 1
                My.Computer.Audio.Play(My.Resources.bip, AudioPlayMode.Background)
                Thread.Sleep(1000)
            Next
            old_nr_cl = nr_clicks
        End If
    End Sub

    Dim old_nr_leads As Integer = -1
    Private Sub lead_Tick(sender As Object, e As EventArgs) Handles lead.Tick
        Dim res As String = page_source("http://vipoffers.com/stats/vip/RESTful.php?report=income")
        res = res.Replace("conv"":""", "#")
        Dim sp1() As String = res.Split("#")
        Dim nr_leads As Integer = 0
        For Each itm In sp1
            Dim sp2() As String = itm.Split("""")
            Try
                nr_leads += sp2(0)
            Catch ex As Exception
            End Try
        Next

        If old_nr_leads = -1 Then
            old_nr_leads = nr_leads
        ElseIf nr_leads < old_nr_leads
            old_nr_leads = nr_leads
        End If

        If nr_leads > old_nr_leads Then
            For i = old_nr_leads To nr_leads - 1
                My.Computer.Audio.Play(My.Resources.cash, AudioPlayMode.Background)
                Thread.Sleep(1000)
            Next
            old_nr_leads = nr_leads
        End If

    End Sub

    Private Sub hider_Tick(sender As Object, e As EventArgs) Handles hider.Tick
        hider.Stop()
        Me.Hide()
    End Sub
End Class