test

Imports System.IO, System.Net, System.Web, System.Xml, System.Runtime.InteropServices
Public Class FrmUpdate

    Delegate Sub DownloadComplateSafe(ByVal cancelled As Boolean)
    Delegate Sub ChangeTextSafe(ByVal lenght As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)


    Dim DataFile As WebClient
    Dim DataDownload As String = "http://yansaan.indoweb.xyz/download/FindMyWaifuPortable.html"
    Dim msg As String = ""
    Dim Out As Integer
    Dim updates As Integer
    Dim fol As New CreateFolder()
    Dim filedownload As String = fol.appDataFMW & "\_data\updates\update.zip"

    Dim check As Boolean = False

    Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef conn As Long, ByVal val As Long) As Boolean


    Public Sub CheckForUpdates()
        If InternetGetConnectedState(Out, 0) = True Then
            Try
                Dim ver As String = ""
                Dim xmlUpdate As New XmlTextReader("https://onedrive.live.com/download?cid=9675D76E084032AB&resid=9675D76E084032AB%21815&authkey=APPoahifAoJiGZo")
                Dim newver As String = ""
                Dim desc As String = ""

                While xmlUpdate.Read()
                    Dim type = xmlUpdate.NodeType
                    If xmlUpdate.Name = "version" Then
                        newver = xmlUpdate.ReadInnerXml.ToString()
                    End If
                    If xmlUpdate.Name = "description" Then
                        desc = xmlUpdate.ReadInnerXml.ToString()
                    End If
                End While

                Label2.Text = "Update Ver.: " + newver
                Dim lastver As String = "0.0.0.8" 'Application.ProductVersion
                updates = 1

                If newver < lastver Then
                    RichTextBox1.Text = desc
                    Label3.Text = ""
                Else
                    Label3.Text = "Sudah Terupdate"
                    RichTextBox1.Text = "Versi anda sudah yang terbaru"
                    Button1.Enabled = False
                End If
            Catch ex As Exception
                Label3.Text = ""
                updates = 0
                RichTextBox1.Text = "Internet sedang gangguan, kilk Retry untuk menyambung ulang"
                Button1.Text = "Retry"
            End Try
        Else
            Label3.Text = ""
            updates = 0
            RichTextBox1.Text = "Internet belum terkoneksi, kilk Retry untuk menyambung ulang"
            Button1.Text = "Retry"
        End If
    End Sub

    Private Sub FrmUpdate_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim create As New CreateFolder()
        If (Not System.IO.Directory.Exists(create.appDataFMW & "\_data")) Then
            System.IO.Directory.CreateDirectory(create.appDataFMW & "\_data")
        End If

        If (Not System.IO.Directory.Exists(create.appDataFMW & "\_data\updates")) Then
            System.IO.Directory.CreateDirectory(create.appDataFMW & "\_data\updates")
        End If

        IO.File.SetAttributes(create.appDataFMW & "\_data", IO.FileAttributes.Hidden Or
                                  IO.FileAttributes.System)

        RichTextBox1.ReadOnly = True
        RichTextBox1.BackColor = ColorTranslator.FromHtml("#f3f3f3")
        Label1.Text = "Curent ver.: " + Application.ProductVersion
        CheckForUpdates()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim fileDetail = My.Computer.FileSystem.GetFileInfo(filedownload)

        If Not File.Exists(filedownload) Then
            BackgroundWorker1.RunWorkerAsync()
        Else
            If fileDetail.Length = 0 Then
                BackgroundWorker1.RunWorkerAsync()
            Else
                Dim hasil As String = MsgBox("Update file sudah tersedia" + Chr(13) + "apakah ingin mendownload ulang?", vbInformation + vbYesNo, "Updating")
                If hasil = vbYes Then
                    BackgroundWorker1.RunWorkerAsync()
                ElseIf hasil = vbNo Then
                    Installing()
                End If
            End If
        End If
    End Sub

    Private Sub Installing()
        Dim process As New Process()
        process.StartInfo.FileName = "UpdateMyWaifu.exe"
        process.StartInfo.Verb = "runas"
        process.StartInfo.UseShellExecute = True
        process.Start()

        Form1.Close()
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        ' creating the request and getting the response
        Dim theResponse As HttpWebResponse
        Dim theRequest As HttpWebRequest
        If File.Exists(filedownload) Then
            File.Delete(filedownload)
        End If

        Try 'check if the file is exist

            theRequest = WebRequest.Create(DataDownload)
            theResponse = theRequest.GetResponse

        Catch ex As Exception

            MessageBox.Show("Update is error" & ControlChars.CrLf &
                            "Check your connection", "error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            'we will create the delegate here
            ' just wait fo a moment

            Dim cancelDelegate As New DownloadComplateSafe(AddressOf DownloadComplate)
            Me.Invoke(cancelDelegate, True)
            Exit Sub
        End Try

        Dim lenght As Long = theResponse.ContentLength 'Size of the response (in bytes)
        ' we will create the functions for update the informations
        ' just wait for a moment



        Dim safedelegate As New ChangeTextSafe(AddressOf ChangeText)
        Me.Invoke(safedelegate, lenght, 0, 0, 0)

        Dim writestream As New IO.FileStream(Me.filedownload, IO.FileMode.Create)

        'Replacement for Stream.Position (webResponse stream doesn't support seek)
        Dim nRead As Integer

        'To calculate the download speed
        Dim speedTimer As New Stopwatch
        Dim currentspeed As Double = -1
        Dim readings As Integer = 0

        Do
            If BackgroundWorker1.CancellationPending Then 'If user abort download
                Exit Do
            End If
            speedTimer.Start()
            Dim readBytes(4095) As Byte
            Dim bytesread As Integer = theResponse.GetResponseStream.Read(readBytes, 0, 4096)
            nRead += bytesread

            Dim percent As Short = (nRead * 100) / lenght
            Me.Invoke(safedelegate, lenght, nRead, percent, currentspeed)

            ' sorry for it, just replace the variable speed to double
            ' lets try it again

            If bytesread = 0 Then Exit Do

            writestream.Write(readBytes, 0, bytesread)
            speedTimer.Stop()

            readings += 1
            If readings >= 5 Then 'For increase precision, the speed it's calculated only every five cicles

                currentspeed = 20480 / (speedTimer.ElapsedMilliseconds / 1000)
                speedTimer.Reset()
                readings = 0
            End If

        Loop

        'Close the streams
        theResponse.GetResponseStream.Close()
        writestream.Close()

        If Me.BackgroundWorker1.CancellationPending Then

            IO.File.Delete(Me.filedownload)
            Dim canceldelegate As New DownloadComplateSafe(AddressOf DownloadComplate)
            Me.Invoke(canceldelegate, True)
            Exit Sub
        End If

        Dim complatedelegate As New DownloadComplateSafe(AddressOf DownloadComplate)
        Me.Invoke(complatedelegate, False)
    End Sub

    Public Sub DownloadComplate(ByVal cancelled As Boolean)

        If cancelled Then
            Label3.Text = "Check Your Connection"
        Else

        End If

    End Sub

    Public Sub ChangeText(ByVal lenght As Long, ByVal position As Integer, ByVal percent As Integer, ByVal speed As Double)

        Label3.Text = "Downloading Update " & ProgressBar1.Value & "% (" & Math.Round((position / 1024), 2) & " KB / " & Math.Round((lenght / 1024), 2) & " KB..."
        'Me.Label4.Text = "File Size: " & Math.Round((lenght / 1024), 2) & " KB"
        'Me.Label2.Text = "Downloading: " & Me.TextBox1.Text
        'Me.Label6.Text = "Downloaded " & Math.Round((position / 1024), 2) & " KB OF " & Math.Round((lenght / 1024), 2) & " KB (" & ProgressBar1.Value & " %) "

        'If speed = -1 Then

        '    Me.Label5.Text = "Speed : Calculating ..."
        'Else
        '    Me.Label5.Text = "Speed : " & Math.Round((speed / 1024), 2) & " KB/s"
        'End If

        Me.ProgressBar1.Value = percent

    End Sub

End Class