Borodatych, Вы хотите всё это сделать по вебу??
А это как, возможно вообще? 
| forum.bitel.ru http://forum.bitel.ru/ |
|
| Регистрация пользователя через Web интерфейс. http://forum.bitel.ru/viewtopic.php?f=1&t=2096 |
Страница 1 из 1 |
| Автор: | supp [ 31 мар 2009, 11:12 ] |
| Заголовок сообщения: | Регистрация пользователя через Web интерфейс. |
Тут на форуме год назад спрашивали. Прямая регистрация с Web интерфейса без введения Пин кода. Карточки вещь хорошая, но прошлый век. Да и затрат на их печать можно избежать. Пользоатель регистрируется заполнив поля формы и получает логин, пароль, пополнив баланс пользуется. Хотелось бы получить функционал стандартными средствами биллинга. А решение наверное примитивно, подозреваю, что это правка одной XML-ки. Так? |
|
| Автор: | Borodatych [ 31 мар 2009, 15:18 ] |
| Заголовок сообщения: | |
up +1 Ещё было бы не плохо видеть авто настройку VPN-соединения через Web интерфейс пользователя: По нажатию кнопки настроить выполнялось бы: 1. Автоматическая запись данных в файл "rasphone.pbk", которые задаёт провайдер. 2. Если есть запись о "нашем соединение", то проверка и корректировка. 3. Создание ярлыка на дескопе юзера с нужным соединением. 4. Генерился bat-ник для скачки с логином и паролем, или что нибудь подобное, для тех кто даже пасс ввести не может из-за не отображения такового ; а такие есть - поверьте! Как то так. Идея, думаю, понятна - автоматизировать. ps: У меня есть общий установщик, который всё это делает. Но некоторые даже далее нажать не могут! |
|
| Автор: | dimOn [ 31 мар 2009, 15:41 ] |
| Заголовок сообщения: | |
Borodatych, Вы хотите всё это сделать по вебу?? А это как, возможно вообще?
|
|
| Автор: | Borodatych [ 31 мар 2009, 15:59 ] |
| Заголовок сообщения: | |
Может TryInfo обвешать этим. Чтоб один раз все это делал, тупо выдовая ход прогресса, а потом проверяла на корректность и подпровляла по надобности. Или утилитку которая по защищённому каналу общается, так же с настройками в зависимости от прова, с биллингом. А вход по логину и паролю. + Регистрация через Web. Думаю, можно покумекать над этим. |
|
| Автор: | Akhmat [ 31 мар 2009, 16:23 ] |
| Заголовок сообщения: | |
dimOn писал(а): Borodatych, Вы хотите всё это сделать по вебу??
А это как, возможно вообще? тоже интересно?:) Думаю через веб не вариант. есть программка на VC++ самописная с вебинтерфейсом, которая такое делает, вызовами API функций. http://www.globalalania.ru/files/ga_utility.exe А расфон редактировать... Вы хоть пробовали такое сами реализовать? Если прога нравится, могу поделиться исходниками, добавите функционал, поделитесь тоже) |
|
| Автор: | Akhmat [ 31 мар 2009, 16:26 ] |
| Заголовок сообщения: | |
Borodatych писал(а): Может TryInfo обвешать этим. Чтоб один раз все это делал, тупо выдовая ход прогресса, а потом проверяла на корректность и подпровляла по надобности. Или утилитку которая по защищённому каналу общается, так же с настройками в зависимости от прова, с биллингом. А вход по логину и паролю. + Регистрация через Web. Думаю, можно покумекать над этим.
+1 В трейинфо толково будет! |
|
| Автор: | Borodatych [ 31 мар 2009, 16:38 ] |
| Заголовок сообщения: | |
Цитата: в смысле вы хотите из веба обращаться к локальному диску ?
Попробую по другому вопрос поставить. Хочется увидеть реализацию: Завели договор и передали карточку пользователю, где его логин и пароль. Он тупа заходит на статистику через Web морду по защищённому каналу, введя логин и пароль, а там кнопочка "настроика", с уже сгенерированным скриптом содержащий все настройкм, его логин и пароль, допустим на vbs, который бы, как сам биллинг, потдавался дефолтной настройки. |
|
| Автор: | Borodatych [ 31 мар 2009, 16:51 ] |
| Заголовок сообщения: | |
Цитата: А расфон редактировать... Вы хоть пробовали такое сами реализовать? Я расфон стараюсь не трогать, но вот так можно, работает реализация на vbs: Код: Set WSS_ = CreateObject("WScript.Shell") Set FSO_ = CreateObject("Scripting.FileSystemObject") VPNprofile = WSS_.ExpandEnvironmentStrings("C:\Documents and Settings\All Users\Application Data\Microsoft\Network\Connections\Pbk\name.pbk") Set flW = FSO_.OpenTextFile(VPNprofile, 8, True) flW.WriteLine "[Название подключения]" flW.WriteLine "Encoding=1" flW.WriteLine "Type=2" flW.WriteLine "AutoLogon=0" flW.WriteLine "UseRasCredentials=1" flW.WriteLine "DialParamsUID=Boroda Prodaction" flW.WriteLine "Guid=044E7B18647D5649AE37C9A544038D28" flW.WriteLine "BaseProtocol=1" flW.WriteLine "VpnStrategy=1" flW.WriteLine "ExcludedProtocols=0" flW.WriteLine "LcpExtensions=1" flW.WriteLine "DataEncryption=8" flW.WriteLine "SwCompression=1" flW.WriteLine "NegotiateMultilinkAlways=0" flW.WriteLine "SkipNwcWarning=0" flW.WriteLine "SkipDownLevelDialog=0" flW.WriteLine "SkipDoubleDialDialog=0" flW.WriteLine "DialMode=1" flW.WriteLine "DialPercent=75" flW.WriteLine "DialSeconds=120" flW.WriteLine "HangUpPercent=10" flW.WriteLine "HangUpSeconds=120" flW.WriteLine "OverridePref=15" flW.WriteLine "RedialAttempts=1000" flW.WriteLine "RedialSeconds=5" flW.WriteLine "IdleDisconnectSeconds=0" flW.WriteLine "RedialOnLinkFailure=1" flW.WriteLine "CallbackMode=0" flW.WriteLine "CustomDialDll=" flW.WriteLine "CustomDialFunc=" flW.WriteLine "CustomRasDialDll=" flW.WriteLine "AuthenticateServer=0" flW.WriteLine "ShareMsFilePrint=0" flW.WriteLine "BindMsNetClient=0" flW.WriteLine "SharedPhoneNumbers=0" flW.WriteLine "GlobalDeviceSettings=0" flW.WriteLine "PrerequisiteEntry=" flW.WriteLine "PrerequisitePbk=" flW.WriteLine "PreferredPort=VPN4-0" flW.WriteLine "PreferredDevice=Минипорт WAN (L2TP)" flW.WriteLine "PreferredBps=0" flW.WriteLine "PreferredHwFlow=1" flW.WriteLine "PreferredProtocol=1" flW.WriteLine "PreferredCompression=1" flW.WriteLine "PreferredSpeaker=1" flW.WriteLine "PreferredMdmProtocol=0" flW.WriteLine "PreviewUserPw=1" flW.WriteLine "PreviewDomain=0" flW.WriteLine "PreviewPhoneNumber=0" flW.WriteLine "ShowDialingProgress=0" flW.WriteLine "ShowMonitorIconInTaskBar=1" flW.WriteLine "CustomAuthKey=-1" flW.WriteLine "AuthRestrictions=288" flW.WriteLine "TypicalAuth=2" flW.WriteLine "IpPrioritizeRemote=1" flW.WriteLine "IpHeaderCompression=0" flW.WriteLine "IpAddress=0.0.0.0" flW.WriteLine "IpDnsAddress=0.0.0.0" flW.WriteLine "IpDns2Address=0.0.0.0" flW.WriteLine "IpWinsAddress=0.0.0.0" flW.WriteLine "IpWins2Address=0.0.0.0" flW.WriteLine "IpAssign=1" flW.WriteLine "IpNameAssign=1" flW.WriteLine "IpFrameSize=1006" flW.WriteLine "IpDnsFlags=0" flW.WriteLine "IpNBTFlags=1" flW.WriteLine "TcpWindowSize=0" flW.WriteLine "UseFlags=0" flW.WriteLine "IpSecFlags=0" flW.WriteLine "IpDnsSuffix=" flW.WriteLine "" flW.WriteLine "NETCOMPONENTS=" flW.WriteLine "ms_server=0" flW.WriteLine "ms_msclient=0" flW.WriteLine "ms_psched=1" flW.WriteLine "vmware_bridge=0" flW.WriteLine "" flW.WriteLine "MEDIA=rastapi" flW.WriteLine "Port=VPN4-0" flW.WriteLine "Device=Минипорт WAN (L2TP)" flW.WriteLine "" flW.WriteLine "DEVICE=vpn" flW.WriteLine "PhoneNumber=vpn.<name>.ru" flW.WriteLine "AreaCode=" flW.WriteLine "CountryCode=1" flW.WriteLine "CountryID=1" flW.WriteLine "UseDialingRules=0" flW.WriteLine "Comment=" flW.WriteLine "LastSelectedPhone=0" flW.WriteLine "PromoteAlternates=0" flW.WriteLine "TryNextAlternateOnFail=1" flW.Close Сохранить в UTF-8 кодировке, иначе русское название не отобразится. Ну это конкретно для меня случай. А так один раз создаем, смотрим расфон и подпровляем под себя скрипт. Ярлык на подключение, то же vbs: Код: Option Explicit Const ssfCONNECTIONS = &H0031 Const ssfDESKTOP = &H0000 'Const ssfCOMMON_DESKTOPDIRECTORY = &H0019 Dim objShell Dim objFolderConnections Dim objFolderDesktop 'Dim objFolderAllUsersDesktop Dim objSubFolder Set objShell = WScript.CreateObject("Shell.Application") Set objFolderConnections = objShell.NameSpace(ssfCONNECTIONS) If (Not objFolderConnections Is Nothing) Then For Each objSubFolder In objFolderConnections.Items If objSubFolder.Name = "Название подключение" Then Set objFolderDesktop = objShell.NameSpace(ssfDESKTOP) 'objFolderAllUsersDesktop If (Not objFolderDesktop Is Nothing) Then objFolderDesktop.CopyHere objSubFolder End If End If Next End If Set objFolderDesktop = Nothing ' objFolderAllUsersDesktop Set objFolderConnections = Nothing Set objShell = Nothing WScript.Quit 0 Цитата: Если прога нравится, могу поделиться исходниками, добавите функционал, поделитесь тоже)
С удовольствием, жду... |
|
| Автор: | Akhmat [ 31 мар 2009, 16:54 ] |
| Заголовок сообщения: | |
в личку адрес |
|
| Автор: | snark [ 31 мар 2009, 17:27 ] |
| Заголовок сообщения: | |
dimOn писал(а): Borodatych, Вы хотите всё это сделать по вебу??
А это как, возможно вообще? возможно! я видел в интернетах платный ActiveX компонент который позволяет создавать соединения, но это всеравно только под винду, да и через ... это - создание подключения из веба, IMHO |
|
| Автор: | supp [ 31 мар 2009, 18:11 ] |
| Заголовок сообщения: | |
ну понесло... хотябы регистрацию с веба сделайте. |
|
| Автор: | Akhmat [ 31 мар 2009, 18:24 ] |
| Заголовок сообщения: | |
supp писал(а): ну понесло... хотябы регистрацию с веба сделайте.
Как то пробовал в веб интерфейс, вкрутить функционал свой, не осилил. Если б подсказали как, то самому такое замутить не сложно. |
|
| Автор: | snark [ 31 мар 2009, 18:35 ] |
| Заголовок сообщения: | |
тут, на форуме, люди уже делали регистрацию ... то ли на чистом пхп, то ли из пхп к серверу обращались, не помню уже ... |
|
| Автор: | supp [ 01 апр 2009, 01:11 ] |
| Заголовок сообщения: | |
дык проше помоему можно.: card_create_contract.xsl /////////////////////////////////////////////////////////////////////////////////// <tr> <td colspan="2">Введите логин и пароль карты:</td> </tr> <tr> <td>Номер карты:</td> <td align="right"> <input type="text" size="30" name="login" value=" вот сюда запросом втянуть первую попавшуюся карточку со статусом =1" style="width:250px;"/> </td> </tr> <tr> <td>PIN-код карты:</td> <td align="right"> <input type="password" size="30" name="pswd" value="" style="width:250px;"/> </td> </tr> <tr> <td>Повторите PIN-код карты:</td> <td align="right"> <input type="password" size="30" name="pswd2" value="" style="width:250px;"/> </td> </tr> и Пин коды соответственно. карточки с балансом 0 руб.. и все. |
|
| Автор: | supp [ 01 апр 2009, 15:32 ] |
| Заголовок сообщения: | |
Такое реально? Нас вполне устроит. Карты все номиналом 0 руб. |
|
| Автор: | dimOn [ 03 апр 2009, 14:57 ] |
| Заголовок сообщения: | |
snark писал(а): dimOn писал(а): Borodatych, Вы хотите всё это сделать по вебу?? А это как, возможно вообще? возможно! я видел в интернетах платный ActiveX компонент который позволяет создавать соединения, но это всеравно только под винду, да и через ... это - создание подключения из веба, IMHO |
|
| Автор: | supp [ 05 апр 2009, 17:50 ] |
| Заголовок сообщения: | |
cделали. смотрите тут. http://www.bgbilling.ru/forum/viewforum.php?f=25 |
|
| Страница 1 из 1 | Часовой пояс: UTC + 5 часов [ Летнее время ] |
| Powered by phpBB® Forum Software © phpBB Group http://www.phpbb.com/ |
|