panda » 22.04.2009, 12:17
[code=скрипт.vbs]Set WshShell = WScript.CreateObject("WScript.Shell")
If WshShell.AppActivate("Mirc") Then
For Each x in WScript.Arguments
WshShell.SendKeys(x & " ")
Next
End If
[/code]
эта фиговина отправляет в окно мирка то, что ей передают в качестве параметров.
хотя лучше даже так, через foo_texttools, тут и параметров не надо и без неожиданностей:
[code=скрипт.vbs]Set WshShell = WScript.CreateObject("WScript.Shell")
Call WshShell.Run("foobar2000.exe " & chr(34) & _
"/runcmd-playing=Utils/Text Tools/Copy: Mirc" & chr(34), 1, True)
If WshShell.AppActivate("Mirc") Then WshShell.SendKeys("^v")
[/code]