Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> помогите плз разобраться с кодом VBscript 
:(
    Опции темы
HiVeR
Дата 8.7.2008, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
есть вот такая часть кода:
Код

...
WScript.Sleep 500
      set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "radmin.exe /connect:" & intValue & ":4899 /telnet"
WScript.Sleep 500
WshShell.AppActivate "Enter password for <Entry name>"
WshShell.SendKeys line
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
loop
       objTextFile.Close
   Else
       WScript.Echo Filename & "does not exists"
   End If
End If

объясните пожалста, что тут делаетсяsmile
есть другая часть кода, но там я болеменее разобрался, а тут посложнее...
PM MAIL   Вверх
I_Am_Rock
Дата 8.7.2008, 22:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 12
Всего: 15
Могу, конечно, ошибаться. Пусть меня поправят если что.

См. комментарии
Код

...
WScript.Sleep 500 ' Пауза (на полсекунды)
      set WshShell = WScript.CreateObject("WScript.Shell") ' Создание объекта WshShell 
WshShell.Run "radmin.exe /connect:" & intValue & ":4899 /telnet" ' Запускаем программу radmin.exe с параметрами. Обрати внимание на интВалу - вероятно число, присвоенное ранее
WScript.Sleep 500 ' Пауза
WshShell.AppActivate "Enter password for <Entry name>" ' Точно не знаю, но кажется выводит сообщение Введи пароль для ЭнтриНэйм
WshShell.SendKeys line ' Посылает клавишу (line - на другую линию наверное переводит)
WScript.Sleep 500 ' Пауза
WshShell.SendKeys "{ENTER}" ' Нажимаем Энтер
WScript.Sleep 200 ' Пауза (на пятую часть секунды)
WshShell.SendKeys "{ENTER}" ' Опять нажимаем Энтер
loop '  Конец цикла. По всей видимости в верхнем куске кода есть начало (по-моему, "Do")
       objTextFile.Close ' Закрываем ранее открытый файл
   Else ' См. в верхнем куске кода есть начало условного оператора (if), а это - если то условие неверно
       WScript.Echo Filename & "does not exists" ' Пишем - Такой-то файл не существует 
   End If ' Конец условного оператора
End If ' Конец другого усл. оператора 


Это сообщение отредактировал(а) I_Am_Rock - 8.7.2008, 22:14
PM MAIL WWW   Вверх
HiVeR
Дата 8.7.2008, 22:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(I_Am_Rock @ 8.7.2008,  22:08)
Могу, конечно, ошибаться. Пусть меня поправят если что.

См. комментарии
Код

...
WScript.Sleep 500 ' Пауза (на полсекунды)
      set WshShell = WScript.CreateObject("WScript.Shell") ' Создание объекта WshShell 
WshShell.Run "radmin.exe /connect:" & intValue & ":4899 /telnet" ' Запускаем программу radmin.exe с параметрами. Обрати внимание на интВалу - вероятно число, присвоенное ранее
WScript.Sleep 500 ' Пауза
WshShell.AppActivate "Enter password for <Entry name>" ' Точно не знаю, но кажется выводит сообщение Введи пароль для ЭнтриНэйм
WshShell.SendKeys line ' Посылает клавишу (line - на другую линию наверное переводит)
WScript.Sleep 500 ' Пауза
WshShell.SendKeys "{ENTER}" ' Нажимаем Энтер
WScript.Sleep 200 ' Пауза (на пятую часть секунды)
WshShell.SendKeys "{ENTER}" ' Опять нажимаем Энтер
loop '  Конец цикла. По всей видимости в верхнем куске кода есть начало (по-моему, "Do")
       objTextFile.Close ' Закрываем ранее открытый файл
   Else ' См. в верхнем куске кода есть начало условного оператора (if), а это - если то условие неверно
       WScript.Echo Filename & "does not exists" ' Пишем - Такой-то файл не существует 
   End If ' Конец условного оператора
End If ' Конец другого усл. оператора 

I_Am_Rock, спасибо большое), думаю там всё без ошибок, по крайней мере самое важное ты разъяснил)), жалко + не могу поставить
PM MAIL   Вверх
I_Am_Rock
Дата 9.7.2008, 09:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 12
Всего: 15
Пожалуйста.)
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0425 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.