Проблемка с toonel.net

iMosquito · №1

Вот скачал эту замечательную прогу экономия 50 процентов правда при качестве картники в 10 процентов от ориганал но все же только хочется так сделать чтоб она включался вместе с firefox и выключалась с ним же а то 20 метров в оперативе держать не хочется когда это не нужно конечно можно его постоянно включать а затем выключать ну жутко не удобно да и забываеш. Хотелось бы расширение штоли такое или что нибудь ишё?

Bananas · №2

я запускал вб скриптом

September · №3

Это как?

Bananas · №4

ярлык на скрипт, который запускает toonel (jawaw.exe с параметром путь к toonel.jar) и лису, кажется даже была проверка загружено ли что либо или нет, чтобы копии не делать. или заодно с прогой минимайз ту трэй, в которой можно запретить несколько экземпляров.

это было давно , исходник не находится вот пример

Dim Shell
set Shell = WScript.CreateObject ("WSCript.shell")
Shell.run("F:\Progra~1\Mozill~1\firefox.exe")

а вот еще интереснее пример

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("calc")

Do While oExec.Status = 0
WScript.Sleep 100
Loop

Отредактировано Bananas (22-05-2006 19:15:47)

Bananas · №5

Dim oExec,oExec2
Dim Shell

set Shell = WScript.CreateObject ("WSCript.shell")

Set oExec = Shell.Exec("C:\Windows\system32\calc.exe")
Set oExec2 = Shell.Exec("C:\Progra~1\Mozill~1\firefox.exe")

Do While oExec2.Status = 0
WScript.Sleep 1000
Loop

'Shell.run("taskkill.exe /PID "&oExec.ProcessID)
Shell.run("taskkill.exe /F /IM calc.exe /T")

пример с калькулятором вместо toonel'a

iMosquito · №6

Bananas пишет

Dim oExec,oExec2
Dim Shell
set Shell = WScript.CreateObject ("WSCript.shell")
Set oExec = Shell.Exec("C:\Windows\system32\calc.exe")
Set oExec2 = Shell.Exec("C:\Progra~1\Mozill~1\firefox.exe")
Do While oExec2.Status = 0
WScript.Sleep 1000
Loop

'Shell.run("taskkill.exe /PID "&oExec.ProcessID)
Shell.run("taskkill.exe /F /IM calc.exe /T")
пример с калькулятором вместо toonel'a

Можно мне по подробней обеснить а то я с прогромирование вообще не знаком а хочется это сделать можно обеснить так запускай то там просписываем это затем запускаем то и т.д

Bananas · №7

Выделить код

Код:

Dim oExec,oExec2
Dim Shell,test

set Shell = WScript.CreateObject ("WSCript.shell")
' прописать свои пути к toonel.jar и javaw.exe
Set oExec = Shell.Exec("C:\Program Files\Java\j2re1.4.2_10\bin\javaw.exe  -jar D:\Launch\toonel.jar")
' путь к ФФ
Set oExec2 = Shell.Exec("C:\Program Files\Mozilla Firefox\firefox.exe")

Do While oExec2.Status = 0
     WScript.Sleep 1000
Loop


if (oExec.Status = 0) then oExec.Terminate

сохранить в текстовый файл, расширение поменять на vbs
ps прочитать комментарии

Отредактировано Bananas (23-05-2006 10:13:03)

Bananas · №8

поищи в нете файл Script56.CHM - это справка по wsh

script_center.chm - я бы сказал hardcore basic

Отредактировано Bananas (23-05-2006 03:50:07)

SurferNet · №9

Кто найдет , скиньте ссылку или файл.

stoneflash · №10

SurferNet
Поиск рулит.
Вроде это: http://wsh-vbs.de/scr56de.chm/script56.chm

Bananas · №11

Давно хотел сделать и сделал)

activeX dll для использования в wsh
WindowHide("заголовок окна") - скрыть окно
WindowShow("заголовок окна") - показать окно
исходники и dll которую перед использованием нужно зарегистрировать выполнив regsvr32.exe путь\minimizer.dll
http://forum.mozilla.ru/uploaded/minimizer.xpi расширение сменить на rar
(не смог залить себе на сайт)

Пример использования (скрывает окно toonel.net после запуска и убивает после закрытия ФФ):

Выделить код

Код:

Dim oExec,oExec2
Dim Shell,Tray

set Shell = WScript.CreateObject ("WSCript.shell")
set Tray = WScript.CreateObject ("minimizer.tray")

Set firefox = Shell.Exec("C:\Program Files\Mozilla Firefox\firefox.exe")
Set toonel_net = Shell.Exec("C:\Program Files\Java\j2re1.4.2_10\bin\javaw.exe  -jar D:\Launch\toonel.jar")

Do While (Tray.GetWindowByName("toonel.net") = 0)and(toonel_net.status=0)
WScript.Sleep 1000
loop

Tray.WindowHide "toonel.net"

Do While firefox.Status = 0
     WScript.Sleep 1000
Loop

if (toonel_net.Status = 0) then toonel_net.Terminate

Отредактировано Bananas (26-05-2006 22:59:12)

Bananas · №12

Похоже зверское извращение но))

http://bananas.at.tut.by/minim.rar - исходнеги и длл

выполнить regsvr32.exe путь\minimizer.dll

позволяет запустить приложение, поместить любой(в том числе и его) значок в трей, добавить меню показать/скрыть

Выделить код

Код:

Dim Shell,Tray,caption

caption="toonel.net"

set Shell = WScript.CreateObject ("WSCript.shell")
set Tray = WScript.CreateObject ("minimizer.tray")

Set cmd = Shell.Exec("C:\Program Files\Java\j2re1.4.2_10\bin\javaw.exe  -jar D:\Launch\toonel.jar")
Set firefox = Shell.Exec("C:\Program Files\Mozilla Firefox\firefox.exe")
'Tray.WindowHide(caption) истина если удалось скрыть
Do While not Tray.WindowHide(caption)
  WScript.Sleep 10
  if cmd.status<>0 then WScript.quit 1
loop

Tray.SetIcon "D:\java.ico",Tray.GetWindowByName(caption),caption
'Tray.SetIcon "путь к значку, может быть любой файл ico, exe и тп.",Tray.GetWindowByName(caption),"tooltip"

Do While firefox.Status = 0
     WScript.Sleep 1000
     if cmd.status<>0 then exit do
Loop

if (cmd.Status = 0) then cmd.Terminate

Tray.DelIcon

Полезная информация

№122-05-2006 02:51:52