Active Worlds User Compass
This is a piece of code rather specialist in that it is developed for use with the Active Worlds Browser (www.activeworlds.com) it is a sister application that will allow you to enter a set of Active Worlds Coordinates into the targeting box and be shown the direction to which you must face to arrive at those coordinates. Thanks to the VB super API spy (on VBC) for helping me learn about the API to make this possible.
Inputs
Takes title bar text from AW Browser
Assumes
This requires the Active Worlds Browser active in order for it to correctly function.
Returns
A visual compass of the direction you wish to walk in to reach the coordinates you enter.
Side Effects
You may bumb into walls and such while using.
API DeclarationsAPI to retrieve window caption.
mdlFindWindows:
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetWindow Lib "user32" ByVal hWnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA"
(ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
clsOnTop:
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
(3(3 Vote))