jf
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кстати, V-Dialer умеет работать со скриптами Visual Basic.
К примеру:
Код: Откройте блокнот и скопируйте туда через буфер обмена нижеследующий текст. Сохраните на жестком диске с расширением VBS. Если у Вас на компьютере стоит поддержка VBScript, этот файл можно запустить как обычную программу.
'***********************************************************
'***********************************************************
' Пример управления программой VDialer3 при помощи VBScript
' Управление дозвоном
' (C)2000 Vadim Antonyanc
'***********************************************************
'***********************************************************
Option Explicit
Public V, ExitScript, TimeDisconnect
Call Main
'*******************
' Основной код
'*******************
Sub Main()
Dim I
ExitScript = False
TimeDisconnect = InputBox("Введите время выключения программы." _
& (Chr(13) & Chr(10)) & "Внимательно соблюдайте формат воода данных!" _
& (Chr(13) & Chr(10)) & "В окне ввода отражено текущее время.", "Введите время", Time)
If (TimeDisconnect = "") Then
I = MsgBox("Ошибка ввода", vbOKOnly + vbCritical)
Exit Sub
End If
'Создание объекта автоматизации
Set V = WScript.CreateObject("VDialer3.VDialerServer")
V.HigeMainForm
Call StartDial
Call RunWorks
End Sub
'Начало дозвона
Sub StartDial()
TimeOut (2)
V.dial
End Sub
'Процедура создания временных задержек
'Входной параметр в секундах
Sub TimeOut(T)
Dim I, Y
I = Int(T / 10)
For Y = 0 To I
V.SleepTime
Next
End Sub
Sub CheckState(S)
Select Case S
Case "Dialing"
Case "Connected"
Case "Disconnected"
Case "Erro_r" 'ExitScript = true
End Select
If (TimeValue(TimeDisconnect) < TimeValue(Time)) Then
ExitScript = True
End If
End Sub
'Основная процедура обработчика событий
Sub RunWorks()
Dim S
Do While (True)
TimeOut (2) 'Задержка на 2 секунды
S = V.GetStateDial 'Проверка состояния программы
Call CheckState(S)
If (ExitScript) Then
V.Disconnect
V.SaveParamServ 'Сохранение данных программы
TimeOut (3)
Set V = Nothing 'Деструктуризация объекта
Exit Do
End If
Loop
End Sub
'*******************
'******************* |
Да, и можно написать автору, с предложением или вопросом по скриптам. У меня был один вопрос, автор ответил в течение 12 часов. |
