1 /******************************************************************************
2 *
3 * Copyright (C) 2009, The Gentee Group. All rights reserved.
4 * This file is part of the Gentee open source project - http://www.gentee.com.
5 *
6 * THIS FILE IS PROVIDED UNDER THE TERMS OF THE GENTEE LICENSE ("AGREEMENT").
7 * ANY USE, REPRODUCTION OR DISTRIBUTION OF THIS FILE CONSTITUTES RECIPIENTS
8 * ACCEPTANCE OF THE AGREEMENT.
9 *
10 * Author: Alexey Krivonogov ( gentee )
11 *
12 ******************************************************************************/
13
14 include : "ras.g"
15
16 func rasdemo<main>
17 {
18 arrstr astr
19 str entry
20
21 ras_entries( astr )
22 print("RAS Entries ================\( sizeof( RASDIALPARAMS )) \n")
23 foreach ecur, astr
24 {
25 print("\(ecur)\l")
26 }
27 entry = ras_firstentry()
28 print( "Disconnect: \( ras_disconnect( entry )) \n" )
29 print("\( entry ): \( ?( ras_isconnected( entry ), "YES", "NO" )) \n")
30 print("Dialup: \( ras_dialup( "", "", "", "login", "*****", "" ))")
31 // ras_dialdlg( 0, entry )
32 print("\( entry ): \( ?( ras_isconnected( entry ), "YES", "NO" )) \n")
33 ras_connections( astr )
34 print("Connections ================\n")
35 foreach ecur, astr
36 {
37 print("\(ecur)\l")
38 }
39 congetch("Press any key...")
40 }
41
42
43