[VB6]Come creare uno screen saver

[XBarboX]

Salve,
devo creare uno screen saver in visual basic.
Ho seguito molte guide come questa (http://support.microsoft.com/kb/106239) ma non funziona!
Ecco il mio problema:
ho creato una ventina di screen saver, tutti funzionanti(se cliccavo su prova andava, se su impostazioni apriva la corretta finestra...) mentre se lasciavo in inattività il pc saltava fuori tutt'altro che il mio screen saver: http://www.pierotofy.it/pages/extras...3&attachment=0
Notare la mini-finestra in basso a sinistra...
Come mai il mio screen saver appare così e non come quando clicco su prova?

Allego il codice:

Private Declare Function SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
        ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
        ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Declare Function ShowCursor Lib "user32" _
        (ByVal bShow As Long) As Long
        
        Sub AlwaysOnTop(FrmID As Form, OnTop As Boolean)
   Const SWP_NOMOVE = 2
   Const SWP_NOSIZE = 1
   Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
   Const HWND_TOPMOST = -1
   Const HWND_NOTOPMOST = -2
 
   If OnTop Then
      OnTop = SetWindowPos(FrmID.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
   Else
      OnTop = SetWindowPos(FrmID.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
   End If
End Sub



Private Sub Form_Click()
Static Count As Integer
Count = Count + 1
If Count > 5 Then
   Unload Me
End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Static Count As Integer
Count = Count + 1
If Count > 5 Then
   Unload Me
End If
End Sub

Private Sub Form_Load()
Select Case LCase(Left(Command, 2))
    Case "/p": End
    Case "/s"
    Case Else: Me.Hide: frmSettings.Show: Exit Sub
End Select
 
Dim X As Integer
Call AlwaysOnTop(Me, True)
X = ShowCursor(False)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static Count As Integer
Count = Count + 1
If Count > 5 Then
   Unload Me
End If


End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim X As Integer
X = ShowCursor(True)
End Sub

[oregon]

Hai letto il regolamento ?

Devi indicare la versione di VB nel titolo ...

E comunque ... come si attiva il tuo screen saver? Quanto dici "clicco su prova" parli di un button o di cosa?

[XBarboX]

Allora gli screen saver sono dei normali .exe che vengono eseguiti da windows.
Infatti basta creare un qualunque .exe rinominarlo in .scr copiarlo in c:\windows\system 32 e se si fa destro sul desktop e poi proprietà\screen saver si può scegliere lo screen saver.
Prova a copiare l'eseguibile in system 32 e poi a sceglierelo come screen saver, vedrai che non funzionerà

[XBarboX]

riuploaddo l'immagine http://www.pierotofy.it/pages/extras...9&attachment=0

[oregon]

Originariamente inviato da XBarboX
Allora gli screen saver sono dei normali .exe che vengono eseguiti da windows.

Grazie per la lezione ... penso di sapere cosa sono gli screen saver ...

Probabilmente non hai impostato la modalità di visualizzazione del form quando lo esegui ...

Inserisci un

Me.WindowState = vbMaximized

nella Load ...

[XBarboX]

Puoi per favore corregere il programma? Io ho provato a fare come hai detto ma non funziona. Sono veramente nei guai se non riesco a farlo entro oggi quel programma. Sei un grande

Ecco il progetto: http://sapientia.altervista.org/ss.rar

[XBarboX]

SIIIIIIIIIIIIIIII ce l'ho fatta. TI AMO TI DEVO una birra!

[oregon]

Originariamente inviato da XBarboX
Puoi per favore corregere il programma? Io ho provato a fare come hai detto ma non funziona.

Che vuol dire "non funziona"?

Ho provato e ottengo tutto lo schermo nero (come il form) ... cosa dovrebbe succedere?

Sono veramente nei guai se non riesco a farlo entro oggi quel programma.

Te l'ho già detto ... questo non è rilevante ...

[XBarboX]

ho risolto grazie

[oregon]

Originariamente inviato da XBarboX
ho risolto grazie

E lasci tutti cosi' ? Cosa è successo?