Gör din egen skärmsläckare i VB

Att göra en egen skärmsläckare i Visual Basic är inte särskilt svårt. Egentligen är det bara en .exe-fil omdöpt till.scr med några små modifikationer.

På den här sidan kan du läsa hur man gör en väldigt enkel skärmsläckare (en text som hoppar runt på rutan).
Om du inte vill/orkar skriva in koden kan du hämta den här.

1. Skapa ett nytt formulär.
2. Sätt WINDOWSTATE till: 2-Maximized och BORDERSTYLE till: 0 - None.
3. Skapa en LABEL, döp den till lblText och skriv någonting i den.
4. Skapa en TIMER, döp den till Timer, sätt INTERVAL till 500 och se till att ENABLED är TRUE.
5. I PRIVATE SUB Form_Load() skriver du:
Randomize

If Command$ = "/c" Then
MsgBox "Inga inställningar tillgängliga."
Unload Me
Exit Sub
End If

If Command$ <> "/s" Or App.PrevInstance Then
Unload Me
Exit Sub
End If

End Sub

Nu behövs kanske lite förklarning. If Command$ = "/c" betyder att man trycker på knappen "Inställningar", vi bryr oss inte om att göra några inställningar nu.

If Command$ <> "/s" Or App.PrevInstance betyder att den kollar om någon annan skärmsläckare är igång (App.PrevInstance) och så att den startas med /s-parametern vilket den gör normalt.

6. I PRIVATE SUB Timer_Timer() skriver du:
lblText.Move Int(Rnd * 8000), Int(Rnd * 8000)
Detta kommer att flytta runt texten lite grann.

7. För att den ska avslutas när man rör på musen måste vi skriva lite i PRIVATE SUB Form_MouseMove:
Static Flyttad As Integer
Flyttad = Flyttad + 1
If Flyttad = 10 Then
Unload Me
End If
End Sub

Eftersom Windows av någon anledning alltid rör musen när ett program körs igång måste man göra som ovan.

Så där ja! Då var det klart. För att kunna testa skämsläckare i VB måste du lägga till parametern /s (If Command$ <> "/s"), det gör du genom att gå in i menyn PROJECT och välja den understa, där det står något liknande Project1 Properties. Välj fliken Make och skriv /s i Command Line Arguments:.

Om du vill använda skärmsläckaren i Windows döper du filen till xxxxx.scr (där xxxxx är ett namn av eget val) och lägger den i Windows-katalogen.