DreamNotes-Minecraft-Launcher/夢裡的音符 Minecraft 繁體中文啟動器/夢中的音符 Minecraft 繁體中文啟動器/Form8.vb

Imports System.IO
Imports System.IO.Compression

Public Class Form8



    Dim appPath As String = Application.StartupPath()


    Private IsFormBeingDragged As Boolean = False

    Private MouseDownX As Integer

    Private MouseDownY As Integer

    Dim z As String

    Private Sub Form8_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        For counter = 10 To 90 Step +20

            Me.Opacity = counter / 100

            Me.Refresh()

            Threading.Thread.Sleep(50)
        Next


        Me.Opacity = 100


    End Sub





    Private Sub Form8_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown



        If e.Button = MouseButtons.Left Then

            IsFormBeingDragged = True

            MouseDownX = e.X

            MouseDownY = e.Y

        End If

    End Sub



    Private Sub Form8_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp



        If e.Button = MouseButtons.Left Then

            IsFormBeingDragged = False

        End If

    End Sub



    Private Sub Form8_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove



        If IsFormBeingDragged Then

            Dim temp As Point = New Point()



            temp.X = Me.Location.X + (e.X - MouseDownX)

            temp.Y = Me.Location.Y + (e.Y - MouseDownY)
            Me.Location = temp

            temp = Nothing

        End If

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim iCount As Integer

        For iCount = 90 To 10 Step -10
            Me.Opacity = iCount / 100
            Threading.Thread.Sleep(50)
        Next
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Will hold all of the text
        Dim Output As String
        'Create a new process object
        Using P As New Process()
            'Set the script to run the standard command shell
            P.StartInfo.FileName = "cmd.exe"
            'Required to redirect output, don't both worrying what it means
            P.StartInfo.UseShellExecute = False
            'Tell the system that you want to read/write to it
            P.StartInfo.RedirectStandardOutput = True
            P.StartInfo.RedirectStandardInput = True
            'Start your batch
            P.Start()
            'Send your various commands
            P.StandardInput.WriteLine("ipconfig /all")
            'Very important, send the "exit" command otherwise STDOUT will never close the stream
            P.StandardInput.WriteLine("exit")
            'Read the entire stream
            Output = P.StandardOutput.ReadToEnd()
            'Wait until the batch is done running
            P.WaitForExit()
        End Using
        'Do something with the output
        Trace.WriteLine(Output)
        TextBox1.Text = Output
    End Sub
End Class