<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Visual Basic FAQ &#187; Windows</title>
	<atom:link href="http://www.vbfaq.ru/category/windows/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.vbfaq.ru</link>
	<description>База готовых кодов на Visual Basic - бесплатно, бери и используй. Научимся программировать для себя, ведь писать программы - это просто интересно. Авторы: BiT, МП41А, Chan и Desant</description>
	<lastBuildDate>Wed, 21 Sep 2011 12:01:28 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3</generator>
		<item>
		<title>Как получить имя компьютера?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-poluchit-imya-kompyutera/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-poluchit-imya-kompyutera/#comments</comments>
		<pubDate>Sat, 31 Jan 2009 04:00:06 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Windows]]></category>
		<category><![CDATA[имя]]></category>
		<category><![CDATA[компьютер]]></category>
		<category><![CDATA[получить]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=167</guid>
		<description><![CDATA[Как получить имя компьютера? Option Explicit Private Declare Function GetComputerName _ Lib "kernel32" Alias "GetComputerNameA" _ (ByVal lpBuffer As String, _ nSize As Long) As Long Private Sub Form_Load() Dim strName As String Dim bytSize As Long bytSize = 31 strName = String(bytSize, "X") GetComputerName strName, bytSize strName = Left(strName, bytSize) AutoRedraw = True Print [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-poluchit-imya-kompyutera/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Получить путь к папке Temp</title>
		<link>http://www.vbfaq.ru/2009/01/poluchit-put-k-papke-temp/</link>
		<comments>http://www.vbfaq.ru/2009/01/poluchit-put-k-papke-temp/#comments</comments>
		<pubDate>Fri, 30 Jan 2009 04:00:28 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Windows]]></category>
		<category><![CDATA[папка]]></category>
		<category><![CDATA[путь]]></category>
		<category><![CDATA[темп]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=166</guid>
		<description><![CDATA[Если при установке программы вы хотите скопировать временные файлы, то советую скопировать их в темп Windows, с помощью функции – можно получить путь к этой папке. Option Explicit Private Sub Command1_Click() Text1.Text = Environ("windir") End Sub Private Sub Command2_Click() Text1.Text = Environ("tmp") End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/poluchit-put-k-papke-temp/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как определить версию Windows?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-opredelit-versiyu-windows/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-opredelit-versiyu-windows/#comments</comments>
		<pubDate>Thu, 29 Jan 2009 04:00:47 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Windows]]></category>
		<category><![CDATA[версия]]></category>
		<category><![CDATA[определить]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=165</guid>
		<description><![CDATA[Как определить версию Windows? 'Свойство TextBox Multiline установите в True Option Explicit Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Private Declare Function GetVersionEx Lib _ "kernel32" Alias "GetVersionExA" _ (lpVersionInformation As OSVERSIONINFO) As Long Private Sub Form_Load() [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-opredelit-versiyu-windows/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Как узнать имя диска, файловую систему и серийный номер тома?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-uznat-imya-diska-fajlovuyu-sistemu-i-serijnyj-nomer-toma-2/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-uznat-imya-diska-fajlovuyu-sistemu-i-serijnyj-nomer-toma-2/#comments</comments>
		<pubDate>Wed, 28 Jan 2009 04:00:03 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Windows]]></category>
		<category><![CDATA[диск]]></category>
		<category><![CDATA[номер тома]]></category>
		<category><![CDATA[серийный номер]]></category>
		<category><![CDATA[файловая система]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=164</guid>
		<description><![CDATA[Как узнать имя диска, файловую систему и серийный номер тома? 'Свойство TextBox Multiline установите в True Option Explicit Private Declare Function GetVolumeInformation Lib _ "Kernel32" Alias "GetVolumeInformationA" _ (ByVal lpRootPathName As String, _ ByVal lpVolumeNameBuffer As String, _ ByVal nVolumeNameSize As Long, _ lpVolumeSerialNumber As Long, _ lpMaximumComponentLength As Long, _ lpFileSystemFlags As Long, _ [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-uznat-imya-diska-fajlovuyu-sistemu-i-serijnyj-nomer-toma-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как узнать имя диска, файловую систему и серийный номер тома?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-uznat-imya-diska-fajlovuyu-sistemu-i-serijnyj-nomer-toma/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-uznat-imya-diska-fajlovuyu-sistemu-i-serijnyj-nomer-toma/#comments</comments>
		<pubDate>Mon, 26 Jan 2009 04:00:25 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Windows]]></category>
		<category><![CDATA[диск]]></category>
		<category><![CDATA[номер тома]]></category>
		<category><![CDATA[узнать]]></category>
		<category><![CDATA[файл]]></category>
		<category><![CDATA[файловая система]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=162</guid>
		<description><![CDATA[Как узнать имя диска, файловую систему и серийный номер тома? 'Свойство TextBox Multiline установите в True Option Explicit Private Declare Function GetVolumeInformation Lib _ "Kernel32" Alias "GetVolumeInformationA" _ (ByVal lpRootPathName As String, _ ByVal lpVolumeNameBuffer As String, _ ByVal nVolumeNameSize As Long, _ lpVolumeSerialNumber As Long, _ lpMaximumComponentLength As Long, _ lpFileSystemFlags As Long, _ [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-uznat-imya-diska-fajlovuyu-sistemu-i-serijnyj-nomer-toma/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как узнать различную информацию о компьютере?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-uznat-razlichnuyu-informaciyu-o-kompyutere/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-uznat-razlichnuyu-informaciyu-o-kompyutere/#comments</comments>
		<pubDate>Sun, 25 Jan 2009 04:00:29 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Windows]]></category>
		<category><![CDATA[информация]]></category>
		<category><![CDATA[компьютер]]></category>
		<category><![CDATA[узнать]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=161</guid>
		<description><![CDATA[Как узнать различную информацию о компьютере? Есть функция Environ, с помощью которой и можно собрать информацию о своей системе. В текстовом поле появится вся возможная информация. 'Свойство TextBox Multiline установите в True 'ScrollBar установите в 3 - Both Option Explicit Private Sub Form_Load() Me.WindowState = 2 Text1.Text = "" Info End Sub Public Sub Info() [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-uznat-razlichnuyu-informaciyu-o-kompyutere/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Различные операции с кнопкой Пуск</title>
		<link>http://www.vbfaq.ru/2009/01/razlichnye-operacii-s-knopkoj-pusk/</link>
		<comments>http://www.vbfaq.ru/2009/01/razlichnye-operacii-s-knopkoj-pusk/#comments</comments>
		<pubDate>Sat, 24 Jan 2009 04:00:29 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Windows]]></category>
		<category><![CDATA[кнопка]]></category>
		<category><![CDATA[операция]]></category>
		<category><![CDATA[пуск]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=160</guid>
		<description><![CDATA[Различные операции с кнопкой Пуск. Option Explicit Dim hwndChild As Long Const SW_HIDE = 0 Const SW_SHOW = 5 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ (ByVal hWndParent As Long, _ ByVal hWndChildAfter [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/razlichnye-operacii-s-knopkoj-pusk/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>Как установить новую дату и время на компьютере?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-ustanovit-novuyu-datu-i-vremya-na-kompyutere/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-ustanovit-novuyu-datu-i-vremya-na-kompyutere/#comments</comments>
		<pubDate>Fri, 23 Jan 2009 04:00:22 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Windows]]></category>
		<category><![CDATA[время]]></category>
		<category><![CDATA[дата]]></category>
		<category><![CDATA[компьютер]]></category>
		<category><![CDATA[установить]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=159</guid>
		<description><![CDATA[Как установить новую дату и время на компьютере? Option Explicit Private Declare Function SetLocalTime Lib "kernel32.dll" _ (lpSystemTime As SystemTime) As Long Private Type SystemTime wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type Dim SetTime As SystemTime [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-ustanovit-novuyu-datu-i-vremya-na-kompyutere/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Сделать скрытыми ярлыки на Рабочем столе</title>
		<link>http://www.vbfaq.ru/2008/12/sdelat-skrytymi-yarlyki-na-rabochem-stole/</link>
		<comments>http://www.vbfaq.ru/2008/12/sdelat-skrytymi-yarlyki-na-rabochem-stole/#comments</comments>
		<pubDate>Tue, 16 Dec 2008 13:00:58 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Windows]]></category>
		<category><![CDATA[рабочий стол]]></category>
		<category><![CDATA[скрыть]]></category>
		<category><![CDATA[ярлык]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=168</guid>
		<description><![CDATA[Сделать скрытыми ярлыки на Рабочем столе. Option Explicit Private Declare Function ShowWindow&#038; Lib _ "user32" (ByVal q&#038;, ByVal q1&#038;) Private Declare Function FindWindow Lib _ "user32" Alias "FindWindowA" _ (ByVal w As String, _ ByVal w1 As String) As Long Dim p As Long Dim flag As Boolean Private Sub Form_Click() Timer1.Enabled = False p [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/sdelat-skrytymi-yarlyki-na-rabochem-stole/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как показать окно &#171;О программе&#187;?</title>
		<link>http://www.vbfaq.ru/2008/11/kak-pokazat-okno-o-programme/</link>
		<comments>http://www.vbfaq.ru/2008/11/kak-pokazat-okno-o-programme/#comments</comments>
		<pubDate>Sun, 23 Nov 2008 08:57:22 +0000</pubDate>
		<dc:creator>МП41А</dc:creator>
				<category><![CDATA[Windows]]></category>
		<category><![CDATA[о программе]]></category>
		<category><![CDATA[окно]]></category>
		<category><![CDATA[показать]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=94</guid>
		<description><![CDATA[Как показать окно &#171;О программе&#187;? Option Explicit Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long Private Sub Form_Load() Call ShellAbout(Me.hwnd, "Такое-то приложение", "Создано таким-то товарищем", Me.Icon) End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/11/kak-pokazat-okno-o-programme/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

