一键天皇系统工具 VER3.0 发QQ2116513243

查看源代码
Option Explicit
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Private Sub cmd_Click(Index As Integer)
Shell "cmd", vbNormalFocus
End Sub
Private Sub cmddffe_Click(Index As Integer)
Shell "explorer", vbNormalFocus
End Sub
Private Sub cmdphaint_Click(Index As Integer)
Shell "mspaint", vbNormalFocus
End Sub
Private Sub Command1_Click()
Shell "regedit", vbNormalFocus
End Sub
Private Sub Command10_Click()
Shell "winmine", vbNormalFocus
End Sub
Private Sub Command11_Click()
Shell "spider", vbNormalFocus
End Sub
Private Sub Command12_Click()
Shell "sol", vbNormalFocus
End Sub
Private Sub Command13_Click()
Shell "mmc C:\WINDOWS\system32\secpol.msc /s", vbNormalFocus
End Sub
Private Sub Command14_Click()
Shell "mmc C:\WINDOWS\system32\services.msc /s", vbNormalFocus
End Sub
Private Sub Command15_Click()
Shell "mmc C:\WINDOWS\system32\compmgmt.msc /s", vbNormalFocus
End Sub
Private Sub Command16_Click()
Shell "mmc C:\WINDOWS\system32\eventvwr.msc /s", vbNormalFocus
End Sub
Private Sub Command17_Click()
Shell "odbcad32.exe", vbNormalFocus
End Sub
Private Sub Command18_Click()
Shell "mmc C:\WINDOWS\system32\perfmon.msc /s", vbNormalFocus
End Sub
Private Sub Command19_Click()
Shell "mmc C:\WINDOWS\system32\Com\comexp.msc", vbNormalFocus
End Sub
Private Sub Command2_Click()
Shell "wiaacmgr -SelectDevice", vbNormalFocus
End Sub
Private Sub Command20_Click()
Shell "mmc system.msc /s", vbNormalFocus
End Sub
Private Sub Command21_Click()
Shell "explorer D:\我的文档", vbNormalFocus
End Sub
Private Sub Command22_Click()
Shell "explorer", vbNormalFocus
End Sub
Private Sub Command23_Click()
Shell "explorer", vbNormalFocus
End Sub
Private Sub Command24_Click()
Shell "explorer", vbNormalFocus
End Sub
Private Sub Command25_Click()
Shell "C:\Program Files\Internet Explorer\iexplore.exe", vbNormalFocus
End Sub
Private Sub Command26_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Shell "mobsync", vbNormalFocus
End Sub
Private Sub Command4_Click()
Shell "write", vbNormalFocus
End Sub
Private Sub Command5_Click()
Shell "mmc", vbNormalFocus
End Sub
Private Sub Command6_Click()
Shell "mstsc", vbNormalFocus
End Sub
Private Sub Command7_Click()
Shell "calc", vbNormalFocus
End Sub
Private Sub Command8_Click()
Shell "mshearts", vbNormalFocus
End Sub
Private Sub Command9_Click()
Shell "freecell", vbNormalFocus
End Sub
Private Sub ienmsa_Click(Index As Integer)
Shell "iexplore -extoff", vbNormalFocus
End Sub
Private Sub mnu112_Click()
Shell "mmc C:\WINDOWS\system32\perfmon.msc /s", vbNormalFocus
End Sub
Private Sub mnu21_Click()
Shell "mmc C:\WINDOWS\system32\secpol.msc /s", vbNormalFocus
End Sub
Private Sub mnuabout_Click()
ShellAbout Me.hWnd, App.Title, "Copyright (C) 2014 Microsoft Corporation.", Me.Icon
End Sub
Private Sub mnuApplicationWizard_Click()
Shell "explorer hcp://system/compatctr/compatmode.htm", vbNormalFocus
End Sub
Private Sub mnuasolm_Click()
Shell "mmc C:\WINDOWS\system32\Com\comexp.msc", vbNormalFocus
End Sub
Private Sub mnuClear_Click()
Shell "calc", vbNormalFocus
End Sub
Private Sub mnuCmd_Click()
Shell "cmd", vbNormalFocus
End Sub
Private Sub mnuconpem_Click()
Shell "mmc C:\WINDOWS\system32\compmgmt.msc /s", vbNormalFocus
End Sub
Private Sub mnudatabese_Click()
Shell "odbcad32.exe", vbNormalFocus
End Sub
Private Sub mnuevernei_Click()
Shell "mmc C:\WINDOWS\system32\eventvwr.msc /s", vbNormalFocus
End Sub
Private Sub MNUEXIT_Click()
Unload Me
End Sub
Private Sub mnuExplorer_Click()
Shell "explorer", vbNormalFocus
End Sub
Private Sub mnufreecell_Click()
Shell "freecell", vbNormalFocus
End Sub
Private Sub mnuhongxindazhan_Click()
Shell "mshearts", vbNormalFocus
End Sub
Private Sub mnuNotpead_Click()
Shell "notepad", vbNormalFocus
End Sub
Private Sub mnuPaint_Click()
Shell "mspaint", vbNormalFocus
End Sub
Private Sub mnuPhotoWizard_Click()
Shell "wiaacmgr -SelectDevice", vbNormalFocus
End Sub
Private Sub mnuReg_Click()
Shell "regedit", vbNormalFocus
End Sub
Private Sub mnurosypaom_Click()
Shell "mstsc", vbNormalFocus
End Sub
Private Sub mnusevices_Click()
Shell "mmc C:\WINDOWS\system32\services.msc /s", vbNormalFocus
End Sub
Private Sub mnusol_Click()
Shell "sol", vbNormalFocus
End Sub
Private Sub mnuspider_Click()
Shell "spider", vbNormalFocus
End Sub
Private Sub mnusysin_Click()
Shell "mobsync", vbNormalFocus
End Sub
Private Sub mnuwinmine_Click()
Shell "winmine", vbNormalFocus
End Sub
Private Sub mnuwordpad_Click()
Shell "write", vbNormalFocus
End Sub
Private Sub notepad_Click(Index As Integer)
Shell "notepad", vbNormalFocus
End Sub
Private Sub wizard_Click(Index As Integer)
Shell "explorer hcp://system/compatctr/compatmode.htm", vbNormalFocus
End Sub

继续加油吧