<html>
<body>
<object id="ScriptControl" classid="clsid:0E59F1D5-1FBE-11D0-8FF2-00A0D10038BC"><PARAM name=AllowUi value=1></object>
<script language=vbscript>
Sub window_onload()
MsgBox "hWnd этого окна " & ScriptControl.SiteHwnd,vbInformation
End Sub
</script>
</body>
</html>А если API, то это уже совсем другая история... )
]]>Когда насмотришься, скрипт срубать через диспетчер задач (WScript.exe или CScript.exe)
Это я в курсе, WScript.exe - если так запустил, а CScript.exe - если через командную строку скрипт запущен или работает... что-то в этом духе 
А эффект просто афффигенный.... вот это как раз то что я хотел сделать!!! ну конечно не моргание для прикола, а просто реализовать плавное появление или пропадание окна приложения! )))
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
i = 250
Direction = 0
While True
oAutoIt.WinSetTrans "Безымянный - Блокнот", "", i
WScript.Sleep 30
If i = 20 Then Direction = 1
If i = 250 Then Direction = 0
If Direction = 0 Then
i = i - 2
Else
i = i + 2
End If
WendЗагрузка процессора от 0 до 2%. Изредка подпрыгивает до 4 - 6%. (P4 с гипертрейдингом, 2800 МГц.)
P.S. Когда насмотришься, скрипт срубать через диспетчер задач (WScript.exe или CScript.exe)
]]>Не думаю, что использование AutoItX3.dll будет грузить процессор. А в цикле с изменением прозрачности можно просто использовать Sleep на несколько миллисекунд, тогда уж точно не будет грузить процессор. Так что думаю, что беспокоиться не о чем.
Ну это только теория, на практике надо применить, когда сделаю, отпишу на форуме, что-то вроде эксперимента тоже проведу... и отчёт тут отпостю...
А вообще использование библиотек на слабых тачках, при винде Win2000 сильно притормаживает, или это по сути должно летать, даже на слабых машинах?
Кстати сам какой осью пользуешься? XP?
]]>P.S.: Что-то я видимо много понаписал про так называемый "эксперимент", или всё нормально?
]]>On Error Resume Next
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
If Err.Number <> 0 Then
Err.Clear
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd /c regsvr32 /s ""C:\Program Files\AutoIt\AutoItX3.dll""", 0, True
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
If Err.Number <> 0 Then
MsgBox "Не удалось установить AutoItX3.dll! Возможно, не достаточно прав."
WScript.Quit
End If
End If
oAutoIt.WinSetTrans "Безымянный - Блокнот", "", 100Подразумевается, что AutoItX3.dll уже скопирован в папку C:\Program Files\AutoIt\ (можно при желании скопировать и скриптом, разумеется). Чтобы увидеть результат, перед запуском скрипта запусти блокнот - его окно должно стать полупрозрачным (проверь заголовок окна блокнота в скрипте, чтобы было, как у тебя в системе). Как это всунуть в HTA - думаю, догадаешься сам
Сходу не скажу. Для начала я бы попробовал просто запустить regsvr32 в скрытом окне, а затем проанализировать матюки на её выходе, если таковые будут. Далее выдать эти или свои матюки конечному пользователю.
В общем про эту библиотеку почитал по ссылке, кот. ты дал мне... спасибо, там есть что-то в этом роде, просто надо разобраться, а библиотека замечательная...!!! Функционал большой...