[Xpeter]

Люди! Помогите, пожалуйста!!! Может я не очень внятно задал вопрос... Упрощу задачу.

Как лучше написать следующее приложение. Запускаю приложение. У меня открывается окно, в котором я выбираю, например, билайн, или мегафон, жму Ок, и мне создаётся необходимое модемное соединение. На чём такое приложение лучше написать? Как создавать модемное соединение?

[prokazzza]

Xpeter

Cкрипт AutoIt для dial-up (не помню чей он) из которого ты можешь сделать полноценный EXE файл, пример внизу прикрепил, запустишь посмотришь,
если разбираешься с тонкостями AutoIt сможешь сделать и для своего gprs

Дополнительная информация

Код:

Run("rundll32.exe netshell.dll,StartNCW")
WinWaitActive ('Мастер новых подключений','Мастер новых подключений')
Send('{Enter}')
Sleep ('500')
WinWaitActive ('Мастер новых подключений','Подключить к Интернету для просмотра веб-узлов и чтения  электронной почты.')
ControlClick ('Мастер новых подключений','Подключить к Интернету для просмотра веб-узлов и чтения  электронной почты.','Button1')
Sleep ('500')
Send('{Enter}')

WinWaitActive ('Мастер новых подключений','Каким образом подключиться к Интернету')
ControlClick ('Мастер новых подключений','Каким образом подключиться к Интернету','Button2')
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','Данное подключение использует модем и обычную телефонную линию или телефонную линию ISDN.')
ControlClick ('Мастер новых подключений','Данное подключение использует модем и обычную телефонную линию или телефонную линию ISDN.','Button1')
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','Им&я поставщика услуг')
ControlSetText ( 'Мастер новых подключений', '', 'Edit1', 'ххххххххххххххх' )
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','Номер &телефона:')
ControlSetText ( 'Мастер новых подключений', '', 'Edit1', 'хххххххххххххх,,,' )
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','&Имя пользователя:')
sleep (100) 
ControlSetText ( 'Мастер новых подключений', '', 'Edit1', 'логинххххххххххххххх')
sleep (100)
ControlSetText ( 'Мастер новых подключений', '', 'Edit2', 'парольххххххххххххххх')
Send('{tab}')
sleep (100)
ControlSetText ( 'Мастер новых подключений', '', 'Edit3', 'пароль подтверждениехххххххххххххх')
Sleep ('500')
ControlCommand ( 'Мастер новых подключений', '', 'Button13', 'Check', '' )
ControlCommand ( 'Мастер новых подключений', '', 'Button2', 'Check', '' )
Sleep ('500')
Send('{Enter}')
WinWaitActive ('Мастер новых подключений','Завершение работы мастера новых подключений')
ControlCommand ( 'Мастер новых подключений', '', 'Button20', 'UnCheck', '' )
Send('{Enter}')
Exit

[bogomolv]

Xpeter
В качестве идеи посмотри
http://forum.oszone.net/showthread.p...%E5#post342132
Принципиальное преимущество этого способа - вместе с созданием соединения не только настраиваются его парметры, но и задается пароль!
Хотя для ADSL таким способом создать соединение я не смог.

[Xpeter]

Спасибо огромное!!!! Ещё только начал изучать, но уже похоже, что это то что нужно.

[Lodoss]

да, была идейка давно это сделать и сделал, но только в GUI и для обычного модемного соеденения.
Удобство в том что сам вводишь имя, пароль, телефон.
вот код:

Код:

#include <GUIConstants.au3>
;лог ошибок
AutoItSetOption ( "TrayIconDebug", 1 ) 
;информационное сообщение в трее
TrayTip("Установка", "Настройка интернет соединений", 5, 1)
;иконка сотика в трее
TraySetIcon("Shell32.dll",200)
;проверка на обладание правами администратора, иначе установка невозможна
$admin = IsAdmin ()
If $admin = 0 Then
MsgBox(16, "Ошибка", "Запуск программы возможен только с правами Администратора")
Exit
EndIf 
;условие совместимости с ХР
If @OSVersion <> "WIN_XP" Then 
	MsgBox(16, " Ошибка", "Программа работает только под операционной системой Windows XP")
	Exit
	EndIf
;рисуем GUI
GUICreate("Интернет - ХР", 200, 125) 
;фон окна
GUISetBkColor (0x00E0FFFF)
;лейблы
GUICtrlCreateLabel("Соеденение", 5, 9)
GUICtrlCreateLabel("Логин", 5, 32)
GUICtrlCreateLabel("Пароль", 5, 55)
GUICtrlCreateLabel("Телефон", 5, 77)
;запуск и отмена скрипта + о программе
$ok = GUICtrlCreateButton("OK", 12, 102, 50,18)
$cancel = GuiCtrlCreateButton ("Cancel",76,102,50,18)
$hl = GuiCtrlCreateButton ("?",140,102,50,18)
;название соеденения / внесите несколько по желанию
$in1 =GUICtrlCreateCombo ("Рол", 75, 5, 115, 18)
GUICtrlSetData($in1, "Билайн|Мегафон|Ранетка|Дарёнка|Электросвязь|Сиброн|Интернетка|Время|Мегабайт")
GUICtrlSetTip(-1,"введите название провайдера")
;ввод логина
$in2 = GUICtrlCreateInput ("",  75, 30, 115, 18)
GUICtrlSetTip(-1,"введите имя пользователя")
;ввод пароля
$in3 = GUICtrlCreateInput ("",  75, 53, 115, 18, 0x20)
GUICtrlSetTip(-1,"введите пароль")
;ввод телефона
$in4 = GUICtrlCreateCombo ("258888",  75, 76, 115, 18)
GUICtrlSetData($in4, "254563|123456|214551|777777|888888")
GUICtrlSetTip(-1,"введите номер телефона" &@CRLF &"ставить впереди букву P ненужно!!!")
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
;считываем введённые данные
$out1 = GUICtrlRead($in1)
$out2 = GUICtrlRead($in2)
$out3 = GUICtrlRead($in3)
$out4 = GUICtrlRead($in4)
;объявление переменных
Global $name = $out1, $login = $out2, $pass = $out3, $phone = $out4 
$win = "Мастер новых подключений"
Select
Case $msg = $hl
	MsgBox(64, "О программе", "Небольшая программка для создания новых интернет соеденений" _ 
	&@CRLF& "облегчающая работу [Мастера Новых Подключений] в ХР", 10)
Case $msg = $ok
run("rundll32.exe netshell.dll,StartNCW")
winwait($win)
WinActivate($win)
send("{enter}")
winwait($win, "&Подключить к Интернету")
WinActivate($win, "&Подключить к Интернету")
send("{enter}")
winwait($win, "Каким образом")
WinActivate($win, "Каким образом")
send("{down}")
sleep(10)
send("{enter}")
winwait($win, "Через &обычный модем")
WinActivate($win, "Через &обычный модем")
send("{enter}")
;провайдер
winwait($win, "Им&я поставщика услуг")
WinActivate($win, "Им&я поставщика услуг")
ControlSetText("", "", "Edit1",$name)
sleep(10)
send("{enter}")
;телефон
winwait($win, "Введите номер телефона")
WinActivate($win, "Введите номер телефона")
ControlSetText("", "", "Edit1","p")
send("{end}")
send($phone)
send("{enter}")
;пароль
winwait($win, "Введите имя и пароль")
WinActivate($win, "Введите имя и пароль")
ControlSetText("", "", "Edit1",$login)
sleep(10)
send("{tab}")
ControlSetText("", "", "Edit2",$pass)
send("{tab}")
ControlSetText("", "", "Edit3",$pass)
sleep(10)
ControlCommand("", "", "Button2", "uncheck")
sleep(10)
send("{enter}")
;закрытие окна
winwait($win, "Завершение работы")
WinActivate($win, "Завершение работы")
;использовать подключение по умолчанию / uncheck - неиспользовать
ControlCommand("", "", "Button1", "check")
sleep(10)
ControlClick("", "", "Button23")
winwaitclose($win, "Завершение работы")
MsgBox(64, " Информация", "Интернет соединение " &$name& " - Установлено")
Case $msg = $cancel
ExitLoop
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd

надеюсь кому нибудь пригодится