by Matthew Acosta (Fr0st) (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 23rd June 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Gets the 'secret' words behind the **** asterisk.
API Declarations
'go get this bas...makes this stuff easier and no bull from non bas files.
'http://www.crosswinds.net/~thenewreign2/
'Make a cammand button...name it Command1
'This is for copy cats such as gates.
'It's ok to use your own code but copying and stealing don't mix.
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePointer = 10
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePointer = 0
GetCursorPos pnt
yhwnd% = WindowFromPoint(pnt.X, pnt.Y)
Text1 = GetCaption(yhwnd%)
End Sub