Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Win-Launch - FrmAvvio.vb

FrmAvvio.vb

 Caricato da: Progman-92
Scarica il programma completo

  1. Public Class FrmAvvio
  2.  
  3.     Private Sub ToolStripMenuItem40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem40.Click
  4.         Shell("C:\Programmi\Internet Explorer\iexplore.exe", AppWinStyle.NormalFocus)
  5.     End Sub
  6.  
  7.     Private Sub ToolStripMenuItem41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem41.Click
  8.         Shell("C:\Programmi\iTunes\iTunes.exe", AppWinStyle.NormalFocus)
  9.     End Sub
  10.  
  11.     Private Sub ToolStripMenuItem42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem42.Click
  12.         Shell("C:\Programmi\Windows Media Player\wmplayer.exe", AppWinStyle.NormalFocus)
  13.     End Sub
  14.  
  15.     Private Sub ToolStripMenuItem43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem43.Click
  16.         Shell("C:\Windows\System32\calc.exe", AppWinStyle.NormalFocus)
  17.      End Sub
  18.  
  19.     Private Sub ToolStripMenuItem44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem44.Click
  20.         Shell("C:\Windows\System32\mspaint.exe", AppWinStyle.NormalFocus)
  21.     End Sub
  22.  
  23.     Private Sub ToolStripMenuItem45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem45.Click
  24.         Shell("C:\Programmi\Outlook Express\wab.exe", AppWinStyle.NormalFocus)
  25.     End Sub
  26.  
  27.     Private Sub ToolStripMenuItem46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem46.Click
  28.         Shell("C:\windows\system32\notepad.exe", AppWinStyle.NormalFocus)
  29.     End Sub
  30.  
  31.     Private Sub ToolStripMenuItem47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem47.Click
  32.         Shell("C:\windows\explorer.exe", AppWinStyle.NormalFocus)
  33.        
  34.     End Sub
  35.  
  36.     Private Sub ToolStripMenuItem48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem48.Click
  37.         Shell("C:\Programmi\Microsoft Office\OFFICE11\Winword.exe", AppWinStyle.NormalFocus)
  38.        
  39.     End Sub
  40.  
  41.     Private Sub ToolStripMenuItem49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem49.Click
  42.         Shell("C:\Programmi\Microsoft Office\OFFICE11\Powerpnt.exe", AppWinStyle.NormalFocus)
  43.        
  44.     End Sub
  45.  
  46.     Private Sub ToolStripMenuItem50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem50.Click
  47.         Shell("C:\Programmi\Microsoft Office\OFFICE11\Excel.exe", AppWinStyle.NormalFocus)
  48.        
  49.     End Sub
  50.  
  51.     Private Sub ToolStripMenuItem51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem51.Click
  52.         Shell("C:\Windows\system32\sndrec32.exe", AppWinStyle.NormalFocus)
  53.        
  54.     End Sub
  55.  
  56.     Private Sub ToolStripMenuItem52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem52.Click
  57.         Shell("C:\windows\system32\cmd.exe", AppWinStyle.NormalFocus)
  58.        
  59.     End Sub
  60.  
  61.     Private Sub ToolStripMenuItem53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem53.Click
  62.         Shell("C:\windows\system32\regedt32.exe", AppWinStyle.NormalFocus)
  63.        
  64.     End Sub
  65.  
  66.     Private Sub AccessoFacilitatoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AccessoFacilitatoToolStripMenuItem.Click
  67.         Shell("C:\windows\system32\accwiz.exe", AppWinStyle.NormalFocus)
  68.        
  69.     End Sub
  70.  
  71.     Private Sub MappaCaratteriToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MappaCaratteriToolStripMenuItem.Click
  72.         Shell("C:\windows\system32\charmap.exe", AppWinStyle.NormalFocus)
  73.      
  74.     End Sub
  75.  
  76.     Private Sub PulituraDiscoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PulituraDiscoToolStripMenuItem.Click
  77.         Shell("C:\windows\system32\cleanmgr.exe", AppWinStyle.NormalFocus)
  78.        
  79.     End Sub
  80.  
  81.     Private Sub LavagnaAppuntiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LavagnaAppuntiToolStripMenuItem.Click
  82.         Shell("C:\windows\system32\clipbrd.exe", AppWinStyle.NormalFocus)
  83.      
  84.     End Sub
  85.  
  86.     Private Sub DottorWatsonToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DottorWatsonToolStripMenuItem.Click
  87.         Shell("C:\windows\system32\drwtsn32.exe", AppWinStyle.NormalFocus)
  88.      
  89.     End Sub
  90.  
  91.     Private Sub CentroDiagnosticaDirectxToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CentroDiagnosticaDirectxToolStripMenuItem.Click
  92.         Shell("C:\windows\system32\dxdiag.exe", AppWinStyle.NormalFocus)
  93.      
  94.     End Sub
  95.  
  96.     Private Sub CaratteriPersonalizzatiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaratteriPersonalizzatiToolStripMenuItem.Click
  97.         Shell("C:\windows\system32\eudcedit.exe", AppWinStyle.NormalFocus)
  98.        
  99.     End Sub
  100.  
  101.     Private Sub VisualizzazioneEventiSistemaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VisualizzazioneEventiSistemaToolStripMenuItem.Click
  102.         Shell("C:\windows\system32\eventvwr.exe", AppWinStyle.NormalFocus)
  103.        
  104.     End Sub
  105.  
  106.     Private Sub IExpressWizardToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IExpressWizardToolStripMenuItem.Click
  107.         Shell("C:\windows\system32\iexpress.exe", AppWinStyle.NormalFocus)
  108.        
  109.     End Sub
  110.  
  111.     Private Sub MagnifyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MagnifyToolStripMenuItem.Click
  112.         Shell("C:\windows\system32\magnify.exe", AppWinStyle.NormalFocus)
  113.        
  114.     End Sub
  115.  
  116.     Private Sub ConsoleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConsoleToolStripMenuItem.Click
  117.         Shell("C:\windows\system32\mmc.exe", AppWinStyle.NormalFocus)
  118.      
  119.     End Sub
  120.  
  121.     Private Sub SincronizzazioneElementiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SincronizzazioneElementiToolStripMenuItem.Click
  122.         Shell("C:\windows\system32\mobsync.exe", AppWinStyle.NormalFocus)
  123.      
  124.     End Sub
  125.  
  126.     Private Sub DesktopRemotoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesktopRemotoToolStripMenuItem.Click
  127.         Shell("C:\windows\system32\mstsc.exe", AppWinStyle.NormalFocus)
  128.        
  129.     End Sub
  130.  
  131.     Private Sub AssistenteRemotoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AssistenteRemotoToolStripMenuItem.Click
  132.         Shell("C:\windows\system32\narrator.exe", AppWinStyle.NormalFocus)
  133.        
  134.     End Sub
  135.  
  136.     Private Sub AmministrazioneOrigineDatiODBCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AmministrazioneOrigineDatiODBCToolStripMenuItem.Click
  137.         Shell("C:\windows\system32\odbcad32.exe", AppWinStyle.NormalFocus)
  138.      
  139.     End Sub
  140.  
  141.     Private Sub TastieraVirtualeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TastieraVirtualeToolStripMenuItem.Click
  142.         Shell("C:\windows\system32\osk.exe", AppWinStyle.NormalFocus)
  143.      
  144.     End Sub
  145.  
  146.     Private Sub PackagerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PackagerToolStripMenuItem.Click
  147.         Shell("C:\windows\system32\packager.exe", AppWinStyle.NormalFocus)
  148.      
  149.     End Sub
  150.  
  151.     Private Sub PrestazioniComputerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrestazioniComputerToolStripMenuItem.Click
  152.         Shell("C:\windows\system32\perfmon.exe", AppWinStyle.NormalFocus)
  153.        
  154.     End Sub
  155.  
  156.     Private Sub ProgmanManagerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgmanManagerToolStripMenuItem.Click
  157.         Shell("C:\windows\system32\progman.exe", AppWinStyle.NormalFocus)
  158.     End Sub
  159.  
  160.     Private Sub SessioneDiCondivisioneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SessioneDiCondivisioneToolStripMenuItem.Click
  161.         Shell("C:\windows\system32\rtcshare.exe", AppWinStyle.NormalFocus)
  162.     End Sub
  163.  
  164.     Private Sub CreazioneCartellaCondivisaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreazioneCartellaCondivisaToolStripMenuItem.Click
  165.         Shell("C:\windows\system32\shrpubw.exe", AppWinStyle.NormalFocus)
  166.     End Sub
  167.  
  168.     Private Sub VerificaFirmaFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerificaFirmaFileToolStripMenuItem.Click
  169.         Shell("C:\windows\system32\sigverif.exe", AppWinStyle.NormalFocus)
  170.     End Sub
  171.  
  172.     Private Sub ToolStripMenuItem55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem55.Click
  173.         Shell("C:\windows\system32\sysedit.exe", AppWinStyle.NormalFocus)
  174.     End Sub
  175.  
  176.     Private Sub ToolStripMenuItem56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem56.Click
  177.         Shell("C:\windows\system32\winchat.exe", AppWinStyle.NormalFocus)
  178.     End Sub
  179.  
  180.     Private Sub ToolStripMenuItem57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem57.Click
  181.         Shell("C:\windows\system32\wscript.exe", AppWinStyle.NormalFocus)
  182.     End Sub
  183.  
  184.     Private Sub ToolStripMenuItem58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem58.Click
  185.         Shell("C:\windows\system32\wupdmgr.exe", AppWinStyle.NormalFocus)
  186.     End Sub
  187.  
  188.     Private Sub AcquisizioniImmaginToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcquisizioniImmaginToolStripMenuItem.Click
  189.         Shell("C:\windows\system32\wiaacmgr.exe", AppWinStyle.NormalFocus)
  190.     End Sub
  191.  
  192.     Private Sub FrmAvvio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  193.         tmrChiusura.Start()
  194.     End Sub
  195.  
  196.     Private Sub tmrChiusura_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrChiusura.Tick
  197.         Me.Close()
  198.     End Sub
  199.  
  200.     Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
  201.         Me.Hide()
  202.     End Sub
  203.  
  204.     Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
  205.         Me.Show()
  206.     End Sub
  207. End Class