by Oddacon T. Ripper (2 Submissions)
Category: Jokes/Humor
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: 
(5 Votes)
Warp your computer with b0rkywarp, EXE 96KB!!! This app will list your system dir and randomly change color as icons scroll and melt the screen. Tons of feature's, Twip scalemode in Pixel, Z0rder, parsing array, image array, random RGB Progress Bar! After 100% is reached, it loops! Cool fatures using the hwnd property to make a form stay Ontop, create/delete a system tray icon, and disable the (x) button. ALso Disable ALT+F4 featur using the KeyDown function. Use Array's with z0rder, parsing array for file creation, image array create an animated GIF. Random RGB Color Progress Bar, Flaming Lables, Fake System Delete, melting effect, set and restore the system colors, it's all here folks, and under 100K\b!!!
Inputs
"Dirs.txt" For Input As #1
Assumes
I would love any feedback, esspecially to the system colors error in the public declare statement.
Code Returns
Kill App.Path & "Dirs.txt"
Side Effects
it wracks up a large chunk of the CPU... I'm having a conflict with the flaming label and the ammount of text that it can hold. the prjmain Form, loops when the system colors are set. because of the Private Declare Function.
API DeclarationsPrivate Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Download b0rkywarp (43 KB)
VBcoders