论坛 › 『 提问交流 』 › 如何直接下载360杀毒软件

dnvplj 发表于 2011-8-28 20:11:41

如何直接下载360杀毒软件

请问各位朋友：
如何直接下载360杀毒软件，我下边的代码不起作用，请各位朋友帮助解决为盼。ShellExecute(http://down.360.cn/360sd_se.exe)

502762378 发表于 2011-8-28 20:34:10

ShellExecute("http://down.360.cn/360sd_se.exe")
没办法上外网检测

dnvplj 发表于 2011-8-28 20:52:21

谢谢，调出来的，但“网页”也打开了，能不能不让网页出来。

dnvplj 发表于 2011-8-28 20:52:30

谢谢，调出来的，但“网页”也打开了，能不能不让网页出来。

dnvplj 发表于 2011-8-28 21:13:21

问题解决了，延迟。

502762378 发表于 2011-8-28 21:31:17

如果有其他网页跳出来可以这样，title自己定义#include <WinAPI.au3>
Opt('MustDeclareVars', 1)
Dim $title=""
ShellExecute("http://down.360.cn/360sd_se.exe")
Sleep(2000)
_KILL($title)

Func _KILL($1)
      Local $aWindows, $i
      $aWindows = _WinAPI_EnumWindowsTop()
      For $i = 1 To $aWindows
                                If WinGetTitle($aWindows[$i])=$1 Then                               
                DllCall("user32.dll", "bool", "ShowWindow", "hwnd", $aWindows[$i], "int", @SW_HIDE)
                EndIf
      Next
EndFunc

dnvplj 发表于 2011-8-29 19:25:42

朋友，这段代码把任务栏给整没了。

骗子 发表于 2011-8-31 10:44:33

本帖最后由 骗子 于 2011-8-31 10:45 编辑

下载到临时目录中
Local $hDownload = InetGet("http://down.360.cn/360sd_se.exe", @TempDir & "\"& "360sd_se.exe", 1, 1)
        Do
                Sleep(250)
        Until InetGetInfo($hDownload, 2); 检查下载是否完成.

dnvplj 发表于 2011-9-18 22:33:53

还是不对，临时目录中有一：“360sd00000763dd73a38b”的文件
别外，下载完就有个提示，要不知道什么时间下载完。

jsgh1983 发表于 2011-9-20 13:07:25

这个问题有点难搞！是要加到界面里去吧！就像一个链接一点就下载！我是菜鸟只能帮你顶贴，等人帮你彻底解决！

查看完整版本: 如何直接下载360杀毒软件