15 октября, понедельник 22:12
Bankir.Ru

Объявление

Свернуть
Пока нет объявлений.

Программа CRT для передачи УФБЭС. HELP!!!

Свернуть
X
  • Фильтр
  • Время
  • Показать
Очистить всё
новые сообщения

  • Программа CRT для передачи УФБЭС. HELP!!!

    Получили письмо из МЦИ в котором они рекомендуют использовать CRT для передачи. Кто работал с этой программой пожалуйста помогите ее настроить для работы по модему, а то наш сисадмин в отпускею Спасибо!

  • #2
    New Session, протокол TAPI, забить номер телефона, логин, пароль, и радоваться.

    Комментарий


    • #3
      Если серьезно - настраивается довольно просто. У нас заработала, попробовали передать/принять рейсы (обычные) - все ОК.

      Комментарий


      • #4
        Зарание простите за глупые вопросы, просто я в этих вещах очемнь плохо разбираюсь.
        1.Инсталяция CRT не повлияет на работу нашей программы "телемейт"?
        2.А проблем с Русским шрифтом нет?
        3.Где задать логин и пароль?
        Спасибо!

        Комментарий


        • #5
          1. Инсталляция - не повлияет на "телемейт".
          Нельзя только одновременно запускать.
          2. Русский шрифт - Option - Session option -
          Terminal - Appearance-
          поле Normal font - font - выбрать шрифт Terminal
          3. Для текущей session - Option - Session Option - Connection -
          Logon script
          v-Automate Logon
          ogin: b001
          assword: sdhgfjhsdgjh - лучше вручную?
          4. Список дозвона
          Для текущей session - Option - Session Option - Connection
          - TAPI - Advanced - New phone number

          Комментарий


          • #6
            шило на мыло...

            Комментарий


            • #7
              Я почему-то не понял - может ли эта прога работать со списком дозвона? Перебирать хосты и телефоны в рамках одного скрипта?
              Если нет, то не вижу её преимуществ перед простым NetTerm'ом. Хотя я досконально её не изучал, некогда.

              Комментарий


              • #8
                Сообщение от ax3
                Я почему-то не понял - может ли эта прога работать со списком дозвона? Перебирать хосты и телефоны в рамках одного скрипта?
                Если нет, то не вижу её преимуществ перед простым NetTerm'ом. Хотя я досконально её не изучал, некогда.
                Может и поддерживает VBS

                Комментарий


                • #9
                  Приветствую, коллеги! А не поделится ли кто скриптами для CRT? Если там ещё и планируемые нововведения УФЭБС будут учтены, благодарность вдвойне!

                  Комментарий


                  • #10
                    Добрый день, коллеги!
                    А подскажите, где достать эту замечательную программу?
                    И каким образом её приобрести?
                    А то адрес на сайте изготовителя http://www.vandyke.com
                    какой то "мутный"...

                    Комментарий


                    • #11
                      Кстати, есть еще подходящая для тех же целей программа ZOC
                      http://www.emtec.com/download.html

                      Комментарий


                      • #12
                        MPek
                        Кстати, есть еще подходящая для тех же целей программа ZOC
                        http://www.emtec.com/download.html

                        Если не ошибаюсь не умеет звонить по списку номеров.

                        Комментарий


                        • #13
                          А то адрес на сайте изготовителя http://www.vandyke.com
                          какой то "мутный"...

                          1. "Везде" лежит ломаная.
                          2. По VTB карточке легко продают программу.
                          У них даже распродажа вроде была.

                          Комментарий


                          • #14
                            SergeyO
                            По списку она звонит, только в старой версии она сразу брала все номера с одинаковым названием с 1-го по 6-й символ (рассматривала их как группу), а в более новой почему-то хочет чтобы их выделили, может мы где-то просмотрели дополнительную настройку или надо поправить какой-нибудь скрипт.

                            Комментарий


                            • #15
                              Сообщение от SergeyO
                              MPek
                              Кстати, есть еще подходящая для тех же целей программа ZOC
                              http://www.emtec.com/download.html

                              Если не ошибаюсь не умеет звонить по списку номеров.
                              умеет, кроме того ZOC ведет статистику дозвона и самые доступные номера обзваниваются в первую очередь, что очень удобно.

                              Комментарий


                              • #16
                                Присоединюсь к просьбе Kandida:

                                Приветствую, коллеги! А не поделится ли кто скриптами для CRT? Если там ещё и планируемые нововведения УФЭБС будут учтены, благодарность вдвойне!

                                Комментарий


                                • #17
                                  Вот пример скрипта для логина
                                  Прикол что если идет заставка (МЕЖБАНКОВСКАЯ СИСТЕМА ПЕРЕДАЧИ ИНФОРМАЦИИ и т.д.....) не срабатывает ogin: в автологине
                                  В данном скрипте это проблема решена логинется на все тел.
                                  (fast1!login:, fast2!login:, login: )
                                  ===================================================
                                  #$language = "VBScript"
                                  #$interface = "1.0"

                                  Sub main

                                  crt.Screen.Synchronous = True

                                  Dim result
                                  Dim login
                                  Dim password

                                  login = "****"
                                  password = "**********"

                                  result = crt.Screen.WaitForStrings( "!login:", "login:",30)

                                  If result = 1 Then

                                  crt.sleep 1000
                                  crt.screen.send login & VbCr

                                  Else
                                  crt.screen.send login & VbCr

                                  End If

                                  crt.Screen.WaitForString "assword:"

                                  crt.Screen.Send password & VbCr

                                  crt.Screen.WaitForString "ENTER..."

                                  crt.Screen.Send VbCr

                                  crt.Screen.Synchronous = False

                                  End Sub
                                  =================================================================
                                  Дальше можно воять что угодно
                                  Удачи
                                  С уважением,
                                  Александр

                                  Комментарий


                                  • #18
                                    В продолжение Темы скрипит на прием
                                    Дальше бум ваять универсальный для запуска из командной строки (прием передача)
                                    ===============================================================
                                    #$language = "VBScript"
                                    #$interface = "1.0"

                                    Sub main


                                    '''''''''''''''''''''''''''''''''''''''''''''''''
                                    Dim login,password,result,Str,HH
                                    '''''''''''''''''''''''''''''''''''''''''''''''''
                                    'Логин пароль
                                    '''''''''''''''''''''''''''''''''''''''''''''''''
                                    login = "****"
                                    password = "********"

                                    '''''''''''''''''''''''''''''''''''''''''''''''''

                                    Str = login & Right("00" & Day(Now), 2)
                                    HH = Hour(Now)


                                    '''''''''''''''''''''''''''''''''''''''''''''''''
                                    'Определяем имя файла
                                    '''''''''''''''''''''''''''''''''''''''''''''''''

                                    If HH=>11 And HH14 Then
                                    Str = Str & "01.dvc"
                                    End If

                                    If HH=>14 And HH15 Then
                                    Str = Str & "02.dvc"
                                    End If

                                    If HH=>15 And HH17 Then
                                    Str = Str & "03.dvc"
                                    End If

                                    If HH=>17 And HH20 Then
                                    Str = Str & "04.dvc"
                                    End If

                                    If HH=>21 And HH 24 Then
                                    Str = Str & "05.dvc"
                                    End If



                                    ''''''''''''''''''''''''''''''''''''''''''''''''''

                                    crt.Screen.Synchronous = True

                                    result = crt.Screen.WaitForStrings( "!login:", "login:",30)

                                    If result = 1 Then
                                    crt.sleep 1000
                                    crt.screen.send login & VbCr
                                    Else
                                    crt.screen.send login & VbCr
                                    End If


                                    crt.Screen.WaitForString "assword:"
                                    crt.Screen.Send password & VbCr

                                    crt.Screen.WaitForString "ENTER..."
                                    crt.Screen.Send VbCr

                                    If HH11 Then
                                    crt.Screen.WaitForString "?:"
                                    crt.Screen.Send "D" & VbCr

                                    crt.Screen.WaitForString "?:"
                                    crt.Screen.Send "G" & VbCr
                                    Else
                                    crt.Screen.WaitForString "?:"
                                    crt.Screen.Send "Z" & VbCr

                                    resul = crt.Screen.WaitForStrings(Str,3)
                                    If resul > 0 Then
                                    crt.Screen.Send Str & VbCr
                                    crt.Screen.WaitForString "?:"
                                    crt.Screen.Send "G" & VbCr
                                    Else
                                    crt.Screen.Send VbCr
                                    crt.Screen.WaitForString "?:"
                                    crt.Screen.Send "G" & VbCr
                                    End If

                                    End If


                                    Do
                                    crt.Sleep 2000
                                    Loop While crt.Session.Connected

                                    crt.quit

                                    crt.Screen.Synchronous = False



                                    End Sub
                                    =================================================================
                                    Удачи
                                    С уважением,
                                    Александр

                                    Комментарий


                                    • #19
                                      ALLEX, спасибо за скрипты! Собирался в будущем писать, а тут уже всё готово

                                      Комментарий


                                      • #20
                                        Скрипт на отправку
                                        #$language = "VBScript"
                                        #$interface = "1.0"

                                        Sub main
                                        Const Path ="c:\OUT\" ''путь для входящих файлов
                                        Const PathArc ="c:\OUT\ARC\" ''путь к архиву
                                        '''расширение файлов
                                        Const FileExp =".DKB" ''реестр
                                        Const FileExp1 =".QRY" ''запрос на предварительную
                                        Const FileExp2 =".SQY" ''запрос на справку по реестру
                                        '''''''''''''''''''''''''''''''''''''''''''''''''
                                        Dim login,password,result
                                        '''''''''''''''''''''''''''''''''''''''''''''''''
                                        'Логин пароль
                                        '''''''''''''''''''''''''''''''''''''''''''''''''
                                        login = "****"
                                        password = "****"
                                        '''''''''''''''''''''''''''''''''''''''''''''''''




                                        crt.Screen.Synchronous = True

                                        result = crt.Screen.WaitForStrings ("All","!login:", "login:" ,30)

                                        If result > 1 Then

                                        crt.sleep 1000
                                        crt.screen.send login & VbCr


                                        crt.Screen.WaitForString "assword:"
                                        crt.Screen.Send password & VbCr

                                        crt.Screen.WaitForString "ENTER..."
                                        crt.Screen.Send VbCr



                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                        Dim fso,f,f1,fc,s,fstr,fstr1,fstr2,fname1,fname2

                                        Set fso=createobject( "Scripting.FileSystemObject")
                                        Set f = fso.GetFolder(Path)
                                        Set fc = f.Files
                                        For Each f1 in fc

                                        If Ucase(mid(f1.name,1,6)) & Ucase(right(f1.name,4))=Ucase(login) & Right("00" & Day(Now), 2) & Ucase(FileExp) Then
                                        fstr=fstr & f1.name
                                        crt.FileTransfer.AddToZmodemUploadList Path & f1.name
                                        End If

                                        If Ucase(mid(f1.name,1,6)) & Ucase(right(f1.name,4))=Ucase(login) & Right("00" & Day(Now), 2) & Ucase(FileExp1) Then
                                        fstr1=fstr1 & f1.name
                                        fname1=replace(f1.name,fso.GetExtensionName(f1.Path),"ipm")
                                        crt.FileTransfer.AddToZmodemUploadList Path & f1.name
                                        End If

                                        If Ucase(mid(f1.name,1,6)) & Ucase(right(f1.name,4))=Ucase(login) & Right("00" & Day(Now), 2) & Ucase(FileExp2) Then
                                        fstr2=fstr2 & f1.name
                                        crt.FileTransfer.AddToZmodemUploadList Path & f1.name
                                        fname2=replace(f1.name,fso.GetExtensionName(f1.Path),"skb")
                                        End If

                                        Next


                                        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                        fstr=fstr & fstr1 & fstr2
                                        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

                                        result = crt.Screen.WaitForStrings("?:",30)
                                        If (result > 0 And Len(fstr)>0) Then


                                        crt.Screen.Send "U" & VbCr


                                        'предворительные
                                        If len(fstr1)>0 Then
                                        crt.Screen.WaitForStrings fname1
                                        crt.Screen.Send fname1
                                        crt.Sleep(1000)
                                        crt.Screen.Send VbCr
                                        End If

                                        'справка по реестру
                                        If len(fstr2)>0 Then
                                        crt.Screen.WaitForStrings fname2
                                        crt.Screen.Send fname2
                                        crt.Sleep(1000)
                                        crt.Screen.Send VbCr
                                        End If



                                        result = crt.Screen.WaitForStrings("?:",30)
                                        If result > 0 Then


                                        '''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                        Set fso = createobject( "Scripting.FileSystemObject")
                                        Set f = fso.GetFolder(Path)
                                        Set fc = f.Files
                                        For Each f1 in fc
                                        fso.CopyFile Path & f1.name,PathArc & f1.name,true
                                        fso.DeleteFile Path & f1.name,true

                                        Next
                                        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                        crt.Screen.Send "G" & VbCr
                                        End If
                                        Else crt.Screen.Send VbCr
                                        crt.Screen.WaitForString "?:"
                                        crt.Screen.Send "G" & VbCr

                                        End If

                                        Do
                                        crt.Sleep 2000
                                        Loop While crt.Session.Connected
                                        crt.quit
                                        Else
                                        MsgBox "Ошибка Соединения"
                                        crt.quit
                                        End If
                                        crt.Screen.Synchronous = False


                                        End Sub
                                        С уважением,
                                        Александр

                                        Комментарий


                                        • #21
                                          при покупке CRT для МЦИ требуется базовая весрия или еще и upgrade CRT to SecureCRT ?

                                          Комментарий


                                          • #22
                                            Можно просто CRT,
                                            но лучше поищите что-нибудь другое.

                                            Комментарий

                                            Пользователи, просматривающие эту тему

                                            Свернуть

                                            Присутствует 1. Участников: 0, гостей: 1.

                                            Обработка...
                                            X