Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pokretanje screen saver-a iz VB programa

[es] :: Visual Basic 6 :: Pokretanje screen saver-a iz VB programa

[ Pregleda: 1504 | Odgovora: 2 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

Fedya
Fedor Hajdu
Senior Software Engeneer, Ammado Internet Services
Dublin // Novi Sad

Član broj: 28246
Poruke: 562
*.ptt.yu

Jabber: fedya@elitesecurity.org
Sajt: www.ammado.com


Profil

icon Pokretanje screen saver-a iz VB programa25.08.2004. u 10:25

Da li (i kako) je moguće pokrenuti aktivni (ne *.scr fajl) screen saver iz VB-a?
while ( ! ( succeed = try() ) );
25.08.2004. u 10:25 

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Pokretanje screen saver-a iz VB programa25.08.2004. u 10:31
Code:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
   (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long

Private Const WM_SYSCOMMAND = &H112&
Private Const SC_SCREENSAVE = &HF140&

Public Sub StartScreensaver()
  Dim lRet As Long
  
  lRet = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub
Blue Man Group
25.08.2004. u 10:31 

Fedya
Fedor Hajdu
Senior Software Engeneer, Ammado Internet Services
Dublin // Novi Sad

Član broj: 28246
Poruke: 562
*.ptt.yu

Jabber: fedya@elitesecurity.org
Sajt: www.ammado.com


Profil

icon Re: Pokretanje screen saver-a iz VB programa25.08.2004. u 23:34
Hvala.
while ( ! ( succeed = try() ) );
25.08.2004. u 23:34 

[es] :: Visual Basic 6 :: Pokretanje screen saver-a iz VB programa

[ Pregleda: 1504 | Odgovora: 2 ]

 Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.