CodeScript Moderator Team
Joined: 08 Jun 2003 Posts: 1060 Location: India
|
Posted: Mon Sep 01, 2003 9:34 am Post subject: Control your dialup connections on 2k/NT/XP |
|
|
Script to show how to control your dialup connections on 2k/NT/XP.
It is console/command line based.
Code: | TITLE DIALUP CONTROL
DIALOG CREATE,DIALUP CONTROL,-1,0,289,156
DIALOG ADD,EDIT,EDIT1,30,70,195,19,
DIALOG ADD,EDIT,EDIT2,55,70,195,19,
DIALOG ADD,EDIT,EDIT3,79,70,195,19,,,PASSWORD
DIALOG ADD,BUTTON,Connect,103,70,64,24,&Connect
DIALOG ADD,BUTTON,Abort,103,70,64,24,&Abort
DIALOG ADD,BUTTON,Info,103,137,64,24,&Info
DIALOG ADD,BUTTON,Disconnect,103,204,64,24,&Disconnect
DIALOG ADD,TEXT,TEXT1,33,6,,,Connection:
DIALOG ADD,TEXT,TEXT2,60,6,59,13,User Name:
DIALOG ADD,TEXT,TEXT3,84,7,49,13,Password:
DIALOG SHOW
DIALOG HIDE,Abort
%H = @SUBSTR(@WINDIR(),1,2)
:EVLOOP
WAIT EVENT,.1
GOTO @EVENT()
:TIMER
IF @NOT(@WINEXISTS(%H\WINDOWS\System32\RASDIAL.exe))
DIALOG HIDE,Abort
DIALOG SHOW,Connect
ELSE
DIALOG HIDE,Connect
DIALOG SHOW,Abort
END
GOTO EVLOOP
:ConnectBUTTON
DIALOG HIDE,Connect
DIALOG SHOW,Abort
RUNH RASDIAL @DLGTEXT(EDIT1) @DLGTEXT(EDIT2) @DLGTEXT(EDIT3)
GOTO EVLOOP
:AbortBUTTON
DIALOG HIDE,Abort
DIALOG SHOW,Connect
WINDOW CLOSE,%H\WINDOWS\System32\RASDIAL.exe
GOTO EVLOOP
:InfoBUTTON
RUNH RASDIAL,PIPE
INFO @PIPE()
GOTO EVLOOP
:DisconnectBUTTON
RUNH RASDIAL @DLGTEXT(EDIT1) /DISCONNECT
GOTO EVLOOP
:CLOSE
EXIT |
_________________ Regards
- CodeScript
Give your application a professional look with the VDSGUI Extension |
|