Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jeszcze raz Autostart
xEagle2



Typ: neutral
Postów: 280
Zarejestrowany: Jul 2003
Jeszcze raz Autostart

Jak dodać skrót swojego programu do autostartu

Start->Programy->Autostart

To odpada:
Grzebanie w rejestrach
Grzebanie w win.ini




_____________________________________________
Co oznacza NET ? Natychmiastowa Eksplozja Trojanów

10-08-2004 21:08
Pokaż profil xEagle2  Wyślij email do xEagle2       
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

To wrzuć sobie skrót do tego programu do C:\Windows\Menu Start\Programy\Autostart.


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


11-08-2004 10:13
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
xEagle2



Typ: neutral
Postów: 280
Zarejestrowany: Jul 2003

Stary jak na to wpadłeś ?? zaskoczyłeś mnie
Ale powiedz mistrzu jak utworzyć skrót i go tam wrzucić !

[Post edytowany dnia 11-08-2004 11:14 przez xEagle2]


_____________________________________________
Co oznacza NET ? Natychmiastowa Eksplozja Trojanów

11-08-2004 11:14
Pokaż profil xEagle2  Wyślij email do xEagle2       
i-spy



Typ: neutral
Postów: 44
Zarejestrowany: Apr 2004

Hello

To moze niech program tworzy plik o rozszerzeniu BAT i do niego wpisz sciezke do aplikacji tak, aby "bacik" uruchamial program. Plik przekopiuj do autostartu.
Mam nadzieje ze rozumiesz

Pozdrawiam


_____________________________________________
Oto moja pasja...
www.vbprograms.prv.pl
!Zapraszam

11-08-2004 11:53
Pokaż profil i-spy  Wyślij email do i-spy   Odwiedź stronę i-spy       2121177
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

"Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania! " - BEZ KOMENTARZA .

A tak na poważnie, to jakbyś zajrzał do VBFAQ, to byś się dowiedział. Proszę:

Jeden sposób to użycie funkcji fCreateShellLink, eksportowanej przez stkit432.dll (w VB 4.0), vb5stkit.dll (VB 5.0) lub vb6stkit.dll (VB 6.0). Przykład podany jest w MSDN (
Q155303  - http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q155/3/03.asp&NoWebContent=1).

Drugi sposób to użycie WSH (Windows Scripting Host):

  Dim x As New IWshRuntimeLibrary.IWshShell_Class
  Dim y As IWshShortcut_Class
 
  Set y = x.CreateShortcut("c:my_shortie.lnk"
  'troche wbrew nazwie mozna tez w ten sposob otwierac istniejace skroty
  y.Arguments = "/?"
  y.Description = "Uh-oh..."
  y.Hotkey = "Shift+Alt+Q"
  y.IconLocation = "d:abc.ico"
  ' jesli w pliku jest kilka ikon to:
  'y.IconLocation = "g:winword.exe,6"
  y.TargetPath = "i:test.exe"
  y.WindowStyle = 3
  'wartosci WindowStyle:
  ' 1 - Normal Window
  ' 3 - Maximized
  ' 7 - Minimized
  y.WorkingDirectory = "j:"
  y.Save


Trzeci sposób to skorzystanie z przykładu dostarczanego z VB 5 i 6 (dla VB 6.0 znajduje się on na CD w katalogu commontoolsvbunsupprtshelllnk). Wystarczy skopiować plik shelllnk.tlb i dodać go do projektu przez Project | References | Browse. Przykład użycia:


  Dim x As IShellLinkA.ShellLinkA
  Dim y As IShellLinkA.IPersistFile
 
  Set x = New ShellLinkA
  Set y = x
 
  x.SetArguments "/?"
  x.SetDescription "Uh-oh..."
  x.SetIconLocation "d:abc.ico", 6
  x.SetPath "i:test.exe"
  x.SetShowCmd 3
  x.SetWorkingDirectory "j:"
  y.Save StrConv("c:my_shortie.lnk", vbUnicode), 0
 
  Set y = Nothing
  Set x = Nothing


[Post edytowany dnia 11-08-2004 12:26 przez Viper87]


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


11-08-2004 12:25
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

Widze Viper że mnie cytujesz hehehe Pozdoro4all


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

11-08-2004 14:23
Pokaż profil m-a-x  Wyślij email do m-a-x   
xEagle2



Typ: neutral
Postów: 280
Zarejestrowany: Jul 2003

i-spy a jak moge zamknąć to okienko od BAT`a ?


_____________________________________________
Co oznacza NET ? Natychmiastowa Eksplozja Trojanów

12-08-2004 10:52
Pokaż profil xEagle2  Wyślij email do xEagle2       
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

hehe najlepiej by bylo stworzyć skrót do tego bata w tym samym folderze i w nim ustawić aby bylo zamykane okienko po wykonaniu zadania ale w tym momencie wracamy do pierwszego problemu.

Próbując pomóc koledze napisałem sobie programik który mial mi zamknąć to okienko no i problem - bo niby wszystko sie zgadza ale okienka nie zamyka - nie wiem czemu. Oto jego kod:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
    Dim hwnd As Long
    hwnd = FindWindow("tty", nazwa_pliku_bat_bez_rozszerzenia)
    If hwnd <> 0 Then DestroyWindow hwnd
End Sub


Na początku zastosowałem CloseWindow ale potem doczytałem że efektem będzie zminimalizowanie okienka - co zresztą się działo a DestroyWindow nic nie robi, nie wyskakuje też żaden error itp.

Tak na marginesie - zamiast FindWindow można zastosować GetForegroundWindow jednak to zadziała jedynie wyedy gdy okno konsoli jest aktywne. I jest to sposób nie zabardzo bezpieczny bo możesz przez przypadek zamknąć inny program.

Bawienie się w zabijanie procesów chyba nie ma sensu ale też jest to rozwiązanie

[Post edytowany dnia 12-08-2004 17:17 przez m-a-x]


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

12-08-2004 17:16
Pokaż profil m-a-x  Wyślij email do m-a-x   
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

To dlatego, że nie możesz zniszczyć okna należącego do innego procesu funkcją DestroyWindow.

Zamist tego możesz wysłać do odpowiedniego okna wiadomości:
WM_DESTROY
WM_NCDESTROY

Działa.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

13-08-2004 08:48
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

no kurcze nie wiem co jest - wysyłam WM_DESTROY, WM_NCDESTROY za pomocą SendMessage do tego okna i dalej nic się nie dzieje. Mógłbyś wrzucić tutaj kawalek kodu? Nie wiem już sam - może coś parametry skopałem


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

14-08-2004 15:47
Pokaż profil m-a-x  Wyślij email do m-a-x   
xEagle2



Typ: neutral
Postów: 280
Zarejestrowany: Jul 2003
Nadal nie wiem

Jak napisałem w bacie

C:\mojprogram\mojprogram.exe

to zostało taki przytkie okienko dosowe więc co mam dopisać w tym bacie aby sie usuneło

...:::Ikonka:::...

A moge jeszcze dać ikonke temu bacikowi ? tylko temu jednemu  ?


_____________________________________________
Co oznacza NET ? Natychmiastowa Eksplozja Trojanów

14-08-2004 15:54
Pokaż profil xEagle2  Wyślij email do xEagle2       
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Bo wysyłasz wiadomosci odwrotnie - wyślij najpierw NCDESTROY, a potem DESTROY.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

14-08-2004 17:34
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 11 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1