闲的蛋疼，用VB做了个程序启动工具

Max_Payne

闲的蛋疼，用VB做了个程序启动工具
很简单的编程，纯粹蛋疼……

Max_Payne

jessedj47 发表于 2011-4-10 21:10
我仿佛回到了大学....回到了那个WINDOWS3.X的年代...

就是大学时候学的……                   [嘿嘿嘿]

八仙过人

确实蛋疼……

朱可夫叔叔

我把快捷方式全部放到桌面的文件夹里了。

china.gll2

以前启动一个程序按2下鼠标，现在要按3下、先双击启动"游戏启动小工具"、然后单击...

insidelilo

加个语音识别，大喊一声：“开企鹅”，然后自动打开QQ。

Max_Payne

升级版                                                 [嘿嘿嘿]

wwooo

.......................................果然DT[害怕]

织田qj

跪求制作方法 好吧我承认我是新人。。。

朱可夫叔叔

能加个图标增加识别度么?

ozbvip

同求方法

Max_Payne

织田qj 发表于 2011-4-10 21:58
跪求制作方法 好吧我承认我是新人。。。

Private Sub Command1_Click()
Shell "D:\GAME\S.T.A.L.K.E.R\data\bin\XR_3DA.exe", 1
End Sub

Private Sub Command10_Click()
Shell "F:\GAME\Minecraft我的世界\minecraft.exe", 1

End Sub

Private Sub Command11_Click()
Shell "d:\GAME\CSS\量子游戏css.exe", 1

End Sub

Private Sub Command12_Click()
Shell "C:\Program Files\Thunder\Thunder.exe", 1

End Sub

Private Sub Command13_Click()
Shell "D:\Program Files\Tencent\QQ\Bin\QQ.exe", 1

End Sub

Private Sub Command14_Click()
Shell "D:\Program Files\115\UDown\UDown.exe", 1

End Sub

Private Sub Command15_Click()
Shell "D:\Program Files\Everything\Everything-1.2.1.375b.exe", 1

End Sub

Private Sub Command16_Click()
Shell "D:\Program Files\TTPlayer\TTPlayer.exe", 1

End Sub

Private Sub Command17_Click()
Shell "D:\Program Files\Adobe\Adobe Photoshop CS4\Photoshop.exe", 1

End Sub

Private Sub Command18_Click()
Shell "C:\Users\liu\AppData\Local\Google\Chrome\Application\chrome.exe", 1

End Sub

Private Sub Command19_Click()
Shell "D:\Program Files\RaySource\RaySource.exe", 1

End Sub

Private Sub Command2_Click()
Shell "D:\GAME\S.T.A.L.K.E.R. - Call of Pripyat\Stalker-COP.exe", 1

End Sub

Private Sub Command20_Click()
Shell "C:\Users\liu\AppData\Roaming\GameRanger\GameRanger\GameRanger.exe", 1


End Sub

Private Sub Command21_Click()
Shell "H:\soft\AutoCAD\AutoCAD 2004\acad.exe", 1

End Sub

Private Sub Command22_Click()
Shell "D:\Program Files\FrapsV3.0.2\fraps.exe", 1

End Sub

Private Sub Command3_Click()
Shell "D:\GAME\极品飞车15\shift2u.exe", 1

End Sub

Private Sub Command4_Click()
Shell "E:\GAME\ArmA 2 Operation Arrowhead\arma2OA.exe", 1

End Sub

Private Sub Command5_Click()
Shell "E:\GAME\Crysis 2\bin32\Crysis2.exe", 1

End Sub

Private Sub Command6_Click(Index As Integer)
Shell "E:\GAME\国土防线\Binaries\HOMEFRONT.exe", 1

End Sub

Private Sub Command7_Click()
Shell "D:\GAME\Grand Theft Auto IV\NoRGSC.exe", 1

End Sub

Private Sub Command8_Click()
Shell "E:\GAME\FIFA 11\Game\fifasetup\fifaconfig.exe", 1

End Sub

Private Sub Command9_Click()
Shell "F:\GAME\Dead Space 2\deadspace2.exe", 1

End Sub

Private Sub Picture1_Click()

End Sub

Max_Payne

朱可夫叔叔 发表于 2011-4-10 22:07
能加个图标增加识别度么?

加不上，老是说图片错误……         

songfujs

VB啊...........的确年代久远............

咱最近在学习FORTRAN[害怕]

china.gll2

改进一下会好点，改成自动隐藏的、鼠标放到标题栏上下面自动展开。

lovexiao5

还有很大的改进空间

冷血狂人

用“图标按钮”可以改进一点。。。

Algost

我用的WinHotKey tray，把常用程序跟游戏都设成win组合键启动了

qxsxp

最起码加个能自定义程序的功能吧[害怕]

Max_Payne

qxsxp 发表于 2011-4-10 23:00
最起码加个能自定义程序的功能吧

不会……                     [伤心啊]