panda » 22.04.2009, 11: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]