... = LOADLIBRARY( "wininet.dll" ) hInternet := INETOPEN( "Anystring", 1, 0, 0, 0 ) hConnect := INETCONNECT( hInternet, "www.xtech.com.cn",21, "xxx@xtech.com.cn", "erp6.5", 1, 0,0 ) if !EMPTY( hInternet ).and.!EMPTY( hConnect ) msgmeter({|ometer,otext,odlg,lend|download002(ometer,otext,odlg,@lend,hConnect)},"正在下载,可能需要几分钟...","下载提示") ...