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

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



Выпуск # 139


http://www.kbyte.ru/

 

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

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

 

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

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

    Вопрос #000228:

    Вопрос #000219: Закачка_файла

    Вопрос #000214: Как_получить_самое_большое_число_из_массива?

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

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

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

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

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

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

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

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

    Литература по 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 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, никаких наездов, оскорблений и насмешек со стороны гуру, просто спросите и получите ответ ;-)


Вопрос #000228:

Автор вопроса: weltkind // 25.05.2007 / 16:38

Добрый день!
Хотел бы у Вас спросить как в Visual Basic 2005 сделать зависимые друг от
друга combobox-ы. Например у нас 2 combobox-а один cboCountry а второй
cboCity как сделать так чтобы выбрав в первом страну во втором были города
только этой странны. Надеюсь я незапутал Вас заранее вам блогадарен!


---
Все магазины - ТУТ: http://shop.tut.by

Отвечает: EROS // 25.05.2007 / 20:15

Здравствуйте, weltkind!
Это как один из вариантов.. источников стран и городов для заполнения
Combobox может быть что угодно: текстовые файлы, xml файлы, база
данных и т.д.. Выбор источника за вами..

Пример:
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
''' <summary>
''' VS 2005 (VB)
'''
''' EROS, eros@fromru.com
''' </summary>
''' <remarks>kbyte.ru/expert</remarks>
Public Class Form1

  Private Sub Form1_Load(ByVal sender As System.Object, _
              ByVal e As System.EventArgs) _
              Handles MyBase.Load
    With cboCountry.Items
      .Add(New Country("Россия", New String() {"Москва", "Н.Новгород", "Казань"}))
      .Add(New Country("США", New String() {"Вашигтон", "Чикаго", "Бостон"}))
      .Add(New Country("Франция", New String() {"Париж", "Леон"}))
    End With

    ' // второй вариант
    Dim _country As New Country("Англия")
    _country.City.Add("Лондон")
    cboCountry.Items.Add(_country)

    cboCountry.SelectedIndex = 0
  End Sub

  Private Sub cboCountry_SelectedIndexChanged(ByVal sender As System.Object, _
                        ByVal e As System.EventArgs) _
                        Handles cboCountry.SelectedIndexChanged
    With cboCity
      .Items.Clear()
      .Items.AddRange(CType(cboCountry.SelectedItem, Country).City.ToArray)
      If .Items.Count > 0 Then .SelectedIndex = 0
    End With

  End Sub
End Class

Public Class Country

  Public Sub New(ByVal Name As String)
    _name = Name
  End Sub

  Public Sub New(ByVal Name As String, ByVal City() As String)
    _name = Name
    _city.AddRange(City)
  End Sub

  Private _name As String
  Public ReadOnly Property Name() As String
    Get
      Return _name
    End Get
  End Property

  Private _city As New ArrayList
  Public ReadOnly Property City() As ArrayList
    Get
      Return _city
    End Get
  End Property

  Public Overrides Function ToString() As String
    Return _name
  End Function

End Class


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

 

Вопрос #000219: Закачка_файла

Автор вопроса: Алекс В // 25.05.2007 / 08:33

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

Уважаемые эксперты имеется такой вод код(весь код) он работает

Система сначала авторизуется на одной страничке, логин и пароль внизу, потом переходит на другую страницу на которой находится кнопка картинка(в html-коде <input type="image" name="ctl14$ctl00$ibXls" id="ctl14_ctl00_ibXls" title="XLS и т.д.), удалось эмулировать нажатие на эту кнопку-картинку, выскакивает диалог открыть/сохранить/отмена, по нажатию на сохранить качается файл со структурой xml, но расширением 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", "*******");//логин из соображений безопасности не называю

document.All["ucLogOn_txtPassword"].SetAttribute("value", *********");//пароль

document.All["ucLogOn_btnLogOn"].InvokeMember("click");

bLogOn = true;

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

document.All["ctl14_ctl00_ibXls"].InvokeMember("click");

bClicked = true;

}

}

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;
}

}

Отвечает: Алексей Немиро // 25.05.2007 / 10:22

Здравствуйте, Алекс!

Как мы Вам уже говори в прошлый раз, использование контрола
webBrowser ни к чему хорошему не приведет ;)
Я рекомендую Вам использовать для этих целей классы HttpWebRequest и
HttpWebResponse. Также Вам для дебага понадобится какой-нибудь
локальный прокси-сервер, например Fiddler
Используя эту программку Вы сможете увидеть что делает браузер, когда
Вы нажимаете на Вашу кнопку для скачивания файла. Собственно Вам
останется сделать тоже самое при помощи выше указанных классов.

Вот рабочий пример для получения главной страницы Kbyte.Ru:

// получаем содержимое главной странички Kbyte.Ru
HttpWebRequest myRequest = (HttpWebRequest)WebRequest.Create("http://kbyte.ru");
System.Net.HttpWebResponse myResponse = (HttpWebResponse)myRequest.GetResponse();
System.IO.Stream myStream = (Stream)myResponse.GetResponseStream();
System.IO.StreamReader myStreamReader = new System.IO.StreamReader(myStream, System.Text.Encoding.GetEncoding(1251));

Console.WriteLine(myStreamReader.ReadToEnd());


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

Что касается авторизации, тут надо понять принцип авторизации на
сайте, с которого Вы хотите получить этот файл. Это легко можно
сделать средствами программки Fiddler. Для настроки
Fiddler, просто запустите его, в браузере укажите что нужно
использовать прокси-сервер, в качестве адреса укажите 127.0.0.1, порт
8888 (это настройки Fiddler-а по умолчанию).


Если Вам так хочется использовать webBrowser, то можно
попробовать "поймать" диалоговое окно и нажать на кнопку "Сохранить"
программно.


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

 

Вопрос #000214: Как_получить_самое_большое_число_из_массива?

Автор вопроса: Сергей // 24.05.2007 / 15:41

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

Как получить самое большое число из массива в Visual Basic .NET?

Например есть массив:

Dim i() As Integer = {10, 0, 14, 24, 766, 12, 3, 1000, 32, 15, 5}

Как мне получить число 1000 из него?


В заранее, спасибо!

Отвечает: Алексей Немиро // 24.05.2007 / 15:41

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


Например, так:

Array.Sort(i)

Самое большое число будет в конце массива, самое маленькое - в начале.



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

Отвечает: Анатолий Присяжнюк // 24.05.2007 / 15:41

Для получения максимального числа из массива достаточно сделать следующие вещи:
1. Найти размерность (длину) массива N
2. max = i(1)
3. for j = 2 to N
if i(j) > max then max = i(j)
next j
Это общее описание алгоритма, а как Вам его удобно реализовать - зависит от конкретных условий задачи.
С уважением - АВП

 

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

Автор вопроса: Стас Катасонов // 24.05.2007 / 15:41

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

Отвечает: Алексей Немиро // 24.05.2007 / 15:41

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

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

Application.Quit

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

 

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

Автор вопроса: ae13591_spam@mail.ru // 24.05.2007 / 15:41

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

Отвечает: Алексей Немиро // 24.05.2007 / 15:41

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

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

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


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

 

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

Автор вопроса: "umka-dia" // 24.05.2007 / 15:41

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

Отвечает: Алексей Немиро // 24.05.2007 / 15:41

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

Для смены времени/даты "без администратора", попробуйте использовать 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


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


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

 

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

Автор вопроса: Алекс В // 24.05.2007 / 15:41

Здравствуйте,
вопрос по С# 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;
}
}

Отвечает: Алексей Немиро // 24.05.2007 / 15:41

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

Для скачивания файлов можно использовать классы 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 работать сложенее, поскольку придется
имитировать работу браузера, но в результате Вы получите больший
контроль над контентом, а также большую производительность.


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

Отвечает: EROS // 24.05.2007 / 15:41

Здравствуйте, Алекс В.
Для авторизации и скачивания файла средствами .NET совсем не
обязательно использовать WebBrowser, он предназначен для других целей.
Я предлагаю использовать класс WebClient, который инкапсулирует в себе
все необходимые методы и свойства.. Возможностей этого класса в
большинстве случаев более, чем достаточно..

Пример:
0002:
0003:
0004:
0005:
0006:
0007:
0008:
0009:
0011:
0012:
0013:
0014:
0015:
0016:
0017:
0018:
0019:
0020:
0021:
0022:
0024:
0025:
0026:
0027:
0029:
0030:
0031:
0032:
0033:
0034:
0035:
0036:
0037:
0038:
0039:
0040:
0041:
0042:
0043:
0044:
0045:
0046:
0048:
0049:
0050:
0051:
0052:
0053:
0054:
0055:
0056:
0057:
0058:
0059:
0060:
0061:
0062:
0063:
0065:
0066:
0067:
0068:
0069:
0070:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Net;
namespace WindowsApplication1
{
    /// <summary>
    /// VS 2005 (C#)
    /// Download file with authirization example
    ///
    /// EROS, eros@fromru.com
    /// </summary>
    /// <remarks>http://kbyte.ru/expert</remarks>
    public partial class Form1 : Form
    {
        private static String messageHeader = "KBYTE.RU Expert";
        public Form1()
        {
            InitializeComponent();
        }
        private void button1_Click(object sender, EventArgs e)
        {
            WebClient client = new WebClient();
            client.UseDefaultCredentials = false;
            // Информация для авторизации на сервере...
            client.Credentials = new NetworkCredential("твой логин", "твой пароль");
            // Добавляем обработчики событий...
            client.DownloadProgressChanged += new DownloadProgressChangedEventHandler(client_DownloadProgressChanged);
            client.DownloadFileCompleted += new AsyncCompletedEventHandler(client_DownloadFileCompleted);
            // Непосредственно сама закачка файла..
            // Тут 2 важных момента:
            // - обработчик ошибок тут не нужен, поскольку я вызываю ассинхронный метод закачки
            //   и обработка ошибок инкапсулирована в потоке, который и закачивает файл..
            // - Можно использовать синхронный метод DownloadFile, но в этом случае программа
            //   будет "висеть" пока идет загрузка файла + обработка ошибок ложится на вас.
            //   Лично я предпочитаю использовать именно DownloadFile но выношу это все в отдельный поток
            client.DownloadFileAsync(new Uri("http://magiavideo.ru/download/price.aspx?id=4"), @"C:\Каталог фонограмм за 2006-й год.xls");
        }
        void client_DownloadFileCompleted(object sender, AsyncCompletedEventArgs e)
        {
            String message = "Файл скачан!";
            MessageBoxIcon icon = MessageBoxIcon.Information;
            if (e.Error != null)
            {
                icon = MessageBoxIcon.Error;
                message = e.Error.Message;
                message += (e.Error.InnerException != null) ? "\r\n" + e.Error.InnerException.Message : "";
            }
              
            MessageBox.Show(message,
                            messageHeader,
                            MessageBoxButtons.OK,
                            icon);
        }
        void client_DownloadProgressChanged(object sender, DownloadProgressChangedEventArgs e)
        {
            this.Text ="Скачано: " + e.ProgressPercentage + "%";
        }
    }
}

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

 

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

Автор вопроса: "Anton" // 24.05.2007 / 15:41

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

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

Отвечает: Алексей Немиро // 24.05.2007 / 15:41

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

Используйте функцию 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



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

 

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

Автор вопроса: Пастарнак Виталий // 24.05.2007 / 15:41

Извините, не представился, Виталий.
Получил ваш ответ, спасибо.
Мой вопрос был не понят, мне не необходима работа с файлами.
Как я уже писал, я занимаюсь разработкой нестандартного оборудования,
поэтому по ходу работы приходиться писать программное обеспечение.
И вот в очередном проекте я изготовил устройство подключаемое на 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 // 24.05.2007 / 15:41

Здравствуйте, Пастарнак Виталий!
Если я верно понимаю Ваш вопрос, то вас интересует работа с 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

 

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

Автор вопроса: Александр Ястребов // 24.05.2007 / 15:41

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

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

Спасибо.

Отвечает: Алексей Немиро // 24.05.2007 / 15:41

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

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

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

Отвечает: EROS // 24.05.2007 / 15:41

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

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

 


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

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

Наверх

 

 

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

Голосование на Kbyte.Ru через E-Mail!
Чтобы проголосовать через E-Mail, выберите ответ, если у Вас настроен почтовый клиент, должно появиться окно с новым сообщением, ничего не изменяйте, а просто отправьте пустое письмо и в течение некоторого времени Ваш голос будет зачтен.
Для голосования через сайт, перейдите по этой ссылке: http://kbyte.ru/Voting/.
Пользуетесь ли Вы системой «Эксперт» на нашем сайте?
На нашем сайте работает система «Эксперт», через которую любой желающий может задать вопрос Экспертам в области программирования и информационных технологий.
Да, только ей и пользуюсь! (1)
Да, периодически использую (3)
Вашей – нет, но иногда использую другие подобные системы (0)
Нет, предпочитаю использовать форумы (5)
Нет, мне это вообще не надо (1)
А как ей пользоваться? (0)
Нет, а что это? (3)

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

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

Наверх

 

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

Литература по Visual Basic | Автор: Berd
Добавлено: 24.05.2007 / 15:07 | ответов: 1 | просмотров: 21

В общем так, кто хочет почитать литературу (и не только по Visual Basic) рекомендую пройти по ссылке(ам) :)
http://mateminfo.myff.ru/viewtopic.php?id=13

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


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

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

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


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

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

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


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

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

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


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

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

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


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

Алексей, вы мне давали класс 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
Powered by EROS: CSC ver. 1.x
Modify by Aleksey S Nemiro special for Kbyte.Ru


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

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

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

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

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


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

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


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


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


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


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


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


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


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


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


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


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


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


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


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

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


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

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

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


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

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

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


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

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

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


Наверх

 

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

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

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

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

Не так давно мне пришлось немного поработать 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 | просмотров: 2746

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

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

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

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

Как известно, большинство сайтов имеют однотипную, общепринятую разметку страниц, неотъемлемой частью которой является верхний и нижний колонтитулы и, пожалуй, самая главная часть - тело страницы, хотя конечно, бывают и исключения. 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 | просмотров: 3603

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

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

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

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

Файл 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 | просмотров: 35496

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

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

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

 

Статьи на Kbyte.Ru

Наверх

 

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

Как изменить фон в каждом элементе списка?
Дата добавления: 31.07.2006 / 14:13 | просмотров: 440 | платформа: ASP .NET (VB)

Получение имен классов и всех заголовков доступных окон системы
Дата добавления: 31.07.2006 / 12:50 | просмотров: 434 | платформа: VB

Как преобразовать десятичное число в восьмиричное?
Дата добавления: 16.08.2006 / 20:36 | просмотров: 425 | платформа: VB

Как разрешить вводить в TextBox только цифры?
Дата добавления: 04.08.2006 / 16:55 | просмотров: 592 | платформа: ASP .NET (VB)

Как сделать полупрозрачную форму?
Дата добавления: 01.08.2006 / 17:25 | просмотров: 565 | платформа: VB .NET

Анализ даты стандарта MM/DD/YYYY и MM/DD/YY
Дата добавления: 24.03.2007 / 10:59 | просмотров: 109 | платформа: RegEx

Поиск слов определенной длины
Дата добавления: 24.03.2007 / 11:02 | просмотров: 105 | платформа: RegEx

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

Поиск и замена
Дата добавления: 16.08.2006 / 18:54 | просмотров: 488 | платформа: VB

Как сделать часы?
Дата добавления: 16.08.2006 / 23:30 | просмотров: 619 | платформа: VB

 

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

Наверх

 

Юмор на Kbyte.Ru

Блин, сроду б не подумал, что такая история может произойти в жизни.
Живем мы вдвоем с котом. Кот у меня - совершенно замечательная животина, которой уже почти год от роду. По роду занятий приходится много заниматься всякой писаниной и тому подобным. Ввиду количества работы машину, в период нечастных и непродолжительных отлучек из сети не выключаю. Собственно, в этом и все дело. Коту моему, по ряду неизвестных мне причин, компьютер активно встал поперек горла. В связи с этим кот научился применять ряд несложных диверсионных операций. Вы меня поймите - я не то, чтобы жалуюсь. Я привык к тому, что по приходе домой застаю неоконченную статью щедро дополненную текстом вида "вт 333333 оэлааааааааааалюылдж". Уже безропотно сношу открытое без моего ведома окно "Find file". Терпеливо морщусь при виде того, что у меня нет сети или клавиатуры - по выдергиванию проводов мой кошак, скорее всего, с легкостью войдет в тройку призеров нашей необъятной. Я снес даже то, что черно-белый изверг однажды в мое отсутствие пытался переговорить по аське с одним из моих работодателей. Но сегодняшнее его "достижение" повергло меня в шок. Отлучившись на минутку в магазин, застал дома непривычную тишину. Ну, думаю, что-то не так - ну, не привык этот сукин сын сидеть тихо. Смотрю, так и есть - висит этакое серое виндовское окно с какой-то надписью. Значит, думаю, успел прогуляться по клавиатуре, зараза. Что, интересно, на этот раз... Подхожу ближе и, чувствую, у меня волосы дыбом встают. Взмок, сел на стул и даже первый матерок сумел сказать только через пару минут. Что за надпись я увидел, думаю, уже многие догадались... Are уou sure уou want to send file 'config. sуs' to
the Recуcle Bin? Мой истерические смешки перешли в хохот только тогда, когда до меня дошло - этому [censored] осталось только НАЖАТЬ НА ENTER!
P. S. Теперь перед тем, как очистить корзину, буду долго и тщательно исследовать ее содержимое…

 

Рейтинг: 71
Всего голосов: 95
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Собирается супружеская пара в Большой Театр на балет. Жена надевает платье и подходит к мужу:
- Дорогой, застегни молнию пожалуйста, - и поворачивается к нему спиной. Муж застегивает..., потом расстегивает снова.
- Дорогой, в чем дело? У нас нет времени, мы можем опоздать на спектакль.
- Большой театр стоял и стоять будет, а у меня это дело случая.

 

Рейтинг: 3
Всего голосов: 1
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Профессор достаёт из портфеля свёрток:
- У меня есть великолепный экземпляр лягушки, который мы сегодня препарируем.
- Профессор, это же бутерброд с колбасой!
- Да? А что же я тогда сегодня съел на завтрак?

 

Рейтинг: 63
Всего голосов: 101
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Выходной выдался посреди недели. Дай, думаю, в кино схожу на дневной сеанс, все билеты дешевле. Набрал всей этой хренотени, что к фильму полагается, поп-корн, колу и т.д. Сижу. Передо мной усаживаются две девчонки, явно с бодуна, одна еще ничего, а другую явно колбасит, то куртку снимет, то наденет, минералка в ее бутылке на глазах исчезает. Потом вроде подотпустило ее, а фильм все не начинается. И тут она своей подруге говорит: "Кать, ты следи, чтобы я не заснула". На что подруга ей отвечает: "Делать мне больше нечего, за тобой следить. Мне, вообще, пофиг, спишь ты или нет. Главное, чтоб ты дышала!" Душевная подруга.

 

Рейтинг: 50
Всего голосов: 78
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Подведены итоги лотеpеи "Windows 95":
1. Выигpала фиpма MicroSoft.
2. Разыгpаны миллионы чайников.

 

Рейтинг: 304
Всего голосов: 442
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

В чем зарплата, брат? Вот и я думал, что в баксах. А зарплата - она в юанях...

 

Рейтинг: 0
Всего голосов: 0
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Заходит наркоман в телефонную будку и начинает там мочиться. Стоящая рядом женщина, возмущенная увиденным, кричит на него:
– Как вам не стыдно?! Немедленно выходите!
Наркоман говорит:
– Вот, блин! В женский попал!

 

Рейтинг: 596
Всего голосов: 832
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

- Где находятся мухи зимой?
- Не знаю, но мне хотелось бы, чтобы они оставались там и летом!

 

Рейтинг: 29
Всего голосов: 43
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Трудящийся приходит домой и застает жену с любовником.
- Вот ты здесь глупостями занимаешься, а во дворе напротив апельсины дают!

 

Рейтинг: 272
Всего голосов: 397
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

На открытии Олимпиады в Сиднее присутствовал Билл Гейтс.
Команда США выполнила недопустимую операцию и будет закрыта.

 

Рейтинг: 31
Всего голосов: 51
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Весь юмор на Kbyte.Ru

Наверх


Выпуск подготовил: R-KDR-19826

Редактор: Немиро Алексей

Copyright (c) Nemiro AS, 2005-2007


В избранное