VBNet - Форум - Автозапуск проги при входе в Windows

Вопрос: Автозапуск проги при входе в Windows Добавлено: 06.08.03 23:27

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

Я насчет кода из примеров.Автозапуск программы при входе Windows. Попробовал я этот код и что получилось: При входе в Windows запускается не моя программа а открывается папка где находиться прога с помощью Мой Компьютер. Объясните что не так сделал или исправьте код!
Ответить

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

Номер ответа: 1 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #1	Добавлено: 07.08.03 01:19
	Есть пример создания ярлыклыков, создай им ярлык от своей проги в автозагрузе. Пример у тебя в ящике! Ответить

Номер ответа: 2
Автор ответа:

Morpheus

Вопросов: 224
Ответов: 3777

Web-сайт: xury.zx6.ru
Профиль | | #2

Добавлено: 07.08.03 05:49

Лучше сделать так:

Sub Autorun(Autorun As Boolean)

On Error GoTo Err

Dim Reg As Object

Dim MyPath As String

If Autorun = True Then

'Autorun

MyPath = App.Path & "\" & App.EXEName & ".EXE"

Set Reg = CreateObject("WScript.Shell")

Reg.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MyProgName", MyPath

'Autorun

Else

'NoAutorun

MyPath = App.Path & "\" & App.EXEName & ".EXE"

Set Reg = CreateObject("WScript.Shell")

Reg.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MyProgName", MyPath

Reg.RegDelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MyProgName"

'NoAutorun

End If

Err:

End Sub

Ответить

Номер ответа: 3
Автор ответа:

NovichoK

Вопросов: 72
Ответов: 147

Профиль | | #3

Добавлено: 07.08.03 14:25

to Morpheus:

Спасибо, так работает а в чем разница, не могу понять!

Ответить

Номер ответа: 4
Автор ответа:

NovichoK

Вопросов: 72
Ответов: 147

Профиль | | #4

Добавлено: 07.08.03 14:40

to HACKER:

Спасибо за семпл, но тут есть пару вопросов, если сможешь объясни такие строки:

Enum ShortCutDest
    DeskTop
    Programs
    StartMenu
    StartUp
End Enum

Public Function CreateLink(dest As ShortCutDest, ByVal sName As String, ByVal sPath As String, Optional HotKey As String = "", Optional sIcon As String = "", Optional sWorkingDirectory As String = "", Optional sSubFolder As String = "", Optional WinStyle As Integer = vbNormalFocus)

В функции если можешь объясни что значит каждый параметр.

Ответить

Номер ответа: 5
Автор ответа:

Grayich

ICQ: 208280504

Вопросов: 56
Ответов: 164

Web-сайт: grayich.narod.ru
Профиль | | #5

Добавлено: 07.08.03 15:54

А кто знаеть как автозагружать прогу, если shell не explorer ?

И ключи Run и RunOnce и RunOnceEx не обрабатываются.

В качестве shell(а) стоит не explorer а прога наподобие Locker(а)

Ответить

Номер ответа: 6
Автор ответа:

univercal

ICQ: 173084484

Вопросов: 5
Ответов: 76

Web-сайт: univercal-s.narod.ru
Профиль | | #6

Добавлено: 07.08.03 16:18

Ключи Run и RunOnce не могут не обрабатываться!!!

Ответить

Номер ответа: 7
Автор ответа:

Grayich

ICQ: 208280504

Вопросов: 56
Ответов: 164

Web-сайт: grayich.narod.ru
Профиль | | #7

Добавлено: 07.08.03 16:35

Незнаю может прога их рубит . Но всетаки есть ли другие способы ?????

Я нашел пока тока один, это создание сервиса , что само по себе достаточно геморно .

Ответить

Номер ответа: 8
Автор ответа:

HACKER

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

Вопросов: 236
Ответов: 8362

Профиль | | #8

Добавлено: 07.08.03 23:36

to "NOVICHOK"

Вообще этот примерчик не я писал, та что точно сказать немогу, а вообще...

Public Function CreateLink это функция которая ярылки создает.

Enum ShortCutDest
    DeskTop
    Programs
    StartMenu
    StartUp
End Enum

Ну а эта фигня... Ну короче ты-же программе выбераешь где создать, а это доступных вариантов. Ну непомню точное название. Но это нужно обязательно!

Ответить

Номер ответа: 9
Автор ответа:

NovichoK

Вопросов: 72
Ответов: 147

Профиль | | #9

Добавлено: 08.08.03 00:24

to Hacker:

А где ты этот пример скачал?

Ответить

Номер ответа: 10 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #10	Добавлено: 08.08.03 00:28
	Я непомню, может даже на VBnet. Но это оригенал, я ничего не менял! Ответить

Номер ответа: 11
Автор ответа:

NovichoK

Вопросов: 72
Ответов: 147

Профиль | | #11

Добавлено: 08.08.03 00:33

Что ты такое там делаешь, что у тебя возникают такие разные вопросы???

Ответить

Номер ответа: 12
Автор ответа:

HACKER

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

Вопросов: 236
Ответов: 8362

Профиль | | #12

Добавлено: 08.08.03 00:45

Интернет революцию!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Ответить

Номер ответа: 13
Автор ответа:

Morpheus

Вопросов: 224
Ответов: 3777

Web-сайт: xury.zx6.ru
Профиль | | #13

Добавлено: 08.08.03 06:05

To "NOVICHOK":

как в чём разница?! скажем при написании вирусов будет совершенно неприемлимо сувать ярлык в автозагрузку!

Ответить

Номер ответа: 14 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #14	Добавлено: 08.08.03 21:09
	Обсалютно согласен! А ещё лучше к Explorer'у приклеяться, только как?... Ответить

Номер ответа: 15
Автор ответа:

DaSharm

ICQ: 780477

Вопросов: 72
Ответов: 1297

Web-сайт: dasharm.com
Профиль | | #15

Добавлено: 08.08.03 21:35

Еще есть способа!

Например, в system.ini дописать в run=имя твоей проги.Или в Autoexec.bat прописать

PATH=директория твоей проги.Или, самый наглый способ, при запуске, пусть прога создает авторан на диск C:, который запускает твою прогу (автораны, думаю, ты умееш писать).

Ответить

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