Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

Отправляет email-рассылки с помощью сервиса Sendsay

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

← Май 2007 →
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	31

Автор

Алексей Немиро

Статистика

1.234 подписчиков
-1 за неделю

← Все выпуски →

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Выпуск # 138

http://www.kbyte.ru/

Новый выпуск!

Если у Вас возникнут какие-либо вопросы, замечания, пожелания или предложения, пишите, мы детально рассмотрим каждое Ваше сообщение – mailto: admin@kbyte.ru.

Содержание выпуска

Система ЭКСПЕРТ

Вопрос #000229: visual basic 6.0

Вопрос #000232: i need help

Вопрос #000230: проблеммы с Flash + Delphi

Вопрос #000228: помогите

Вопрос #000227: Помогите с SQL запросом

Вопрос #000224: Обращение к конкретной ячейки памяти

Вопрос #000222: Вопрос по C#

Вопрос #000219: Новое_сообщение_без_темы

Вопрос #000217: Поиск_на_сайте

Вопрос #000215: Программная перезагрузка компьютера (Vb.net)

Последнее на форумах

Visual Basic

Умираю

VB в ASP.NET

В VB NET 2003 класса My.Settings нет. Что делать?

Ионизатор воздуха

Help Please!!!!!

Что-то давно у нас не было хумора :-)

Описание ListView

Вопрос по Visual Studio 6.0

ИБП + телевизор

Последние статьи

Выбор языка программирования для научных работ (2-я редакция)

Работаем с MIME

Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше

Visual Basic .NET: Работа с файлами

ASP .NET 2.0: Эталонные страницы

Описание ошибок VB

Горячие клавиши VB 6.0

ASP .NET 2.0: Файл Global.asax

Как узнать страну по IP-адресу?

Visual Basic 6.0 - Экспорт DataReport в Microsoft Word

Интересные коды и решения

Юмор на Kbyte.Ru

Система ЭКСПЕРТ

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, никаких наездов, оскорблений и насмешек со стороны гуру, просто спросите и получите ответ ;-)

Вопрос #000229: visual basic 6.0

Автор вопроса: "umka-dia" // 23.05.2007 / 07:54

Здравствуйте, уважаемые эксперты. У меня вопрос по visual basic 6.0. Я вам уже писала, просила помочь с изменением системной даты. Но после этого у меня перестал работать будильник. Т.е., как только с помощью программы я изменяю дату, будильник не реагирует на измененное время. Что делать? Еще невозможно изменить системную дату, если находишься под любым пользователем, кроме
администратора. Прав нет. Возможно ли решить эту проблему? Заранее спасибо.

Отвечает: Алексей Немиро // 23.05.2007 / 07:54

Здравствуйте,

Для смены времени/даты "без администратора", попробуйте использовать API:

0001:

0003:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

0012:

0013:

0014:

0016:

0017:

0018:

0019:

0020:

0021:

0022:

0023:

0024:

0025:

0026:

0027:

0028:

Option Explicit

Private Declare Function SetSystemTime Lib "kernel32" (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

Private Sub Form_Load()

  Dim mySYSTEMTIME As SYSTEMTIME

  mySYSTEMTIME.wYear = 2007

  mySYSTEMTIME.wMonth = 5

  mySYSTEMTIME.wDay = 23

  mySYSTEMTIME.wHour = 4

  mySYSTEMTIME.wMinute = 0

  mySYSTEMTIME.wSecond = 0

  mySYSTEMTIME.wMilliseconds = 0

  mySYSTEMTIME.wDayOfWeek = vbWednesday

  SetSystemTime mySYSTEMTIME

End Sub

Что касается будильника, то тут не совсем понятно, о чем идет речь.
Нам надо как минимум знать принцип его работы, если Вы его сделали
сами. Если же речь идет о каком-то другом будильнике, то Вам
следует обратиться в службу технической поддержки производителя
этого будильника :)

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000232: i need help

Автор вопроса: Стас Катасонов // 23.05.2007 / 06:01

помогите создать кнопку выхода в PowerPoint(на VB). Хочу чтобы закрывалась вся презентация. 
P.S. очень нужно
plz

Отвечает: Алексей Немиро // 23.05.2007 / 06:01

Здравствуйте,

Используйте следующий код:

Application.Quit

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000230: проблеммы с Flash + Delphi

Автор вопроса: ae13591_spam@mail.ru // 23.05.2007 / 05:46

Вопрос: в моей программе при запуске должна отображаться форма с
заставкой написанной на флэше, так вот я в программу вшиваю 2 файла:
1. файл для проигрывания;2.OCX файл для самого плеера. после запуска
программы, я выгружаю эти файлы в папки и регистрирую их в системе.
Проблемма: при первом запуске программы появляется ошибка и не
происходит загрузка
формы заставки, после второго запуска программы
всё работает нормально.На некоторых компьютерах даже после второго
запуска программы возникает ошибка

Отвечает: Алексей Немиро // 23.05.2007 / 05:46

Здравствуйте,

Возможно проблема в том, что компонент просто не успевает
зарегестрироваться :) Сделайте отдельно программку  с заставкой
(splash-screen), как например в MS Word, да и практически во всех
программах. Эта программка будет регистрировать в системе необходимые
компоненты, а потом запускать основную программу.

Чтобы сказать
более точно, нужен текст ошибки.
Для обсуждения этой темы Вы можете вопользоваться нашим форумом:
http://kbyte.ru/forum


-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000228: помогите

Автор вопроса: Алекс В // 23.05.2007 / 05:42

Здравствуйте,
вопрос по С# 2005

помогите советом или примером
на форме есть элемент webbrowser

прога должна авторизовываться и скачивать файл *.xls(нажатие кнопки-картинки)

на данный момент прога авторизовывается, но не знаю как сделать скачку,выскакивает диалоговое окно "сохранить как", оно не нужно, сразу должен качаться
файл(в коде прописать куда)


using System;
using System.Collections;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Web;
using System.Net;
using System.IO;
using System.Web.UI;
using System.Web.UI.HtmlControls;


namespace Downloader
{
    public partial class Form1 : Form
    {
    
   bool bClicked = false;
        bool bLogOn = false;
        int downloadingNumber = 0;

        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
        }
      
        private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
        {
            System.Windows.Forms.HtmlDocument document = this.webBrowser1.Document;
            if (document.All["ucLogOn_txtLogin"] != null && !bLogOn) // вводим пароль и щелкаем мышкой
            {
                document.All["ucLogOn_txtLogin"].SetAttribute("value", "NOVOSENE");
                document.All["ucLogOn_txtPassword"].SetAttribute("value", "@XK33#2A42%");

                document.All["ucLogOn_btnLogOn"].InvokeMember("click");
                bLogOn
= true;
            }
            else if (document.All["ctl14_ctl00_ibXls"] != null && !bClicked)     // Щелкаем иконку с xls-файлов
            {
                //ctl14_ctl00_ibXls
                document.All["ctl14_ctl00_ibXls"].InvokeMember("click");
                bClicked = true;
            }
        }

        private void webBrowser1_NewWindow(object sender, CancelEventArgs e)
        {

      
 }

        private void webBrowser1_Navigating(object sender, WebBrowserNavigatingEventArgs e)
        {

        }

        private void webBrowser1_ProgressChanged(object sender, WebBrowserProgressChangedEventArgs e)
        {
            
        }

        private void webBrowser1_FileDownload(object sender, EventArgs e)
        {
            i++;
            if (webBrowser1.Url.IsFile)
                MessageBox.Show("file");
            
            listBox1.Items.Add(webBrowser1.Url.AbsoluteUri);
            
        }
        static int i = 0;
    }
}

Отвечает: Алексей Немиро // 23.05.2007 / 05:42

Здравствуйте,

Для скачивания файлов можно использовать классы HttpWebRequest и
HttpWebResponse, собственно, я бы также рекомендовал использовать их и
для авторизации и для всего остального.

using System.Net;
using System.Web;
using System.Text;


HttpWebRequest myRequest = HttpWebRequest.Create("http://kbyte.ru");
HttpWebResponse myResponse = myRequest.GetResponse();
IO.Stream myStream = myResponse.GetResponseStream;
IO.StreamReader myStreamReader = new StreamReader(myStream, System.Text.Encoding.GetEncoding(1251));


Что-то подобное. Естественно, с объектами HttpWebRequest и
HttpWebResponse работать сложенее, поскольку придется
имитировать работу браузера, но в результате Вы получите больший
контроль над контентом, а также большую производительность.


-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000227: Помогите с SQL запросом

Автор вопроса: "Anton" // 23.05.2007 / 05:32

В базу данных каждыу 5 минут вводятся информация с счетчиков. Мне надо 
составить запрос на SQL который будет выводить усредненные показатели за час 
т.е выводить например с 12 по 18 часов

12 часов такое то значение
13 часов -//-
14 и т.д.

Отвечает: Алексей Немиро // 23.05.2007 / 05:32

Здравствуйте,

Используйте функцию DateDiff, например:

SELECT * FROM TableName WHERE DateDiff(N, LastDateUpdate, getDate()) >= 10

В данном примере будут получены только данные обновленные (поле
LastDateUpdate) за посление 10 минут.
Фугкция getDate() - это функция SQL Server, она возвращает
текущую дату
и время. Если Вы используете базы Access, то вместо
функции getDate(), надо использовать функцию Now


Подробнее про функцию DateDiff можно прочитать тут:
http://kbyte.ru/Refbooks/Show.aspx?id=44



-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000224: Обращение к конкретной ячейки памяти

Автор вопроса: Пастарнак Виталий // 17.05.2007 / 23:04

Извините, не представился, Виталий.
Получил ваш ответ, спасибо.
Мой вопрос был не понят, мне не необходима работа с файлами.
Как я уже писал, я занимаюсь разработкой нестандартного оборудования,
поэтому по ходу работы приходиться писать программное обеспечение.
И вот в очередном проекте я изготовил устройство подключаемое на ISA слот,
при использовании
Бейсика под DOS, я использовал OUT(адрес),код для записи,
а INP(адрес), для считывания данных с устройсва.

OUT (&H223), &H88
OUT (b), N                          'в порт А         |
OUT (b + 1), M                      'в порт B         |
OUT (b + 5), 15                     'выбор номера канала
OUT (b + 4), 255                    'старт

datl = INP(b + 4)
dath = INP(b + 5)

А вот как осуществить это на VB не знаю.
Проше говоря мне надо считывать
и записывать информацию по конкретному  
адресу.

Отвечает: EROS // 17.05.2007 / 23:04

Здравствуйте, Пастарнак Виталий!
Если я верно понимаю Ваш вопрос, то вас интересует работа с LPT-портом
из VB6. Для этого существуют несколько библиотек, а именно: vbio32.dll, inpout32.dll, dlportio.dll и т.д.)
Сразу оговорюсь, что первые две не будет работать в NT-системах, а
только ДО Windows Me.. Начиная с Windows 2000 лучше использовать
dlportio.dll.
Скачать можно тут: http://sano2000.narod.ru/LPT.html

Декларации Win32 API
Для inpout32.dll

0002:

0003:

Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer 

Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) 

Для dlportio.dll

0002:

0003:

0004:

0006:

0007:

0008:

0010:

0011:

0012:

0014:

0015:

0016:

Public Declare Function DlPortReadPortUchar Lib "dlportio.dll" (ByVal Port As Long) As Byte

Public Declare Function DlPortReadPortUshort Lib "dlportio.dll" (ByVal Port As Long) As Integer 

Public Declare Function DlPortReadPortUlong Lib "dlportio.dll" (ByVal Port As Long) As Long 

Public Declare Sub DlPortReadPortBufferUchar Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long) 

Public Declare Sub DlPortReadPortBufferUshort Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long) 

Public Declare Sub DlPortReadPortBufferUlong Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long) 

Public Declare Sub DlPortWritePortUchar Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Byte) 

Public Declare Sub DlPortWritePortUshort Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Integer) 

Public Declare Sub DlPortWritePortUlong Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Long) 

Public Declare Sub DlPortWritePortBufferUchar Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long) 

Public Declare Sub DlPortWritePortBufferUshort Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long) 

Public Declare Sub DlPortWritePortBufferUlong Lib "dlportio.dll" (ByVal Port As Long, Buffer As Any, ByVal Count As Long)

Параллельный порт для связи с принтером (или другим устройством) имеет базовый адрес &H378 (LPT1), &H278 (LPT2), &H3BC (LPT3).
Адресное пространство порта LPT1 занимает диапазон &H378-&H37F

Для сравнения:
если под DOS вы писали: OUT &H378, 69
то теперь надо писать: DlPortWritePortUchar &H378, 69 (при условии что
Вы будете использовать dlportio.dll)

Ну а дальше по аналогии разберетесь, удачи!

--
С уважением,
EROS

Вопрос #000222: Вопрос по C#

Автор вопроса: Александр Ястребов // 17.05.2007 / 12:27

Здравствуйте уважаемые эксперты.

Хочу написать программку на c#. Которая через определенный интервал 
времени перезапускает определенную службу Windows 2000 Server. Как мне 
программно обратиться к определенной службе и как ее перезапустить? Как 
сделать, чтобы программка висела в трее?.

Спасибо.

Отвечает: Алексей Немиро // 17.05.2007 / 12:27

Здравствуйте,

http://www.codeproject.com/dotnet/simplewindowsservice.asp

-- 
С наилучшими пожеланиями, 
Немиро Алексей

Отвечает: EROS // 17.05.2007 / 20:47

Здравствуйте, Александр Ястребов!.

0002:

0003:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0012:

0013:

0014:

0015:

0016:

0017:

0018:

0019:

0020:

0021:

0022:

0023:

0024:

0025:

0027:

0028:

0029:

0030:

0031:

0032:

0033:

0034:

0036:

0037:

0038:

0039:

0040:

0042:

0043:

0044:

0045:

0046:

0048:

0050:

0051:

0052:

0053:

0055:

0056:

0057:

0058:

0059:

0061:

0062:

0063:

0064:

0065:

0066:

0068:

0069:

0070:

0071:

0072:

0074:

0075:

0076:

0077:

0078:

0079:

0080:

0081:

0082:

0084:

0085:

0086:

0087:

0088:

0089:

0090:

0091:

0092:

0093:

0094:

0095:

0096:

0097:

0098:

0099:

0100:

0101:

0102:

0103:

0104:

0105:

0106:

0108:

0109:

0110:

0111:

0112:

0113:

0115:

0116:

0117:

0118:

0119:

0120:

0121:

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Text;

using System.Windows.Forms;

using System.Diagnostics;

using System.ServiceProcess;

namespace Service

{

    /// <summary>

    /// VS 2005 (C#)

    /// Restart service example

    /// - Add References System.ServiceProcess.dll

    /// 

    /// EROS, mailto:eros@fromru.com

    /// </summary>

    /// <remarks>kbyte.ru/expert</remarks>

    public partial class Form1 : Form

    {

        Timer _timer = new Timer();

        NotifyIcon _notify = new NotifyIcon();

        public Form1()

        {

            InitializeComponent();

            // set propertis

            this.ShowInTaskbar = false;

            this.WindowState = FormWindowState.Minimized;

            this.Text = "KBYTE.RU - Restart service example";

            // add event handlers

            this.FormClosing += new FormClosingEventHandler(this.Form1_FormClosing);

            _notify.MouseClick += new MouseEventHandler(_notify_MouseClick);

            _notify.BalloonTipClicked += new EventHandler(_notify_BalloonTipClicked);

            _timer.Tick += new EventHandler(_timer_Tick);

            // set notify icon

            _notify.Icon = this.Icon;

            _notify.BalloonTipIcon = ToolTipIcon.Info;

            _notify.BalloonTipTitle = "KBYTE.RU";

            _notify.Visible = true;

            showOperationResult("Example was started \r\nTime interval - 30 seconds");

            // set timer

            _timer.Interval = 30000; //set interval - 30 sec

            _timer.Start();

        }

        private void _notify_BalloonTipClicked(object sender, EventArgs e)

        {

            // open default browser

            Process.Start("http://kbyte.ru/Forum/Default.aspx?forum=0");

        }

        private void _notify_MouseClick(object sender, MouseEventArgs e)

        {

            // show form

            if (this.WindowState == FormWindowState.Minimized)

                this.WindowState = FormWindowState.Normal;

        }

        private void _timer_Tick(object sender, EventArgs e)

        {

            // get Windows Time service controller

            ServiceController _wintime = new ServiceController("Windows Time");

            TimeSpan _timeout = new TimeSpan(0, 0, 15);

            if (_wintime != null)

            {

                try

                {

                    if (_wintime.Status == ServiceControllerStatus.Running && _wintime.CanStop)

                    {

                        // restart service

                        _wintime.Stop();

                        _wintime.WaitForStatus(ServiceControllerStatus.Stopped, _timeout);

                        _wintime.Start();

                        _wintime.WaitForStatus(ServiceControllerStatus.Running, _timeout);

                        showOperationResult(_wintime.DisplayName + " service was restarted!");

                    }

                    else

                    {

                        _wintime.Start();

                        _wintime.WaitForStatus(ServiceControllerStatus.Running, _timeout);

                        showOperationResult(_wintime.DisplayName + " service was started!");

                    }

                }

                catch (Exception ex)

                {

                    showOperationResult("Error:" +  ex.Message);

                }

                finally

                {

                    // destroy controller

                    if (_wintime != null)

                        _wintime.Dispose();

                }

            }

        }

        private void showOperationResult(String message) 

        {

            // set and show ballon tip text

            _notify.BalloonTipText = string.Format("[{0}] {1}", DateTime.Now.ToLongTimeString(), message);

            _notify.ShowBalloonTip(5000); // show 5 sec

        }

        private void Form1_FormClosing(object sender, FormClosingEventArgs e)

        {

            // delete notify icon

            _notify.Dispose();

        }

    }

}

-- 
С уважением,
 EROS                          mailto:eros@fromru.com

Вопрос #000219: Новое_сообщение_без_темы

Автор вопроса: Виталий // 17.05.2007 / 07:20

Привет, помогите. Поймал головняк. При написании под DOS применял для чтения
и записиданных по определенному адресу OUT,INP , на VB6 не могу понять как  
это осуществить.

Отвечает: Алексей Немиро // 17.05.2007 / 07:20

Здравствуйте,

Насколько я понял, речь идет о работе с бинарными файлами, если так,
то для чтения/записи данных используются операторы Put и Get:

PutНомер_Файла, Позиция, Данные
GetНомер_файла, Позиция, Куда_засунуть

0001:

0002:

0003:

0004:

Open Путь_к_Файлу For Binary As #1

Dim B As Byte

Get #1, 10, B 'читаем 10 байт в переменную B

Close

Вот пример записи:

0001:

0002:

0003:

0004:

0005:

0006:

0007:

0008:

0009:

0010:

0011:

Dim i As Long

'октрываем файл

Open ("C:\TestFile.dat") For Binary As #1

'записываем в файл

For i = 0 To 9

  Put #1, , 0

Next i

'получаем позицию записи в файл

Debug.Print Seek(1)

'закрываем файл

Close #1

--
С наилучшими пожеланиями,
Немиро Алексей

Вопрос #000217: Поиск_на_сайте

Автор вопроса: "=?KOI8-R?Q?=E1=CC=C5=CB=D3=C1=CE=C4=D2?=" // 17.05.2007 / 07:04

Здравствуйте, уважаемые эксперты!

Вопрос простой: как организовать поиск на сайте ASP.NET? 
Не могли бы вы хотя бы кратко описать принципы (идеи) 
построения поисковой системы, например, вашего сайта.

С уважением, Александр

Отвечает: Алексей Немиро // 17.05.2007 / 07:04

Здравствуйте,

Поиск можно производить по базам данных сайта, найденные результаты
(главным образом идентификаторы данных в БД) запоминать и уже потом по
ним выводить пользователю. Также следует в результатах указывать имя
таблицы (или присвоить ей id), в которой были найдены данные.
Результаты можно также записывать в БД, т.е. получится, что
результаты
поиска будет представлять собой ссылки на найденные данные.

Еще можно в БД в результатах записывать "куски" найденных данных, и
HTTP-ссылки на источник, этот вариант в плане производительности
должен быть лучше, но и места требует больше под БД, хотя результаты
можно периодически удалять, чтобы место не занимали.

Тут многое зависит от типа используемых баз данных и количества
данных. Если данных очень много, то в ASP .NET скрипт просто
может не
успеть завершить поиск, и произойдет ошибка. В таком случае, поиск
следует производить встроенными средствами источника данных. Например в
SQL Server использовать индексацию и т.п.


-- 
С наилучшими пожеланиями, 
Немиро Алексей

Вопрос #000215: Программная перезагрузка компьютера (Vb.net)

Автор вопроса: Александр // 16.05.2007 / 01:29

Уважаемые эксперты, каким способом можно перезагрузить компьютер в VB.Net
2.0? Нашел такой:
Declare Function ExitWindowsEx Lib "user32" _
      (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
    Public Const EWX_LOGOFF = &H0& ' завершение сеанса пользователя  
    Public Const EWX_SHUTDOWN = &H1&  ' шатдаун компьютера
    Public Const EWX_REBOOT = &H2&  ' перезагрузка компьютера
    Public Const EWX_POWEROFF = &H8&  ' выключение компьютера (ATX)
    Public Const EWX_FORCE = &H4&  ' флаг принудительного выполнения
операции
    Public Const EWX_FORCEIFHUNG = &H10& ' флаг принудительного выполнения
при зависании
Call ExitWindowsEx(EWX_REBOOT Or EWX_FORCE, &HFFFFFFFF&)

Но он по каким-то причинам не работает... Помогите плиз!

Отвечает: EROS // 16.05.2007 / 01:29

Здравствуйте, Александр!
Ваш код предназначен для VB6 и он будет работать в Windows 9.x, а в
NT-системах, для перезагрузки компьютера необходимо получить
соответствующие привелегии для процесса. Сделать это можно следующим
образом:

Код формы:

0002:

0003:

0004:

0005:

0006:

0007:

0009:

0010:

0011:

0012:

0013:

0015:

''' <summary>

''' VS 2005

''' Reboot Windows Example (NT,XP,2000)

''' </summary>

''' <remarks>kbyte.ru/expert</remarks>

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

                              ByVal e As System.EventArgs) _

                              Handles Button1.Click

        Win32.Reboot()

    End Sub

End Class

Вспомогательные классы:

0002:

0003:

0004:

0005:

0007:

0008:

0009:

0010:

0011:

0012:

0014:

0015:

0016:

0017:

0018:

0020:

0021:

0022:

0023:

0024:

0025:

0026:

0027:

0029:

0030:

0031:

0032:

0033:

0034:

0035:

0036:

0037:

0038:

0039:

0040:

0042:

0043:

0044:

0045:

0046:

0047:

0048:

0049:

0050:

0051:

0052:

0054:

0055:

0056:

0057:

0058:

0059:

0060:

0061:

0062:

0063:

0065:

0066:

0067:

0068:

0069:

0070:

0072:

0073:

0074:

0075:

0076:

0078:

0079:

0080:

0081:

0082:

0083:

0085:

0086:

0087:

0088:

0089:

0090:

0092:

0093:

0094:

0095:

0097:

0099:

0100:

0101:

0102:

0103:

0104:

0105:

0106:

0108:

0109:

0110:

0112:

0114:

0115:

0117:

0119:

0120:

0121:

0122:

0123:

0124:

0125:

0126:

0127:

0128:

0130:

0131:

0132:

0134:

0135:

0136:

0137:

0139:

0140:

0141:

0143:

0144:

0145:

0147:

0148:

0149:

0151:

0152:

0153:

0155:

0157:

0158:

0159:

0160:

0161:

0163:

0164:

0165:

0167:

0168:

0169:

0170:

0171:

0172:

0173:

0174:

0175:

0176:

0177:

0178:

0179:

0180:

0182:

0183:

0184:

0185:

0187:

0190:

0191:

0192:

0193:

0194:

0196:

0198:

0199:

0200:

0201:

0202:

0203:

0204:

0205:

0206:

0207:

0208:

0209:

0210:

0211:

0213:

0215:

0216:

0218:

0219:

0220:

0221:

0223:

Imports System.Text

Imports System.Diagnostics

Imports System.ComponentModel

Imports System.Runtime.InteropServices

''' <summary>

''' VS 2005

''' Exit Windows Helper

''' </summary>

''' <remarks>EROS, eros@fromru.com</remarks>

Public Class Win32

#Region " Constants "

    Private Const SE_SHUTDOWN_NAME As String = "SeShutdownPrivilege"

    Private Const FORMAT_MESSAGE_FROM_SYSTEM As Int32 = &H1000

    Private Const LANG_USER_DEFAULT As Int32 = &H400

#End Region

#Region " Enums "

    <Flags()> _

   Private Enum Privilege As Int32

        ENABLED_BY_DEFAULT = &H1

        ENABLED = &H2

        REMOVED = &H4

        USED_FOR_ACCESS = &H80000000

    End Enum

    <Flags()> _

    Private Enum TokenAccess As Int32

        ASSIGN_PRIMARY = &H1

        DUPLICATE = &H2

        IMPERSONATE = &H4

        QUERY = &H8

        QUERY_SOURCE = &H10

        ADJUST_PRIVILEGES = &H20

        ADJUST_GROUPS = &H40

        ADJUST_DEFAULT = &H80

        ADJUST_SESSIONID = &H100

    End Enum

    <Flags()> _

    Public Enum ExitWindowsExReason As Int32

        APPLICATION = &H40000

        HARDWARE = &H10000

        LEGACY_API = &H70000

        OPERATINGSYSTEM = &H20000

        OTHER = &H0

        POWER = &H60000

        SOFTWARE = &H30000

        SYSTEM = &H50000

    End Enum

    <Flags()> _

   Private Enum ExitWindowsExFlags As Int32

        LOGOFF = 0

        SHUTDOWN = &H1

        REBOOT = &H2

        FORCE = &H4

        POWEROFF = &H8

        FORCEIFHUNG = &H10

    End Enum

#End Region

#Region " Structures "

    <StructLayout(LayoutKind.Sequential)> _

    Private Structure LUID

        Public LowPart As Int32

        Public HighPart As Int32

    End Structure

    <StructLayout(LayoutKind.Sequential)> _

     Private Structure LUID_AND_ATTRIBUTES

        Public Luid As LUID

        Public Attributes As Privilege

    End Structure

    <StructLayout(LayoutKind.Sequential)> _

    Private Structure PRIVILEGES

        Public PrivilegeCount As Int32

        Public Privileges As LUID_AND_ATTRIBUTES

    End Structure

#End Region

#Region " Win32 API"

    <DllImport("ADVAPI32.DLL", SetLastError:=True)> _

    Private Shared Function OpenProcessToken(ByVal hProcess As IntPtr, _

                                             ByVal dwDesiredAccess As TokenAccess, _

                                     <Out()> ByRef hToken As IntPtr) As Boolean

    End Function

    <DllImport("ADVAPI32.DLL", SetLastError:=True)> _

    Private Shared Function LookupPrivilegeValue(ByVal lpSystemName As String, _

                                                ByVal lpName As String, _

                                        <Out()> ByRef lLuid As LUID) As Boolean

    End Function

    <DllImport("ADVAPI32.DLL", SetLastError:=True)> _

    Private Shared Function AdjustTokenPrivileges(ByVal hToken As IntPtr, _

                                                  ByVal DisableAllPrivileges As Boolean, _

                                                  ByRef NewState As PRIVILEGES, _

                                                  ByVal BufferLength As Int32, _

                                          <Out()> ByRef PreviousState As PRIVILEGES, _

                                          <Out()> ByRef ReturnLength As Int32) As Boolean

    End Function

    <DllImport("User32.dll", SetLastError:=True)> _

    Private Shared Function ExitWindowsEx(ByVal uFlags As ExitWindowsExFlags, _

                                         ByVal dwReason As ExitWindowsExReason) As Boolean

    End Function

    <DllImport("Kernel32.dll")> _

    Private Shared Function CloseHandle(ByVal hObject As IntPtr) As Boolean

    End Function

    <DllImport("Kernel32.dll")> _

    Private Shared Function FormatMessage(ByVal dwFlags As Int32, _

                                         ByVal lpSource As IntPtr, _

                                         ByVal dwMessageId As Int32, _

                                         ByVal dwLanguageId As Int32, _

                                         ByVal lpBuffer As StringBuilder, _

                                         ByVal nSize As Int32, _

                                         ByVal Arguments As IntPtr) As Int32

    End Function

#End Region

    Public Shared Sub Logoff()

        Logoff(ExitWindowsExReason.SOFTWARE)

    End Sub

    Public Shared Sub Logoff(ByVal reason As ExitWindowsExReason)

        If Not ExitWindowsEx(ExitWindowsExFlags.LOGOFF, reason) Then _

            Throw New Exception(Marshal.GetLastWin32Error().ToString())

    End Sub

    Public Shared Sub Reboot()

        DoExit(False, ExitWindowsExReason.SOFTWARE)

    End Sub

    Public Shared Sub Reboot(ByVal reason As ExitWindowsExReason)

        DoExit(False, reason)

    End Sub

    Public Shared Sub Shutdown()

        DoExit(True, ExitWindowsExReason.SOFTWARE)

    End Sub

    Public Shared Sub Shutdown(ByVal reason As ExitWindowsExReason)

        DoExit(True, reason)

    End Sub

    Private Shared Sub DoExit(ByVal isShutdown As Boolean, ByVal reason As ExitWindowsExReason)

        Dim hProcess As IntPtr = Process.GetCurrentProcess.Handle

        Dim hToken As IntPtr

        If Not OpenProcessToken(hProcess, _

                                TokenAccess.ADJUST_PRIVILEGES Or TokenAccess.QUERY, _

                                hToken) Then ThrowException()

        Try

            Dim _luid As LUID

            If Not LookupPrivilegeValue(Nothing, SE_SHUTDOWN_NAME, _luid) Then ThrowException()

            Dim luidAndAttributes As New LUID_AND_ATTRIBUTES

            luidAndAttributes.Luid = _luid

            luidAndAttributes.Attributes = Privilege.ENABLED

            Dim tokenPrivileges As New PRIVILEGES

            tokenPrivileges.PrivilegeCount = 1

            tokenPrivileges.Privileges = luidAndAttributes

            Dim tokenPrivelegesPreviouse As New PRIVILEGES

            Dim returnLength As Int32

            If Not AdjustTokenPrivileges(hToken, _

                                         False, _

                                         tokenPrivileges, _

                                         Marshal.SizeOf(GetType(PRIVILEGES)), _

                                         tokenPrivelegesPreviouse, _

                                         returnLength) Then ThrowException()

            Dim exitFlags As ExitWindowsExFlags = IIf(isShutdown, _

                                                      ExitWindowsExFlags.POWEROFF Or _

                                                      ExitWindowsExFlags.SHUTDOWN, _

                                                      ExitWindowsExFlags.REBOOT)

            If Not ExitWindowsEx(exitFlags, reason) Then ThrowException()

        Catch ex As Exception

            Throw New Exception(ex.Message, ex)

        Finally

            If hToken <> IntPtr.Zero Then CloseHandle(hToken)

        End Try

    End Sub

    Private Shared Sub ThrowException()

        Const ERROR_BUFFER_CAPACITY As Int32 = 1024

        Dim StringBuilder As New StringBuilder(ERROR_BUFFER_CAPACITY)

        Dim errorCode As Int32 = Marshal.GetLastWin32Error

        Dim result As Int32 = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, _

                                            IntPtr.Zero, _

                                            errorCode, _

                                            LANG_USER_DEFAULT, _

                                            StringBuilder, _

                                            ERROR_BUFFER_CAPACITY, _

                                            IntPtr.Zero)

        Dim errorDesc As String = IIf(result > 0, StringBuilder.ToString, "Description not fount")

        Throw New ExitSystemException(errorDesc, errorCode)

    End Sub

End Class

Public Class ExitSystemException

    Inherits Win32Exception

    Public Sub New(ByVal message As String, _

                   ByVal errorCode As Integer)

        MyBase.New(errorCode, message)

    End Sub

End Class

--
С уважением,
EROS eros@fromru.com

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Голосование на Kbyte.Ru

Голосование на Kbyte.Ru через E-Mail!
Чтобы проголосовать через E-Mail, выберите ответ, если у Вас настроен почтовый клиент, должно появиться окно с новым сообщением, ничего не изменяйте, а просто отправьте пустое письмо и в течение некоторого времени Ваш голос будет зачтен.
Для голосования через сайт, перейдите по этой ссылке: http://kbyte.ru/Voting/.

Пользуетесь ли Вы системой «Эксперт» на нашем сайте?
На нашем сайте работает система «Эксперт», через которую любой желающий может задать вопрос Экспертам в области программирования и информационных технологий.
Да, только ей и пользуюсь! (1)
Да, периодически использую (3)
Вашей – нет, но иногда использую другие подобные системы (0)
Нет, предпочитаю использовать форумы (5)
Нет, мне это вообще не надо (0)
А как ей пользоваться? (0)
Нет, а что это? (2)

Всего голосов: 11

Голосование на Kbyte.Ru

Наверх

Последнее на форумах

Visual Basic | Автор: Durak
Добавлено: 23.05.2007 / 20:15 | ответов: 0 | просмотров: 3

Ну где же вы люди добрые???

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Умираю | Автор: Durak
Добавлено: 23.05.2007 / 20:03 | ответов: 0 | просмотров: 2

Помогите люди добрые.... Курсовую завтра сдавать... На двух ЯП .. На паскале сделал... А вот на бэйсике не могу... Не программировал я на нем...

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

VB в ASP.NET | Автор: Kolya007
Добавлено: 21.05.2007 / 18:53 | ответов: 13 | просмотров: 39

Допустим, у меня есть проект VB 6.0 с формами и прочим. Как мне его вставить в ASP.NET (не для скачивания)...
И тот же вопрос по поводу EXE файлов...

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

В VB NET 2003 класса My.Settings нет. Что делать? | Автор: pasha
Добавлено: 20.05.2007 / 12:03 | ответов: 1 | просмотров: 25

Можно ли как-то заменить My.Settings чем-нибудь другим

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Ионизатор воздуха | Автор: Алексей
Добавлено: 20.05.2007 / 07:59 | ответов: 7 | просмотров: 32

Ионизатор воздуха
Насколько он полезен при работе с компьютером и полезен ли вообще? Кто-нибудь пользуется? Поделитесь впечатлениями.

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Help Please!!!!! | Автор: pasha
Добавлено: 19.05.2007 / 12:57 | ответов: 1 | просмотров: 25

Алексей, вы мне давали класс DataAceessManager (топик Aceess DB). Но дело в том, что оператор IsNot, который использовался при проверке ошибок в VB 2003 не поддерживается, и мне пришлось перевернуть IF-ы:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
'Типа вот этого
  If DT Is Nothing Then
        myResult =
Nothing
        RecordCount = 0
      Else
        If DT.Rows.Count > 0 Then
          myResult = DT.Rows(0)
          RecordCount
= 1
        End If
      End If

В итоге получилось, что класс не работает!

Можно ли как-нибудь ещё записать данные в БД?

Да и весь код формы, с которой должны записываться данные

код удален администратором из-за большого, ну просто огромного, объема

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Что-то давно у нас не было хумора :-) | Автор: Алексей
Добавлено: 19.05.2007 / 06:52 | ответов: 0 | просмотров: 17

Китайское радио:
Поздравляем вас товарищи. Сегодня с космодрома Ли Хен Чаон стартовал первый управляемый космичекий аппарат созданный в Китае. Как нам сообщили в Центре управления полетом, сомочуствие трех космонавтов и двухсот кочегаров - хорошее

Судья:
- Итак, подсудимый назвал вас идиотом. Это правда?
- Да.
- Так на что вы жалуетесь?

В автобус входит контролер:
- Так, зайцы есть?
- Ну, я!
- На морковку!

- Владимир Владимирович! Вы будете выдвигаться на третий срок?
- Нет!
- А на четвертый?

Один приятель говорит другому:
- Ах, черт, кошелек забыл, а мне десятки не хватает. Одолжишь?
- Ну, держи.
На следующий день.
- Я тебе десятку должен?
- Да.
- Опять я кошелек забыл. Одолжи еще 40, буду тебе ровно полста должен.
- Ну, хорошо.
На следующий день.
- Я тебе 50 рублей должен?
- Да.
- Опять я сегодня без кошелька. Давай, ты мне еще 150 займешь, а я уж тебе 200 тогда отдам.
- Ну, ладно.
На следующий день.
- Я тебе 200 должен?
- Ну, конечно.
- Давай я уж у тебя для ровного счета еще 300 займу и потом сразу полтыщи отдам.
- Ну что ж делать, давай.
На следующий день.
- Я тебе 500 должен?
- Нет!

Корреспондент спашивает директора дурдома, какой тест является критерием для выписки.
- Мы наливаем полную ванну воды, кладём рядом чайную ложечку и большую кружку, и предлагаем освободить ванну от воды.
Корреспондент улыбается и говорит:
- Ну любой нормальный человек возьмёт кружку.
- Нет, - говорит директор, - нормальный человек вынет пробку.

Стоит милиционер, мимо проезжает Фольксваген-Гольф. Вдруг милиционер резко машет водителю жезлом, оглушительно свистит и выхватывает пистолет. Водитель сразу по тормозам, чуть не вылетает через лобовое стекло, выходит весь бледный, на ватных ногах:
- Что такое?
- Да ничего. (Задумчиво глядя на машину) Я вот хочу тоже Гольф купить, да чего-то говорят, у него тормоза слабые...

- Ешь рулет с черникой, зрение будет 100%!
- Лучше ешь с грибами, будет 150%!
- Это как?
- Будешь видеть то, чего нет.

Разговаривают два друга:
- Вчера для тещи две карзины грибов собрал!
- А вдруг они ядовитые?
- Что значит вдруг...

Медали:
Медаль "За скромность на пожаре".
Медаль "20 лет коту под хвост" (юбилейная).
Медаль "Семь футов" (носится под килем).
Медаль "За взятие с поличным".
Медаль "За взятие себя в руки".
Медали "За взятие" и "За возвращение в целости и сохранности"
(носятся парой).
Медаль "За здорово живешь".
Значок "Бойцу с кровопийцами" (за убийство более 10000 комаров).
Значок "Ветеран Броуновского движения".
Значок "Многократный победитель простуды".

Возвращается с армии паренёк (П). И первым дело, думает, к Машке надо зайти. Писала ведь, в верности клялась... Цветы идет покупать. Цветочница (Ц) - бабушка знакомая.
Ц: Петенька! Ты? С армии вернулся?
П: Да вот, вернулся... А дайте-ка мне самую большую и красивую розу, которая только у Вас есть!
Ц: К Машке, из 3 двора, небось?
П: Да к Машке!
Ц: Не ходи к Машке, она замуж вышла, не дождалась...
П: Тогда давайте две!

-Слышь, пацан, а смысл жизни есть?
-Нееет.
-А если найду?!

Миллиционер-патрульный обычно работающий ночью однажды пришел домой на несколько часов раньше. Не захотев будить свою жену, он тихонько пробрался в спальню, разделся и лег спать. Правда через пару минут она потрогала его за плечо и сказала,
- Дорогой, у меня очень сильно болит голова... ты не мог бы пожалуйста сходить в круглосуточную аптеку купить мне немного анальгина?
Мент оделся, и потопал в аптеку. Купив анальгина, аптекарь на него как то странно посмотрел, и спросил:
- А я вас случайно не знаю? Лейтенант Иванов, так?
- Угу.
- А какого хрена вы одеты как пожарник?

Музыкальная хроника. Пугачева вместе с семьей переехала жить в деревню. Алла Борисовна теперь сама доит корову. Филя разводит кроликов, и только Кристина Орбакайте, вспомнив детство, одиноко стоит посреди огорода.

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Описание ListView | Автор: A_XIII
Добавлено: 18.05.2007 / 13:28 | ответов: 5 | просмотров: 35

Помогите разобраться с ListView (платформа VB 6.0) - Какой алгоритм добавления инфы в колонки, строки, заранее Спасибо!!!

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Вопрос по Visual Studio 6.0 | Автор: nslookup
Добавлено: 18.05.2007 / 07:37 | ответов: 4 | просмотров: 36

Подскажите пожалуйста как поменять кодировку в MS VS 6.0 а то код на латинице нормально отображается, а коментарии которые на русском языке должны быть какой-то арабской вязью...

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

ИБП + телевизор | Автор: Алексей
Добавлено: 18.05.2007 / 05:24 | ответов: 2 | просмотров: 27

Вчера рубанули свет, посидел минуты три за компом, понял что это на долго, вырубил комп, врубил телик, естественно в ИБП воткнул :) При этом, комп сожирал 50 % энергии (по данным ИБП), телик я смотрел около часа :)
ИБП APC Back-UPS ES 525VA (300 Ватт), телик вроде бы 40 съедает. Вопрос, какой купить ИБП, чтобы от него максимально долго работал телик?

Ответить на это сообщение | Открыть эту тему | Форум Kbyte.Ru

Наверх

Последние статьи

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 1352

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. Вот именно не известный мне способ определения реакций меня и заинтересовал, но код программы...

Работаем с MIME
Автор: Немиро Алексей | добавлено: 29.11.2006 / 14:46 | просмотров: 1431

Не так давно мне пришлось немного поработать MIME (Multipurpose Internet Mail Extension) - это стандарт почтовых сообщений, в РуНете (Russian Internet) я не нашел нормального описания спецификации MIME, и посему решил написать небольшую статейку на эту тему. В данной статье вы узнаете об основных особенностях и стандартах MIME, а также научитесь «читать» MIME с использованием синтаксиса языка Visual Basic .NET 2005.

Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 05.10.2006 / 12:15 | просмотров: 2731

Эта статья будет полезна только тем людям, у которых установлен Microsoft Word 2000 или выше! Мы научимся делать всё возможное с документами MS WORD при помощи VB 2003/2005 .NET.

Visual Basic .NET: Работа с файлами
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 04.10.2006 / 10:35 | просмотров: 3350

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

ASP .NET 2.0: Эталонные страницы
Автор: Немиро Алексей | добавлено: 27.08.2006 / 04:08 | просмотров: 2506

Как известно, большинство сайтов имеют однотипную, общепринятую разметку страниц, неотъемлемой частью которой является верхний и нижний колонтитулы и, пожалуй, самая главная часть - тело страницы, хотя конечно, бывают и исключения. ASP .NET 2.x предлагает уникальный метод создания одинаковой разметки для страниц сайта – это использование, так называемых, эталонных страниц. Если вы работали с ранними версиями ASP(ASP, ASP .NET 1.x), то, наверное, помните, что постоянно приходилось копировать HTML-код страницы с элементами ASP. Конечно, использование включаемых файлов (include) в классическом ASP, и пользовательских элементов управления (*.ascx) в ASP .NET 1.x, значительно упрощало разработку Web-сайтов, но это не сравнится с тем, что предлагает ASP .NET 2.x.

Описание ошибок VB
Автор: [root] | добавлено: 29.07.2006 / 06:58 | просмотров: 3581

В данном обзоре содержится русскоязычное описание ошибок Visual Basic 5.0/6.0.

Горячие клавиши VB 6.0
Автор: [root] | добавлено: 20.07.2006 / 13:21 | просмотров: 1858

В данном обзоре рассмотрены горячие клавиши Visual Basic 5.0/6.0, которые значительно ускоряют процесс разработки и тестирования программ.

ASP .NET 2.0: Файл Global.asax
Автор: Немиро Алексей | добавлено: 17.07.2006 / 18:04 | просмотров: 2255

Файл Global.asax является необязательным файлом приложений ASP .NET и содержит дополнительный код, отвечающий за обработку событий, происходящих на уровне приложения. Этот файл должен находиться в корневом каталоге Web-приложения. В ASP .NET 1.1 сей файл автоматически создавался Visual Studio при создании нового Web-проекта, в ASP .NET 2.0 Visual Studio Global.asax автоматически не создает, но его можно добавить в проект вручную. Все изменения, внесенные в файл Global.asax отслеживаются средой ASP .NET, и приложение перезагружается...

Как узнать страну по IP-адресу?
Автор: Amit Gupta | добавлено: 17.07.2006 / 08:09 | просмотров: 35466

Интернет широко распространен в большинстве стран и континентов. Узнать страну посетителей вашего веб-сайта может быть не легкой задачей, особенно если вы не знаете как это сделать...

Visual Basic 6.0 - Экспорт DataReport в Microsoft Word
Автор: John D. Conway | добавлено: 17.07.2006 / 06:16 | просмотров: 3271

В этой статье мы создадим пример базы данных Microsoft Access и пользовательский интерфейс в среде Visual Basic 6.0. Сделать это будет относительно несложно, поскольку для работы с нашей базой данных мы будем использовать компонент ADODC Componenet (Microsoft ADO Data Control 6.0 (OLEDB)). Мы добавим DataEnvironment и DataReport и буквально, в течении минуты, мы уже сможем экспортировать наш DataReport в Microsoft Word Document. (.doc)...

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Удаление куков (Cookies)
Дата добавления: 01.08.2006 / 12:04 | просмотров: 528 | платформа: ASP

Проверка существования файла с использованием API
Дата добавления: 31.07.2006 / 12:41 | просмотров: 538 | платформа: VB

Как получить имя пользователя? (с использованием API)
Дата добавления: 24.03.2007 / 12:19 | просмотров: 76 | платформа: VB .NET

Преобразование строки в Double, исключая проблемы с разделителем
Дата добавления: 27.04.2007 / 15:53 | просмотров: 77 | платформа: VB .NET

Получение данных из Базы Данных MS Access
Дата добавления: 31.07.2006 / 17:39 | просмотров: 840 | платформа: ASP .NET (VB)

Как получить значение определенного параметра из строки запроса?
Дата добавления: 31.07.2006 / 15:42 | просмотров: 357 | платформа: ASP .NET (VB)

Как преобразовать байты в килобайты?
Дата добавления: 31.07.2006 / 12:38 | просмотров: 435 | платформа: VB

Запуск программы
Дата добавления: 21.08.2006 / 20:19 | просмотров: 688 | платформа: VB

Как сделать поле для ввода пароля?
Дата добавления: 01.08.2006 / 22:08 | просмотров: 395 | платформа: VB .NET

Как переключиться в любое окно?
Дата добавления: 31.07.2006 / 12:51 | просмотров: 442 | платформа: VB

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

Директор заводит в кабинет секретаршу и начинает срывать с нее платье.
Та:
- Иван Петрович, вы хоть дверь-то закройте!
- Нельзя, Клава, нельзя! Еще подумают, что мы тут водку пьем.

Рейтинг: -2
Всего голосов: 1