Imports System.Text.RegularExpressions
Imports System
Imports System.IO
Imports System.Net
Public Class Form1
    Dim file As System.IO.StreamWriter
    Dim FileToDelete As String
    Dim strIPAddress As String
    Dim strHostName As String
    Dim detik As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' menampilkan ip adress di label2
        strHostName = System.Net.Dns.GetHostName()
        strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()
        Label2.Text = (strIPAddress)
        Label10.Text = Format(Now, "dd")
        Label11.Text = Format(Now, "MM")
        '===========================================================
        If Label10.Text >= "21" And Label11.Text >= "12" Then
            MsgBox("EXPIRED PADA TANGGAL 21 12 2015")
            Me.Close()
        End If

        If Label2.Text = ("TextBox3") Then
            MsgBox("sebelum login masukan key ip anda dulu")
        End If
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
        'ketika di klik link label akan eksekusi membuka browser yang ada di PC
        System.Diagnostics.Process.Start("http://www.facebook.com/adefajr.ariav")
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If detik = 5 Then
            ' coding dibawah ini akan berjalan bila click Button1.Login
            Label4.Text = Format(detik, "0000")
            Timer1.Enabled = True
        End If

        detik = detik + 1
        If detik > 0 Then
        End If
        Label4.Text = Format(detik, "0000")

        If detik = 0 Then
            Timer1.Enabled = False
            Me.Close()
        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim req As WebRequest = WebRequest.Create("http://welcome6.wifi.id/authapt/login/check_login.php?username=143214101.vmgmt@event&password=fan")
        Dim res As WebResponse = req.GetResponse
        Dim datastream As Stream = res.GetResponseStream()
        Dim reader As New StreamReader(datastream)
        Dim responseFromServer As String = reader.ReadToEnd
        res.Close()
        datastream.Close()
        log.Text = responseFromServer & vbCrLf
        System.Diagnostics.Process.Start("http://iav.96.lt")

        If Label2.Text = TextBox3.Text Then
            MsgBox("masukan key IP Adress Anda pada kolom Key !!!")
        End If

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim req As WebRequest = WebRequest.Create("http://welcome6.wifi.id/authwag/login/check_login.php?username=143214101.vmgmt@event&password=fan")
        Dim res As WebResponse = req.GetResponse
        Dim datastream As Stream = res.GetResponseStream()
        Dim reader As New StreamReader(datastream)
        Dim responseFromServer As String = reader.ReadToEnd
        res.Close()
        datastream.Close()
        log.Text = responseFromServer & vbCrLf
        System.Diagnostics.Process.Start("http://iav.96.lt")

        If Label2.Text = TextBox3.Text Then
            MsgBox("masukan key IP Adress Anda pada kolom Key !!!")
        End If

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim req As WebRequest = WebRequest.Create("http://welcome6.wifi.id/authnew/login/check_login.php?ipc=" & Label2.Text & "&gwid" & TextBox2.Text & "username=143214101.vmgmt@event&password=fan")
        Dim res As WebResponse = req.GetResponse
        Dim datastream As Stream = res.GetResponseStream()
        Dim reader As New StreamReader(datastream)
        Dim responseFromServer As String = reader.ReadToEnd
        res.Close()
        datastream.Close()
        log.Text = responseFromServer & vbCrLf
        System.Diagnostics.Process.Start("http://iav.96.lt")

        If Label2.Text = TextBox3.Text Then
            MsgBox("masukan key IP Adress Anda pada kolom Key !!!")
        End If

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim req As WebRequest = WebRequest.Create("http://welcome9.wifi.id/authapt/login/check_login.php?username=143214101.vmgmt@event&password=fan")
        Dim res As WebResponse = req.GetResponse
        Dim datastream As Stream = res.GetResponseStream()
        Dim reader As New StreamReader(datastream)
        Dim responseFromServer As String = reader.ReadToEnd
        res.Close()
        datastream.Close()
        log.Text = responseFromServer & vbCrLf
        System.Diagnostics.Process.Start("http://iav.96.lt")

        If Label2.Text = TextBox3.Text Then
            MsgBox("masukan key IP Adress Anda pada kolom Key !!!")
        End If

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim req As WebRequest = WebRequest.Create("http://welcome9.wifi.id/authwag/login/check_login.php?username=143214101.vmgmt@event&password=fan")
        Dim res As WebResponse = req.GetResponse
        Dim datastream As Stream = res.GetResponseStream()
        Dim reader As New StreamReader(datastream)
        Dim responseFromServer As String = reader.ReadToEnd
        res.Close()
        datastream.Close()
        log.Text = responseFromServer & vbCrLf
        System.Diagnostics.Process.Start("http://iav.96.lt")

        If Label2.Text = TextBox3.Text Then
            MsgBox("masukan key IP Adress Anda pada kolom Key !!!")
        End If

    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        'karena new membutuhkan ip dan gwid maka kita disini mengkombinasi antara ip dan gwid
        Dim req As WebRequest = WebRequest.Create("http://welcome9.wifi.id/authnew/login/check_login.php?ipc=" & Label2.Text & "&gwid" & TextBox1.Text & "username=143214101.vmgmt@event&password=fan")
        Dim res As WebResponse = req.GetResponse
        Dim datastream As Stream = res.GetResponseStream()
        Dim reader As New StreamReader(datastream)
        Dim responseFromServer As String = reader.ReadToEnd
        res.Close()
        datastream.Close()
        ' coding dibawah ini akan menampilkan status berhasil atau gagalnya login pada log.text atau ricktexsbox
        log.Text = responseFromServer & vbCrLf
        System.Diagnostics.Process.Start("http://iav.96.lt")

        If Label2.Text = TextBox3.Text Then
            MsgBox("masukan key IP Adress Anda pada kolom Key !!!")
        End If

    End Sub
    Private Function DateTime() As Date
        Throw New NotImplementedException
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        System.Diagnostics.Process.Start("http://iav.96.lt")
        Me.Close()
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Me.Hide()
    End Sub
End Class