| Вопрос: Почему не рабоате скрипт! | Добавлено: 12.11.10 04:48 |
Автор вопроса:  Евгений
|
|
Доброго времени суток
Есть vbs ксриптик 'Переменые наши для работы
Dim aFileLines() 'Запишем суда все строки файла i = 0 'Присваеваем значение 0 'Тут будет окно выбора файла с его параметрами Set objDialog = CreateObject("UserAccounts.CommonDialog") 'Создаем окно выбора файла objDialog.Filter = "WSH скрипты (*.vbs, *.js)|*.vbs;*.js|Все файлы (*.*)|*.*" 'Задаем типы файлов доступные для выбора objDialog.FilterIndex = 2 'Ставим флаг так сказать адем приоритет при открытии окна какому либо типы файла objDialog.InitialDir = "C:\" 'Откуда начинать выбор файла intResult = objDialog.ShowOpen 'Собсна открываем наше окошко выбора файла a= objDialog.FileName 'Присваеваем адресс файла On Error Resume Next 'Если ошибка то переходим к выполение следующего Set objFSO = CreateObject("Scripting.FileSystemObject") 'Подключаем СФО, создаем пустой файл 'Запускаем проверку на наличия файла If Not Err.Number = 0 Then 'Если файл не выбран или пустой то MsgBox "1.Возможно файл " & a & " Поврежден" & VbCrLf & "2.Необхадимо выбрать файл" 'Сообщение (& VbCrLf & пробел) WScript.Quit 'Закрытие нашего скрипта End If 'Закрытие проверки на выборку файла TextStream.Close 'Закрытие 'Начинаем собсна работу с нашим файлом Set objFile = FSO.GetFile(a) 'Переходим к нашему файлу Set objFile = objFSO.OpenTextFile(a, 1) 'Открываем файл для чтения 'Собсна начинаем работу со строками Do Until objFile.AtEndOfStream 'Запускаем цик пока не достигнут конец файла Redim Preserve aFileLines(i) 'Перезаписоваем нашу пременную aFileLines(i) = objFile.ReadLine 'Присваеваем новое значение i = i + 1 'Каждый раз увеличиваем на 1 Loop 'Повторяем собсна пока не кончится наши строки 'Заканчиваем работу и выводис то что получилось objFile.Close 'Стираем все что там есть For l = LBound(aFileLines) to UBound (aFileLines) 'Тут вместо вывода сообщения будет отправка его на на почту Set objIE = CreateObject("InternetExplorer.Application") 'Создаем обьект ИЕ эксплорер objIE.Navigate "http://4dzen.ru/anonymous-mail/" 'Идем на сайт Do 'Смотрим Loop Until objIE.readystate = 4 'Готовность нашего эксплорера Set objForm = objIE.Document.forms(1) 'Индекс формы =1 т к нету названия формы objForm.elements("yourname").value = "Василий Пупкин" 'Поля имя отправителя objForm.elements("mail").value = aFileLines(l) 'Адесс отправителя objForm.elements("to").value = aFileLines(l) 'Каму шлем objForm.elements("subject").value = "x" 'Тема письма objForm.elements("text").value = "xfgfdg" 'Текс письма objForm.submit("Отправить") While objIE.Busy 'Если эксплорер занет то ждем 0.3 сек WScript.Sleep 300 'То ждем 0.3 сек Wend 'Повторяем objIE.document.links.item(8).click() 'Жмем далее 8 кнопкаэксплорера objIE.quit 'Закрываем созданый обьект ИЕ WScript.Quit 'закрываем весь скрипт MsgBox aFileLines(l)'Выводим наши строки каждую в отдельном сообщении Next Коротко объясню Есть сайт http://4dzen.ru/anonymous-mail/ Для отправки почты написал под него скрипт чтоб отсылал ну методом POST подставлял мои строки и отсылал мне Потом зделал скрипт для выбора файла и чтоб читал его по строкам и выводил мне его в отдельном сообещниие потом просто поставляю строки в мои поля и отсылаю но почемуто не работает по отдельности эти 2 скрипта работают а как наичнаю подставлять считаные строки не рабеот ошибки не выдает но ничего не приходит обьясните где ошибка плизз?? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Just Вопросов: 4 Ответов: 330 |
Профиль | | #1 | Добавлено: 13.11.10 11:30 |
|
убери "On Error Resume Next" и посмотри в чем ошибка
или поставь "On Error GoTo 0" |
||
Страница: 1 |