Jenna Jameson Pierced Tits

Create a shortcut with VB.NET

Inspired by a post appeared on the MSDN forum I would like to offer you a tip on how to create a shortcut using VB.NET. To create a shortcut we can proceed in two ways: either we study the structure of the file. Lnk and write a class that is able to recreate that structure or use Windows Scripting Host.

The first solution is feasible, but cumbersome because the structure of a lnk file is not trivial. Anyone interested to see how it is composed, internally, a lnk file can download the following reference guide ( link).

I would like to offer you the second street and will create a class that encapsulates the use of Windows Scripting Host. The object model of Windows Scripting Host is contained in IWshRuntimeLibrary dll that can be referenced in our project, using the COM tab of the window to add the reference:

Objects that are inside the library will use the WshShell class and the class WshShortcut. The first of these is the actual shell of Windows Scripting Host and, among the many methods available, the method has CreateShortcut () as an argument that provides the full name of the shortcut path and extension, and returns an object of WshShortcut WshUrlShortcut class or class (actually the method, since COM, returns an object but we can cast the result to the class or WshShortcut WshUrlShortcut at will). Calling CreateShortcut not physically create the link but the link is created using the object returned by the method. For more info on the class WshShell refer to the following link

. The object

WshShortcut therefore represents a link (the WshUrlShortcut, in fact, a subset of properties WshShortcut and is designed for web link) and provides all the properties that we need to define the same link (eg icon, working directory, description, etc.. etc...) For more info on the class WshShortcut refer to the following link

.

The class that we want to bring down a number of properties for the shortcut of the definition and a method for rescuing the same (in a similar way as it does the WshShortcut) and encapsulate the use of the two previous classes of scripting.

Imports

IWshRuntimeLibrary

 

Public

Class

Shortcut

 

     Public

Sub

New

(

ByVal

shortcutFullName

As
1. String )
2.         
Me
3. .ShortcutFullName = shortcutFullName      End Sub
4.  
5.      Private _ShortcutFullName As String      Public Property ShortcutFullName
As
6. String
7.          Get             
Return
8. _ShortcutFullName
9.          End Get         
Set
10. ( ByVal value As String )             
If
11. String .IsNullOrWhiteSpace(value) Then
Throw New ArgumentNullException
13. ( "ShortcutFullName" ,
"ShortcutFullName can not be empty!"
14. ) _ShortcutFullName = value & # 160; End September
15. End Property        Public Property TargetPath As String
16.     
Public
17. Property WindowStyle As
ShortcutWindowsStyle
18. = ShortcutWindowsStyle .NormalFocus     
Public
Property
20. Hotkey As String      Public
Property
21. IconPath As String      Public Property IconIndex
As
22. Int16 = 0      Public Property Description
As
23. String      Public Property WorkingDirectory
As
24. String      Public Property Arguments
As
25. String        Public
Function
26. Save() As Boolean          Dim retval =
False
27.          Dim shortCut As IWshShortcut =
Nothing
29.          Dim shell As WshShell = Nothing
30.          Try             shell =
New
31. WshShell ()          Catch ex As
Exception
32.              Throw          End
Try
33.         
If
34. shell IsNot Nothing
Then
35.              Try                 shortCut =
CType
36. ( shell .CreateShortcut(
Me
37. .ShortcutFullName), IWshShortcut )             
Catch
38. ex As Exception                  Throw
39.              End
Try
40.              If shortCut IsNot Nothing
Then
41.                  shortCut .TargetPath = Me .TargetPath
42.                  shortCut .WindowStyle =
CInt
43. ( Me .WindowStyle)                 
shortCut
44. .Description = Me .Description                  ShortCut . working directory = Me . WorkingDirectory
45. & # 160;.. shortcut IconLocation = String format (
"{0}, {1}"
46. , Me . IconPath, Me . IconIndex) & # 160;
shortCut
47. .Arguments = Me .Arguments                 
If
48. Not String .IsNullOrWhiteSpace(
Me
49. .Hotkey) Then                      shortCut .Hotkey = Me .Hotkey                 
End
50. If  
51.                  Try                      shortCut .Save()                     retval = System.IO. File .Exists(
Me
52. .ShortcutFullName)                  Catch ex
As
53. Exception                     
Throw
55.                  End
Try
56.             
End
57. If         
End
58. If          Return retVal
59.      End
60. Function End Class
62. As we can see, the method Save () (which, compared to the amount of WshShortcut returns a result) perform the following steps: 1) Create a instance of the WshShell:
64. Dim shell As WshShell = Nothing
65. Try

shell = New

WshShell

()

Catch ex As

Exception

1. Throw End Try
3. 2) If the instance of the shell has been created creates an instance of the class WshShortcut:
4. Try shortcut = CType
5. ( shell. CreateShortcut (
Me
6. . ShortcutFullName) IWshShortcut )

Catch ex As

Exception

Throw

End Try
2. 3) If the instance of the shortcut was created, are valued properties:
3. shortcut. TargetPath = Me . TargetPath
4. shortcut. WindowStyle = CInt
5. ( Me . WindowStyle)

shortcut.

Description = Me

.

Description

shortcut. WorkingDirectory =

Me

. WorkingDirectory

1. shortcut. IconLocation String = . Format (
"{0}, {1}"
2. , Me . IconPath, Me . IconIndex)
3. shortcut. Arguments = Me . Arguments
If
4. Not String . IsNullOrWhiteSpace (
Me
5. . Hotkey) Then shortcut. Hotkey = Me . Hotkey
End If
7. 4) method is called Save () WshShortcut class and checked the lnk file is actually created: Try
8. shortcut. Save () retval = System.IO. File
9. . Exists ( Me . ShortcutFullName)

Catch ex As

Exception Throw End

1. Try
3. Un possibile utilizzo della classe è il seguente:
4. Dim desktop = Environment .GetFolderPath(
Environment
5. . SpecialFolder .DesktopDirectory)
6. Dim shortcutFullname = System.IO. Path .Combine(desktop,
"Doc.lnk"

)

Dim

shortcut =

New

Shortcut

(shortcutFullname)

1. shortcut .WindowStyle = ShortcutWindowsStyle .NormalNoFocus shortcut .Description =
"I miei documenti"
2. shortcut. TargetPath = Environment . GetFolderPath (
Environment
3. . SpecialFolder . MyDocuments) shortcut. Save ()
4. This example creates a link called Doc lnk user's desktop that allows you to open documents.
5. Finally we note that one of the properties of the class we created is the Shortcut enumeration:
6. Public Enum ShortcutWindowsStyle
NormalFocus =
7. WshWindowStyle . WshNormalFocus
NormalNoFocus =

WshWindowStyle

. WshNormalNoFocus

MaximizedFocus =

WshWindowStyle

. WshMaximizedFocus

MinimizeFocus =

WshWindowStyle

. WshMinimizedFocus

MinimizedNoFocus =

WshWindowStyle
1. . WshMinimizedNoFocus Hide = WshWindowStyle . WshHide
End Enum
4. that defines the possible values \u200b\u200bof the style of the shortcut window encapsulating the similar enumeration of WshWindowStyle IWshRuntimeLibrary.
5. Technorati tags: IWshRuntimeLibrary
,
6. WshShell , WskShortcut
,
7. WshUrlShortcut , Shortcut
,
8. Link , . lnk, VB.NET

Do Minnetonka Moccasins Run Big Or Small?

We pull the amounts for 2010 Merry Christmas 2010

The 2010 draws to a close and it's time to take stock of my work as a blogger.

In quest’anno ho scrito 153 post (decisamente più prolifico rispetto all’anno precedente) e la classifica assoluta (contemplando anche quelli scritti negli anni precedenti) dei migliori 5 è la seguente:

VB.NET: SplashScreen con effetto fade-in Appunti di WPF – Settima Puntata – Il Layout Cambiare la lingua di Visual Studio 2008 VB.NET: Convertire un file DOC in RTF e PDF con office interop

Appunti di WPF – Dodicesima Puntata – Le figure geometriche

Se analizziamo la classifica of the best posts written in 2010 we get:

Clipboard WPF - Seventh Episode - The Layout
Clipboard WPF - Twelfth Episode - The geometric figures
Crumbs of WPF: non-rectangular windows, WPF vs Windows Forms
Clipboard WPF - Fourth Episode - XAML, bases
5. crumbs WPF - SplashScreen in Visual Studio 2010

1. The latter demonstrates the interest in WPF but also ' interest in the tutorial.
For this reason, during 2011 I will try to concentrate on writing tutorials for those who approach the world. NET.
2. the end of this year I was satisfied with the views obtained on the blog (with more than 13K total and an average of about 1K per month). Last year I stopped at about 3k of total visits (it is true that the blog was opened in late April, but in any case the number is significantly increased). It must be said, to tell the truth, that I have to thank the community DomusDotNet
and, before that, the deceased
3. DotNetRomaCestà because I have given visibility.
All this spurs me to work even during 2011 to provide more material and quantity.

Wher Dose Starch Dissolve?

How Long Before You Lose Weight Doing Zumba

WP7 WebBrowser control and target = "_blank"

The WebBrowser control development tools in the WP7 not digest well with anchor target = "_blank".

If you try to view a page with links that have specified the target set to "_blank", these will not work.

However, if the link has target "_top", "_parent" or "_self" (or no target), the web browser allows you to surf safely by following the link.

This means that if you view web pages that open new pages, these will not work as you expect.

If you are using the method NavigateToString () to display your own html, make sure you do not have the target in the anchor and you're done.

Technorati tags:

wp7

,

windows 7 phone, web browser

, target

Sore Knee From Tredmill

Connect to TFS via DOM in a web service

Shoul Eat Ramen Noodles Stomach Flu

Everything changes ... .. also the birth! ! Feature CTP5

  Tag di Technorati: natale , natività , buon natale

Widespread Osseous Metastatic Disease

released to EF-

Code First Walkthrough

Code First Fluent API Samples Questa è l’ultima CTP prima del rilascio definitivo che avverrà nel primo quadrimestre del 2011. Per scaricare la CTP utilizzare il

link

.

Tag di Technorati:

Feature CTP5 EF

,

EF

,

CTP5
• , Entity Framework

Template For Fondant Boat Cake

IE9 Create an image without the jumplist

IE9 allows developers to define the activities within the jumplist a site attached to the task bar of Windows 7 (see

post for details).

activity is nothing but a quick access to a functionality of an application that, in the case of a web site, which is a page.

activities are defined through the meta tags of the form:

\u0026lt;META name = "msapplication-task"

& # 160;

content = "name = News; action-uri = url of the page icon in the task image-uri ="

>

where the content consists of three distinct parts:

1. name: name that appears in the list of tasks. It can also be empty (although it makes little sense because the user would see an activity without any names and would not know what's the use); action-uri: page address that corresponds to the task. It can also be empty (in this case opens the root directory) or an external link to our site;
icon-uri: image to be used in the task list to the left of the name. This field can not be empty and must point to an image in ICO format.
2. The three parties must be present if, and action-used name may be empty. The part relating to the image, however, can not remain empty, otherwise the tag is not recognized (as if there was). If we deploy we just insert an image without any value rather than leave it blank, for example, the string "null".

The following tag, for example, implements activities without News Image:

• \u0026lt;META
• name = "msapplication-task"
• & # 160;

content = "name = News; action-uri = news.html; icon-uri = null"

>

Technorati tags:

IE9
1. , msapplication -task, meta tag, activities, task