Перейти до

сетевые автонастройки


Рекомендованные сообщения

чуть подправил функцию:

;~ Создание VPN
Func VPNcreate()
       $isp_name = "ISP NAME"
       $vpn_host = "vpn.server.name"
if @OSVersion = "WIN_XP" OR @OSVersion = "WIN_2000" OR @OSVersion ="WIN_NT" Then
#requireadmin
       Run ( "rundll32.exe netshell.dll,StartNCW" )
Sleep(2500)
       Send("{ENTER}")
       Send("{DOWN}")
       Send("{ENTER}")
       Send("{DOWN}")
       Send("{ENTER}")
       Send($isp_name)
       Send("{ENTER}")
	$title = WinGetTitle('')
	if WinExists($title,"номер") OR WinExists($title,"number") then 
		Send("{UP}")
		Send("{ENTER}")
		Send($vpn_host)
		Send("{ENTER}")
		Send("{SPACE}")
		Send("{ENTER}")
	Else
		Send($vpn_host)
		Send("{ENTER}")
		Send("{SPACE}")
		Send("{ENTER}")
               EndIf
	Run ( "control netconnections" )
ElseIf @OSVersion = "WIN_ME" OR @OSVersion = "WIN_98" OR @OSVersion ="WIN_95" Then
	MsgBox(16,"Ошибка ", "К сожалению, у Вас на столько экзотически старая операционная система, что мы не всилах выполнить Ваше действие...")
Else	
	#requireadmin
	MsgBox(0, "Info", "Для запуска необходимы права Администратора!")
	MsgBox(4096,"", "Для Windows 7 & Windows Vista Автонастройка ВПН недоступна!   .")
EndIf
EndFunc

Есть на форуме любители форточек? а вчастности - WinVista, Win7. Если не сложно подскажите плз канает ли в вистоподобных - rundll32.exe netshell.dll,StartNCW ? или там что-то свое, если так то как вызвать?

Ссылка на сообщение
Поделиться на других сайтах
  • 2 weeks later...

Вам надо что то типа такого?????

http://upload.com.ua/get/901331497/

типа да, тока еще примочки надо, типа кнопки - "поставить доп. софт", а по ВПНу, да именно :(

есть ли возможность выложить исходники?

Ссылка на сообщение
Поделиться на других сайтах

Пожалуйста :(

unit MainUnit;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, magrasedt;

type
 TMainForm = class(TForm)
   EditLogin: TEdit;
   EditPWD: TEdit;
   CreateButton: TButton;
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   ComboBoxNet: TComboBox;
   MagRasEdtLan: TMagRasEdt;
   procedure CreateButtonClick(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.CreateButtonClick(Sender: TObject);
begin
if EditLogin.Text='' then
 begin
   MessageBox(0,'Вы не ввели Login!','Внимание',0);
   exit;
 end;
if EditPWD.Text='' then
 begin
   MessageBox(0,'Вы не ввели Password!','Внимание',0);
   exit;
 end;
case ComboBoxNet.ItemIndex of
 0:
   begin
     MagRasEdtLan.LocalPhoneNumber := 'goodnet.vpn';
   end;

end;
MagRasEdtLan.UserName := EditLogin.Text;
MagRasEdtLan.Password := EditPWD.Text;
MagRasEdtLan.PutAllEntryProps('Internet for '+ComboBoxNet.Items[ComboBoxNet.ItemIndex]);
MagRasEdtLan.PutDialProps('Internet for '+ComboBoxNet.Items[ComboBoxNet.ItemIndex]);
end;

end.

Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите в него для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!

Зарегистрировать аккаунт

Вхід

Уже зарегистрированы? Войдите здесь.

Войти сейчас
  • Зараз на сторінці   0 користувачів

    Немає користувачів, що переглядають цю сторінку.

×
×
  • Створити нове...