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
需要很多誤鍵