查看: 397  |  回复: 0
  VB6 下载软件或网页
楼主
发表于 2023年4月14日 15:18

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Private Sub s_down(strUrl)
    sDownload = StrConv(strUrl, vbUnicode)  '双字节转换
    DoFileDownload sDownload   '它是利用IE下载的
End Sub

Private Sub Form_Load()
    Call s_down("http://manongku.com")
End Sub

自行替换下 Call s_down("http://manongku.com") 的内容即可。

您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com