Foro de elhacker.net

Option Explicit
'By Leandro Ascierto
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function SetSysColors Lib "user32.dll" (ByVal nChanges As Long, ByRef lpSysColor As Long, ByRef lpColorValues As Long) As Long
Private Declare Function GetSysColor Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Const COLOR_BACKGROUND As Long = 1
Private Const SPIF_UPDATEINIFILE As Long = &H1
Private Const SPIF_SENDWININICHANGE As Long = &H2
Private Const SPI_GETDESKWALLPAPER As Long = 115
Private Const SPI_SETDESKWALLPAPER As Long = 20
Dim lOldColor As Long
Dim sOldWallPaper As String

Private Sub Form_Load()
    Me.Visible = False
    Me.Move 0, 0, Screen.Width, Screen.Height
    sOldWallPaper = Space(255)
    SystemParametersInfo SPI_GETDESKWALLPAPER, 255, sOldWallPaper, 0
    lOldColor = GetSysColor(COLOR_BACKGROUND)

    Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, " ", 0)
    Call SetSysColors(1, COLOR_BACKGROUND, RGB(16, 0, 16))
    
    WindowsMediaPlayer1.Move 0, 0, Screen.Width, Screen.Height
    WindowsMediaPlayer1.URL = "http://tn.com.ar/vivo/metafile.asx"
    WindowsMediaPlayer1.stretchToFit = True
    Timer1.Interval = 1000
End Sub




Private Sub Timer1_Timer()
Static x As Long
x = x + 1
If x = 100 Then

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, sOldWallPaper, 0)
Call SetSysColors(1, COLOR_BACKGROUND, lOldColor)
Unload Me
End If
End Sub