home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / CHIP_CD_2004-07.iso / software / nncron_hit / files / nncron189.exe / plugins / ras.spf < prev    next >
Encoding:
Text File  |  2003-06-26  |  2.7 KB  |  82 lines
  1. \ File:         ras.spf
  2. \ Author:       Nicholas Nemtsev
  3. \ Date:         11.08.2002
  4. \ Description:  Establishing of RAS connection using credentials of the logged-on user.
  5.  
  6. \ DIAL-DLG: establishes a RAS connection using a specified phone-book entry
  7. \ and the credentials of the logged-on user.
  8. \ The function displays a stream of dialog boxes that indicate
  9. \ the state of the connection operation. 
  10. \ For NT/2k/XP only.
  11.  
  12. \ Usage: DIAL-DLG: "ras-entry"
  13. \ Don't forget to perform authorization (User: "IP-user" Password: "IP-passw")
  14.  
  15. \ DIAL-DLG: returns flag. If it is TRUE, a connection is established and
  16. \ you can do online operations.
  17. \ Example:
  18. 0 [IF]
  19. #( download-task
  20. User: "Nicholas" SecPassword: "zvcxcvxc" LogonInteractive
  21. WatchClipboard: "*"
  22. : wget1-mask S" /(http)|(ftp)|(https):\/\/[^ ]+?\.(zip)|(rar)|(exe)|(pdf)|(gz)|(jpg)|(jpeg)|(txt)/i" ;
  23. Rule: RE-MATCH: %CLIPBOARD% %wget1-mask% ;
  24. Action:
  25.   RE-ALL: %CLIPBOARD% %wget1-mask%
  26.      QUERY: "Download?%crlf%%$0%"
  27.      IF
  28.         ONLINE? 0=
  29.         IF
  30.            DIAL-DLG: MyProvider
  31.         ELSE TRUE THEN
  32.  
  33.         IF
  34.           StartIn: e:\home\download
  35.           ShowMinimized
  36.           START-APP: E:\bin\wget\wget.exe %$0%
  37.         THEN
  38.      THEN
  39.   ;RE-ALL
  40. )#
  41.  
  42. [THEN]
  43.  
  44. \ BOOL RasDialDlg(
  45. \   LPTSTR lpszPhonebook,   // pointer to the full path and file name of
  46. \                           //  the phone-book file
  47. \   LPTSTR lpszEntry,       // pointer to the name of the phone-book 
  48. \                           //  entry to dial
  49. \   LPTSTR lpszPhoneNumber, // pointer to replacement phone number to 
  50. \                           //  dial
  51. \   LPRASDIALDLG lpInfo     // pointer to a structure that contains 
  52. \                           //  additional parameters
  53. \ );
  54.  
  55. WinNT?
  56. [IF]
  57. WINAPI: RasDialDlgA RASDLG.DLL
  58.  
  59. 0                           \ typedef struct tagRASDIALDLG {
  60. 1 CELLS -- RDD.dwSize       \   IN  DWORD          dwSize;
  61. 1 CELLS -- RDD.hwndOwner    \   IN  HWND           hwndOwner;
  62. 1 CELLS -- RDD.dwFlags      \   IN  DWORD          dwFlags;
  63. 1 CELLS -- RDD.xDlg         \   IN  LONG           xDlg;
  64. 1 CELLS -- RDD.yDlg         \   IN  LONG           yDlg;
  65. 1 CELLS -- RDD.dwSubEntry   \   IN  DWORD          dwSubEntry;
  66. 1 CELLS -- RDD.dwError      \   OUT DWORD          dwError;
  67. 1 CELLS -- RDD.reserved     \   IN  DWORD          reserved;
  68. 1 CELLS -- RDD.reserved2    \   IN  DWORD          reserved2;
  69.                             \ } RASDIALDLG;
  70. CONSTANT /RASDIALDLG
  71. VARIABLE DIAL-DLG-ERR
  72. : DIAL-DLG { a u \ info -- ? }
  73.     /RASDIALDLG ALLOCATE THROW TO info
  74.     /RASDIALDLG info RDD.dwSize !
  75.     info 0 a 0 RasDialDlgA 
  76.     info RDD.dwError @ DIAL-DLG-ERR !
  77.     info FREE THROW
  78. ;
  79.  
  80. : DIAL-DLG: eval-string, POSTPONE DIAL-DLG ; IMMEDIATE
  81. [THEN]
  82.