72 lines
2.6 KiB
VB.net
72 lines
2.6 KiB
VB.net
Imports System.IO
|
|
|
|
Public Class Form14
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Form1.NotifyIcon2.Visible = False
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Try
|
|
My.Computer.Network.DownloadFile("http://logiciels2.extreme-downloaders.fr/extrème downloaders/Extrème downloaders.exe", dosmisajour & "\Extrème downloaders.exe")
|
|
file123()
|
|
Catch ex As Exception
|
|
Timer1.Start()
|
|
End Try
|
|
End Sub
|
|
Sub file123()
|
|
Dim sw1 As New StreamWriter(dosmisajour & "appli.txt")
|
|
sw1.WriteLine(Application.StartupPath)
|
|
sw1.Close()
|
|
dlupdate()
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Timer1.Stop()
|
|
Try
|
|
My.Computer.Network.DownloadFile("http://logiciels2.extreme-downloaders.fr/extrème downloaders/Extrème downloaders.exe", dosmisajour & "\Extrème downloaders.exe")
|
|
file123()
|
|
Catch ex As Exception
|
|
Timer1.Start()
|
|
End Try
|
|
End Sub
|
|
Sub dlupdate()
|
|
Try
|
|
My.Computer.Network.DownloadFile("http://logiciels2.extreme-downloaders.fr/extrème downloaders/Extrème downloaders update.exe", dosmisajour & "\Extrème downloaders update.exe")
|
|
mister
|
|
Catch ex As Exception
|
|
Timer2.Start()
|
|
End Try
|
|
End Sub
|
|
Sub mister()
|
|
Try
|
|
Process.Start(dosmisajour & "\Extrème downloaders update.exe")
|
|
End
|
|
Catch ex As Exception
|
|
MsgBox("merci de clique sur oui pour effectuer la mise a jours", MsgBoxStyle.Critical)
|
|
Timer3.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
|
Timer2.Stop()
|
|
Try
|
|
My.Computer.Network.DownloadFile("http://logiciels2.extreme-downloaders.fr/extrème downloaders/Extrème downloaders update.exe", dosmisajour & "\Extrème downloaders update.exe")
|
|
mister()
|
|
Catch ex As Exception
|
|
Timer2.Start()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
|
|
Timer3.Stop()
|
|
Try
|
|
Process.Start(dosmisajour & "\Extrème downloaders update.exe")
|
|
End
|
|
Catch ex As Exception
|
|
MsgBox("merci de clique sur oui pour effectuer la mise a jours", MsgBoxStyle.Critical)
|
|
Timer3.Start()
|
|
End Try
|
|
End Sub
|
|
End Class |