by Fire2Burn (1 Submission)
Category: Graphics
Compatability: VB Script
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(11 Votes)
The code let you see how easy it is to make your own screenmate. Import some sounds , more animations and actions.
No Flicker at all!!
Try it out, it is not the most advanced code there is but it is just a little start.
I'll made this code by my selfs, please vote.thanx
Inputs
n/a
Assumes
n/a
Code Returns
n/a
Side Effects
n/a
API DeclarationsPrivate Const LWA_COLORKEY = 1
Private Const LWA_ALPHA = 2
Private Const LWA_BOTH = 3
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = -20
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal color As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
VBcoders