|
本帖最后由 jakykuang 于 2009-4-22 00:51 编辑
一个很奇怪的问题,我的程序功能是自动更新程序,我用自己的机做服务器,在自己的机上更新程序,右下角有TrayTip提示,但如果我在其他机上运行更新程序,右下角就怎样都没有traytip提示,请问题为什么
traytip的位置很难把握,我放过很多个位置,只有放在下面的位置,运行时本机才有显示,但远程更新没有显示,不知为什么
$f=1
While $f<=$CountFile ;要下载的文件数
$file=IniRead($SourcefilePath, $SourceFileField[$i], "file"&$f, "");读取要下载文件路径
$delfile=FileDelete(@ScriptDir&"\"&$file)
$size=InetGetSize($SourcePath&$file)
$GetFile1=InetGet($SourcePath&$file, @ScriptDir&"\"&$file, 1,1);下载文件到对应目录位置
$f=$f+1
WEnd
While @InetGetActive And @InetGetBytesRead <> -1
TrayTip("下载中: ", "正在下载:" & $SourceFileField[$i] & ' 下载已完成' & Int((@InetGetBytesRead / $size) * 100) & '%' & @LF & "已下载: " & @InetGetBytesRead & "字节" & @LF & '总大小: ' & Round($size / 1000000, 2) & "M", 10, 16)
Sleep(250)
WEnd
If @InetGetBytesRead = -1 Then
MsgBox(0, "):", "抱歉,"&$SourceFileField[$i]&"下载失败,相关文件不存在")
Else
TrayTip("",$SourceFileField[$i] & " 下载完成!", 10, 1)
EndIf
[ 本帖最后由 jakykuang 于 2009-3-31 00:16 编辑 ] |
|