Всем привет, в этой статье я хочу показать Вам полезные коды небольших программ. Которые Вы можете использовать для написания уже своих более серьезных программ, ну или Вы искали именно эти функции, которые здесь описаны.

Первая своего рода программка, ну или функция, это выход с сообщением о подтверждение выхода. В общем, откройте среду программирования Visual Basic, создайте стандартный проект, потом поместите на форму одну кнопку, щелкните на кнопке и у Вас откроется окно редактирования кода, и туда Вам необходимо вставить следующий код:

Итак, Beep это просто звуковой сигнал, дальше идет выделение памяти (Dim), потом уже выполняется действие, т.е. сообщение "Хотите выйти?", да или нет и конец программы. Вот такая бесполезная функция можете использовать в своих программах.

Далее идет очень полезный код, это пароль на запуск программы, ну или для чего-нибудь другого. Открывайте стандартный проект щелкните в пустом месте (загрузка формы программы) и вставляйте следующее:

Где, 12345 это пароль на запуск программы. Но этот код можно использовать, где только захотите.

Если хотите просто выводить сообщение, для чего-нибудь, то вставьте это:

Дальше идет такая мелкая программа как мини Paint, т.е. рисование, причем на самой форме. Откройте стандартный проект, щелкните в пустом месте и вставьте следующий код:

Цвет можете менять с помощью параметра QBColor(0), т.е. вместо 0 поставьте другую цифру.

Для того чтобы перезагрузить компьютер: поместите кнопку и вставьте следующий код:

Следующий пример поможет Вам сделать так, чтобы программа запускалась только один раз, т.е. в случае повторного запуска она выдаст соответствующее сообщение. В код формы вставьте:

Для того чтобы выключить компьютер можно использовать следующий код:

Для того чтобы завершить процесс можете использовать следующий код:

Ниже показан пример того, как можно определить время работы компьютера. Данный способ основан на использование библиотеки kernel32, поэтому в самом начале кода формы подключите данную DLL.

Мы рассмотрели простые функции, которые можно использовать практически везде. Теперь рассмотрим более серьезные примеры, и они Вам могут очень сильно помочь написать свои крупные проекты.

На форму добавляем 2 текстовых поля и кнопку, имя первого текстового поля: StartText, имя второго текстового поля OutText. Свойство Multiline = true, имя кнопки = CmdStart

Теперь запускаем программу, в текстовом поле StartText пишем: C:\windows, и жмем на кнопку.

Допустим, у нас есть файл с именем 1.txt в папке C:\1\ , а нам нужно скопировать его в C:\2\ для этого пишем следующий код:

Примечание! Если в каталоге 2 уже находится файл с именем 1.txt, то он будет заменен на 1.txt из каталога 1.

Например, мы хотим удалить файл 1.txt из корня диска C:\

Для того чтобы переименовать файл 1.txt находящийся в C:\ на 2.txt можно использовать следующий код:

Если файл можно открыть функцией OPEN, то можно воспользоваться функцией LOF

Программа подключается к FTP, а в ини файле прописаны параметры - сервер, логин, порт, пароль.

Его необходимо поместите в папку с программой. Далее, вставляем в модуль:

Добавляем Listbox и 1 кнопку, вставляем следующий код:

Для того чтобы программа загружалась вместе с Windows, как и другие некоторые программы, можно использовать реестр:

А для того чтобы программа загружалась вместе с Windows, даже в безопасном режиме, то такой код:

Для начала более серьезный способ (сделайте на всякий случай резервную копию реестра).

Для того чтобы разархивировать архив RAR можно использовать следующий код:

Это делается следующим образом. Добавите 2 кнопки и вставляйте следующий код:

С помощью кнопки Command1 значки скрываются, Command2 - появляются.

На этом у меня все, надеюсь, вышеперечисленные примеры будут Вам полезны, пока!