Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Как и куда упрятать файлы? Добавлено: 11.08.09 15:40  

Автор вопроса:  turBO | Web-сайт: blitz3d.at.ua | ICQ: 451232820 

Ответить

  Ответы Всего ответов: 19  

Номер ответа: 16
Автор ответа:
 Дмитрий Юпатов



Вопросов: 4
Ответов: 457
  Web-сайт: cargomaster.at.ua/
 Профиль | | #16 		Добавлено: 12.08.09 16:31
Понятно :)

Ответить

Номер ответа: 17
Автор ответа:
 Unknown_Master



Вопросов: 11
Ответов: 264
  Профиль | | #17 Добавлено: 16.08.09 18:11
Можно таскатьь с собой 7зип или винрар, и архивировать с паролем, запуская их из под консоли.

Ответить

Номер ответа: 18
Автор ответа:
 Unknown_Master



Вопросов: 11
Ответов: 264
  Профиль | | #18 Добавлено: 16.08.09 18:21
P.S. ключи для винрара описаны в справке.
Вызов примерно такой :
  1. v = ShellExecute(Me.hwnd, "open", "cmd.exe", "/C rar.exe c -zee.txt install.exe ", App.Path, 1)


С ключами, думаю сам разберёшься.

Ответить

Номер ответа: 19
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #19 Добавлено: 22.08.09 06:32
turBO пишет:
Разве "ресурс" поддерживает добавление произвольных файлов?

Ога!
  1. Dim h As Long
  2. Dim txt As String
  3. h = BeginUpdateResource(FileName, 0)
  4. txt = "лалалалаблалалалаа"
  5. Call UpdateResource(h, "TEXT", "2", 1049, ByVal txt, Len(txt)) '1049 - ÿçûê
  6. Call EndUpdateResource(h, 0)

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам