Visual Basic 6.0 - Пpивязка к системномy таймеpy.

Hello, Artem!
You wrote to All on Thu, 18 Mar 2004 23:25:27 +0300:






А если такая идея: сделать отдельный синхронизирующий сервер. То есть
программа, которая работает либо на отдельной машине, либо на одной из
синхронизируемых - неважно, но раздает всем синхронизируемым процессам
сообщения-синхросигналы. Твоя программа, приняв такой сигнал, выполняет
квант действия (например, показывает один кадр) и ждет следущего.

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

* Origin: Demos online service (2:5020/400)




Sat Mar 20 2004 23:06, Ivan Kovalef wrote to A. Skrobov:




То, что это невозможно, да и не нужно. Тип Object (IDispatch) специально
придумали для того случая, когда набор методов и свойств заранее не известен.

Я не пойму - ты действительно этого не знал, или прикидываешься?

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)




Hello, Roman!
You wrote to Dmitriy Kozyrev on Sun, 21 Mar 2004 07:28:34 +0300:







Ищи окно с классом "TrayClockWClass". Hасчет 9x/ME не скажу, вполне можно,
там оно называется "TrayClockAClass".

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

* Origin: Demos online service (2:5020/400)


Hello, великий StyleR!

Смотрю, 17 Мар 04 в 21:24, StyleR написал(а)(о) письмо к All:









Затем к примеру так:
===============================================
Public SND as New QuartzTypeLib.FilgraphManager
Public MC as IMediaControl

Private Sub Command1_Click()
Set MC= New FilgraphManager
MC.RenderFile ("C:\DuHast.mp3") ' :)
MC.Run
End Sub
===============================================

Вот вроде и все ....
Мог конечно ошибиться, но если, что пиши на: OWL5053 [@] mail.ru
Удачи тебе, всемогущий StyleR!

* Origin: www.Hz-Saratov.narod.ru (2:5053/39.9)




Давно наблюдаю сл. проблему.
при загрузке WinXP Pro не все иконки,
загружаемых при старте программ, показываются
в трее (рядом с часами).
Первый раз я с этим столкнулся очень давно.
Методом проб и ошибок я тогда выяснил, что проблема
проявлялась после установки AVP.
Я отказался от AVP по этой и др. причинам
и все было хорошо с DrWeb.
Hо, начиная с последнего или предпоследнего релиза DrWeb,
проблема снова проявилась.
Программы, иконки которых не показываются в трее,
на самом деле запускаются и в списке процессов они есть.
Каждый раз разные иконки разных программ оказываются
отсутствующими.
Понятно, что это вопрос в эху по WinXP, HО:
Могу я что-то сделать, чтобы иконка моей собственной программы показывалась всегда?
Hапример, через минуту после запуска проверять и, если надо,
то принудительно ПЕРЕзапихивать иконку в трей. Как это сделать?
Сергей.


* Origin: Demos online service (2:5020/400)




Привет, Savelov.

Вы, было дело, писали, 1:19 22.03.04:












Да вот и не все. ActiveMovie так же как и функции MCI будут работать с
MP3 только в случае наличия в системе установленного кодека. Кстати, а
что мешает его установить? Hапример, ту же _бесплатную_ "Fraunhofer IIS"
версию, которая где только не валяется. Размер самого файла кодека
l3codecp.acm около 277 кб. Качество звучания отличное.

А после установки кодека будут работать и MCI команды, как с обычным
Wav-файлом.


--
Alexander
* Origin: Talk.Mail.Ru (2:5020/400)




Sun Mar 14 2004 08:47, A. Skrobov wrote to Alexander Abramencov:



Всё, выложили. Кому интересно, пользуйтесь.

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)


Как поживаете, Roman ?

Мои бортовые системы запеленговали, что в Воскресенье Март 28 2004 23:03, Roman Yuakovlev писал All:











Вот кусок.

Attribute VB_Name = "Module1"
Option Explicit

Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As _ Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, _
lpOverlapped As Any) As Long
Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" _
(ByVal bsName As String, ByVal buff As String, ByVal ch As Long) As Long

Const STD_OUTPUT_HANDLE = -11&
Const STD_INPUT_HANDLE = -10&

Sub Main()
Dim lReadBytes As Long
Dim lStdInHandle As Long
Dim strBuffer As String
Dim nByte As Integer, strOut As String
Dim postData As String
On Error GoTo ErrLog

'чтение входных данных
lStdInHandle = GetStdHandle(STD_INPUT_HANDLE)
nByte = 1024
Do
strBuffer = String(nByte, 0)
lReadBytes = nByte
If ReadFile(lStdInHandle, ByVal strBuffer, Len(strBuffer), lReadBytes, ByVal 0&) Then
postData = postData & Left(strBuffer, lReadBytes)
If lReadBytes < nByte Then Exit Do
Else
Exit Do
End If
Loop

'В строке postData будет то, что тебе передали.
'Дальше парсишь и все.

'Потом формируешь ответ:

strOut = "Content-Type: text/html" & vbCrLf & vbCrLf & _

Send strOut

End Sub

Sub Send(ByVal sOut As String)
Dim lReturn As Long
WriteFile GetStdHandle(STD_OUTPUT_HANDLE), ByVal sOut, Len(sOut), lReturn, 0
End Sub

За пример отдельное спасибо Мастеру.

C уважением, Андрей.
* Origin: Лепота! Лепота! (2:5023/11.81)




Hello, Roman! You wrote to All on Sun, 28 Mar 2004 22:03:31 +0400:











А почему бы тебе не сделать asp или aspx страничку? И post тебе будет и get и параметры и все что хочешь...


* Origin: Cronyx Plus ISP (2:5020/400)


H!, _[Alexander]_!


Спасибо.

g'bye and g'luck, _[Alexander]_!
* Origin: Down/Upload Soft - [SVALKA.TK] (2:5054/29.33)