Imports System.IO
Public Class Form1
    Dim zaman As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Select Case ip.Text
                Case "lnxspy.com"
                    MsgBox("Yetkiniz Yok !!", MsgBoxStyle.Critical)
                Case "LNXSPY.COM"
                    MsgBox("Yetkiniz Yok !!", MsgBoxStyle.Critical)
                Case Else

                    Select Case Button1.Text
                        Case "Tara"
                            Button1.Text = "Durdur"
                            Timer1.Interval = 300
                            Timer1.Enabled = True
                        Case "Durdur"
                            Button1.Text = "Tara"
                            Timer1.Enabled = False

                    End Select

            End Select



        Catch ex As Exception

        End Try
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Try
            If skt.RemotePort = 65500 Then
                Button1.Text = "Tara"
                Timer1.Enabled = False
                MsgBox("Tarama Bitti !", MsgBoxStyle.Information)
            Else
                skt.Close()
                skt.RemoteHost = ip.Text
                skt.RemotePort = Val(skt.RemotePort) + 1
                skt.Connect()
                say.Text = skt.RemotePort

            End If

        Catch ex As Exception

        End Try
    End Sub

    Private Sub skt_ConnectEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles skt.ConnectEvent
        Try
            liste.Items.Add(skt.RemotePort)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub ip_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ip.TextChanged

    End Sub

    Private Sub ÖzelPortTaramaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖzelPortTaramaToolStripMenuItem.Click
        Try
            Form2.Show()
        Catch ex As Exception

        End Try
    End Sub


    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Try
            Process.Start("http://lnxspy.com")
        Catch ex As Exception

        End Try
    End Sub

    Private Sub svye_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles svye.Click

    End Sub


    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Try
            liste.Items.Clear()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub liste_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles liste.MouseDoubleClick
        Try
            Process.Start("http://" & ip.Text & ":" & liste.SelectedItem)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Try
            Dim yaz As New StreamWriter(Application.StartupPath & "\tekliste.txt")
            For i = 0 To liste.Items.Count - 1
                yaz.WriteLine(liste.Items.Item(i))
            Next
            yaz.Close()
        Catch ex As Exception

        End Try
    End Sub
End Class