NotesWhat is notes.io?

Notes brand slogan

Notes - notes.io


#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
     
 
what is notes.io
 

Notes.io is a web-based application for taking notes. You can take your notes and share with others people. If you like taking long notes, notes.io is designed for you. To date, over 8,000,000,000 notes created and continuing...

With notes.io;

  • * You can take a note from anywhere and any device with internet connection.
  • * You can share the notes in social platforms (YouTube, Facebook, Twitter, instagram etc.).
  • * You can quickly share your contents without website, blog and e-mail.
  • * You don't need to create any Account to share a note. As you wish you can use quick, easy and best shortened notes with sms, websites, e-mail, or messaging services (WhatsApp, iMessage, Telegram, Signal).
  • * Notes.io has fabulous infrastructure design for a short link and allows you to share the note as an easy and understandable link.

Fast: Notes.io is built for speed and performance. You can take a notes quickly and browse your archive.

Easy: Notes.io doesn’t require installation. Just write and share note!

Short: Notes.io’s url just 8 character. You’ll get shorten link of your note when you want to share. (Ex: notes.io/q )

Free: Notes.io works for 12 years and has been free since the day it was started.


You immediately create your first note and start sharing with the ones you wish. If you want to contact us, you can use the following communication channels;


Email: [email protected]

Twitter: http://twitter.com/notesio

Instagram: http://instagram.com/notes.io

Facebook: http://facebook.com/notesio



Regards;
Notes.io Team

     
 
Shortened Note Link
 
 
Looding Image
 
     
 
Long File
 
 

For written notes was greater than 18KB Unable to shorten.

To be smaller than 18KB, please organize your notes, or sign in.