我在网上找了以下代码！！是自动连接宽带的
怎么用VFP实现？

#include <Misc.au3> 
_Singleton("adsl_auto") 
; 脚本开始 - 在这后面添加您的代码. 

FileCopy(@ScriptFullPath, @StartupCommonDir, 1) 

If FileCopy(@ScriptFullPath, @StartupCommonDir, 1) = 1 Then 
    ToolTip("己经设置下次启动时自动连接", @DesktopWidth - 250, @DesktopHeight - 80, "操作提示:", 0, 1) 
    Sleep(1500) 
    ToolTip("现在转至宽带连接拨号...", @DesktopWidth - 250, @DesktopHeight - 80, "", 0, 1) 
    Sleep(1500) 
    ToolTip("") 
Else 
    ToolTip("选择了取消立即查看", @DesktopWidth - 250, @DesktopHeight - 80, "", 0, 1) 
    Sleep(2500) 
    ToolTip("") 
EndIf 

;run("RUNDLL32 netshell.dll,StartNCW")   ;创建连接 
Run(@ComSpec & " /c " & 'rasphone -d 宽带连接', "", @SW_HIDE)  ;调用建立好的宽带连接来连接 
;Run(@ComSpec & " /c rasdial "连接名称" "用户名" "密码" " , @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) 
;这个是预先输入用户名和密码来连接的,DOS窗口运行 
WinWaitActive("连接 宽带连接") 
If WinActive("连接 宽带连接") And WinExists("连接 宽带连接") Then 
    Send("") 
    ;Send("") 
    ;Send("c") 
    ;Send("") 
EndIf 
If WinExists("正在连接") Then 
    Sleep(500) 
    Exit 
EndIf