Программа для открытия игры косынка

@SanRn · Регистрация: 03.12.2013

Студворк — интернет-сервис помощи студентам

Нужна помощь в написании программы для запуска игры косынка. (Windows 7, XP). Всё должно работать от нажатия кнопки, т.е нажал и запустилась косынка. Буду сильно благодарен.

Комментарий модератора

Сообщение от Правило 4.13.

Не стоит просить или предлагать выслать ответ в icq, e-mail и другие средства общения. Эта просьба все равно не будет выполнена, а сообщение будет отредактировано модератором.

@Sapphire · 04.12.2013, 12:42

Не выходит. Позицию запуска удается установить только оболочке с кнопками да/нет.

@SanRn · 04.12.2013, 16:35 **[ТС]**

А позици, ты имеешь ввиду положение на экране?

@Sapphire · 05.12.2013, 08:36

Ну да, а как еще можно расположить окна, пока не доходит.

@SanRn · 09.12.2013, 11:12 **[ТС]**

Нужен скрипт чтобы сообщение MsgBox закрывалась сама как после 3 секунд, так и нажатием кнопки "ок" .
Никак с таймером не справлюсь.

Добавлено через 1 минуту

VB.NET
1
2
3
4
5
6
7
8
9
10
Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("Уважаемый Вы уверены ?", vbYesNo) = vbYes Then
            Shell(Environ$("WinDir") & "\system32\sol.exe", vbNormalFocus)
        Else
           MsgBox("Молодцы правильно сделали, с уважением.")
        End If
        End
    End Sub
End Class

Нужно чтобы последнее сообщение (где с уважением), закрывалась сама как после 3 секунд, так и нажатием кнопки "ок" .
Никак с таймером не справлюсь.

Памирыч · 09.12.2013, 17:51

Сообщение от SanRn

Никак с таймером не справлюсь

Как вариант:

VB.NET
1
2
3
4
5
6
7
8
9
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send("{Enter}")
        Timer1.Stop()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        MsgBox("")
    End Sub

Очень плохой рецепт: если приложение будет неактивно, оно пошлет нажатие другому окну.
Теоретически можно фокусировать этот MsgBox (не саму форму) путем перебора окон перед срабатыванием нажатия. Но тоже жутью отдает

Добавлено через 1 час 12 минут
Вот еще увидел код пользователя The trick

VB.NET
1
2
3
4
5
6
    Private Declare Function MessageBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Integer, ByVal lpText As String, ByVal lpCaption As String, _
                      ByVal uType As MsgBoxStyle, ByVal wLanguageId As Integer, ByVal dwMilliseconds As Integer) As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MessageBoxTimeOut(Me.Handle, "Пример Messagebox'а с таймаутом", "Автоматически закроется через 3 секунды", MsgBoxStyle.Information, 0&, 3000)
    End Sub

@SanRn · 09.12.2013, 18:41 **[ТС]**

Ругается на то что declare не может использоваться как идентификатор ну и на остальные что они не объявлены.. Всё это тело должно быть вставлено в Private Sub Button2_Click.... т.е заканчиваться на end sub. Не получается в упор. А в первом варианте он сразу закрывает окно, а должен ждать 3 секунды и потом закрыть, или нажатием мной кнопкой ОК.

Памирыч · 09.12.2013, 18:43

Сообщение от SanRn

первом варианте

Забыл сказать, установите интервал таймера в 3000

Другой код если можно - покажите

@SanRn · 09.12.2013, 21:44 **[ТС]**

От пользователя The trick.

VB.NET
1
2
3
4
5
6
Private Declare Function MessageBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Integer, ByVal lpText As String, ByVal lpCaption As String, _
                      ByVal uType As MsgBoxStyle, ByVal wLanguageId As Integer, ByVal dwMilliseconds As Integer) As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MessageBoxTimeOut(Me.Handle, "Пример Messagebox'а с таймаутом", "Автоматически закроется через 3 секунды", MsgBoxStyle.Information, 0&, 3000)
    End Sub

Добавлено через 31 минуту
Всё равно не работает.
Может где-то ошибка?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("Уважаемый Вы уверены ?", vbYesNo) = vbYes Then
            Shell(Environ$("WinDir") & "\system32\sol.exe", vbNormalFocus)
        Else
            MsgBox("Молодцы правильно сделали, с уважением.")
            Timer1.Start()
            Timer1.Interval = 3000
            SendKeys.Send("{Enter}")
            Timer1.Stop()
        End If
 
        End
    End Sub
 
End Class

Памирыч · 10.12.2013, 00:13

SanRn, MsgBox пока не закроете, код дальше не пойдет? это раз
Второе:

VB.NET
1
2
            SendKeys.Send("{Enter}")
            Timer1.Stop()

Должно быть в таймере, а не в процедуре кнопки

Возвращаясь к более верному решению:

VB.NET
1
2
3
4
5
6
7
8
9
    Private Declare Function MessageBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Integer, ByVal lpText As String, ByVal lpCaption As String, _
                      ByVal uType As MsgBoxStyle, ByVal wLanguageId As Integer, ByVal dwMilliseconds As Integer) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If MsgBox("Уважаемый Вы уверены ?", vbYesNo) = vbYes Then
            Shell(Environ$("WinDir") & "\system32\sol.exe", vbNormalFocus)
        Else
            MessageBoxTimeOut(Me.Handle, "Молодцы правильно сделали, с уважением.", "MsgBox", MsgBoxStyle.Information, 0, 3000)
        End If
    End Sub

@Sapphire · 10.12.2013, 04:59

Ну да, мы не ищем легких путей

А можно замутить дополнительную форму, и на ней все это реализовать вместо msgbox'а. Там кода то фигня надо будет...

@SanRn · 11.12.2013, 08:58 **[ТС]**

Спасибо, всё работает.

@SanRn · 12.12.2013, 11:35 **[ТС]**

Но это работает только из под класса. А может кто знает как объявить эту функцию MessageBoxTimeOut не используя класс. Просто дома у меня работает, а на работе есть только Private sub button...... end sub. если объявлять её в Private sub, то не работает.

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@Sapphire 58 / 52 / 0 Регистрация: 15.12.2012 Сообщений: 449
	04.12.2013, 12:42
	Не выходит. Позицию запуска удается установить только оболочке с кнопками да/нет. 0

@SanRn 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 41
	04.12.2013, 16:35 [ТС]
	А позици, ты имеешь ввиду положение на экране? 0

@Sapphire 58 / 52 / 0 Регистрация: 15.12.2012 Сообщений: 449
	05.12.2013, 08:36
	Ну да, а как еще можно расположить окна, пока не доходит. 0

@SanRn 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 41
	09.12.2013, 18:41 [ТС]
	Ругается на то что declare не может использоваться как идентификатор ну и на остальные что они не объявлены.. Всё это тело должно быть вставлено в Private Sub Button2_Click.... т.е заканчиваться на end sub. Не получается в упор. А в первом варианте он сразу закрывает окно, а должен ждать 3 секунды и потом закрыть, или нажатием мной кнопкой ОК. 0

@Sapphire 58 / 52 / 0 Регистрация: 15.12.2012 Сообщений: 449
	10.12.2013, 04:59
	Ну да, мы не ищем легких путей А можно замутить дополнительную форму, и на ней все это реализовать вместо msgbox'а. Там кода то фигня надо будет... 0

@SanRn 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 41
	11.12.2013, 08:58 [ТС]
	Спасибо, всё работает. 0

@SanRn 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 41
	12.12.2013, 11:35 [ТС]
	Но это работает только из под класса. А может кто знает как объявить эту функцию MessageBoxTimeOut не используя класс. Просто дома у меня работает, а на работе есть только Private sub button...... end sub. если объявлять её в Private sub, то не работает. 0

Программа для открытия игры косынка

Решение