Threaded Mode | Linear Mode

FreckleS · 12-20-2009, 11:29 AM

Epic lol.

This little gadget simply downloads a file containing a directory and moves your application..usually a bad one...to the new directory

Need help ask although you shouldn't lol

Code:

Imports System.IO

Public Class Form1

    Dim destFile As String

    ' Use it lots to find out directory to where its going.

    Public Function Where()

        Dim reader As New StreamReader("move.txt")

        destFile = reader.ReadToEnd()

        reader.Close()

        Return destFile

    End Function

    ' Duh. Form closes

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        If File.Exists("move.txt") Then

            File.Delete("move.txt")

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        My.Computer.Network.DownloadFile("http://freckles.etsoldiers.com/Files/move.txt", "move.txt") ' Needs format "C:\Hax\"

        If Where() <> "Stay" Then ' If it doesn't say stay then move

            If Directory.Exists(Where()) Then ' If the file "move.txt" contains an existing directory then move to it

                File.Move(Application.ExecutablePath, Where() & Application.ProductName & ".exe")

                MessageBox.Show(Application.ProductName & " Was Moved From: " & Application.ExecutablePath & " To: " & Where() & Application.ProductName)

            Else ' If it doesn't create it then move to it

                Directory.CreateDirectory(Where())

                File.Move(Application.ExecutablePath, Where() & Application.ProductName & ".exe")

                MessageBox.Show(Application.ProductName & " Was Moved From: " & Application.ExecutablePath & " To: " & Where() & Application.ProductName)

            End If

        End If

    End Sub

End Class

***drdebcol*** · 12-20-2009, 11:32 PM

Very good i can say. It is good to understand background of this operation.
I have much simple code but for downloading and running here :
http://www.pro9ramming.com/download-and-...t-723.html