ORG

Witam,

Jak że niektórzy z nas posiadają słabsze komputery (ja taki nie posiadam ale to już nie ważne:P) to zmuszeni są do używania aplikacji typu Prism. Prism jest to aplikacja która odpala nam okienko FF ale nie jako okno całej przeglądarki - a maksymalnie okrojona przeglądarka z konkretnymi ustawieniami i konkretnym linkiem do wyświetlenia. Dzięki temu strona quakelive'a jak i sama gra chodzi troszeczkę szybciej (a przynajmniej tak słyszałem :P).

Problem z Prism'em polega na tym, że otwiera okno ale z konkretnym linkiem którego nie sposób zmienić (a przynajmniej ja nie wiedziałem jak stąd ten post). W przypadku kiedy gramy w QL na pickupie jest to ogromny problem dlatego, że każdy mecz pickupa odbywa się każdorazowo na innym serwerze, więc za każdym razem dostajemy inny link na który mamy się dołączyć. Niezmiernie mnie to wkurwiało, dlatego postanowiłem jakoś się tym zająć. Z racji tego, że nie uzyskałem odpowiedzi/rady na w/w problem na oficjalnej grupie dyskusyjnej prism'a napisałem własny program który temu zaradził.

Program ten to jest zwykły prosty skrpyt w jęzku Visual Basic Scripts. Po uruchomieniu którego jesteśmy proszeni o podanie linka pod który chcemy się łączyć. Następnie skrypt nadpisuje odpowiedni plik konfiguracyjny dla naszego prism-quakelive po czym odpala samego prism'a.

Wszystko co należy zrobić to:

1. skopiować ten kod do nowego pliku o nazwie np. "Prism z moim linkiem.vbs" (rozszerzenie ".vbs" jest tutaj istotne!)

2. zmodyfikować dwie pierwsze lnijki tego kodu -

"YourWindowsAccountName" zastąpić nazwą własnego konta w systemie Windows

1. odpalić skrypt za pomocą podwójnego kliknięcia. Gotowe!

Upewnij się, że zainstalowałeś Prism oraz stworzyłeś na własnym pulpicie skrót do QL za pomocą Prism'a.

Osobiście testowałem mój kod tylko na Windows 7, więc w przypadku Windows XP dwie pierwsze linijki kodu należy zmodyfikować mniej więcej tak:

Const PrismShortCut = "c:\Document and Settgins\YourWindowsAccountName\Desktop\Quakelive.lnk "

Const PrismConfigFile = "c:\Document and Settgins\YourWindowsAccountName\AppData\Roaming\WebApps\quakelive@prism.app\webapp.ini"

a w razie wątpliwości gdzie znajduje się nasz plik konfiguracyjny od Prism-QuakeLive po prostu wyszukaj pliku "webapp.ini" na partycji C:.

_____________ CUT HERE _______________

Const PrismShortCut = "c:\Users\YourWindowsAccountName\Desktop\Quakelive.lnk "

Const PrismConfigFile = "c:\Users\YourWindowsAccountName\AppData\Roaming\WebApps\quakelive@prism.app\webapp.ini"

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
PrismSettings = "[Parameters]" & vbCrLf & "id=quakel...@prism.app" & vbCrLf & "name=Quakelive" & vbCrLf & "icon=webapp" & vbCrLf & "status=false" & vbCrLf & "location=true" & vbCrLf & "sidebar=false" & vbCrLf & "navigation=false" & vbCrLf & "trayicon=false" & vbCrLf & "uri="
Your_URL = ""

Your_URL = InputBox("Paste the url where you want go","Paste the url")

PrismSettings = PrismSettings & Your_URL & vbCrLf
Dim fso, f, ts

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFile(PrismConfigFile)

Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.Write PrismSettings

ts.Close
Dim oShell, WshShell

Set WshShell = CreateObject("WScript.Shell")

strScript = Wscript.ScriptFullName

WshShell.Run PrismShortCut & strScript, 1, FALSE

_____________ CUT HERE _______________
Gotowy skrypt można pobrać spod adresu:

gotowy skrypt

Wyszukiwarka systemowa nie znajduje pliku o nazwie webapp. Mam Win XP

lObuz napisał:
> Wyszukiwarka systemowa nie znajduje pliku o nazwie webapp. Mam Win XP
...

Spróbuj szukać "webapp.ini" bądź folderu "quakelive@prism.app" w którym to ma się on znajdować. Jeżeli takowy znajdziesz to podaj w komentarzu pełną ścieżkę do niego.
Update:

Dość istotna poprawka dotycząca kodu skryptu:

kod:

**
**
> *Your_URL = ""
>
> Your_URL = InputBox("Paste the url where you want go","Paste the url")
> *

**
**

należy zamienić na:

**
**
> *Your_URL = InputBox("Paste the url where you want go","Paste the url")
>
> if Your_URL = "" then Your_URL = "www.quakelive.com/#home/"
> *

**

**

Kundelku, a co powiesz na napisanie artykułu na ten temat?

[code]Const PrismShortCut = "C:\Documents and Settings\DOBRY\Pulpit\Quake Live.lnk "
Const PrismConfigFile = "C:\Documents and Settings\DOBRY\Dane aplikacji\WebApps\quake.live@prism.app\webapp.ini"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

PrismSettings = "[Parameters]" & vbCrLf & "id=quakelive@prism.app" & vbCrLf & "name=Quakelive" & vbCrLf & "icon=webapp" & vbCrLf & "status=false" & vbCrLf & "location=true" & vbCrLf & "sidebar=false" & vbCrLf & "navigation=false" & vbCrLf & "trayicon=false" & vbCrLf & "uri="

Your_URL = InputBox("Paste the url where you want go","Paste the url")
if Your_URL = "" then Your_URL = "www.quakelive.com/#home/"
PrismSettings = PrismSettings & Your_URL & vbCrLf

'otwierania pliku
Dim fso, f, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(PrismConfigFile)
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)

ts.Write PrismSettings
ts.Close

'Uruchomienie prism'a
Dim oShell, WshShell
Set WshShell = CreateObject("WScript.Shell")
strScript = Wscript.ScriptFullName
WshShell.Run PrismShortCut & strScript, 1, FALSE

[/code]

Tak to teraz u mnie wygląda po znalezieniu webapp.ini (win xp) i gdy chce łączyć się z serwerem pojawia się jakiś błąd: kliknij tutaj

Bo w pierwszej linijce twojego skryptu:

> [code]Const PrismShortCut = "C:Documents and SettingsDOBRYPulpitQuake Live.lnk "
>
> [/code]
...
masz podaną pełną ścieżkę\nazwę pliku oraz jest tam wstawiony znak SPACJI a dopiero potem zamykasz cudzysłów - czyli masz o jedną niepotrzebną spacje za dużo :)

Usuń spacje i będzie działać.
p.s.

co do wstawionego przez ciebie screenshota to wszystko pięknie, tylko następnym razem wciskaj klawisz PrintScreen razem z ALT'em - to zrobisz screenshota tylko aktywnego okienka w Windowsie, bez pozostałych okienek czy tapety pulpitu.

[code]Const PrismShortCut = "c:\Documents and Settgins\Kozak\Pulpit\Quake Live.lnk"
Const PrismConfigFile = "c:\Documents and Settgins\Kozak\Dane aplikacji\WebApps\quake.live@prism.app\webapp.ini"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

PrismSettings = "[Parameters]" & vbCrLf & "id=quake.live@prism.app" & vbCrLf & "name=Quakelive" & vbCrLf & "icon=webapp" & vbCrLf & "status=false" & vbCrLf & "location=true" & vbCrLf & "sidebar=false" & vbCrLf & "navigation=false" & vbCrLf & "trayicon=false" & vbCrLf & "uri="

Your_URL = InputBox("Paste the url where you want go","Paste the url")
if Your_URL = "" then Your_URL = "www.quakelive.com/#home/"
PrismSettings = PrismSettings & Your_URL & vbCrLf

'otwierania pliku
Dim fso, f, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(PrismConfigFile)
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)

ts.Write PrismSettings
ts.Close

'Uruchomienie prism'a
Dim oShell, WshShell
Set WshShell = CreateObject("WScript.Shell")
strScript = Wscript.ScriptFullName
WshShell.Run PrismShortCut & strScript, 1, FALSE[/code]
Niestety u mnie nie działa, wyskakuje taki oto błąd:
[img]img705.imageshack.us/img705/4028/beztytuupzj.jpg[/img]

W drugiej linijce twojego skryptu:

[code]

Const PrismConfigFile = "c:\Documents and Settgins\Kozak\Dane aplikacji\WebApps\quake.live@prism.app\webapp.ini"

[/code]

masz podaną ścieżkę do pliku webapp.ini - niestety plik nie został znaleziony co oznacza, że ścieżka jest błędna. Moim zdaniem w wyrazie: "Documents and Settgins" zrobiłeś błąd i powinno być "Settings" :)