luni, 21 iulie 2008

Total Commander - Ftp upload - Daniel Stefan

Total Commander - Ftp upload - Daniel Stefan

miercuri, 16 iulie 2008

Script nou pt site - Daniel Stefan

Script nou pt site - Daniel Stefan

http://download.simplemachines.org/

Personal nu l`am testat inca

joi, 10 iulie 2008

Cum poti schimba wallpaperul de pe desktop din VIsual Basic

Cum poti schimba wallpaperul de pe desktop din Visual Basic

Option Explicit
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 Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPI_SETDESKWALLPAPER = 20

Private Sub Form_Load()
ChangeWallPaper
End
End Sub
Private Sub ChangeWallPaper()
Dim ret As Long
Dim t As Integer
fl.Path = App.Path
fl.Pattern = "*.bmp;*.jpg"
fl.Refresh
Randomize
t = Int((fl.ListCount * Rnd))

ret = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, fl.Path & "\" & fl.List(t), SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub

Coduri sursa - Daniel Stefan

Coduri sursa - Daniel Stefan

http://planet-source-code.com/

joi, 3 iulie 2008

Ca sa-i vezi pe cei care stau pe invizibil pe messenger

Ca sa-i vezi pe cei care stau pe invizibil pe messenger

Daca o sa te chinui putin o sa gasesti(pe siteurile de specialitate) si ceva care o sa`l faca sa fie mai mult decat versiune demo.

http://www.nuotex.com/buddycheck/