ИнтеллигенцияX

....Computer.Registry.SetValue("HKEY_CURRENT_USER\Test", "Key", TextBox1.Text) ' Записываем текст в раздел Test End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load My.Computer.Registry.CurrentUser.CreateSubKey("Test") ' Создаем новый раздел с именем Test и открываем с доступом на запись End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System...

Точнее по прямой ссылке на файл. Dim Кб As Double Dim request As Net.HttpWebRequest = Net.HttpWebRequest.Create(TextBox1.Text) ' Обращаемся к нашей ссылке request.Method = "GET" ' Методом GET Dim responce As Net.HttpWebResponse = request.GetResponse() ' Получаем ответ Кб = Val(responce.ContentLength.ToString) / 1024 ' Размер в Кб. Кб = Math.Round(Кб, 1) MsgBox("Размер файла - " & Кб & " кб")...

...кций SendMessage и ReleaseCapture: Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Integer, ByVal wMsg As Integer, _ ByVal wParam As Integer, ByVal lParam As Integer) As Integer Private Declare Function ReleaseCapture Lib "user32" () As Long Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As Sy...

...rgb))+(0.59*GetGValue(rgb))+(0.11*GetBValue(rgb))); I1.Canvas.Pixels[x,y]:=windows.RGB(GScale,GScale, GScale); end; end; end; В коде в двойном цикле for по вертикали и горизонтали пиксель за пикселем считывается цвет каждой точки в переменную rgb, затем извлекаются красная, зеленая и синяя составляющие (r,g и b), после чего по формуле вычисляется gscale для точки с оттенком серого.     Дополнительно можно добавит кнопочку  "Загруз...

...соединие не закрыто, то закрываем его принудительно tcpServer.Accept(e.requestID) ' Принимаем запрос End Sub Private Sub tcpServer_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles tcpServer.DataArrival tcpServer.GetData(TextBox2.Text) ' В TextBox2 мы будем получать сообщения от клиента End Sub Private Sub Button1_Click(ByVal sender As System.Object, By...

...String parammetrs = "name="+fio_in+"&dol="+dol_in+"&tel="+tel_in; byte[] data = null; InputStream is = null; try { URL url = new URL(myURL); HttpURLConnection conn = (HttpURLConnection) url.openConnection(); conn.setReadTimeout(10000); conn.setConnectTimeout(15000); conn.setRequest...

Сегодня я расскажу об одной замечательной штуке – бесплатном (sic!) гипервизоре от всемирно известной компании VMWare. Вкратце – этот гипервизор поставляется в виде образа операционной системы, которая устанавливается на сервер и становится хостом, на нем можно крутить любые гостевые системы – Windows, Linux, MacOS и многие другие. Один сервер по сути может заменить кучу рабочих станций с любыми операционными системами и работающими приложениям...

Двенадцать компаний, включая ведущих поставщиков модулей Non-Volatile DIMM (NVDIMM), участвующих в организации Storage Networking Industry Association (SNIA), которая насчитывает около 400 членов, сформировали группу NVDIMM Special Interest Group (NVDIMM SIG). Своей целью создатели группы называют «популяризацию и продвижение» технологии NVDIMM. Группа сформирована как открытое сообщество под эгидой SNIA Solid State Storage Initiative. В нее вош...

...Зайдите в папку bin Скопируйте все (кроме WebKitBrowserTest.exe) файлы из папки bin в папку с проектом в папку Debug (пример D:/Проект/bin/Debug) Перечень файлов, которые должны быть в папке Debug : Переходим к проекту. Кликните правой кнопкой мыши по панели элементов -> Выбрать элементы... Нажимаем на Выбрать элементы... Нажимаем кнопку Обзор... и выбираем из папки Debug - WebKitBrowser.dll Потом появиться сообщение, нажимаем Да. Нажимае...

Reg Organizer - это многофункциональная программа для комплексного обслуживания системного реестра операционных систем Microsoft Windows. Для чего нужно чистить реестр? И что вообще храниться там? Реестр содержит информацию и настройки для аппаратного обеспечения, программного обеспечения, пользователей, предустановки. При любых изменениях в Панели управления, ассоциациях файлов, системных политиках, инсталлированном ПО, все эти изменения фиксир...