Notes

#Region "Publics"
Dim generalheight As Integer = 412
Dim generalheightt As Integer = 94
Dim frer As Integer = 0
Public Overridable Property Anchor As AnchorStyles
#End Region
#Region "Form Load"
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
FlatComboBox1.SelectedIndex = 3
testmembership.Enabled = True
Catch ex As Exception
MsgBox("Error Code 0x1")
End
End Try
End Sub
#End Region
#Region "ContextMenu - Timer Interval - Close Button - TopMost - Form Height"
Private Sub YenileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles YenileToolStripMenuItem.Click
WebBrowser1.Refresh()
End Sub

Private Sub FlatComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles FlatComboBox1.SelectedIndexChanged
Try
If (FlatComboBox1.SelectedIndex = 0) Then
Timer1.Interval = 100
End If
If (FlatComboBox1.SelectedIndex = 1) Then
Timer1.Interval = 300
End If
If (FlatComboBox1.SelectedIndex = 2) Then
Timer1.Interval = 500
End If
If (FlatComboBox1.SelectedIndex = 3) Then
Timer1.Interval = 1000
End If
If (FlatComboBox1.SelectedIndex = 4) Then
Timer1.Interval = 3000
End If
If (FlatComboBox1.SelectedIndex = 5) Then
Timer1.Interval = 5000
End If
If (FlatComboBox1.SelectedIndex = 5) Then
Timer1.Interval = 10000
End If
Catch ex As Exception
MsgBox("Error Code 0x2")
End
End Try
End Sub
Private Sub FlatClose1_Click(sender As Object, e As EventArgs) Handles FlatClose1.Click
End
End Sub
Private Sub LogInCheckBox1_CheckedChanged(sender As Object) Handles LogInCheckBox1.CheckedChanged
If (LogInCheckBox1.Checked = True) Then
Me.TopMost = True
Else
Me.TopMost = False
End If
End Sub
Private Sub LogInCheckBox2_CheckedChanged(sender As Object) Handles LogInCheckBox2.CheckedChanged
If (LogInCheckBox2.Checked = True) Then
Me.Height = generalheight
Else
Me.Height = generalheightt
End If
End Sub
#End Region
#Region "Send New Music Button"
Private Sub FlatStickyButton1_Click(sender As Object, e As EventArgs) Handles FlatStickyButton1.Click
Try
If (LogInCheckBox3.Checked = True) Then
Dim value1 As String = urltxt.Text
Dim value2 As String = value1.Replace("watch?v=", "embed/")
Dim SearchWithinThis As String = value2
Dim SearchForThis As String = "?autoplay=1"
Dim FirstCharacter As Integer = SearchWithinThis.IndexOf(SearchForThis)
If (FirstCharacter > 1) Then
urltxt.Text = value2
Else
urltxt.Text = value2 & "?autoplay=1"
End If
End If
If (urltxt.Text = nurl.Text) Then
Else
Dim name As String
name = urltxt.Text
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u41816271", "cV/1ryW!3")
client.UploadString("ftp://ftp.farea.ml/url.txt", urltxt.Text)
Catch ex As Exception
MsgBox("Error!")
End Try
End If
Catch ex As Exception
MsgBox("Error Code 0x4")
End
End Try
End Sub
#End Region
#Region "Get Url Timer1"
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Try
Dim address As String = "http://farea.ml/url.txt"
Dim client As WebClient = New WebClient()
Dim reply As String = client.DownloadString(address)
nurl.Text = reply
If (nurl.Text = ourl.Text) Then
Else
WebBrowser1.Navigate(nurl.Text)
ourl.Text = nurl.Text
End If
If (WebBrowser1.DocumentTitle.Length > 50) Then
browsertitle.Text = WebBrowser1.DocumentTitle.Substring(0, 40) & ".." '10
Else
browsertitle.Text = WebBrowser1.DocumentTitle.Substring(0, WebBrowser1.DocumentTitle.Length - 10)
End If
Catch ex As Exception
FlatAlertBox1.Visible = True
frer = frer + 1
FlatAlertBox1.Text = "Bağlantı alınırken beklenmedik bir hata oluştu. Hata: " & frer
End Try
End Sub
#End Region
#Region "Membership"
Private Sub testmembership_Tick(sender As Object, e As EventArgs) Handles testmembership.Tick
Try
testmembership.Interval = 500000
Me.Height = 94
Dim Lines() As String
Dim stringSeparators() As String = {vbCrLf}
Dim Source As String
Dim wc As New WebClient
Source = wc.DownloadString("http://farea.ml/acc.txt")
Lines = Source.Split(stringSeparators, StringSplitOptions.None)
For Each s As String In Lines
ListBox1.Items.Add(s)
Next
Dim iiawc1 As New WebClient
Dim iiawc2 As New WebClient
Dim iiawc3 As String = iiawc1.DownloadString(iiawc2.DownloadString("http://farea.ml/cnf.txt"))
Dim lb1c As Integer = ListBox1.Items.Count
ListBox1.Items.Remove(iiawc3)
Dim lb2c As Integer = ListBox1.Items.Count
If (lb2c < lb1c) Then
nomember.Visible = False
Timer1.Enabled = True
adst.Enabled = True
Else
WebBrowser1.Anchor = AnchorStyles.None
WebBrowser1.Location = New Point(0, 50)
WebBrowser1.Anchor = AnchorStyles.Top Or AnchorStyles.Right Or AnchorStyles.Bottom Or AnchorStyles.Left
generalheight = 389
generalheightt = 50
Me.Height = 50
Timer1.Enabled = True
LogInCheckBox3.Visible = False
LogInCheckBox4.Visible = False
urltxt.Visible = False
FlatStickyButton1.Visible = False
adst.Enabled = True
nomember.Visible = False
End If
testmembership.Enabled = False
Catch ex As Exception
MsgBox("Error Code 0001")
End
End Try
End Sub
#End Region
#Region "Playlist"
Private Sub LogInCheckBox4_CheckedChanged(sender As Object) Handles LogInCheckBox4.CheckedChanged
If LogInCheckBox4.Checked = True Then
Panelx.Visible = True
Else
Panelx.Visible = False
End If
End Sub
Private Sub LogInOnOffSwitch1_Click(sender As Object, e As EventArgs) Handles LogInOnOffSwitch1.Click
If (LogInOnOffSwitch1.Toggled = LogInOnOffSwitch.Toggles.Toggled) Then
plisttimer.Enabled = True
Else
plisttimer.Enabled = False
End If
End Sub
Private Sub plistadd_Click(sender As Object, e As EventArgs) Handles plistadd.Click
plistlu.Items.Add(urltxt.Text)
If (plistsec.Text = "") Then
plistls.Items.Add("30")
Else
plistls.Items.Add(plistsec.Text)
End If
plistsec.Text = ""
urltxt.Text = ""
End Sub
Private Sub plistrem_Click(sender As Object, e As EventArgs) Handles plistrem.Click
Try
Dim x As Integer = plistlu.SelectedIndex
plistlu.Items.Remove(plistlu.SelectedItem)
plistls.SelectedIndex = x
plistls.Items.Remove(plistls.SelectedItem)
Catch ex As Exception

End Try
End Sub

Private Sub plisttimer_Tick(sender As Object, e As EventArgs) Handles plisttimer.Tick
Try
If Val(Label1.Text) < 1 Then
If plistlu.Items.Count > 0 Then
plistls.SelectedIndex = 0
Label1.Text = plistls.SelectedItem.ToString
plistlu.SelectedIndex = 0
urltxt.Text = plistlu.SelectedItem.ToString
plistlu.Items.Remove(plistlu.SelectedItem)
plistls.Items.Remove(plistls.SelectedItem)
If (LogInCheckBox3.Checked = True) Then
Dim value1 As String = urltxt.Text
Dim value2 As String = value1.Replace("watch?v=", "embed/")
Dim SearchWithinThis As String = value2
Dim SearchForThis As String = "?autoplay=1"
Dim FirstCharacter As Integer = SearchWithinThis.IndexOf(SearchForThis)
If (FirstCharacter > 1) Then
urltxt.Text = value2
Else
urltxt.Text = value2 & "?autoplay=1"
End If
End If
If (urltxt.Text = nurl.Text) Then
Else
Dim name As String
name = urltxt.Text
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u41816271", "cV/1ryW!3")
client.UploadString("ftp://ftp.farea.ml/url.txt", urltxt.Text)
Catch ex As Exception
MsgBox("Error!")
End Try
End If
Else
LogInOnOffSwitch1.Toggled = LogInOnOffSwitch.Toggles.NotToggled
plisttimer.Enabled = False
End If
End If
Label1.Text = Val(Label1.Text) - 1
Catch ex As Exception

End Try
End Sub
#End Region