[原创]自动建立宽带连接的另一种写法

钱塘在线

Func _createAdsl() ;创建宽带连接
     $pbkpath=@AppDataCommonDir \Micoft\Network\Connections\Pbk\rasphone.pbk
If FileGetSize($pbkpath) / 1024 1.5 Then   ;== 当rasphone大于1.5kb时，被认为连接已存在
   MsgBox(64, 提示... , 宽带连接已存在,无需再建立!  , 10)
Else
   FileInstall( rasphone.pbk , $pbkpath , 1)   ;== 要装入到编译程序中的文件
   FileInstall( adsl.lnk , @DesktopCommonDir \宽带连接.lnk , 1)   ;== 同上
   Run(@ComSpec /c 'rasphone -d ADSL', , @SW_HIDE)   ;== 运行建立好的宽带连接
EndIf
EndFunc