Вверх ↑
Главный модератор
Ответов: 2997
Рейтинг: 395
#1: 2008-12-07 13:52:23 ЛС | профиль | цитата
Уже говорил: вызов наружу в HiAsm из VBJScript:

#sha
Add(VBJScript,279962,707,447)
{
@Hint=#7:SendKey|
WorkPoints=#6:onWork|
EventPoints=#5:Sleep|
Script=#23:Sub doWork(Data, Index)|47: set WshShell = CreateObject("WScript.Shell")|16: Sys.Sleep 100|22: WshShell.Run "calc"|16: Sys.Sleep 100|36: WshShell.AppActivate "Calculator"|16: Sys.Sleep 100|27: WshShell.SendKeys "1{+}"|16: Sys.Sleep 500|24: WshShell.SendKeys "2"|16: Sys.Sleep 500|24: WshShell.SendKeys "~"|16: Sys.Sleep 500|25: WshShell.SendKeys "*3"|16: Sys.Sleep 500|24: WshShell.SendKeys "~"|17: Sys.Sleep 2500|14: MsgBox "OK"|7:End Sub|
link(Sleep,4363418:doEvent1,[])
}
Add(Beep,11419446,798,454)
{
Freq=0
Duration=100
link(Freq,2149200:Value,[])
link(Duration,9689648:Value,[])
}
Add(Hub,4363418,756,447)
{
link(onEvent1,9689648:doValue,[(796,453)(796,418)])
link(onEvent2,11419446:doBeep,[])
}
Add(Memory,9689648,805,412)
{
}
Add(Memory,2149200,798,377)
{
Default=Integer(0)
}

карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0