Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

RE: Вопросы по Visual Basic

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> RE: Вопросы по Visual Basic

Имя

Сообщение

<< Старые топики Новые топики >>

RE: Вопросы по Visual Basic - 2011-05-18 23:02:14.110000

psixapat

Сообщений: 1
Оценки: 0
Присоединился: 2011-05-18 22:58:19.920000

У меня вопрос. Написав программу, я скомпилировал ее. Она теперь в 2 папках. Как мне еще собрать в 1 ехе файл? Чтоб запустить на другом компьютере.

Post #: 81

RE: Вопросы по Visual Basic - 2011-07-24 00:07:11.993333

Ырлфз

Сообщений: 34
Оценки: 0
Присоединился: 2011-04-18 14:29:40.666666

а исходники остались7
мона сунуть их в одну папку и открывать вместе третим экзешником О.о
точно не помню но мона вроде так
shell App.path & "\" & "имя исполняемых" & ".exe"
тока все они должны быть в одной папке

Post #: 82

RE: Вопросы по Visual Basic - 2011-08-11 20:19:02.823333

b.arioh

Сообщений: 1
Оценки: 0
Присоединился: 2011-08-11 20:07:55.653333

Друзья добрый день. Самостоятельно по "книжкам" изучаю VB. Старт взял с Small VB. Так вот пробую свои набранные знания в VB на практике, и хочу их реализовать на практике. Задача: программа должна при вводе вакансии выводить тариф. К примеру вводим "kassa", вывод на экан тариф "45". Но что то у меня не получается. Прошу посмотреть код и навести на правильный путь. Что там не так. Заранее всех благодарю.
Код:
——————————————————
kassa = 45
gruzchik = 40
rtz = 35
TextWindow.Write("Введите вакансию:")
Vacancy = TextWindow.Read()
TextWindow.WriteLine("Ставка = " + Vacancy)
——————————————————

У меня получается к примеру:
"Введите вакансию:"
Ввожу kassa
"Ставка = kassa"
А надо
"Ставка = 45"

Post #: 83

RE: Вопросы по Visual Basic - 2011-08-11 23:55:30.103333

ZiMMy

Сообщений: 439
Оценки: 0
Присоединился: 2010-06-19 17:04:39.420000

quote:

ORIGINAL: b.arioh

Друзья добрый день. Самостоятельно по "книжкам" изучаю VB. Старт взял с Small VB. Так вот пробую свои набранные знания в VB на практике, и хочу их реализовать на практике. Задача: программа должна при вводе вакансии выводить тариф. К примеру вводим "kassa", вывод на экан тариф "45". Но что то у меня не получается. Прошу посмотреть код и навести на правильный путь. Что там не так. Заранее всех благодарю.
Код:
——————————————————
kassa = 45
gruzchik = 40
rtz = 35
TextWindow.Write("Введите вакансию:")
Vacancy = TextWindow.Read()
TextWindow.WriteLine("Ставка = " + Vacancy)
——————————————————

У меня получается к примеру:
"Введите вакансию:"
Ввожу kassa
"Ставка = kassa"
А надо
"Ставка = 45"

Ну так, правильно, тут ты записываешь в переменную Vacancy значение "kassa". Используй if - else или какие там в васике условные операторы.

Post #: 84

RE: Вопросы по Visual Basic - 2011-08-14 04:00:18.626666

ICE_XAKEP

Сообщений: 365
Оценки: 50
Присоединился: 2010-12-16 22:58:59.893333

У кого-нибудь есть исходник программы ТипоРег или любой другой в которой используется капча и например регается аська.

Post #: 85

RE: Вопросы по Visual Basic - 2011-08-15 14:35:36.410000

hrantabe

Сообщений: 203
Оценки: 0
Присоединился: 2009-08-11 11:05:12.030000

del

Post #: 86

RE: Вопросы по Visual Basic - 2011-08-16 02:35:01.856666

Rat97

Сообщений: 5
Оценки: 0
Присоединился: 2011-08-16 02:18:26.226666

Ребят выручайте ! Проблема VB6 …
В общем надо создать программу которая при удержании левой кнопки мыши будет быстро кликать !
До того момента пока я не отпущу левую кнопку. Такую штуку можно провернуть в виде макроса на мышках x7 ! (НО там нельзя поставить макрос на Левую кнопку) !!

В общем я все уже сделал но есть загвоздка !
Вот код


 Option Explicit
 &nbsp;&nbsp;&nbsp; Function Start()
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
 &nbsp;&nbsp;&nbsp; End Function
 Dim WithEvents sh As cSystemHook
 Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
 Private Declare Function GetForegroundWindow&amp; Lib "user32" ()
 Private Declare Function GetWindowThreadProcessId&amp; Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long)
 Private Declare Function GetKeyboardLayout&amp; Lib "user32" (ByVal dwLayout As Long)
 Private Declare Function MapVirtualKeyEx Lib "user32" Alias "MapVirtualKeyExA" (ByVal uCode As Long, ByVal uMapType As Long, ByVal dwhkl As Long) As Long
 Private Const MOUSELEFTDOWN = &amp;H2
 Private Const MOUSELEFTUP = &amp;H4
 
 Private Sub Form_Load()
 &nbsp;&nbsp; Set sh = New cSystemHook
 &nbsp;&nbsp; sh.SetHook
 End Sub
 Private Sub sh_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
 &nbsp; If Button = vbLeftButton Then Timer1.Enabled = True
 &nbsp; 
 &nbsp; 
 
 
 End Sub
 
 Private Sub sh_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
 &nbsp; If Button = vbLeftButton Then Timer1.Enabled = False
 
 &nbsp; 
 
 End Sub
 
 Private Sub Timer1_Timer()
 &nbsp;&nbsp;&nbsp; mouse_event MOUSELEFTDOWN, 0, 0, 0, 0
 &nbsp;&nbsp;&nbsp; mouse_event MOUSELEFTUP, 0, 0, 0, 0
 End Sub
 
 Private Sub Form_Unload(Cancel As Integer)
 &nbsp; sh.RemoveHook
 &nbsp; Set sh = Nothing
 End Sub

Вот тут она если нажата левая кнопка то врубает таймер


 Private Sub sh_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
 &nbsp; If Button = vbLeftButton Then Timer1.Enabled = True
 End Sub

И выполняет клик (много кликов пока не выключишь !)


 Private Sub Timer1_Timer()
 &nbsp;&nbsp;&nbsp; mouse_event MOUSELEFTDOWN, 0, 0, 0, 0
 &nbsp;&nbsp;&nbsp; mouse_event MOUSELEFTUP, 0, 0, 0, 0
 End Sub

А при отпускании левой кнопки таймер вырубается


 Private Sub sh_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
 &nbsp; If Button = vbLeftButton Then Timer1.Enabled = False
 End Sub

НО в таймере дойдя до


 mouse_event MOUSELEFTUP, 0, 0, 0, 0

Она выключает таймер так как это и есть отпускание кнопки !!!!

Если убрать это


  mouse_event MOUSELEFTUP, 0, 0, 0, 0

То на рабочем столе будет все кликать как надо но в 3D играх (мне они и нужны) не будет !!!

Так вот как это все замутить по умному чтоб работало ??? Ну не как не получается
PS:Усли надо могу дать исходники

Post #: 87

RE: Вопросы по Visual Basic - 2011-08-16 13:39:57.490000

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

SendInput может помочь, но не факт. В нормальных играх стоит защита от автокликеров. Тренируй лучше пальцы: http://www.youtube.com/watch?v=YbpCLqryN-Q&feature=player_embedded

Post #: 88

RE: Вопросы по Visual Basic - 2011-09-12 22:17:13.500000

gram123

Сообщений: 7
Оценки: 0
Присоединился: 2011-07-05 20:43:39.783333

Вечер добрый, подскажите след..
Каким образом можно сделать проверку картинок??
пример:
загружаю картинку в программу, если на ней изображено то, что надо, то продолжаем программу
т.е. нужно сравнение картинок сделать.. это возможно? в Vb?
Заранее благодарен за ответ

Post #: 89

RE: Вопросы по Visual Basic - 2011-09-12 23:08:41.416666

Flint_ta

Сообщений: 3720
Оценки: 1120
Присоединился: 2007-01-26 15:49:18.323333

не с вашим уровнем.

Post #: 90

RE: Вопросы по Visual Basic - 2011-09-13 09:58:16.880000

gram123

Сообщений: 7
Оценки: 0
Присоединился: 2011-07-05 20:43:39.783333

quote:

ORIGINAL: Flint_ta

не с вашим уровнем.

Спасибо за ответ, но вопрос не о моем уровне
А о конкретной задаче

Post #: 91

RE: Вопросы по Visual Basic - 2011-09-13 12:49:21.763333

Flint_ta

Сообщений: 3720
Оценки: 1120
Присоединился: 2007-01-26 15:49:18.323333

Постановка вопроса включает в себя поиск похожих картинок, т.е. имеется ввиду различного размера, или с незначительными изменениями?

Post #: 92

RE: Вопросы по Visual Basic - 2011-09-13 12:52:13.046666

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

quote:

ORIGINAL: gram123
Спасибо за ответ, но вопрос не о моем уровне
А о конкретной задаче

С твоим уровнем, о котором можно судить по постановке вопроса, придётся ооочень много писать и объяснять (да и не факт, что получился =). А задачу распознавания образов лишь пытается потянуть гугл: http://ru.wikipedia.org/wiki/Google_Goggles

Ты действительно уверен, что ты круче команды из гугла?

Post #: 93

RE: Вопросы по Visual Basic - 2011-09-13 12:55:36.013333

Flint_ta

Сообщений: 3720
Оценки: 1120
Присоединился: 2007-01-26 15:49:18.323333

Не только гугл, есть еще замечательный сервис http://www.tineye.com/

Post #: 94

RE: Вопросы по Visual Basic - 2011-09-14 16:48:19.236666

Sachom

Сообщений: 4
Оценки: 0
Присоединился: 2011-09-14 15:40:03.706666

quote:

ORIGINAL: Rat97

Вот тут она если нажата левая кнопка то врубает таймер
Private Sub sh_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbLeftButton Then Timer1.Enabled = True End Sub
И выполняет клик (много кликов пока не выключишь !)

Private Sub Timer1_Timer() mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 mouse_event MOUSELEFTUP, 0, 0, 0, 0 End Sub
А при отпускании левой кнопки таймер вырубается

Private Sub sh_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbLeftButton Then Timer1.Enabled = False End Sub
НО в таймере дойдя до
mouse_event MOUSELEFTUP, 0, 0, 0, 0
Она выключает таймер так как это и есть отпускание кнопки !!!!

Если убрать это

mouse_event MOUSELEFTUP, 0, 0, 0, 0
То на рабочем столе будет все кликать как надо но в 3D играх (мне они и нужны) не будет !!!

Так вот как это все замутить по умному чтоб работало ??? Ну не как не получается
PS:Усли надо могу дать исходники

Если Вы ещё не нашли решение, вот оно: таймер должен вначале отпустить кнопку, а потом уже вновь нажать её. В таком случае, таймер сначала отключится при отпускании, затем снова включится при нажатии и цикл будет повторяться до тех пор, пока настоящая (вне таймера) кнопка не будет отпущена. Иными словами,


 Private Sub Timer1_Timer()
    mouse_event MOUSELEFTUP, 0, 0, 0, 0
    mouse_event MOUSELEFTDOWN, 0, 0, 0, 0
 End Sub

Post #: 95

RE: Вопросы по Visual Basic - 2011-09-23 16:38:38.096666

hustler152

Сообщений: 41
Оценки: 0
Присоединился: 2010-05-04 16:08:50.320000

Как на vb Net запретить юзеру Alt+F4? Искал в поисковиках, но ничего путного не нашел. Находил какие-то коды, но они не работали.

Post #: 96

RE: Вопросы по Visual Basic - 2011-09-23 19:53:53.406666

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

Вот кусочек на С++ / WinAPI, из нашего qt проекта. Поможет копать в нужную сторону (www.pinvoke.net). В самом .NET средств не хватит:


 void ApplicationController::supressAppClose( bool supress, QMainWindow *wnd )
 {
     if ( !wnd )
         return ;
 
     gIsAppCanBeClosed = !supress;
 
 #ifdef Q_OS_WIN
 
     HWND hWnd = static_cast&lt; HWND &gt;( wnd-&gt;winId() );
 
     // Disable 'X' button on window
     DWORD wndStyle = ( GetClassLong( hWnd, GCL_STYLE ) & ~CS_NOCLOSE );
     if ( supress )
         wndStyle |= CS_NOCLOSE;
     SetClassLong( hWnd, GCL_STYLE, wndStyle );
 
     // Disable 'Close' menu
     HMENU menu = GetSystemMenu( hWnd, FALSE );
     UINT menuStyle = ( supress ? MF_GRAYED : MF_ENABLED );
     EnableMenuItem( menu, SC_CLOSE, menuStyle );
 
 #else // Other OS - just return
     return ;
 #endif 
 }

Не до конце работает в Windows 7 - не нашёл, как запретить закрытие через меню таскбара.

Post #: 97

RE: Вопросы по Visual Basic - 2011-09-26 21:31:47.330000

Sachom

Сообщений: 4
Оценки: 0
Присоединился: 2011-09-14 15:40:03.706666

quote:

ORIGINAL: hustler152

Как на vb Net запретить юзеру Alt+F4? Искал в поисковиках, но ничего путного не нашел. Находил какие-то коды, но они не работали.

Скажите, пожалуйста, вот что: кроме Alt+F4 все способы выключения работать должны? Форма ли закрывается? Если нет и да, то могу посоветовать такой довольно простой способ:

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
         e.Cancel = True
     End Sub

(При вызове End игнорируется. Выключение процесса через Диспетчер задач тоже работает - касается только закрытия формы, а там сразу же выключается все приложение.)

Post #: 98

RE: Вопросы по Visual Basic - 2011-09-27 12:41:33.646666

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

Sachom, тут не так всё просто. Есть долго кликать по крестику в твоём случае, то винда (по крайней мере 2000, на старших не проверял - давно это было) решит, что программа "зависла" и сама предложит её прибить.

Post #: 99

RE: Вопросы по Visual Basic - 2011-09-27 17:53:14.790000

Sachom

Сообщений: 4
Оценки: 0
Присоединился: 2011-09-14 15:40:03.706666

quote:

ORIGINAL: _SaZ_

Sachom, тут не так всё просто. Есть долго кликать по крестику в твоём случае, то винда (по крайней мере 2000, на старших не проверял - давно это было) решит, что программа "зависла" и сама предложит её прибить.

Ну уж пожалуйста не думайте, что я не проверял. Очевидно, эта особенность системы исчезла в XP. Здесь в XP после нажатия крестика не появляется предложения о закрытии программы, а появляется оно только при попытке закрытия через 'Приложения' Диспетчера задач.

Избежать этого можно изменив эту строчку на следующую:
If e.CloseReason = CloseReason.UserClosing Then e.Cancel = True

Post #: 100

RE: Вопросы по Visual Basic - 2011-09-27 20:19:13.836666

Sachom

Сообщений: 4
Оценки: 0
Присоединился: 2011-09-14 15:40:03.706666

А для одной формы (при ограничении только Alt + F4) справедлив следующий код:

    Dim Alte, Fun4, S As Boolean
     Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
         If S = True Then
             e.Cancel = True
             S = False
         End If
     End Sub
     Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
         If e.KeyValue = 18 Then Alte = True
         If e.KeyValue = 115 Then Fun4 = True
         If Fun4 And Alte Then S = True
     End Sub
     Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
         If e.KeyValue = 18 Then Alte = False
         If e.KeyValue = 115 Then Fun4 = False
         If Not Fun4 Or Not Alte Then S = False
     End Sub
     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Me.KeyPreview = True
     End Sub

Или, как более короткий вариант,

    Dim Alte As Boolean
      Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
         If e.KeyValue = 18 Then Alte = True
         If e.KeyValue = 115 And Alte Then e.SuppressKeyPress = True
     End Sub
     Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
         If e.KeyValue = 18 Then Alte = False
     End Sub
     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Me.KeyPreview = True
     End Sub

Post #: 101

RE: Вопросы по Visual Basic - 2011-09-28 12:23:37.286666

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

Соглашусь. Мой способ лишь выступит в качестве дополнения, чтобы визуально заблокировать крестик и пункт меню "Закрыть", который вызывается по alt+Space.

Post #: 102

RE: Вопросы по Visual Basic - 2011-11-08 18:04:37.530000

PavlovDS

Сообщений: 1
Оценки: 0
Присоединился: 2011-11-08 17:45:29.750000

Добрый день уважаемые Хакеры! прошу помощи в одном вопросе:
пишу программу для работы с базой данных на vb 2008.
существует форма с DataGridView и кнопками, одна из них "Добавить в список "
при нажатии этой кнопки появляется другая форма с отображением добавляемых строк и кнопками управления. в команде загрузки открывающегося окна добавляется команда "НазваниеBindingSource.MoveLast()" она позволяет переместить курсор в конец списка. в связи с тем вопрос: какую необходимо написать команду, чтобы курсор оставался на строке, выбранной в предыдущей форме, а не переходил в конец списка или в его начало? Помогите пожалуйста Гуру цифр, какой день бьюсь с этой проблемой.

Post #: 103

RE: Вопросы по Visual Basic - 2011-11-08 19:44:01.043333

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

RTFM: DataGridView

Post #: 104

RE: Вопросы по Visual Basic - 2011-11-25 21:17:31.030000

Smokey_Di

Сообщений: 17
Оценки: 0
Присоединился: 2011-10-21 19:30:28.036666

Всем привет начал изучать C++, Visual Basic Express 2010 подойтёт как компилятор c++, а то я в этот не шарю)

Post #: 105

RE: Вопросы по Visual Basic - 2011-11-26 05:20:04.060000

ereng1

Сообщений: 112
Оценки: 0
Присоединился: 2010-05-11 03:17:11.900000

quote:

ORIGINAL: Smokey_Di

Всем привет начал изучать C++, Visual Basic Express 2010 подойтёт как компилятор c++, а то я в этот не шарю)

vb expres 2010 только для языка vb
для с++ используй Visual C++ 2010 Express

Post #: 106

RE: Вопросы по Visual Basic - 2011-11-26 10:08:11.900000

Smokey_Di

Сообщений: 17
Оценки: 0
Присоединился: 2011-10-21 19:30:28.036666

Спасибо

Post #: 107

RE: Вопросы по Visual Basic - 2011-11-26 13:02:42.160000

Линусmc87

Сообщений: 3
Оценки: 0
Присоединился: 2011-11-02 12:12:32.946666

Здесь ты найдеш ответ на вопросы http://www.proklondike.com/books/coding.html

Post #: 108

RE: Вопросы по Visual Basic - 2011-11-26 21:38:06.016666

makcim1993

Сообщений: 1
Оценки: 0
Присоединился: 2011-11-26 21:28:04.720000

Ребят, не подскажете, можно-ли объявить массив в цикле ????

Post #: 109

RE: Вопросы по Visual Basic - 2011-12-03 16:31:30.483333

XJohn

Сообщений: 3
Оценки: 0
Присоединился: 2011-12-03 16:21:26.640000

Всем доброго времени суток.Бошка гудит 3-е суток,разбираю basic. Проблема в следущем:не могу составить скрипт на установку пароля к учетной записи под которой вошли в систему.А нужно вот для чего….Есть такие люди - сестрами зовуться, так вот вечно как запаролит учетку приходиться возиться.Хотелось бы составить скрипт для установки например учетной записи "Иван" или "Администратор" пароля к примеру 100, там привязать к автозапуску какого нибудь загрузочного диска думаю смогу, но советы не помешали бы.В програмировании не очень то и силет, но что такое операторы и переменные данный вполне понимаю.

Post #: 110

RE: Вопросы по Visual Basic - 2011-12-03 16:35:04.180000

XJohn

Сообщений: 3
Оценки: 0
Присоединился: 2011-12-03 16:21:26.640000

Post #: 111

RE: Вопросы по Visual Basic - 2011-12-03 17:52:06.040000

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

Читай правила раздела, задавай конкретные вопросы - получай нужные ответы. Пользуйся гуглом и не создавай по 100 одинаковых сообщений в разных темах.

Post #: 112

RE: Вопросы по Visual Basic - 2012-02-04 11:45:59.196666

Dark Timur

Сообщений: 5
Оценки: 0
Присоединился: 2011-12-28 13:36:53.776666

Нужен скрипт самоуничтожения на языке VB.

Post #: 113

RE: Вопросы по Visual Basic - 2012-02-14 14:09:14.086666

B0ndyara

Сообщений: 198
Оценки: 0
Присоединился: 2009-08-22 20:54:55.830000

Как изменить масштаб содержимого окна (формы) в VB6?
В VBA под Excel есть свойство формы Zoom. У VB6 Такого нет.
Писал прогу при разрешении 1280х1024.
Теперь на других компах оно не входит в область экрана.
Можно, конечно, обработать каждый контрол, но их очень много, да и кроме размера и шрифта придется менять положение каждого элемента.

Может можно как-то с помощью WinAPI?
Какие будут мысли?
Менять разрешение экрана не предлагать.
Также не предлагать развернутое окно с полосой прокрутки.
Окно должно быть в центре, меньше размера экрана. К тому же применил SetWindowRgn (окно необычной формы)

Post #: 114

RE: Вопросы по Visual Basic - 2012-02-14 15:14:16.226666

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

Учитывая твои требования - никак. Это тебе не WPF. Да и в экселе масштабирование выполняется не для контролов а для содержимого окна, которое там прорисовывается по своим механизмам.

Просто перекомпонуй свои формы - ничего сложного в этом нет.

Post #: 115

Страниц: 1 2 [3]

Все форумы >> [Компилируемые языки] >> RE: Вопросы по Visual Basic

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.