Category : Windows 3.X Files
Archive : WLPEEP.ZIP
Filename : WALLPEEP.BAS
Output of file : WALLPEEP.BAS contained in archive : WLPEEP.ZIP
Declare Function GetActiveWindow Lib "User" ()
Declare Function BitBlt% Lib "gdi" (ByVal hDestDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal dwRop&)
Declare Function SendMessage% Lib "user" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam&)
Declare Function GetFocus% Lib "user" ()
Declare Function PutFocus% Lib "user" Alias "SetFocus" (ByVal hWnd%)
Declare Function PatBlt% Lib "gdi" (ByVal hDestDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal dwRop&)
Declare Function StretchBlt% Lib "GDI" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)
'Global Const FALSE = 0
'Global Const TRUE = -1
Global Metafile As Integer
Global DirName(1 To 10000) As String
Global Dirs As Integer
Global Focus
Global SavedDrive$
Global Loading%
Global LBWidth%
Global LBHeight%
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/