VBS << На главную или назад  

141 ответов в теме “VBS”

1. 18
   Антон Кононов ответил:
   23 октября 2008 в 22:05

   2Евгений KpoHyc Гаврин: мда… вот переписал:

   ' на форму напишите следующее
   Private Declare Function SetTimer Lib "user32" _
   (ByVal hWnd As Long, ByVal nIDEvent As Long, _
   ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

   Private Sub cmdShowMsg_Click()
   'здесь нам настраиваится час 4 секунды (4000 милисекунд)
   SetTimer hWnd, NV_CLOSEMSGBOX, 4000, AddressOf TimerProc

   If MsgBox("Сообщение автоматически закроеться после 4 секунд. _
   Повторить или конец ?", vbRetryCancel + vbDefaultButton1, _
   "MsgBox") = vbRetry Then
   MsgBox "Повторить"
   Else
   MsgBox "Конец"
   End If

   End Sub

   ' в модуль запишем следующее
   Private Declare Function KillTimer Lib "user32" _
   (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
   Private Declare Function FindWindow Lib "user32" Alias _
   "FindWindowA" (ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Long
   Private Declare Function SetForegroundWindow Lib "user32" _
   (ByVal hWnd As Long) As Long
   Public Const NV_CLOSEMSGBOX As Long = &H5000&
   Public Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, _
   ByVal idEvent As Long, ByVal dwTime As Long)
   KillTimer hWnd, idEvent
   Select Case idEvent
   Case NV_CLOSEMSGBOX 'хотим закрыть окно после 4 секунд
   Dim hMessageBox As Long
   'чтобы MsgBox мог закрыться нормально надо определить по кокому имени будет закрываться
   hMessageBox = FindWindow("#32770", "MsgBox")
   If hMessageBox Then
   Call SetForegroundWindow(hMessageBox)
   SendKeys "{enter}"
   End If
   End Select
   End Sub

2. 17
   Антон Кононов ответил:
   23 октября 2008 в 22:05

   чьорт =) без отступов (((

3. 16
   Антон Кононов ответил:
   23 октября 2008 в 22:05

   короче, Шурик Волошин, закрыть MessageBox не так очевидно как в 1с

4. 15
   Дмитрий Шилоносов ответил:
   23 октября 2008 в 22:02

   да не, delay должен быть, какой-же нормальный язык программирования и без delay?

5. 14
   Евгений Гаврин ответил:
   23 октября 2008 в 21:02

   //forum.vingrad.ru/faq/topic-158140.html

6. 13
   Dain Here ответил:
   23 октября 2008 в 20:05

   типа того

   вот только есть ли у него delay? О_о…

7. 12
   Миха Кардаков ответил:
   23 октября 2008 в 20:01

   msgbox походу meassagebox в делфи

8. 11
   Антон Кононов ответил:
   23 октября 2008 в 20:00

   0_0
   Шурик, а что это за функция за такая msgbox ? описание есть? (я ж из дельфи)

9. 10
   Шурик Волошин ответил:
   23 октября 2008 в 19:00

   а вопросом на вопрос заебись отвечать?

10. 9
    Дмитрий Шилоносов ответил:
    23 октября 2008 в 18:02

    а как же тогда???

11. 8
    Дмитрий Шилоносов ответил:
    23 октября 2008 в 17:04

    хмм… да, действительно.
    а что тогда делать?

12. 7
    Шурик Волошин ответил:
    23 октября 2008 в 17:04

    забить на vbs?

13. 6
    Шурик Волошин ответил:
    23 октября 2008 в 17:03

    там 3 лола

14. 5
    Дмитрий Шилоносов ответил:
    23 октября 2008 в 17:02

    а, тогда точно перед лолом.

15. 4
    Шурик Волошин ответил:
    23 октября 2008 в 17:00

    дык чтобы после запуска бокс выскочил после задержки….

16. 3
    Антон Кононов ответил:
    23 октября 2008 в 16:02

    0_o

17. 2
    Дмитрий Шилоносов ответил:
    23 октября 2008 в 16:01

    я так думаю, что надо после первой скобки

18. 1
    Жека Кирпичев ответил:
    23 октября 2008 в 15:05

    Вставь его туда, где он более всего придется впору – заодно и "поугараешь".