ВОПРОС КОТОРЫМ ВСЕМ НАДОЕЛ!

[HugoFlex]

Ребята я недавно прочитал тему про ВОПРОС О КОПИРОВАНИЕ И ЗАПУСК!, которую я не зная о его существование поднял тему про КАК СДЕЛАТЬ ТАК, ЧТОБЫ ПРОГРАММА СОЗДАВАЛА СВОИ КОПИИ. Так я там угарал над ZipFeR'ом, как он своими тупыми ответами то что у него не получается ни чего, потому что он пишет код совсем неправильно. Но я полностью узнал ответы к этому вопросу, и конечно спасибо за код от GM.
Так же узнал что можно добавит ключ в реестр таким способом:

Код: Выделить всё

Set Reg = CreateObject("WScript.Shell")
   Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\MyProg", Environ("windir") & "\" & "MyProg"

а удалить:

Код: Выделить всё

Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\MyProg"

На самом деле я ни пишу когого-то трояна или подобно этому. Мне это совсем ни кчему, к тому же я и не такой уж опытный программист. Это просто я хотел подшутить над своим приятелем. В своё время он тоже надомной прикольнулся.

Спасибо за внимание! И всем удачи при программирование.

[ZipFeR]

Ох, ну спасибо добрый маг форумов, епт

[HugoFlex]

Ох, ну спасибо добрый маг форумов, епт

Что это значит епт, я что то не понял?

А насчёт тебя, я говорю то что на самом деле! Так что без обидов!

[LeoPoLD]

HugoFlex дело говорит. Если ты(ZipFeR) прораммируешь на VB то уж потрудьсь хотябы руководство начинающего программиста почитать или какую другую книжку-самоучитель там много примеров и самому допереть можно, а лучше читай встроеный хелп по вызову процедуры или какой-либо другой команды, помогает!!! И вообще че тут я делаю. Инет для чего найти сложно. Или же у тебя другая цель.
А тот троянчик каторый ты... (сделал) я усовершенствовал и испробован на своей любимой учительнице по ИНФОМАТИке. Было ВЕСЕЛО!!! Zip Асю мою знаешь что пиши

[iolaus]

ну в таком случае можно еще и считать...

Код: Выделить всё

Set Reg = CreateObject("WScript.Shell")
Label1.Caption = Reg.RegRead("HKEY_LOCAL_MACHINE\Software\iolaus\CoolPlayer\FileType")