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

[BUM 237]

В целом какбе неплохо, но вот нюанс, а что если у пользователя Виста или 7-рка? )

Так же проблема, если уже есть VPN/dialup подключение, то создается ВПН-через ВПН, т.е. один пункт не учтен

 

Я тоже думаю про это Все будет, возможности AutoIt огромные, так что буду пробовать!!!

И скрипт создания самого подключения переделаю, этот не правильный (тупой)...

Сейчас разбираюсь с проверкой существующих подключений...

Попробуйте Func VPNcreate() Заменить на нечто такое

 

;~ Создание VPN
Func VPNcreate()
if @OSVersion = "WIN_XP" OR @OSVersion = "WIN_2000" OR @OSVersion ="WIN_NT" Then
       Run ( "rundll32.exe netshell.dll,StartNCW" )
      	Sleep(2500) ;  WinWaitActive("Мастер новых подключений") - не катит, ибо у юзверя может быть английская/турецка/японская форточка
       Send("{ENTER}")
       Send("{DOWN}")
       Send("{ENTER}")
       Send("{DOWN}")
       Send("{ENTER}")
       Send("ISP_NAME")
       Send("{ENTER}")
Send("vpn.server.name")
       Send("{ENTER}")
       Send("{SPACE}")
       Send("{ENTER}")
       Run ( "control netconnections" )
       ; WinWaitActive("Сетевые подключения") - Зачем ждать с моря погоды если больше ничего не выполняется? 
Else	
	MsgBox(4096,"", "Похоже у Вас не Windows XP  ")
EndIf
EndFunc

[BUM 237]

а по топику: dhcp не вариант?

а как быть если абон захочет руками прописать IP и как назло попадет на тот который уже кому то роздан конфликт айпи, абон (то чей айпишник забрал продвинутый юзер)))в шоке крик "за что я плачу!"

в каком шоке? IP+MAC не наше? да и зачем юзеру что-то руцями прописывать, если он уже получил доступ в сеть по DHCP? ... Прям как в анекдоте: "Ну где же логика?"

[BUM 237]

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

;~ Создание 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 ? или там что-то свое, если так то как вызвать?

[roneaf 2]

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

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

[BUM 237]

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

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

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

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

[roneaf 2]

Пожалуйста

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.

[Mobil 66]

А как сделать програму по автоматическому созданию pppoe подключения?

[Verlen 1]

А как сделать програму по автоматическому созданию pppoe подключения?

http://www.rozhuk.org.ru/forum/index.php?topic=4.0