Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 270
от 27.04.2006, 17:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 153, Экспертов: 28
В номере:Вопросов: 1, Ответов: 2


Вопрос № 41021: Здравствуйте, уважаемые эксперты. Подскажите, пожалуйста, адреса, где можно скачать литературу по VBScript для начального уровня - нужно написать файл .vbs для исполнения в автозагрузку, не могу разобраться как организовать цикл, как объявлять си...

Вопрос № 41.021
Здравствуйте, уважаемые эксперты.
Подскажите, пожалуйста, адреса, где можно скачать литературу по VBScript для начального уровня - нужно написать файл .vbs для исполнения в автозагрузку, не могу разобраться как организовать цикл, как объявлять системные переменные и т.д.
Спасибо.
Отправлен: 22.04.2006, 16:52
Вопрос задал: Anton_VSH (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Егоров Александр Санкт-Петербург
Здравствуйте, Anton_VSH!
http://books.kulichki.net/data/basicscript/vb1/
Ответ отправил: Егоров Александр Санкт-Петербург (статус: 1-ый класс)
Ответ отправлен: 22.04.2006, 18:13
Оценка за ответ: 5
Комментарий оценки:
Спасибо за ответ

Отвечает: Залетин Виталий Викторович
Здравствуйте, Anton_VSH!
Предлагаю вариант записи в автозагрузку любой программы:

========================
'Объявляем нужные переменные (в скриптах они все типа Variant)
dim r, sPath, sText

'Путь в реестре для автозагрузки
sPath="HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun"

'Создаем объект для чтения из реестра
set r=WScript.CreateObject("WScript.Shell")

'Читаем из реестра параметр
sText=r.RegRead(spath & "MoyaProga")
msgbox stext 'Сообщаем его значение

'Пишем новое значение
r.RegWrite sPath & "MoyaProga", "explorer"

'Чистим за собой память
Set r=Nothing
sText=vbNullString
sPath=vbNullString
========================

Циклы организовываются аналогично, как в полноценном бейсике, но с некоторымми ограничениями в цикле For:

For =StartValue To EndValue
...
Next
Т. е. после Next имя переменной писать ненадо.
Цикл While работает по старинке. Склеивание строк с помощью "&" не допускается - надо везде использовать "+". И нельзя использовать бейсиковские функции со знаком "$" на конце - надо использовать без него, т. е. те, которые возвращают значение типа Variant и потом преобразовывать их к нужному типу функциями CStr, CLng, CInt и т. д. (кстати, преобразование можно и ен делать - движок скрипта сам разберется - лишь бы переменная была правильная. Хотя существует настоятельная рекомендация проводить преобразование именно вручную - так программа или скрипт будут рабоатть быстрее, избавляя движок от проверок типа "что к чему" и я с этим согласен).

В принципе, это все, что надо знать, чтобы начать писать скрипты - далее дело за изучением объектов и все. Как по мне, этого хватит.
---------
Учиться никогда не поздно. Особенно программированию!
Ответ отправил: Залетин Виталий Викторович (статус: Студент)
Ответ отправлен: 23.04.2006, 13:44
Оценка за ответ: 4
Комментарий оценки:
Спасибо за ответ, но хотелось бы ссылочку на литературу в I-net.


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.30 от 09.04.2006
Яндекс Rambler's Top100

В избранное