VBcoders Guest

Don't have an account yet? Register

Forgot Password?


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!!!

"Dirs.txt" For Input As #1
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 Declarations
Private 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

Rate b0rkywarp

Download b0rkywarp

Download b0rkywarp (43 KB)

b0rkywarp Comments

No comments have been posted about b0rkywarp. Why not be the first to post a comment about b0rkywarp.

Post your comment

0/1000 characters