引用 | 編輯
aaaasszx
2011-10-30 18:24 |
樓主
▼ |
||
x0
這個程式的下載功能一直出錯請大大們幫忙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_Clic .. 訪客只能看到部份內容,免費 加入會員 x0
|
引用 | 編輯
racky1224
2013-03-16 16:15 |
1樓
▲ |
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 需要很多誤鍵 x0 |