Как програмно закрыть calc.exe

28.11.2010, 19:16. **Показов** 1916. **Ответов** 12

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

@potekhin · 29.11.2010, 07:23

Послать ему сообщение WM_QUIT или WM_CLOSE что то типа этого.

@XPraptor · 30.11.2010, 09:56

AppActivate еще ни кто не отменял. Указываешь заголовок окна калькулятора и посылаешь SendKeys %(F4).

30.11.2010, 10:52

2XPraptor:
Ух не любишь ты API!
:-)))))

@XPraptor · 30.11.2010, 12:40

To Comanche:
Так Laris-е еще нужно будет привести код нахождения этого самого окна на АПИ, а потом объяснить как посылать сообщения через АПИ, проще через ж..., но без заморачивания на сложных блоках кода:-)))

@wishcom · 01.12.2010, 21:41

А если это WinAmр.
А как мы знаем,то название окна в нем может быть не
статичным, а в виде бегущей строки.
Что тады Активировать.?

03.12.2010, 00:07

2wosh:
Ты считаешь, что окно можно только по названию активировать? Вообще-то окон с 'бегущим именем класса' я пока не встречал...

08.12.2010, 09:25

Извините если можно покажите какой нибудь пример

))

@wishcom · 19.12.2010, 17:09

'Открой 'Мой компьютер'
Dim ID
ID = Shell(App.Path & ' ' & 'Basa', 1)
AppActivate 'Мой компьютер'

SendKeys '%{F4}', True

'И окно закроется...
'
'В Office есть help.
'Там есть немножко...

19.12.2010, 23:11

что-то типа:

Visual Basic

Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DestroyWindow Lib 'user32' (ByVal hwnd As Long) As Long
 
Private Sub KillThatShit()
   Dim ww As Long
   ww = FindWindow('SciCalc',vbNullString)
   Do While ww <> 0
      DestroyWindow ww
      ww = FindWindow('SciCalc',vbNullString)
   Loop
End Sub

25.12.2010, 22:07

Спасибо !

Еще один вопрос винде ИКС ПИ окрыл Modem_log m56k. .txt

Visual Basic

open ('Modem_log m56k. .txt') for input as #1
while not eof(1)
line input #1,L
rec.addnew
rec.fields(1).value=mid(L,1,26)
rec.update
wend

и открываю базу там всего 16 записей а должно быть 100?

Спасибо

@Alexey Spirin · 26.12.2010, 16:03

Не может такого быть.
Написано все правильно.
Поставь точки останова или Debug.print 'ом смотри, что читается.

26.12.2010, 20:09

Я проверил прог отрывается на 18 строке
10-18-2004 12:02:52.854 - Послано: AT&FE0V1S0=0&C1&D2+MR=2;+DR=1;+ER=1;W2<cr>
как эту строку можно
Form1.data1.recordset.fields(1).value=L

Larisa
		1
	Как програмно закрыть calc.exe 28.11.2010, 19:16. Показов 1916. Ответов 12 Метки нет (Все метки) Как програмно закрыть calc.exe

@potekhin 2 / 2 / 2 Регистрация: 14.10.2009 Сообщений: 100
	29.11.2010, 07:23	2
	Послать ему сообщение WM_QUIT или WM_CLOSE что то типа этого. 0

@XPraptor 0 / 0 / 3 Регистрация: 28.01.2010 Сообщений: 279
	30.11.2010, 09:56	3
	AppActivate еще ни кто не отменял. Указываешь заголовок окна калькулятора и посылаешь SendKeys %(F4). 0

Comanche
	30.11.2010, 10:52	4
	2XPraptor: Ух не любишь ты API! :-)))))

@XPraptor 0 / 0 / 3 Регистрация: 28.01.2010 Сообщений: 279
	30.11.2010, 12:40	5
	To Comanche: Так Laris-е еще нужно будет привести код нахождения этого самого окна на АПИ, а потом объяснить как посылать сообщения через АПИ, проще через ж..., но без заморачивания на сложных блоках кода:-))) 0

@wishcom 1 / 1 / 0 Регистрация: 17.02.2010 Сообщений: 131
	01.12.2010, 21:41	6
	А если это WinAmр. А как мы знаем,то название окна в нем может быть не статичным, а в виде бегущей строки. Что тады Активировать.? 0

Messir
	03.12.2010, 00:07	7
	2wosh: Ты считаешь, что окно можно только по названию активировать? Вообще-то окон с 'бегущим именем класса' я пока не встречал...

Larisa
	08.12.2010, 09:25	8
	Извините если можно покажите какой нибудь пример ))

@wishcom 1 / 1 / 0 Регистрация: 17.02.2010 Сообщений: 131
	19.12.2010, 17:09	9
	'Открой 'Мой компьютер' Dim ID ID = Shell(App.Path & ' ' & 'Basa', 1) AppActivate 'Мой компьютер' SendKeys '%{F4}', True 'И окно закроется... ' 'В Office есть help. 'Там есть немножко... 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	26.12.2010, 16:03	12
	Не может такого быть. Написано все правильно. Поставь точки останова или Debug.print 'ом смотри, что читается. 0

	26.12.2010, 20:09