MidNight Sheep Grazer - Do a Lot of Star Gazing
Thought I Would show off my Code Today
for About Five Hour
That I 'm Largely Proud Of
Enjoy at Will
Another Day Added Note -- Sat 28 May
-- Re-Read Proof Read All That Code
-- All That To Switch Something Off When Something Else Is Switched Off
-- All That And Switch Something On When Something Else Is Switched On
-- Is Absolutely Fucking Stupid Mental Pot Plant
-- All Because a Lacking Exclude Block Script Black Script List
-- And Only Include -- Round the Wrong Way
-- And only took me Five Hour for the Main Core Code Bit
-- Still Longer Than I Would Want
-- Being Indoors When there Was a Sunny Day Outdoor
-- Just My Luck Looking at Pixel's Lighting Up
-- I Got More Like That
-- Many Program to Allow Program of Your Own Choice When Something Happen
-- Example Synchronizing
-- NVidia Graphic Video Chip Software Would Be Good If Detect a Program Running to Switch a Resolution for That Mode
-- Still a Good Resolution Switch Program is Making a Upraising on the Software Front
-- when it comes to using external monitor and clone and internal display
-- of which internal display are a bottleneck in low quality resolution where clone happen
-- Edit Done 4:32 Pm -- Sat 28 May
Night Before Sat 28 May
I found a New Bug workaround to KatMouse
Seem The Focus Area for You to Be In When Scroll With Wheel
Answer You Have to Be Like In the Top Left Corner Quarter Square of Any Box You Working to Scroll
Or If Not it \Seem to Multiply and if Say Like at Bottom Corner
Might Move Another Window Instead of one Working On
Result Good Workaround
----
By Matthew Lancaster
http://roidsrim.blogspot.co.uk/2016/05/KatMouse-By-Eduard-Hiti-With-My-Code.html
Matt.Lan@btinternet.com
----
If You Interest Is Held By This Kind of Thing on The Internet
----
This Code Will Remove KatMouse When Not Using in VB6 IDEand Reload When You Want to Use in the VB6 IDE
Because Exclude Limitation and then Complex Include Set Up
----
Without Scroll Wheel in Visual Studio for Basic 6 Virtually Impossible
Other Way Visual Basic Code is Okay With Scroll Wheel When Running
----
Once I Thought to Use a Code the Same Myself
as I Found Code to Harness the Scroll Bar
----
But The Code Had Limit Fault Where a Large Box the Scroll Bar Handling was Clipped to Not Reach the Bottom
----
Dreadful Wanker on My Computer When I Could Be Exercise Outdoor
I Will Get Some Time Moment for That Pleasure Activity One Day
----
I Promise I was Going to Send a Blog of My Win XP Setup Batch Script Next or Soon
But This Beat Me to It
Well I still Got Win 7 and 64 Bit Win7 and Win 10 to Do
----
----
Also, My Batch of Check Disk Program Will Gets an Edit
as the Sound Player Program is an XP Program and Win 7 Don't Use
but Answer is Use a Copy of the Sound Player From XP in Win 7
Code Look at Bit Better - Visual Stunning
than Batch Command Language
----
Hope YOU Like IT
Hope You Humanoid Are All Well
And Birds and Bee'
Living Like Like Like a Cave Man in the Bitter Element
It Still Cold on a Summer Night
Welcome to Suggest Me Another Idea of Code
I Got Enough Anyhow
Just a Spontaneous Brain Wave Idea Today
to End the Problem to do With Make Code Easy
Kay Mouse is a Tool to Allow Scroll a Window
Where Such Thing as Visual Studio v6 Doesn't Allow
I Like the Trickiness of It With a Timer SUB and Many Latching including other Time Set Variable
It Is Quite a Brave Thing of Me to Show How I Write Rem Statement
Which are Usual Too Shy for Me to Show my Code
and then they never see the Light of Day
Except in Running Version's
-----
Top Mark Prize Award for Read All My Rem Statement
-----
Nice to Use a Rem and Code Spell Checker Like Grammarly
-----
and Upper Case WORD-IN Work -- Word Play
on Spell Check in Own Web Page Based Environment
-----
======================================================
======================================================
KAT MP3 VB6 CODE
------------------------------------------------------
I FEEL I WANT TO SHOW OFF MY WORK TODAY
TO PROVE MY WORTH
------------------------------------------------------
FEEDBACK BE NICE - GLAD TO HEAR FROM YOU
-- ESPECIALLY IF WAS BE AUTHOR OF KATMOUSE
IN MY LANGAUGE
FEEDBACK TO AUTHOR ALSO ENCOURAGED
WELCOME I HAVE NOT YET
------------------------------------------------------
======================================================
MATTHEW LANCASTER -- ROIDSRIM
MATT.LAN@ BTINTERNET.COM
======================================================
--------
katmouse
--------
Lockergnome Award Software.
Informer Editor 's pick award
Mouse wheel enhancement for Windows (screen shot)
written by Eduard Hiti.
http://ehiti.de/katmouse/
------------------------------------------------------
de.web@katmouse
------------------------------------------------------
Eduard Hiti
Dipl.-Informatiker (Uni)
------------------------------------------------------
http://ehiti.de/katmouse/
http://ehiti.de/
------------------------------------------------------
======================================================
HERE IS MY CODE FROM TODAY
THURSDAY 26-SIX MAY 2kSixteen
------------------------------------------------------
ABOUT 5 HOUR WRITING TO 7PM
------------------------------------------------------
======================================================
I BEEN A LONG FAN OF KAT MOUSE
AND FOUND TO USE WITH VB6
BUT MANY YEAR AFTER FOUND IT
HAD NEVER WORK PROPER WHEN LOSE FOCUS
AND HAD A SIDE EFFECT RESULT
MORE AS WORKED IN An OPPOSITE WAY WHEN SCROLL WAS SMOOTH
NOT IN FOCUS BUT NOT WHEN IN
------------------------------------------------------
MANY YEAR LATER RECENTLY An NEW VERSION COME ALONG
WITH IMPROVE AS TALK BEFORE
FOR WINDOWS 7
------------------------------------------------------
TODAY I GOT IDEA
AS SETUP PROCEDURE IS A LONG PROCESS FOR VB USER
AS IT IS NOT COMPATIBLE WITH MANY PROGRAM
SO I DECIDED ON IDEA TO POST MESSAGE KILL PROCESS NICELY
WHEN NOT USE THE VB IDE PROGRAMMER
DON 'T SEE MANY DRAW BACK TO THAT
AND EXTRA IF PROBLEM WITH SCROLL BAR AND OTHER FLIP TO WINDOW PROBLEM
IN WIN 7 OR WIN 10
TO MAKE WORK COMPLETE AND QUICK SETUP ALL GOT TO DO IT USE THE CLASS
DRAG A DROP BUTTON TO EXCLUDE THEM - THAT SHOULD WORK NICELY
------------------------------------------------------
------------------------------------------------------
THE PROGRAM LOAD TIME OF KAT MOUSE WITH THIS CODE
IS VERY NICE ALSO
BUT MY CODE HAS OTHER TIMER AND MAY DRAG IT OUT A BIT
AS IT IS - SMALL FOOTPRINT PROGRAM
SET YOUR TIMER WHAT YOU WANT
------------------------------------------------------
THE CODE -- END RESULT IS TESTED
WITH REM EXPLANATION
------------------------------------------------------
IT DON 'T USE PROCESS ENUMERATE TO KEEP PROCESS USAGE LOW
------------------------------------------------------
MAX SPEED IS TO USE QUICK FINDWINDOW
------------------------------------------------------
ONE LAST ERROR LOOKING AT
IN EXE MODE SEEM TO LEAVE BEHIND An ICON AS LIKE
NOT PROCESS CLOSE NICELY LIKE POST MESSAGE COMMAND TO CLOSE
------------------------------------------------------
ADDED TWO CODE AFTER FIRST PUBLISH HOUR AGO
ONE MAKE A QUICK KILL PROCESS POST MESSAGE CLOSE
WHEN TIMER SHOW KAT MOUSE BEEN IN USE BUT NEVER
BRING UP WINDOW
FOR QUICK CLOSE ON EXIT PROGRAM CODE IDE ENVIRONMENT
AND ANOTHER TO MAKE SURE HWND EXIST BUT THE SECOND
POST MESSAGE CLOSE COMMAND IN SUB
------------------------------------------------------
------------------------------------------------------
NOT SURE IF CAN MAKE MORE COST CODE SIZE COMPACT
FRIENDLY
NEAR THE END I ALREADY DUMPED TWO FAIR SIZE ROUTINE
BYE - KEEP YOU SPIRIT HIGH
======================================================
THE DECLARE VARIABLE AND FUNCTION API SCRIPT
======================================================
Dim OXK3_KATMOUSE_PRESENCE_VISUAL_TIMER
Dim MOUSE_LEFT_BUTTON_DELAY
Dim OX33
Dim O_HAS_VB_BEEN_VISIBLE_TOGGLE
Dim OXK1
Dim RESULT_KATMOUSE_NOT_BEEN_LOADED_BY_US_TIME
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey&) As Integer
Private Declare Function FindWindowDLL _
Lib "user32" _
() ' Alias "FindWindowA" _
(ByVal lpClassName As Long, _
ByVal lpWindowName As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
======================================================
THE DECLARE VARIABLE AND FUNCTION API SCRIPT
======================================================
======================================================
ONE FUNCTION REQUIRED -- GetWindowTitle
======================================================
Private Function GetWindowTitle(ByVal hwnd As Long) As String
Dim l As Long
Dim S As String
l = GetWindowTextLength(hwnd)
S = Space(l + 1)
GetWindowText hwnd, S, l + 1
GetWindowTitle = Left$(S, l)
End Function
======================================================
ADD THIS CODE SUB ROUTINE INTO A TIMER
======================================================
Private Sub Timer_KAT_MOUSE_FOR_VB_Timer()
Dim CLASS_NAME_TEXT As String
'----------------------------------------------------
'PRIORITY IF FOCUS IS KATMOUSE
'THEN DONT CLOSE APP BECAUSE NOT MATCH WITH VB
'----------------------------------------------------
'----------------------------------------------------
'KAT MOUSE
'----------------------------------------------------
'IT ABILITY TO CLOSE WORK WELL ON POST MESSAGE COMMAND
'AND THEN REMOVE ITSELF AND ICON ALSO
'FORCE TERMINATE LEAVE ICON BEHIND
'PROCESS-KILL
'----------------------------------------------------
'----------------------------------------------------------
'IS VB WINDOW HERE
X1 = FindWindow("wndclass_desked_gsk", vbNullString)
'IF NOT CHECK IS KAT MOUSE HERE
XK1 = FindWindow("KatMouseWindowClass", vbNullString)
If XK1 > 0 Then
OXK1_KATMOUSE_PRESENCE_TIMER = Now
Else
OXK1_KATMOUSE_PRESENCE_TIMER = 0
End If
XK2 = FindWindow(vbNullString, "KatMouse Properties")
If XK2 > 0 Then
XX3 = IsWindowVisible(XK2)
If XK3 = 1 Then
OXK3_KATMOUSE_PRESENCE_VISUAL_TIMER = Now
'NEVER GOING TO USE RESET THIS LATER
'TOP UP IDEA
End If
Else
If OXK3_KATMOUSE_PRESENCE_VISUAL_TIMER = 0 Then
OXK3_KATMOUSE_PRESENCE_VISUAL_TIMER = Now
End If
End If
'----------------------------------------------------------
'------------------------------------------------------
'MAKE QUICKER INSTANT KIL PROCESS
'------------------------------------------------------
'GIVE A FEW SECOND TO LOAD BUT IF NEVER BEEN VISUAL AND
'LOAD A WHILE MAKE INSTANT KILL PROCESS
'------------------------------------------------------
I = DateDiff("S", OXK3_KATMOUSE_PRESENCE_VISUAL_TIMER, OXK1_KATMOUSE_PRESENCE_TIMER)
'SHOULD MAKE A QUICK KILL PROCESS HERE
'Debug.Print I
'IF VB NOT AND KAT MOUSE TRUE HERE
'AND NOT USED A MOMENT
'THEN DO A CLOSE PROCESS OF KAT MOUSE
'----------------------------------------------------------
'WANT A QUICK EXIT IF VB NOT HERE
'BUT ALLOW TO USE KAT MOUSE
'----------------------------------------------------------
'IS VB WINDOW HERE
'X1 = FindWindow("wndclass_desked_gsk", vbNullString)
'IF NOT CHECK IS KAT MOUSE HERE
'XK2 = FindWindow(vbNullString, "KatMouse Properties")
If I > 40 And (XK1 > 0 And X1 = 0) Then
RESULT = PostMessage(XK1, WM_CLOSE, 0&, 0&)
'Beep
'------------------------------------------
'DONT WAIT CLOSED BEFORE FLAG HAS DONE
'------------------------------------------
RESULT_KATMOUSE_BEEN_LOADED = False
RESULT_KATMOUSE_BEEN_LOADED_BY_US = FLASE
'RESET HERE BECAUSE
'MAYBE MISLEAD ABOUT BEEN IN USE WHEN LOADED
OXK3_KATMOUSE_PRESENCE_VISUAL_TIMER = 0
Exit Sub
End If
'BEXT GETTING ON
'SOME CODE LOST THE REM USED TO BE HERE
If X1 = 0 And XK1 > 0 Then
If MOUSE_LEFT_BUTTON_DELAY = 0 Then
MOUSE_LEFT_BUTTON_DELAY = Now + TimeSerial(0, 0, 3)
End If
End If
'----------------------------------------------------------
XK1 = FindWindow("KatMouseWindowClass", vbNullString)
'XK2 = FindWindow(vbNullString, "KatMouse_MainWindow")
X3 = GetForegroundWindow()
X4 = GetWindowTitle(X3)
'-------------------------------------
'NOT GOOD ENOUGH
'THINK GOT HANDLE TEXT OF PROJECT NAME
'-------------------------------------
'FIND PARENT
'-----------
'X5 = GetParent(X3)
'NOT WORK ALREADY AT BASE
'----------------------------------------------------------------------
'KAT MOUSE
'---------
'SCREW IT USE A DELAY BEFORE CLOSE AND CONDICTION
'IS KATMOUSE WINDOW NOT FOREGROUND
'----------------------------------------------------------------------
'BUT WE WANT SWAP QUICK IN VB -- PROBLEM
'---------------------------------------
'OKAY SET FLAG IF JUST LOADED AND THEN WAIT AND WITH CONDITION
'-------------------------------------------------------------
'------------------------------------------------------------------
'PROBLEM SOLVED NEED ALSO CHECK APP.CAPTION NAME OF FORM WORKING ON
'----------
'DEBUG ONLY
'----------
'------------------------------------------------------------------
'RESULT GOOD
'-----------
If X4 = Me.Caption Then
Exit Sub
End If
'---------------------------------------------------
'TIMER SAFEGUARD KAT MOUSE NOT CLOSED WHILE USING IT
'---------------------------------------------------
'IF BEEN USE IT AND NOT USE VB THEN DELAY CLOSE
'---------------------------------------------------
'AND IF LOADED TO USE AND NOT USE VB ALSO SAFEGUARD
'AND NOT LOADED BY HERE
'----------------------------------------------------
'GUESS ALWAYS WANT TIMER TOP UP WHEN KAT MOUSE AROUND
'JUST BEEN ARRIVED AROUND - MORE LIKE IT
'----------------------------------------------------
'TOP UP -- ONLY ONCE -- WHEN LOAD SHELL BEGAN
'TO LOAD TO USE
'AS LONG AS NOT LOADED BY US
'
'STEP -- METHOD
'LOAD IT
'SIT IN TASKBAR
'
'JUST BEEN LOADED
'TAG WITH SOME TIME DELAY
'------------------------------------------------
'ANOTHER DIMENSION
'------------------------------------------------
'IF IS LOAD BY US - NOT
'------------------------------------------------
'AND HAS BEEN
'ONLY JUST LOADED BY DETECT NEW HWND
'------------------------------------------------
If RESULT_KATMOUSE_BEEN_LOADED_BY_US = False Then
If OXK1 <> XK1 And XK1 > 0 Then
OXK1 = XK1
RESULT_KATMOUSE_NOT_BEEN_LOADED_BY_US_TIME = Now
Exit Sub
End If
End If
'RECENTLY LOADED OR VISIBLE 01 OF 02
If FindWindow(vbNullString, "KatMouse Properties") > 0 Then
XX52 = IsWindowVisible(FindWindow(vbNullString, "KatMouse Properties"))
If XX52 = 1 Then
RESULT_KATMOUSE_BEEN_VISIBLE_TIME = Now
Exit Sub
End If
End If
'RECENTLY LOADED OR VISIBLE 02 OF 02
'DO HAS KAT MOUSE ONLY JUST LOADED
'AND CHECK IF VB WORKING ON
'-----------------------
'NOT SURE REQUIRE BECAUSE
'IF VB WOKING ON -- KAT MOUSE IS OKAY TO RUN
'AND IF JUST LOADED ALSO
'-----------------------
'OTHER WORDS
'KAT MOUSE JUST LOADED WILL RUN FOR 40 SEC
'IF NOT ISWINDOWVISIBLE
'OR WITHOUT VB IN USE AND THEN CLOSE
'WHAT WOULD WANT QUICK
'------------------------------
'CHECK VB OPEN AND FROM THEN CLOSE
'WHILE KAT MOUSE TIMER
'------------------------------
'VB CLASS WINDOW IS HERE OR NOT
'------------------------------
X1 = FindWindow("wndclass_desked_gsk", vbNullString)
XX52 = IsWindowVisible(X1)
'---------------------------
'VB WINDOW IS NOT HERE
'AND IS A CHANGE FROM BEFORE
'---------------------------
If XX52 = 0 And XX52 <> O_HAS_VB_BEEN_VISIBLE_TOGGLE Then
'REMOVE VALUE OF TIME IF VB
RESULT_KATMOUSE_NOT_BEEN_LOADED_BY_US_TIME = 0
End If
O_HAS_VB_BEEN_VISIBLE_TOGGLE = XX52
'---------------------------------------
'LINE ABOVE REMOVE VALUE OF TIME IF VB
'NOT VISIBLE AFTER IT HAS HAD HAS BEEN
'FOR NEXT CODE BELOW
'MAKE IT QUICK --
'WHEN THE KAT MOUSE WAS NOT LOADED BY US
'---------------------------------------
'AND HERE IF FOREGROUND WINDOW CHANGES
'X3 = GetForegroundWindow()
'BUT WE DON'T WANT FOREGROUND CHANGE AND WILL RESET EVERYTHING
'WILL ONLY WANT IF CHANGE FROM VB TO ANOTHER FOREGROUND
'USUAL THIS DOES EQUAL A TIME EVEN LOAD BY US
'MAYBE WHEN DEBUG FIRST RUN
'BUT
'WORKING WELL AT THIS END POINT
'LOAD KAT MOUSE YOURSELF OKAY
'CLOSE IT OKAY
'AND MOVE TO ANOTHER FORM AND THEN FOREGROUND CHANGE WILL
'LET IT KILL PROCESS
'BUT DOES IT EXIT WHEN DELAY TIME WHEN CLOSE AND LEFT
'WITHOUT ANOTHER FOREGROUND CHANGE
'LONGER THAN 40 SEC AND STILL THERE
'DOES NOT MATTER FOREGROUND WOULD CHANGE ANYHOW
'IT WILL GIVE TIME TO GET TO VB AGAIN
'AND LEFT CLICK ON ICON IS PROBLEM
'MEANT TO DO RIGHT CLICK FOR PROGRAM
'WE USE MOUSE BUTTON DETECT - NOW
'MOUSE BUTTON LEFT
'GOOD THING AS ENABLE IS WITH LEFT BUTTON BUT
'TOO QUICK WITHOUT DELAY
'----------------------------------------------------
'----------------------------------------------------
'RESULT FROM THAT IS WHEN to GO TO ENABLE DISABLE
'----------------------------------------------------
'AND LEAVE FEW SECOND
'DEATH
'GUESS YOU DON'T WANT IT WHEN to GO TO DISABLE
'BUT AT LEAST SEE IT WORK
'PROBLEM IF YOU EVER WANT KAT MOUSE FOR ANYTHING ELSE
'RELOAD WILL BE DONE WHEN to WANT VB
'----------------------------------------------------
'ALSO DIALOG BOX LIKE FIND AND SEARCH ARE MAKE
'KAT MOUSE LOSE PROCESS
'NOT ENOUGH TIME IN DAY
'PROGRAM DIY THAT BIT IF YOU WISH
'OR WAIT FOR ME LATER
'IF I THINK IT WORTH IT
'A FIND OR SEARCH BOX YOU DON'T REQUIRE KAT MOUSE
'------------------------------------------------
'--------------------------------------------
If GetAsyncKeyState(1) Then
MOUSE_LEFT_BUTTON_DELAY = Now + TimeSerial(0, 0, 3)
OX34 = 0
Exit Sub
End If
If MOUSE_LEFT_BUTTON_DELAY > Now Then
Exit Sub
End If
'------------------------------------------------------------
'WHILE BUTTON DELAY ANY FOREGROUND WINDOW CHANGE REMOVE VALUE
'------------------------------------------------------------
If MOUSE_LEFT_BUTTON_DELAY > Now Then
'FOREGROUND WINDOW CHECK X3
If OX34 > 0 And OX34 <> X3 Then
MOUSE_LEFT_BUTTON_DELAY = 0
End If
OX34 = X3
End If
'FOREGROUND WINDOW CHECK X3 WITH CHECK OF VB
If (X1 > 0 And OX33 = X1) And OX33 <> X3 Then
RESULT_KATMOUSE_NOT_BEEN_LOADED_BY_US_TIME = 0
End If
OX33 = X3
XXTIME = TimeSerial(0, 0, 40)
If RESULT_KATMOUSE_NOT_BEEN_LOADED_BY_US_TIME + XXTIME > Now Then
Exit Sub
End If
'---------------------------------------
'----------------------------------------------------------------
'NEXT STEP FOUND TO BE LOADED AND WITH TIME DELAY BEEN SET BEFORE
'----------------------------------------------------------------
XX22 = RESULT_KATMOUSE_BEEN_LOADED_TIME + TimeSerial(0, 0, 40)
If XX22 > Now Then
'-------------------------------------------------------
'EXTRA TOP UP ADDED ON TIME VAR
'IF KAT MOUSE WINDOW STILL LOADED CONDITION
'AND MORE IMPORTANT IS VISIBLE
'-------------------------------------------------------
'WE DO TO FIND IT IS VISIBLE
'--------------------------------------------
'---------------------------------------
'KatMouse Properties
'WON'T SHOW HWND UNLESS A VISIBLE WINDOW
'---------------------------------------
If XK1 > 0 Then
If FindWindow(vbNullString, "KatMouse Properties") > 0 Then
XX52 = IsWindowVisible(FindWindow(vbNullString, "KatMouse Properties"))
If IsWindow(XX52) = 1 Then
RESULT_KATMOUSE_BEEN_VISIBLE_TIME = Now
End If
RESULT_KATMOUSE_BEEN_LOADED_TIME = Now
Exit Sub
End If
End If
End If
'---------------------------------------------
'DO FOREGROUND MATCH KAT MOUSE WINDOW 02 OF 02
If X3 = XK1 Then
Exit Sub
End If
'----------
'SECURED IT
'UNDERSTAND FINDWINDOW VS GetWindowTitle -- STRING
'NOT WORK
'----------
'------------------------------
'VB CLASS WINDOW IS HERE OR NOT
'------------------------------
X1 = FindWindow("wndclass_desked_gsk", vbNullString)
'----------------------------------------------------
'BUT ONLY WHEN IN ISIDE = TRUE
'----------------------------------------------------
'OR MABE ANOTHER PROGRAM - GUESS - LATERS TO THAT ONE
'----------------------------------------------------
'---------------------------------------------------
'IS THERE An FORE_GROUND MATCH WITH VB PROGRAM WINDOW
'---------------------------------------------------
'X3 = GetForegroundWindow()
'---------------------------------------------------
'NOT REQUIRE TWICE AS ABOVE
'------------------------------------------------
'FIND THE WINDOW PRIZE TREASURE CHEST BUST BLOSSOM
'TRAIN SPOTTER
'------------------------------------------------
If X3 = X1 Then
'-----------------------------------------------------------
'CHECK CLASS NAME IS VB IDE WINDOW WE WANT OR IF ANOTHER NOT
'-----------------------------------------------------------
X2 = GetWindowTitle(X1)
If InStr(X2, " - Microsoft Visual Basic [") > 0 Then
'-----------------------------------------------
'YES IN VB
'AND THEN CHECK IF KAT MOUSE LOADED THAT WE WANT
'-----------------------------------------------
'KAT MOUSE
'NOT HERE AND THEN WE GET IT
If XK1 = 0 Then
If Dir("C:\Program Files (x86)\KatMouse\KatMouse.exe") <> "" Then
Shell "C:\Program Files (x86)\KatMouse\KatMouse.exe", vbNormalNoFocus ', vbNormalNoFocus
RESULT_KATMOUSE_BEEN_LOADED = True
End If
If RESULT_KATMOUSE_BEEN_LOADED = False Then
If Dir("C:\Program Files\KatMouse\KatMouse.exe") <> "" Then
Shell "C:\Program Files\KatMouse\KatMouse.exe", vbNormalNoFocus
RESULT_KATMOUSE_BEEN_LOADED = True
RESULT_KATMOUSE_BEEN_LOADED_BY_US = True
End If
End If
'---------------------------------------------------
'STORE VAR TOGGLE
'---------------------------------------------------
If RESULT_KATMOUSE_BEEN_LOADED = True Then
'--------------------------
'BETTER WAIT FOR IT TO LOAD
'--------------------------
XCOUNT_ERROR = 100
Do
XCOUNT_ERROR = XCOUNT_ERROR - 1
DoEvents
X5 = FindWindow("KatMouseWindowClass", vbNullString)
If XCOUNT_ERROR = 0 Or X5 > 0 Then Exit Sub
Sleep 50
Loop Until X5 > 0
'--------------------------
End If
If FindWindow("KatMouseWindowClass", vbNullString) > 0 Then
'----------------------------------------------------
'WHEN FIRST TIME RUN MAKE NOTE MARK FLAG -- IF LOADED
'WHEN WE WANTED IT
'----------------------------------------------------
RESULT_KATMOUSE_BEEN_LOADED = True
'------------------------
'QUIT HERE DON'T CONTINUE
'------------------------
Exit Sub
End If
End If
'----------------------------------------------------
'GONE THROUGH THAT BLOCK OF STATEMENT AND GOT TO HERE
'AND THEN KAT MOUSE IS LOADED SET FLAG
'----------------------------------------------------
If FindWindow("KatMouseWindowClass", vbNullString) > 0 Then
RESULT_KATMOUSE_BEEN_LOADED = True
End If
'---------------------------------------------
'RESULT SET ABOVE MORE ALSO SO DOUBLE IF CHECK
'---------------------------------------------
If RESULT_KATMOUSE_BEEN_LOADED = True Then
RESULT_KATMOUSE_BEEN_LOADED_TIME = Now
Exit Sub
End If
End If
End If
'--------------------------------------
'FOREGROUND WINDOW DONT MATCH VB WINDOW
'FLIP IT OFF
'--------------------------------------
'--------------------------------
'X7 = GetWindowTitle(X1)
'X8 = GetWindowTitle(X3)
'X9 = GetWindowTitle(X3)
'cText = Space$(255)
'I = GetClassName(X3, cText, 255)
'X10 = cText
'X11 = GetParent(X3)
'--------------------------------
If RESULT_KATMOUSE_BEEN_LOADED_BY_US = False Then
'X3 FOREGROUND
'X1 VB WINDOW
If X3 <> X1 Then
'---------------------------------------------------
'STORE VAR TOGGLE
'---------------------------------------------------
'-------------------------------------------------------------
'CLOSE PROGRAM - KAT MOUSE WHEN DONT WANT IT
'PROBLEM UNABLE TO EXCLUDE ALL AP PROGRAM AND INCLUDE ONLY ONE
'FOR VB
'-------------------------------------------------------------
'ANOTHER INTEREST-ING THING FOR WIN 10 AND WIN 7 USER OF KAT MOUSE
'----
'YOU GET An HORIZONTAL SCROLL BAR MOVEMENT WHEN SCROLL DOWN
'NOT WANTED
'SO EXCLUDE CLASS HORIZONTAL SCROLL BAR IN KAT MOUSE
'FIX-ED-NESS
'----------------------------------------------------------------
X5 = FindWindow("KatMouseWindowClass", vbNullString)
If X5 = 0 Then Exit Sub
'----------------
'CLOSE THE WINDOW
'----------------
RESULT = PostMessage(X5, WM_CLOSE, 0&, 0&)
'----------------
'----------------
'----------------
'----------------
'--------------------------------
'BETTER WAIT FOR IT TO CLOSE EXIT
'--------------------------------
XCOUNT_ERROR = 100
Do
XCOUNT_ERROR = XCOUNT_ERROR - 1
DoEvents
X5 = FindWindow("KatMouseWindowClass", vbNullString)
If XCOUNT_ERROR = 0 Or X5 = 0 Then Exit Sub
Sleep 50
Loop Until X5 = 0
'------------------------------------------
'BE SURE HAS CLOSED BEFORE FLAG HAS DONE
'------------------------------------------
If X5 = 0 Then
RESULT_KATMOUSE_BEEN_LOADED = False
RESULT_KATMOUSE_BEEN_LOADED_BY_US = FLASE
End If
End If
End If
End Sub
No comments:
Post a Comment