first commit
This commit is contained in:
@@ -0,0 +1,650 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports System.Math
|
||||
Imports System.Windows.Controls
|
||||
|
||||
Public Class Filmform
|
||||
Public nom As String = ""
|
||||
Public time As String = ""
|
||||
Public auteur As String = ""
|
||||
Public filmdate As String = ""
|
||||
Public urlfilm As String = ""
|
||||
Public urllike As String = ""
|
||||
Dim dl As Integer = 0
|
||||
Dim pource As Integer = 0
|
||||
Dim téléchargement As Integer = 0
|
||||
|
||||
Private Sub Film_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Text = nom
|
||||
Label2.Text = nom
|
||||
Label4.Text = time
|
||||
Label6.Text = auteur
|
||||
Label8.Text = filmdate
|
||||
Dim lines1a() As String = File.ReadAllLines(théme)
|
||||
|
||||
If lines1a(0) = 2 Then
|
||||
CircularProgressBar1.ForeColor = Color.White
|
||||
Me.BackColor = Color.FromArgb(64, 64, 64)
|
||||
Button1.BackColor = Color.FromArgb(64, 64, 64)
|
||||
Button1.ForeColor = Color.White
|
||||
Label1.ForeColor = Color.White
|
||||
Label2.ForeColor = Color.White
|
||||
Label3.ForeColor = Color.White
|
||||
Label4.ForeColor = Color.White
|
||||
Label5.ForeColor = Color.White
|
||||
Label6.ForeColor = Color.White
|
||||
Label7.ForeColor = Color.White
|
||||
Label8.ForeColor = Color.White
|
||||
Label9.ForeColor = Color.White
|
||||
Label10.ForeColor = Color.White
|
||||
Label11.ForeColor = Color.White
|
||||
CheckBox1.ForeColor = Color.White
|
||||
LinkLabel1.LinkColor = Color.White
|
||||
LinkLabel1.ActiveLinkColor = Color.White
|
||||
ElseIf lines1a(0) = 3 Then
|
||||
LinkLabel1.LinkColor = Form1.ForeColor
|
||||
LinkLabel1.ActiveLinkColor = Form1.ForeColor
|
||||
PictureBox5.Image = Form1.PictureBox12.Image
|
||||
PictureBox4.Image = Form1.PictureBox11.Image
|
||||
PictureBox2.Image = Form1.PictureBox10.Image
|
||||
CircularProgressBar1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||||
Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Label11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
CheckBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
If Directory.Exists(film & "\" & nom & "\") = True Then
|
||||
|
||||
Else
|
||||
Directory.CreateDirectory(film & "\" & nom & "\")
|
||||
End If
|
||||
|
||||
If File.Exists(film & "\" & nom & "\film.txt") = True Then
|
||||
|
||||
Else
|
||||
Dim sw1 As New StreamWriter(film & "\" & nom & "\film.txt")
|
||||
sw1.WriteLine(0)
|
||||
sw1.Close()
|
||||
End If
|
||||
|
||||
If File.Exists(film & "\" & nom & "\like.txt") = True Then
|
||||
|
||||
Else
|
||||
Dim sw1 As New StreamWriter(film & "\" & nom & "\like.txt")
|
||||
sw1.WriteLine(0)
|
||||
sw1.Close()
|
||||
End If
|
||||
|
||||
Dim lines3() As String = File.ReadAllLines(film & "\" & nom & "\like.txt")
|
||||
|
||||
If lines3(0) = 1 Then
|
||||
PictureBox4.Show()
|
||||
PictureBox5.Hide()
|
||||
Else
|
||||
PictureBox4.Hide()
|
||||
PictureBox5.Show()
|
||||
End If
|
||||
|
||||
CheckBox1.Hide()
|
||||
CircularProgressBar1.Hide()
|
||||
CircularProgressBar1.Value = 0
|
||||
Dim lines2() As String = File.ReadAllLines(film & "\" & nom & "\film.txt")
|
||||
If lines2(0) = 1 Then
|
||||
PictureBox2.Hide()
|
||||
PictureBox3.Show()
|
||||
Else
|
||||
PictureBox2.Show()
|
||||
PictureBox3.Hide()
|
||||
End If
|
||||
|
||||
Timer1.Start()
|
||||
End Sub
|
||||
|
||||
Private Sub Filmform_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||||
If téléchargement = 1 Then
|
||||
MsgBox("Le téléchargement du film: " & nom & " est en cours merci de patienter !!!", MessageBoxIcon.Exclamation)
|
||||
e.Cancel = True
|
||||
End If
|
||||
PictureBox1.Image.Dispose()
|
||||
Timer1.Stop()
|
||||
nom = ""
|
||||
time = ""
|
||||
auteur = ""
|
||||
filmdate = ""
|
||||
urlfilm = ""
|
||||
urllike = ""
|
||||
End Sub
|
||||
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
|
||||
lang()
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
||||
Dim sw4 As New StreamWriter(filmhc)
|
||||
Dim sw1 As New StreamWriter(film & "\" & nom & "\film.txt")
|
||||
sw1.WriteLine(0)
|
||||
sw1.Close()
|
||||
PictureBox2.Show()
|
||||
PictureBox3.Hide()
|
||||
Form16.ListBox1.Items.Remove(nom)
|
||||
For Each item In Form16.ListBox1.Items
|
||||
sw4.WriteLine(item)
|
||||
Next
|
||||
sw4.Close()
|
||||
File.Delete(film & "\" & nom & "\" & nom & ".mkv")
|
||||
End Sub
|
||||
Sub lang()
|
||||
internetfr()
|
||||
End Sub
|
||||
Sub internetfr()
|
||||
Try
|
||||
If My.Computer.Network.Ping("www.Google.com") Then
|
||||
downloadfr()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information, "Hors connexion")
|
||||
End Try
|
||||
End Sub
|
||||
Sub downloadfr()
|
||||
Form1.Timer6.Stop()
|
||||
Dim lines1() As String = File.ReadAllLines(setting)
|
||||
If lines1(0) = 0 Then
|
||||
downloadfr1()
|
||||
ElseIf lines1(0) = 1 Then
|
||||
downloadfr2()
|
||||
End If
|
||||
End Sub
|
||||
Sub downloadfr1()
|
||||
LinkLabel1.Hide()
|
||||
Form1.NotifyIcon1.BalloonTipTitle = "Téléchargement:"
|
||||
Form1.NotifyIcon1.BalloonTipText = "Début du téléchargement de: " & nom
|
||||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||||
CheckBox1.Show()
|
||||
téléchargement = 1
|
||||
Button1.Enabled = False
|
||||
CircularProgressBar1.Show()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(urlfilm & "/" & nom & ".mkv"), (film & "\" & nom & "\" & nom & ".mkv"))
|
||||
End Sub
|
||||
Sub downloadfr2()
|
||||
LinkLabel1.Hide()
|
||||
Form1.NotifyIcon1.BalloonTipTitle = "Téléchargement:"
|
||||
Form1.NotifyIcon1.BalloonTipText = "Début du téléchargement de: " & nom
|
||||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||||
CheckBox1.Show()
|
||||
téléchargement = 1
|
||||
Button1.Enabled = False
|
||||
CircularProgressBar1.Show()
|
||||
Form1.Hide()
|
||||
Form16.Hide()
|
||||
Me.Hide()
|
||||
téléchargerfr = New WebClient
|
||||
téléchargerfr.DownloadFileTaskAsync(New Uri(urlfilm & "/" & nom & ".mkv"), (film & "\" & nom & "\" & nom & ".mkv"))
|
||||
End Sub
|
||||
|
||||
Private Sub téléchargerfr_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles téléchargerfr.DownloadProgressChanged
|
||||
pource = e.ProgressPercentage
|
||||
If e.ProgressPercentage = "50" Then
|
||||
CircularProgressBar1.ProgressColor = Color.DodgerBlue
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
pourcent50()
|
||||
ElseIf e.ProgressPercentage = "10" Then
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
pourcent10()
|
||||
ElseIf e.ProgressPercentage = "30" Then
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
pourcent30()
|
||||
ElseIf e.ProgressPercentage = "70" Then
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
pourcent70()
|
||||
ElseIf e.ProgressPercentage = " 90" Then
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
pourcent90()
|
||||
ElseIf e.ProgressPercentage = "100" Then
|
||||
CircularProgressBar1.ProgressColor = Color.Green
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
ElseIf e.ProgressPercentage = "0" Then
|
||||
CircularProgressBar1.ProgressColor = Color.Red
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
End If
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
Dim disctédossier = func_RoundTaille(e.BytesReceived)
|
||||
Dim disctédossier2 = func_RoundTaille(e.TotalBytesToReceive)
|
||||
Label9.Text = disctédossier & " / " & disctédossier2
|
||||
Me.Text = nom & ": " & e.ProgressPercentage & "%: " & disctédossier & " / " & disctédossier2
|
||||
CircularProgressBar1.Value = e.ProgressPercentage
|
||||
CircularProgressBar1.Text = e.ProgressPercentage & "%"
|
||||
End Sub
|
||||
|
||||
Private Sub téléchargerfr_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles téléchargerfr.DownloadFileCompleted
|
||||
LinkLabel1.Show()
|
||||
Form1.NotifyIcon1.BalloonTipTitle = "Téléchargement terminer"
|
||||
Form1.NotifyIcon1.BalloonTipText = "Le téléchargement de: " & nom & " est terminer."
|
||||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||||
Form1.min = Form1.minmax
|
||||
Form1.Timer6.Start()
|
||||
téléchargement = 0
|
||||
If CheckBox1.Checked = True Then
|
||||
CheckBox1.Hide()
|
||||
téléchargement = 0
|
||||
Form1.Show()
|
||||
Form16.Show()
|
||||
Me.Show()
|
||||
Me.Cursor = Cursors.Default
|
||||
Me.Text = nom
|
||||
Label9.Text = ""
|
||||
CircularProgressBar1.Hide()
|
||||
Button1.Enabled = True
|
||||
PictureBox2.Hide()
|
||||
PictureBox3.Show()
|
||||
Dim sw4 As New StreamWriter(filmhc)
|
||||
Form16.ListBox1.Items.Add(nom)
|
||||
|
||||
For Each item In Form16.ListBox1.Items
|
||||
sw4.WriteLine(item)
|
||||
Next
|
||||
sw4.Close()
|
||||
Dim sw1 As New StreamWriter(film & "\" & nom & "\film.txt")
|
||||
sw1.WriteLine(1)
|
||||
sw1.Close()
|
||||
Form92.ShowDialog()
|
||||
Else
|
||||
terfr()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Dim WithEvents téléchargerfr As WebClient
|
||||
Dim WithEvents téléchargeren As WebClient
|
||||
Sub terfr()
|
||||
Dim lines5() As String = File.ReadAllLines(settings4)
|
||||
If lines5(0) = 0 Then
|
||||
terfr2()
|
||||
ElseIf lines5(0) = 1 Then
|
||||
Dim son = New System.Media.SoundPlayer(My.Resources.fin_de_téléchargement)
|
||||
son.Play()
|
||||
terfr2()
|
||||
ElseIf lines5(0) = 2 Then
|
||||
terfr3()
|
||||
End If
|
||||
End Sub
|
||||
Sub terfr2()
|
||||
téléchargement = 0
|
||||
CheckBox1.Hide()
|
||||
Form1.Show()
|
||||
Form16.Show()
|
||||
Me.Show()
|
||||
Me.Cursor = Cursors.Default
|
||||
Me.Text = nom
|
||||
Label9.Text = ""
|
||||
CircularProgressBar1.Hide()
|
||||
Button1.Enabled = True
|
||||
PictureBox2.Hide()
|
||||
PictureBox3.Show()
|
||||
Dim sw4 As New StreamWriter(filmhc)
|
||||
Form16.ListBox1.Items.Add(nom)
|
||||
|
||||
For Each item In Form16.ListBox1.Items
|
||||
sw4.WriteLine(item)
|
||||
Next
|
||||
sw4.Close()
|
||||
Dim sw1 As New StreamWriter(film & "\" & nom & "\film.txt")
|
||||
sw1.WriteLine(1)
|
||||
sw1.Close()
|
||||
MsgBox("Le film a été télécharger!!!", MsgBoxStyle.Information)
|
||||
End Sub
|
||||
Sub terfr3()
|
||||
CheckBox1.Hide()
|
||||
Form1.Show()
|
||||
Form16.Show()
|
||||
Me.Show()
|
||||
Me.Cursor = Cursors.Default
|
||||
Me.Text = nom
|
||||
Label9.Text = ""
|
||||
CircularProgressBar1.Hide()
|
||||
Button1.Enabled = True
|
||||
PictureBox2.Hide()
|
||||
PictureBox3.Show()
|
||||
Dim sw4 As New StreamWriter(filmhc)
|
||||
Form16.ListBox1.Items.Add(nom)
|
||||
|
||||
For Each item In Form16.ListBox1.Items
|
||||
sw4.WriteLine(item)
|
||||
Next
|
||||
sw4.Close()
|
||||
Dim sw1 As New StreamWriter(film & "\" & nom & "\film.txt")
|
||||
sw1.WriteLine(1)
|
||||
sw1.Close()
|
||||
Form74.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Dim lines1222() As String = File.ReadAllLines(settings1)
|
||||
If lines1222(5) = 1 Then
|
||||
Form1.Timer25.Start()
|
||||
End If
|
||||
Dim t1 = nom
|
||||
Dim t2 = marqueur & t1 & ".txt"
|
||||
|
||||
If File.Exists(t2) = True Then
|
||||
formmarqueur.ShowDialog()
|
||||
Else
|
||||
Form1.AjoutéUnMarqueurToolStripMenuItem.Enabled = True
|
||||
Form1.AjoutéAuFavorisToolStripMenuItem.Enabled = False
|
||||
Button1.Enabled = False
|
||||
langfr()
|
||||
End If
|
||||
End Sub
|
||||
Sub langfr()
|
||||
Try
|
||||
If My.Computer.Network.Ping("www.Google.com") = True Then
|
||||
langfr2()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
|
||||
Button1.Enabled = True
|
||||
Me.Close()
|
||||
End Try
|
||||
End Sub
|
||||
Sub langfr2()
|
||||
Dim lines2() As String = File.ReadAllLines(notification)
|
||||
Form1.AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
||||
Form1.AxWindowsMediaPlayer1.currentPlaylist.clear()
|
||||
If lines2(0) = 1 Then
|
||||
langfr3()
|
||||
ElseIf lines2(0) = 0 Then
|
||||
langfr4()
|
||||
End If
|
||||
End Sub
|
||||
Sub langfr3()
|
||||
Dim sw4 As New StreamWriter(historique)
|
||||
Form1.AxWindowsMediaPlayer1.URL = urlfilm & "/" & nom & ".mkv"
|
||||
Form1.PictureBox1.Hide()
|
||||
Form1.Text = lecteurnom & ": " & Form1.AxWindowsMediaPlayer1.currentMedia.name
|
||||
Form1.NotifyIcon1.BalloonTipTitle = "Lecteur média"
|
||||
Form1.NotifyIcon1.BalloonTipText = "Vous regarder:" & " " & Form1.AxWindowsMediaPlayer1.currentMedia.name
|
||||
Form1.NotifyIcon1.ShowBalloonTip(1)
|
||||
Form1.TextBox1.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name & " film"
|
||||
Form1.PictureBox2.Hide()
|
||||
Form1.PictureBox7.Hide()
|
||||
Form1.PictureBox1.Hide()
|
||||
Form1.PictureBox4.Show()
|
||||
Form1.VitesseToolStripMenuItem.Enabled = True
|
||||
Form1.AllaiAToolStripMenuItem.Enabled = True
|
||||
Form1.PictureBox5.Enabled = True
|
||||
Form1.PictureBox6.Enabled = True
|
||||
Form1.PictureBox7.Enabled = True
|
||||
Form1.PauseToolStripMenuItem.Enabled = True
|
||||
Form1.StopToolStripMenuItem.Enabled = True
|
||||
Form1.PleinToolStripMenuItem.Enabled = True
|
||||
Button1.Enabled = True
|
||||
Form1.ListBox1.Items.Add(Form1.AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
|
||||
For Each item In Form1.ListBox1.Items
|
||||
sw4.WriteLine(item)
|
||||
Next
|
||||
sw4.Close()
|
||||
PictureBox1.Image.Dispose()
|
||||
Form16.Close()
|
||||
Me.Close()
|
||||
End Sub
|
||||
Sub langfr4()
|
||||
Dim sw4 As New StreamWriter(historique)
|
||||
Form1.AxWindowsMediaPlayer1.URL = urlfilm & "/" & nom & ".mkv"
|
||||
Form1.PictureBox1.Hide()
|
||||
Form1.Text = lecteurnom & ": " & Form1.AxWindowsMediaPlayer1.currentMedia.name
|
||||
Form1.TextBox1.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name & " film"
|
||||
Form1.PictureBox2.Hide()
|
||||
Form1.PictureBox7.Hide()
|
||||
Form1.PictureBox1.Hide()
|
||||
Form1.PictureBox4.Show()
|
||||
Form1.VitesseToolStripMenuItem.Enabled = True
|
||||
Form1.AllaiAToolStripMenuItem.Enabled = True
|
||||
Form1.PictureBox5.Enabled = True
|
||||
Form1.PictureBox6.Enabled = True
|
||||
Form1.PictureBox7.Enabled = True
|
||||
Form1.PauseToolStripMenuItem.Enabled = True
|
||||
Form1.StopToolStripMenuItem.Enabled = True
|
||||
Form1.PleinToolStripMenuItem.Enabled = True
|
||||
Button1.Enabled = True
|
||||
Form1.ListBox1.Items.Add(Form1.AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
|
||||
For Each item In Form1.ListBox1.Items
|
||||
sw4.WriteLine(item)
|
||||
Next
|
||||
sw4.Close()
|
||||
PictureBox1.Image.Dispose()
|
||||
Form16.Close()
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||||
If WindowState = 1 Then
|
||||
Form1.Visible = False
|
||||
Form16.Visible = False
|
||||
Else
|
||||
Form1.Visible = True
|
||||
Form16.Visible = True
|
||||
End If
|
||||
Dim maj As New WebClient
|
||||
Dim vri As String = maj.DownloadString(urlfilm & "/like.txt")
|
||||
Label10.Text = vri
|
||||
End Sub
|
||||
Sub test()
|
||||
Dim like1 As New WebClient
|
||||
Dim like3 As New WebClient
|
||||
Try
|
||||
like1.DownloadFile(urllike & "like.txt", like2 & "\" & nom & ".txt")
|
||||
Catch ex As Exception
|
||||
MsgBox("Impossible de se connecter au serveur", MsgBoxStyle.Information)
|
||||
Exit Sub
|
||||
End Try
|
||||
Dim t1 = like2 & "\" & nom & ".txt"
|
||||
Dim sr As New StreamReader(t1)
|
||||
While (sr.Peek >= 0)
|
||||
Label11.Text = sr.ReadLine
|
||||
End While
|
||||
sr.Close()
|
||||
Label11.Text = Label11.Text + 1
|
||||
Dim sw1 As New StreamWriter(t1)
|
||||
sw1.WriteLine(Label11.Text)
|
||||
sw1.Close()
|
||||
Try
|
||||
My.Computer.Network.UploadFile(t1, urllike & "like.txt")
|
||||
Catch ex As Exception
|
||||
Timer2.Start()
|
||||
File.Delete(t1)
|
||||
Exit Sub
|
||||
End Try
|
||||
File.Delete(t1)
|
||||
Dim sw4 As New StreamWriter(film & "\" & nom & "\like.txt")
|
||||
sw4.WriteLine(1)
|
||||
sw4.Close()
|
||||
PictureBox4.Show()
|
||||
PictureBox5.Hide()
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
||||
test()
|
||||
End Sub
|
||||
Sub test2()
|
||||
Dim like1 As New WebClient
|
||||
Dim like3 As New WebClient
|
||||
Try
|
||||
like1.DownloadFile(urllike & "like.txt", like2 & "\" & nom & ".txt")
|
||||
Catch ex As Exception
|
||||
MsgBox("Impossible de se connecter au serveur", MsgBoxStyle.Information)
|
||||
Exit Sub
|
||||
End Try
|
||||
Dim t1 = like2 & "\" & nom & ".txt"
|
||||
Dim sr As New StreamReader(t1)
|
||||
While (sr.Peek >= 0)
|
||||
Label11.Text = sr.ReadLine
|
||||
End While
|
||||
sr.Close()
|
||||
Label11.Text = Label11.Text - 1
|
||||
Dim sw1 As New StreamWriter(t1)
|
||||
sw1.WriteLine(Label11.Text)
|
||||
sw1.Close()
|
||||
Try
|
||||
My.Computer.Network.UploadFile(t1, urllike & "like.txt")
|
||||
Catch ex As Exception
|
||||
Timer3.Start()
|
||||
File.Delete(t1)
|
||||
Exit Sub
|
||||
End Try
|
||||
File.Delete(t1)
|
||||
Dim sw4 As New StreamWriter(film & "\" & nom & "\like.txt")
|
||||
sw4.WriteLine(0)
|
||||
sw4.Close()
|
||||
PictureBox4.Hide()
|
||||
PictureBox5.Show()
|
||||
End Sub
|
||||
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
|
||||
test2()
|
||||
End Sub
|
||||
Sub pourcent10()
|
||||
If dl = 0 Then
|
||||
Form1.NotifyIcon1.BalloonTipTitle = "Téléchargement:"
|
||||
Form1.NotifyIcon1.BalloonTipText = nom & ": " & pource & "%"
|
||||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||||
dl = 1
|
||||
End If
|
||||
End Sub
|
||||
Sub pourcent30()
|
||||
If dl = 1 Then
|
||||
Form1.NotifyIcon1.BalloonTipTitle = "Téléchargement:"
|
||||
Form1.NotifyIcon1.BalloonTipText = nom & ": " & pource & "%"
|
||||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||||
dl = 2
|
||||
End If
|
||||
End Sub
|
||||
Sub pourcent50()
|
||||
If dl = 2 Then
|
||||
Form1.NotifyIcon1.BalloonTipTitle = "Téléchargement:"
|
||||
Form1.NotifyIcon1.BalloonTipText = nom & ": " & pource & "%"
|
||||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||||
dl = 3
|
||||
End If
|
||||
End Sub
|
||||
Sub pourcent70()
|
||||
If dl = 3 Then
|
||||
Form1.NotifyIcon1.BalloonTipTitle = "Téléchargement:"
|
||||
Form1.NotifyIcon1.BalloonTipText = nom & ": " & pource & "%"
|
||||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||||
dl = 4
|
||||
End If
|
||||
End Sub
|
||||
Sub pourcent90()
|
||||
If dl = 4 Then
|
||||
Form1.NotifyIcon1.BalloonTipTitle = "Téléchargement:"
|
||||
Form1.NotifyIcon1.BalloonTipText = nom & ": " & pource & "%"
|
||||
Form1.NotifyIcon1.ShowBalloonTip(0)
|
||||
dl = 0
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
||||
Timer2.Stop()
|
||||
Dim t1 = like2 & "\" & nom & ".txt"
|
||||
Try
|
||||
My.Computer.Network.UploadFile(t1, urllike & "like.txt")
|
||||
Catch ex As Exception
|
||||
Timer2.Start()
|
||||
File.Delete(t1)
|
||||
Exit Sub
|
||||
End Try
|
||||
File.Delete(t1)
|
||||
Dim sw4 As New StreamWriter(film & "\" & nom & "\like.txt")
|
||||
sw4.WriteLine(1)
|
||||
sw4.Close()
|
||||
PictureBox4.Show()
|
||||
PictureBox5.Hide()
|
||||
End Sub
|
||||
|
||||
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
||||
Timer3.Stop()
|
||||
Dim t1 = like2 & "\" & nom & ".txt"
|
||||
Try
|
||||
My.Computer.Network.UploadFile(t1, urllike & "like.txt")
|
||||
Catch ex As Exception
|
||||
Timer3.Start()
|
||||
File.Delete(t1)
|
||||
Exit Sub
|
||||
End Try
|
||||
File.Delete(t1)
|
||||
Dim sw4 As New StreamWriter(film & "\" & nom & "\like.txt")
|
||||
sw4.WriteLine(0)
|
||||
sw4.Close()
|
||||
PictureBox4.Hide()
|
||||
PictureBox5.Show()
|
||||
End Sub
|
||||
Public Function func_RoundTaille(ByVal LaTaille As Long) As String
|
||||
Select Case LaTaille
|
||||
Case Is < 1024
|
||||
Return Round(LaTaille) & " Octets"
|
||||
Case Is < 1048576
|
||||
Return Round(LaTaille / 2 ^ 10, 3) & " Ko"
|
||||
Case Is < 1073741824
|
||||
Return Round(LaTaille / 2 ^ 20, 3) & " Mo"
|
||||
Case Else
|
||||
Return Round(LaTaille / 2 ^ 30, 3) & " Go"
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
|
||||
Try
|
||||
Dim maj As New WebClient
|
||||
Dim vri As String = maj.DownloadString(urlfilm & "bd.txt")
|
||||
If My.Computer.Info.OSFullName.Contains("Windows 17") Then
|
||||
Form38.WebView21.Source = New System.Uri(vri, System.UriKind.Absolute)
|
||||
Form38.Text = "Bande annonce de: " & nom
|
||||
Form38.ShowDialog()
|
||||
Else
|
||||
Process.Start(vri)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("aucune bande annonce trouvez", MsgBoxStyle.Information)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
|
||||
Try
|
||||
Dim maj As New WebClient
|
||||
Dim vri As String = maj.DownloadString(urlfilm & "resum.txt")
|
||||
My.Computer.Network.DownloadFile(urlfilm & "resum.txt", dosparamètres & "/resumtemps.txt")
|
||||
Dim lines1() As String = File.ReadAllLines(dosparamètres & "/resumtemps.txt")
|
||||
File.Delete(dosparamètres & "/resumtemps.txt")
|
||||
MsgBox(lines1(0))
|
||||
Catch ex As Exception
|
||||
MsgBox("aucun résumé trouvez", MsgBoxStyle.Information)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user