引用 | 编辑
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 |