NetLab · Rules · Torrent Tracker · Have a problem? · Eng/Rus  Help      Search      Members      Gallery      Calendar
Welcome Guest ( Log In | Register | Validation ) Resend Validation Email
>  NetLab -> Forums -> Сайт -> Флейм -> Topic: Нужна помощь программиста.

 

> Нужна помощь программиста., Написать и скомпилить немного несложного кода.
Print topic |
 heineken man Member is Offline
 Posted: 03-07-2008, 13:59 (post 1, #846028)

Agent - Provocateur

Group: Prestige
Posts: 4565
Warn:0%-----
Ситуация такая: нужно по даблклику на файле с расширением pdf запустить ассоциированную програмку предлагающую выбор - открыть файл в акробате или обработать в другой програме (имя хранится в редакции).
Батч не годится, это для бухгалтеров и нужны шашечки. На чем угодно, лишь бы запускалось из XP без проблем.
Звучит довольно просто, но к сожалению в имеющихся рабочих условиях я не могу заниматься такими делами по многим причинам. :(

Если кто согласится помочь буду очень благодарен. :fear2: :w00t:
PM Email Poster
Top Bottom
 LF_ Member is Offline
 Posted: 03-07-2008, 17:35 (post 2, #846057)

Hand of Doom
Group: Roots
Group: Roots
Posts: 17384
Я, конечно, извиняюсь, но зачем тебе програмка? :) Есть даровый http://www.docu-track.com/home/prod_user/PDF-XChange_Tools/pdfx_viewer/, у него в правом нижнем углу есть меню
user posted image
Если у тебя есть 10 прог, которые работают с PDF - оно их там будет показывать, одным кликом мона выбрать в какую именно вызвать.
PM
Top Bottom
 heineken man Member is Offline
 Posted: 03-07-2008, 21:05 (post 3, #846074)

Agent - Provocateur

Group: Prestige
Posts: 4565
Warn:0%-----
Не, тетки-бухгалтера должны даблкликом прямо из аутлука посылать инвойсы-пидиефы на цифровую подпись, но при этом с вариантом просто открыть в акробате если не инвойс. Но кстати попробую в воскресенье на работе, из любопытства. :)
PM Email Poster
Top Bottom
 Set Member is Offline
 Posted: 03-07-2008, 23:58 (post 4, #846102)

Visionary

Group: Members
Posts: 5181
Warn:0%-----
test.htm
CODE
<body>
<input type="radio" name="ch1">1<BR>
<input type="radio" name="ch2">2<BR>
<input type="radio" name="ch3">3<P>
</body>

test.vbs
QUOTE
Set objExplorer = CreateObject("InternetExplorer.Application")

objExplorer.Navigate "file://d:\test.htm"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 400
objExplorer.Height = 250
objExplorer.Left = 400
objExplorer.Top = 250
objExplorer.Visible = 1

Do While True
If objExplorer.Document.All.ch1.checked Then
Wscript.CreateObject("Wscript.Shell").Run "notepad.exe"
Exit Do
End If
If objExplorer.Document.All.ch2.checked Then
Wscript.CreateObject("Wscript.Shell").Run "notepad.exe d:\test.htm"
Exit Do
End If
If objExplorer.Document.All.ch3.checked Then
Wscript.CreateObject("Wscript.Shell").Run "notepad.exe d:\test.vbs"
Exit Do
End If

WScript.Sleep 250
Loop

objExplorer.Quit

Подправить абсолютный путь к test.htm, даблклик на test.vbs и будет демка. Остальное элементарно отшлифуешь до нужной кондиции. :&#041;
PM
Top Bottom
 heineken man Member is Offline
 Posted: 04-07-2008, 00:08 (post 5, #846105)

Agent - Provocateur

Group: Prestige
Posts: 4565
Warn:0%-----
Set
Спасибо, попробую. :rolleyes:
Попробовал - не ассоциируется pdf с vbs файлом - требуется скомпилированный win32 аппликейшн. :&#040;

LF_:
Тоже может получиться, если только найти способ впихнуть в линейки нужную мне програму рядом с иконкой акробата. :help:
PM Email Poster
Top Bottom
 Lab Member is Offline
 Posted: 04-07-2008, 10:18 (post 6, #846145)

freeman
Group: Global Moders
Group: Global Moders
Posts: 3140
дык а сама винда так умееет, показывать список програм, только надо разрушить текущую асоциацию и не ставить галочку "всегда использовать эту программу"
PM Email Poster Users Website ICQ
Top Bottom
 heineken man Member is Offline
 Posted: 04-07-2008, 14:34 (post 7, #846158)

Agent - Provocateur

Group: Prestige
Posts: 4565
Warn:0%-----
Винда с .vbs отказывается открывать/ассоциировать, несет какой то бред. :bad1:
PM Email Poster
Top Bottom
 FiL Member is Offline
 Posted: 04-07-2008, 14:35 (post 8, #846159)

Сварливый Мозг Клуба
Group: Roots
Group: Roots
Posts: 22892
QUOTE (Lab @ 04-07-2008, 03:18)
дык а сама винда так умееет, показывать список програм, только надо разрушить текущую асоциацию и не ставить галочку "всегда использовать эту программу"
оно показывает весь список, а надо только 2 весьма конкретные программы.
PM Email Poster ICQ AOL MSN
Top Bottom
 heineken man Member is Offline
 Posted: 04-07-2008, 14:45 (post 9, #846161)

Agent - Provocateur

Group: Prestige
Posts: 4565
Warn:0%-----
QUOTE (LF_ @ 03-07-2008, 16:35)
Если у тебя есть 10 прог, которые работают с PDF - оно их там будет показывать, одным кликом мона выбрать в какую именно вызвать.
Оно там только акробат и фокси показывает, а произвольную прогу только если она "намертво" заассоциирована с .pdf. :rolleyes: Как добавить произвольную прогу к списку я вчера ночью за 2 часа не нашел. :&#040;
PM Email Poster
Top Bottom
 Lab Member is Offline
 Posted: 04-07-2008, 17:47 (post 10, #846180)

freeman
Group: Global Moders
Group: Global Moders
Posts: 3140
а разве если ее через brouse найти, то потом там эта прога не зафиксируется? тогда жопа.

тогда надо писать прогу.
PM Email Poster Users Website ICQ
Top Bottom
 Set Member is Offline
 Posted: 04-07-2008, 19:36 (post 11, #846206)

Visionary

Group: Members
Posts: 5181
Warn:0%-----
QUOTE (heineken man @ 04-07-2008, 14:34)
Винда с .vbs отказывается открывать/ассоциировать, несет какой то бред. :bad1:
Чё пишет? :actu:
PM
Top Bottom
 Set Member is Offline
 Posted: 04-07-2008, 21:19 (post 12, #846228)

Visionary

Group: Members
Posts: 5181
Warn:0%-----
С двумя вариантами будет проще.

test.vbs
CODE
Select Case MsgBox("Yes - otkryvaem v notepad" & Chr(10) & "No - v wordpad", vbYesNoCancel, "Chto delat?")
Case vbYes Wscript.CreateObject("Wscript.Shell").Run "notepad.exe " & chr(34) & Wscript.Arguments(0) & chr(34)
Case vbNo Wscript.CreateObject("Wscript.Shell").Run "wordpad.exe " & chr(34) & Wscript.Arguments(0) & chr(34)
End Select

Запускать только с аргументом в виде имени нужного файла, так

test2.vbs "d:\links.txt"

иначе ошибка.
PM
Top Bottom
 heineken man Member is Offline
 Posted: 04-07-2008, 21:53 (post 13, #846231)

Agent - Provocateur

Group: Prestige
Posts: 4565
Warn:0%-----
Мне главное, чтобы даблкликом на эттачменте в аутлоке запускалось, а то тетки похерят решение. :music:
PM Email Poster
Top Bottom
Флейм
Topic Options
>  NetLab -> Forums -> Сайт -> Флейм -> Topic: Нужна помощь программиста.
Powered by Invision Power Board v1.3.1 Final.