Join us in Outworldz at www.outworldz.com:9000 or follow us:

Search dozens of selected web sites for OpenSim and LSL script

New! Script Meta-Search will search thousands of scripts here and at other sites for LSL or Opensim scripts.
Loading

Want to add a script or a project? Upload it and a half million people will see it and your name here this year.

Home   Show All
Category: Contributor: Creator
Shortcut Desktop-Shortcuts  

Desktop-Shortcuts

Desktop Shortcut creator template script to a landmark in world.

Category: Shortcut
By : Ferd Frederix
Created: 2014-02-20 Edited: 2014-02-20
Worlds: Second Life

the Zip file

Download all files for Desktop-Shortcuts
Contents are in zip format, with .LSL (text) source code and LSLEdit (text + Solution) formats.

This script by Ferd Frederix may be used in any manner, modified, and republished.  Unless specified otherwise, my scripts are always free and open source.  Objects made with these scripts may be sold with no restrictions.  All I ask is that you point others to this location should they ask you about it and to not sell this script, unless it is for $0 L. Please help improve my work by reporting bugs and improvements.

1
2 ' Desktop Shortcut creator script
3 ' author: Fred Beckhusen
4 ' puts Icon to Firestorm on Windows desktops pointing to a Given Grid
5
6 ' declare a few places to save things in
7 Dim Shortcut, DesktopPath, Target, Workingdirectory, Folder, Exe, nBits
8
9 ' You need to fill this in for the particular viewer defaults
10 Folder = "Firestorm-OS" ' I am using Firestorm in This folder
11 Exe = "Firestorm-Release.exe" ' and the name of the exe file in the above folder
12 nBits = [% nBits] ' could be 64 for Singulatity
13
14 ' Add any arguments. I do them one at a time for readibility ( remember the spaces )
15 ' see http://wiki.secondlife.com/wiki/Viewer_parameters
16 Arguments = " --settings settings_firestorm-release_v4.xml "
17 Arguments = Argumants & " --channel Firestorm-Release " ' a unique cache folder name
18 Arguments = Arguments & " --set InstallLanguage en " ''your language for the viewer to use
19
20 ' yes all the double quotes are necessary
21 ' uncomment just ONE line, please.
22
23 'Arguments = Arguments & " --loginuri ""login.osgrid.org"" " '' okay,. OsGrid hates the http, no idea whym but this work.
24 'Arguments = Arguments & " --loginuri ""http://login.inworldz.com:8002/"" "
25 'Arguments = Arguments & " --loginuri ""http://sim.3dgrid.de:8002/"" "
26 'Arguments = Arguments & " --loginuri ""https://login.avination.com/"" "
27 'Arguments = Arguments & " --loginuri ""http://craft-world.org:8002/"" "
28 Arguments = Arguments & " --loginuri ""http://www.kitely.com:8002/"" "
29 'Arguments = Arguments & " --loginuri ""http://hypergrid.org:8002/"" "
30 'Arguments = Arguments & " --loginuri ""https://login.agni.lindenlab.com/cgi-bin/login.cgi"" "
31
32
33 ' Need to access special folders such as desktop....
34 Set WSHShell = WScript.CreateObject("WScript.Shell")
35
36 ' Use %PROGRAMFILES(x86) for 32 bit viewers
37 ' Use '%PROGRAMFILES%' for 64 bit viewers
38 if nBits = 64 then
39 Workingdirectory = WSHShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\" & Folder
40 else
41 Workingdirectory = WSHShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%") & "\" & Folder
42 end if
43
44 Target = Workingdirectory & "\" & Exe
45
46 ' get a path to the current desktop
47 DesktopPath = WSHShell.SpecialFolders("Desktop")
48
49 ' Create a shortcut object for us to fill in the properties. It is not saved yet
50 Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "/" & "[% name %]" & ".lnk")
51
52 Shortcut.workingdirectory = Workingdirectory
53
54 ' Make the Target path and all arguments
55 Shortcut.TargetPath = Target
56 Shortcut.Arguments = Arguments
57
58 ' There can be a HotKey associated with the shortcut, too
59 ' put the property into the Shortcut object
60
61 Shortcut.Hotkey = "[% hotkey %]"
62
63 ' Get an Icon from Shell32.dll
64 ' put the property into the Shortcut object
65
66 Shortcut.IconLocation = "SHELL32.dll, [% icon %]" ' the 34th icon in this is representative of a viewer
67
68 Shortcut.Hover = [% hover %]
69
70 ' Save it
71 Shortcut.Save
72 'Catch the error
73 If Err <> 0 Then
74 msgbox "Error saving shortcut " & Err
75 End If
76
77 ' the icon will now appear.

Desktop-Shortcuts

Desktop Shortcut creator script to write a landmark taken from a webserver form.

Category: Shortcut
By : Ferd Frederix
Created: 2014-02-20 Edited: 2014-02-20
Worlds: Second Life


This script by Ferd Frederix may be used in any manner, modified, and republished.  Unless specified otherwise, my scripts are always free and open source.  Objects made with these scripts may be sold with no restrictions.  All I ask is that you point others to this location should they ask you about it and to not sell this script, unless it is for $0 L. Please help improve my work by reporting bugs and improvements.

1 =pod
2 // Perl for Server
3 =cut
4
5 #!perl.exe
6
7 # author: Fred Beckhusen
8 # Perl Server code to read a web form. It created a VB script that makes an Icon
9 # requires the Cpan module Template::Toolkit (' cpan Toolkit')
10 # this scritp reads form vars such as :
11 # Icon = N, (Integer) that selects and icon from Windows/System32/SHELL32.dll. You can view these by changing any ocon and looking inside Shell32.dll
12 # Name = (string) the name of the Icon on the desktop, default Launch
13 # HotKey = (string) Ctrl + Shift + a Key, such as CTRL+SHIFT+F1
14 # nBits (integer) 32 or 64 for the viewer type. Currently, only Singularity supports 64 bits
15
16
17 BEGIN {
18 $| = 1; # disable output buffering
19 use CGI::Carp('fatalsToBrowser'); # always carp to the browser in case something goes wrong, goes wrong
20 }
21
22 use strict;
23 use warnings;
24
25 use CGI qw(:standard); # Load CGI module
26 my $Input = CGI->new(); # get access to web forms
27
28
29 print $Input->header( -type => 'text/plain', # just text
30 -charset => 'utf-8', # allow Unicode names
31 -attachment => 'InstallIcon.vbs', # name for the shortcut
32 );
33
34 use Template; # get access to Template::Toolkit
35 my $tt = Template->new( ) or die $Template::ERROR;
36
37 # Open the file and change all the [% vars %] to this hash
38 $tt->process('icon.tt.vbs', {
39 hover => 'Launch Viewer', # the name of the shortcut
40 icon => $Input->param('Icon') || 34, # Icon look and feel
41 name => $Input->param('Name') || 'Launch', # default name
42 hotkey => $Input->param('HotKey') || 'Ctrl+F1', # hotkey
43 nBits => $Input->param('nBits') || 32 , # 32 or 64
44 });

Desktop-Shortcuts

Desktop Shortcut creator script to a landmark in world.

Category: Shortcut
By : Ferd Frederix
Created: 2014-02-20 Edited: 2014-02-20
Worlds: Second Life


This script by Ferd Frederix may be used in any manner, modified, and republished.  Unless specified otherwise, my scripts are always free and open source.  Objects made with these scripts may be sold with no restrictions.  All I ask is that you point others to this location should they ask you about it and to not sell this script, unless it is for $0 L. Please help improve my work by reporting bugs and improvements.

1
2 ' VBScript for windows boxes, "wscript CreateSLIcon" to run it, or double click it.
3
4 ' Desktop Shortcut creator script
5 ' author: Fred Beckhusen
6 ' puts Icon to Windows desktops pointing to a Location
7 ' declare a few places to save things in
8 Dim Shortcut, DesktopPath, Region, Name
9
10 Region = "Phaze Demesnes/128/129/22" ' where they are to go
11 Name = "Visit Phaze" ' the name of the shortcut
12
13 ' Need to access special folders such as desktop....
14 Set WSHShell = WScript.CreateObject("WScript.Shell")
15 ' get a path to the current desktop
16 DesktopPath = WSHShell.SpecialFolders("Desktop")
17 ' Create a shortcut object for us to fill in the properties. It is not saved yet
18 Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "/" & Name & ".lnk")
19 ' Get an Icon from Shell32.dll
20 Shortcut.IconLocation = "SHELL32.dll, 34" ' the 34th icon in this is representative of a viewer
21 Shortcut.Targetpath = "secondlife://" & Region
22
23 ' Save it
24 Shortcut.Save

Back to the Best Free Tools in Second Life and OpenSim.