VPF::Как из VBScript выводить на консоль?

leniviy

Дата 10.10.2003, 11:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 552
Регистрация: 8.2.2003
Где: Спб

Репутация: нет
Всего: 5

Говорит, что-то про "несоответсвие типа 'print' "

Pugach

Дата 3.4.2007, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 3.10.2006

Репутация: 1
Всего: 1

Не знаю, что конкретно тебе надо, но вот пример записи в консольное приложение текста
(текст находится в переменной Txt):
Процедура SendMyKey имитирует нажатие клавиш.
Только есть проблема, не получается нажать Enter

Код


Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal cChar As Byte) As Integer
Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function OemKeyScan Lib "user32" (ByVal wOemChar As Integer) As Long
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2

Public Sub SendMyKey(ByVal c$)
 Dim vk%, scan%, oemchar$
    vk% = VkKeyScan(Asc(c$)) And &HFF
    oemchar$ = " " 
    CharToOem Left$(c$, 1), oemchar$
    scan% = OemKeyScan(Asc(oemchar$)) And &HFF
    keybd_event vk%, scan%, 0, 0
    keybd_event vk%, scan%, KEYEVENTF_KEYUP, 0
End Sub

Private Sub Command1_Click()
  Dim Txt As String
  Txt = "d13510"

  Открывается или создается консольное приложение

  Sleep 500
   For qqq1 = 1 To Len(Txt)
    Call SendMyKey(Mid(Txt, qqq1, 1))
   Next
End Sub

mihanik

Дата 3.4.2007, 12:08 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Хм...

Есть два сервера сценариев.
первый - Wscript.exe . Он в окно консоли, в которой исполняется, ничего не пишет.
второй - Cscript.exe. Вот это, как раз, консольный вариант...

Он пишет в консоль.
Стандартно

Код


Wscript.Echo "аргументы, для печати"

Установить сервер сценариев по умолчанию можно просто.
Пуск / Выполнить /

А далее

wscript.exe /h:wscript

Если нужен wscript.exe

и

cscript.exe /h:cscript

Если нужен cscript.exe

В принципе и wscript понимает команды Wscript.Echo , но выводит их в виде алертов...

Добавлено через 4 минуты и 3 секунды
Pugach,

SendKeys можно делать и без использования API...

Код


wscript.sendkeys "клавиши"

Кроме того VBS - безтиповой язык.
Там все переменные имеют тип Variant.

Т.е. команда типа

Цитата(Pugach @ 3.4.2007, 10:04

)

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Не прокатит из-за указания типа аргументов...

--------------------

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »