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

Заказывай стафф с атрибутикой Mozilla и... пусть все вокруг завидуют тебе! Быть уникальным - быть с Mozilla!

№122-05-2006 02:51:52

iMosquito
Участник
 
Группа: Members
Откуда: Ростов-на-Дону
Зарегистрирован: 05-05-2006
Сообщений: 6

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

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

Отсутствует

 

№222-05-2006 03:17:25

Bananas
Участник
 
Группа: Members
Откуда: Minsk, Belarus
Зарегистрирован: 12-03-2005
Сообщений: 1059
Веб-сайт

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

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


Sometimes I give myself the creeps,
Sometimes my mind plays tricks on me...

Отсутствует

 

№322-05-2006 16:00:33

September
Участник
 
Группа: Members
Откуда: Из серой обыденности
Зарегистрирован: 05-10-2005
Сообщений: 100

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

Это как?


Life is eternal. Lifetime is ephemeral.

Отсутствует

 

№422-05-2006 19:04:07

Bananas
Участник
 
Группа: Members
Откуда: Minsk, Belarus
Зарегистрирован: 12-03-2005
Сообщений: 1059
Веб-сайт

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

ярлык на скрипт, который запускает 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)


Sometimes I give myself the creeps,
Sometimes my mind plays tricks on me...

Отсутствует

 

№522-05-2006 19:33:55

Bananas
Участник
 
Группа: Members
Откуда: Minsk, Belarus
Зарегистрирован: 12-03-2005
Сообщений: 1059
Веб-сайт

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

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


Sometimes I give myself the creeps,
Sometimes my mind plays tricks on me...

Отсутствует

 

№622-05-2006 19:52:55

iMosquito
Участник
 
Группа: Members
Откуда: Ростов-на-Дону
Зарегистрирован: 05-05-2006
Сообщений: 6

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

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

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

Отсутствует

 

№722-05-2006 20:12:18

Bananas
Участник
 
Группа: Members
Откуда: Minsk, Belarus
Зарегистрирован: 12-03-2005
Сообщений: 1059
Веб-сайт

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

Выделить код

Код:

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)


Sometimes I give myself the creeps,
Sometimes my mind plays tricks on me...

Отсутствует

 

№822-05-2006 20:15:30

Bananas
Участник
 
Группа: Members
Откуда: Minsk, Belarus
Зарегистрирован: 12-03-2005
Сообщений: 1059
Веб-сайт

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

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

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

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


Sometimes I give myself the creeps,
Sometimes my mind plays tricks on me...

Отсутствует

 

№922-05-2006 21:48:59

SurferNet
Участник
 
Группа: Members
Зарегистрирован: 03-11-2005
Сообщений: 590

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

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

Отсутствует

 

№1022-05-2006 21:52:55

stoneflash
Хитрый Лис
 
Группа: Extensions
Откуда: Msk
Зарегистрирован: 02-04-2006
Сообщений: 4341

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

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


«I actually hate programming, but I love solving problems» © Rasmus Lerdorf, PHP's Creator

Отсутствует

 

№1126-05-2006 22:53:49

Bananas
Участник
 
Группа: Members
Откуда: Minsk, Belarus
Зарегистрирован: 12-03-2005
Сообщений: 1059
Веб-сайт

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

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

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)


Sometimes I give myself the creeps,
Sometimes my mind plays tricks on me...

Отсутствует

 

№1227-05-2006 18:56:59

Bananas
Участник
 
Группа: Members
Откуда: Minsk, Belarus
Зарегистрирован: 12-03-2005
Сообщений: 1059
Веб-сайт

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

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

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

Sometimes I give myself the creeps,
Sometimes my mind plays tricks on me...

Отсутствует

 

Board footer

Powered by PunBB
Modified by Mozilla Russia
Copyright © 2004–2020 Mozilla Russia GitHub mark
Язык отображения форума: [Русский] [English]