EnglishРусский  

   ..

   ras.g

   rasdemo.g

Реклама

Инсталлятор CreateInstall
Бесплатные и коммерческие инсталляторы

source\lib\ras\rasdemo.g
 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 
Редактировать