Shortcuts

[AstriMc]

Hello Guys Here is a Small program i did "Shortcuts"

what this does it gives you Quick Access to your spefic things if need it here is a screen shot also

Soruce codes if any one want to impove it please feel free then update it in this Thread..

Download Here.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Process.Start("compmgmt.msc")
    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Process.Start("cmd.exe")
End Sub


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Process.Start("control.exe")
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    Process.Start("taskmgr.exe")
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
    Me.Close()
End Sub

Private Sub BindingNavigator1_RefreshItems(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Process.Start("C:\Windows\System32\devmgmt.msc")
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    Process.Start("C:\Windows\regedit.exe")
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    Process.Start("C:\Windows\System32\msconfig.exe")
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    Process.Start("firefox.exe")
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    Process.Start("iexplore.exe")
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    Process.Start("C:\Windows\System32\eventvwr.msc")
End Sub

    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub
End Class

 

[Blessing]

Nice and simple. Good job!

 

[Charles]

Very cool. I approve ^^

 

[AstriMc]

Blessing and Carolus Mangus Thank you for positve feedback..

 

[SGT.Code]

i like it but 1 question what happens if you click firefox or internet explorer if you dont have it?

 

[AstriMc]

i like it but 1 question what happens if you click firefox or internet explorer if you dont have it?

it will prompt to install it. with little more coding on it lol.

 

[SGT.Code]

oh kl thats a great feature i think

 

[OliverE]

For now you could simply make a message box with "No ....... found, would you like to download it?"
Then
[vb]If vbYes then
System.Diagnostics.Process.Start("http://www.downloadlink.com")
End if[/vb]

 

[AstriMc]

Bleepy thank you yeah i know how to do that but i really did not need it for myself i use both so but i see Deadlycode point its good to have since some other user's may not have IE or Firefox on it i will update it when i get a chance. thanks again.

 

[OliverE]

You could also do an update check, but ill leave that for another day

 

[AstriMc]

You could also do an update check, but ill leave that for another day

Here is that Bleepy so i save you time:

        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://yoursite.com/download/currentversion.txt")
        Dim response As System.Net.HttpWebResponse = request.GetResponse()

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

        Dim newestversion As String = sr.ReadToEnd()
        Dim currentversion As String = Application.ProductVersion

        If newestversion.Contains(currentversion) Then
            MessageBox.Show("You have the Latest Verson")
        Else
            MessageBox.Show("New Version is Available")
            System.Diagnostics.Process.Start("http://yoursintemae.com/download/shortcuts.exe")
        End If

Also dont forget to create text doc "currentversion.txt) and there you can put version for Ex: 1.0.0.0 then when you change the version make sure you update it there so when some one checks for update it shows the new version is Available.

 

[OliverE]

Yer, I ment more for the actuall program you would be installing, so like the version of internet explorer.
But this would work for your own application

 

[AstriMc]

Yer, I ment more for the actuall program you would be installing, so like the version of internet explorer.
But this would work for your own application

oh i see cool well when you have time please put the code then i will rebuild this tool and if anyone want to add any thing please say so.. so i can add it thank you.

 

[SGT.Code]

maybe you should put a few web site shortcuts on the botom that the user can set to open with firefox or IE and then type in the url of the website they want the shortcut to take them too?

 

[AstriMc]

not bad idea i will try to rebuild this soon with everything we post it here so far.

 

[OliverE]

Or just have a link to the forums at the bottom

I created an application which blocks the user from accessing any site but this one

 

[AstriMc]

Here is an update of the New ShortCuts Still working on..

i will update soon as i get it done.

 

[OliverE]

Members is spelt Members
Good Try though

Will download it when u release the new version and give it a try

 

[AstriMc]

HERE IT IS FINAL VERSION 1.0

[attachment=70]

Please Download it and Try it out all Feedback are welcome..

 

[OliverE]

If you want you can create a new thread for the new version, or update the firstpost of this thread.