Криптор vbs

Да не тот, мне нужен когда вручную вводить путь

 

Dimi4, теперь понял, а что именно тебе надо, чтоб вылезал обычный inputbox или диалог выбора файла?

 

диалог выбора файла или паки.Потом штоб инфа кидалась на текст бокс

 

В vbs нету текстбоксов, они есть в ВБ, кстати вроде выбор файла будет работать только на xp и выше не проверял

выбор файла

Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "WSH скрипты (*.vbs, *.js)|*.vbs;*.js|Все файлы (*.*)|*.*"
objDialog.FilterIndex = 2
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then
MsgBox "Файл не выбран!", vbInformation
Else
Wscript.Echo objDialog.FileName
End If

выбор папки
On Error Resume Next
Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.BrowseForFolder(0, "Выбор папки", 0, "C:\")
MsgBox objFolder.Self.Path, vbInformation
If Err.Number <> 0 Then
MsgBox "Папка не выбрана!", vbInformation
End If

еще один способ выбора файла
Set objDialog = CreateObject("SAFRCFileDlg.FileOpen")
intResult = objDialog.OpenFileOpenDlg
WScript.Echo "Результат операции: " & CStr(intResult)
WScript.Echo "Выбран файл: " & objDialog.FileName

 

гы, нету, но ведь можна их сделать с помошью хтмл и внутрь файла вставить код на вижал бейсике, он прекрасно работает в браузере, по крайней мере в ИЕ. Да, расширение уже нуна будет хтм или хтмл поставить. Вот вам и полноценная форма

 

Shred, не, лучше расширение сделать .hta тогда будет похоже на обычную прогу

 

каспер недавно стал палить криптор, я сделал полиморфный криптор vbs файлов, криптор написан на VB6:

http://grob-t.narod.ru/vbs-cryptor.rar

пасс на архив - 666

 

блин какая то ошибка выходит типо прошло много времени!!!

 

sakauri, это из-за пустых строчек в конце твоего файла, обновил ссылку перекачай еще раз