NSIS 连接到 Internet 脚本

[code] ; ConnectInternet (使用 Dialer 插件)
; Written by Joost Verburg
;
; 当没有可用连接时该函数尝试去创建一个因特网连接。
; 如果你不能确认使用该安装程序前已有可用的连接的话
; 在用 NSISdl 插件下载前最好先调用这个函数。
;
; 这个函数需要 Internet Explorer 3,但是如果 IE3 未安装的话
; 将会询问是否手动连接。

Function ConnectInternet

Push $R0

 ClearErrors
 Dialer::AttemptConnect
 IfErrors noie3
 
 Pop $R0
 StrCmp $R0 "online" connected
   MessageBox MB_OK|MB_ICONSTOP "Cannot connect to the internet."
   Quit ;这里将会退出安装程序。你可以改为你自己的错误处理代码。
 
 noie3:

 ; IE3 未安装
 MessageBox MB_OK|MB_ICONINFORMATION "请先连接到因特网。"
 
 connected:

Pop $R0

FunctionEnd
[/code]