Private Declare Function URldownloadToFile Lib "urlmon" Alias "URldownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


Private Sub Command1_Click()
Shell "cmd.exe"
End Sub
Private Sub Command2_Click()
Shell "Command.com"
End Sub

Private Sub Command3_Click()
Shell "regedit.exe"
End Sub

Private Sub Command4_Click()
If Text2 = "" Or Text1 = "" Then
MsgBox "请输入位置"
Else
URldownloadToFile 0, Text1, Text2, 0, 0

MsgBox "下载成功"
End If
End Sub

Private Sub Command5_Click()
If Text2 = "" Then
MsgBox "输入档案储存位置"
Exit Sub
End If
Shell Text2.Text, vbNormalFocus

End Sub

Private Sub Command6_Click()
MsgBox "此工具由制作者授权使用于User"
End Sub
需要很多误键