Программирование
Веб программирование

Изменение параметров флешки [VB.NET]

 
 

Нам понадобится:

MenuStrip - 1 шт (по желанию)

OpenFileDialog - 1 шт

FolderBrowserDialog - 1 шт

Label - 3 шт

TextBox - 3 шт

Button - 2 шт

Расставьте вот так:

1

Для TextBox1 пишем:

Imports System
Imports System.IO

Public Class Form1

    Inherits System.Windows.Forms.Form

    Dim ofd As Object
    Dim fbd As Object

    Private Sub TextBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick
        fbd = FolderBrowserDialog1
        If fbd.ShowDialog = DialogResult.OK Then TextBox1.Text = (fbd.SelectedPath)
    End Sub
End Class

Теперь, при двойном клике по TextBox1, будет появляться окошко для выбора папки, в нашем случае, для выбора флешки.

Для TextBox2 пишем:

Private Sub TextBox2_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.DoubleClick
        ofd = OpenFileDialog1
        ofd.InitialDirectory = "C:"
        ofd.Title = "Укажите файл с иконкой"
        ofd.Filter = "Иконка (*.ico)|*.ico"
        If ofd.ShowDialog = DialogResult.OK Then
            TextBox2.Text = (ofd.FileName)
        End If
    End Sub

Теперь, при двойном клике по TextBox2, будет появляться окошко для выбора файла с иконкой.

Для Button1 пишем:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Вы не заполнили поле: Путь к флешке", 16, "Ошибка")
        ElseIf TextBox2.Text = "" Then
            MsgBox("Вы не заполнили поле: Файл с иконкой", 16, "Ошибка")
        ElseIf TextBox3.Text = "" Then
            MsgBox("Вы не заполнили поле: Имя флешки", 16, "Ошибка")
        Else
            Dim f As New StreamWriter(TextBox1.Text + "autorun.inf", False, System.Text.Encoding.GetEncoding(1251))
            f.Write("[Autorun]" + vbCrLf + "Icon=Ico.ico" + vbCrLf + "Label=" + TextBox3.Text)
            f.Close()
            FileCopy(TextBox2.Text, TextBox1.Text + "Ico.ico")
            SetAttr(TextBox1.Text + "autorun.inf", vbHidden)
            SetAttr(TextBox1.Text + "Ico.ico", vbHidden)
            MsgBox("Теперь вытащите и вставьте флешку!!! Наслаждайтесь.", 48, "Поздравляю")
        End If
    End Sub

Теперь, если кликнуть по Button1, на флешку скопируется файл с иконкой и файл с настройками для флешки.

Для Button2 пишем:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
    End Sub

Теперь, при нажатии на Button2 программа закроется.


Есть вопросы? Спроси на нашем форуме!!
Кулхацкер [03.12.2012 15:27]

Перенесено в Visual Basic .NET



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.