|
***UPDATED*** Window SPY
|
Email
|
| Submitted on: |
2/22/1999 |
| By: |
Matt Evans
|
| Level: |
Not Given |
| User Rating: |
By 15 Users |
| Compatibility: |
VB 5.0, VB 6.0 |
| Views: |
111514 |
|
|
|
|
|
***UPDATED*** Gets tons of information on the window your mouse is over.
|
| |
Windows API/Global Declarations: Can't Copy and Paste this?
Click here for a copy-and-paste
friendly version of this code!
'**************************************
'Windows API/Global Declarations for :***UPDATED*** Window SPY
'**************************************
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) 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 GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Declare Function WindowFromPointXY Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Public Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long)
Public Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
| |
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
- You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
- You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
- You may link to this code from another website, but ONLY if it is not wrapped in a frame.
- You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
|
'**************************************
' Name: ***UPDATED*** Window SPY
' Description:***UPDATED*** Gets tons of information on the window your mouse is over.
' By: Matt Evans
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=1424&lngWId=1'for details.'**************************************
**** Put this in a module ****
Function WindowSPY(WinHdl As TextBox, WinClass As TextBox, WinTxt As TextBox, WinStyle As TextBox, WinIDNum As TextBox, WinPHandle As TextBox, WinPText As TextBox, WinPClass As TextBox, WinModule As TextBox)
'Call This In A Timer
Dim pt32 As POINTAPI, ptx As Long, pty As Long, sWindowText As String * 100
Dim sClassName As String * 100, hWndOver As Long, hWndParent As Long
Dim sParentClassName As String * 100, wID As Long, lWindowStyle As Long
Dim hInstance As Long, sParentWindowText As String * 100
Dim sModuleFileName As String * 100, r As Long
Static hWndLast As Long
Call GetCursorPos(pt32)
ptx = pt32.X
pty = pt32.Y
hWndOver = WindowFromPointXY(ptx, pty)
If hWndOver <> hWndLast Then
hWndLast = hWndOver
WinHdl.Text = "Window Handle: " & hWndOver
r = GetWindowText(hWndOver, sWindowText, 100)
WinTxt.Text = "Window Text: " & Left(sWindowText, r)
r = GetClassName(hWndOver, sClassName, 100)
WinClass.Text = "Window Class Name: " & Left(sClassName, r)
lWindowStyle = GetWindowLong(hWndOver, GWL_STYLE)
WinStyle.Text = "Window Style: " & lWindowStyle
hWndParent = GetParent(hWndOver)
If hWndParent <> 0 Then
wID = GetWindowWord(hWndOver, GWW_ID)
WinIDNum.Text = "Window ID Number: " & wID
WinPHandle.Text = "Parent Window Handle: " & hWndParent
r = GetWindowText(hWndParent, sParentWindowText, 100)
WinPText.Text = "Parent Window Text: " & Left(sParentWindowText, r)
r = GetClassName(hWndParent, sParentClassName, 100)
WinPClass.Text = "Parent Window Class Name: " & Left(sParentClassName, r)
Else
WinIDNum.Text = "Window ID Number: N/A"
WinPHandle.Text = "Parent Window Handle: N/A"
WinPText.Text = "Parent Window Text : N/A"
WinPClass.Text = "Parent Window Class Name: N/A"
End If
hInstance = GetWindowWord(hWndOver, GWW_HINSTANCE)
r = GetModuleFileName(hInstance, sModuleFileName, 100)
WinModule.Text = "Module: " & Left(sModuleFileName, r)
End If
End Function
****** END OF MODULE ******
'Put this is notepad and rename is winspy.frm
VERSION 5.00
Begin VB.Form Form1
BackColor=&H00000000&
Caption ="Window SPY"
ClientHeight=3480
ClientLeft =2280
ClientTop=1590
ClientWidth =4440
LinkTopic="Form1"
ScaleHeight =3480
ScaleWidth =4440
Begin VB.Timer Timer1
Interval=10
Left=1080
Top =1560
End
Begin VB.TextBox Text9
Appearance =0 'Flat
BackColor=&H00000000&
BeginProperty Font
Name="Arial"
Size=8.25
Charset =0
Weight =700
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty
ForeColor=&H00FFFFFF&
Height =285
Left=120
TabIndex=8
Text="Text9"
Top =3000
Width=4215
End
Begin VB.TextBox Text8
Appearance =0 'Flat
BackColor=&H00000000&
BeginProperty Font
Name="Arial"
Size=8.25
Charset =0
Weight =700
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty
ForeColor=&H00FFFFFF&
Height =285
Left=120
TabIndex=7
Text="Text8"
Top =2640
Width=4215
End
Begin VB.TextBox Text7
Appearance =0 'Flat
BackColor=&H00000000&
BeginProperty Font
Name="Arial"
Size=8.25
Charset =0
Weight =700
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty
ForeColor=&H00FFFFFF&
Height =285
Left=120
TabIndex=6
Text="Text7"
Top =2280
Width=4215
End
Begin VB.TextBox Text6
Appearance =0 'Flat
BackColor=&H00000000&
BeginProperty Font
Name="Arial"
Size=8.25
Charset =0
Weight =700
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty
ForeColor=&H00FFFFFF&
Height =285
Left=120
TabIndex=5
Text="Text6"
Top =1920
Width=4215
End
Begin VB.TextBox Text5
Appearance =0 'Flat
BackColor=&H00000000&
BeginProperty Font
Name="Arial"
Size=8.25
Charset =0
Weight =700
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty
ForeColor=&H00FFFFFF&
Height =285
Left=120
TabIndex=4
Text="Text5"
Top =1560
Width=4215
End
Begin VB.TextBox Text4
Appearance =0 'Flat
BackColor=&H00000000&
BeginProperty Font
Name="Arial"
Size=8.25
Charset =0
Weight =700
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty
ForeColor=&H00FFFFFF&
Height =285
Left=120
TabIndex=3
Text="Text4"
Top =1200
Width=4215
End
Begin VB.TextBox Text3
Appearance =0 'Flat
BackColor=&H00000000&
BeginProperty Font
Name="Arial"
Size=8.25
Charset =0
Weight =700
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty
ForeColor=&H00FFFFFF&
Height =285
Left=120
TabIndex=2
Text="Text3"
Top =840
Width=4215
End
Begin VB.TextBox Text2
Appearance =0 'Flat
BackColor=&H00000000&
BeginProperty Font
Name="Arial"
Size=8.25
Charset =0
Weight =700
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty
ForeColor=&H00FFFFFF&
Height =285
Left=120
TabIndex=1
Text="Text2"
Top =480
Width=4215
End
Begin VB.TextBox Text1
Appearance =0 'Flat
BackColor=&H00000000&
BeginProperty Font
Name="Arial"
Size=8.25
Charset =0
Weight =700
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty
ForeColor=&H00FFFFFF&
Height =285
Left=120
TabIndex=0
Text="Text1"
Top =120
Width=4215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Timer1_Timer()
WindowSPY Text1, Text2, Text3, Text4, Text5, Text6, Text7, Text8, Text9
End Sub
|
|
Other 11 submission(s) by this author
|
|
Report Bad Submission
|
Your Vote
|
| |
Other User Comments
|
 5/5/1999 3:26:00 AM: Dan Webb
Sorry, I can't get this to work. I need to know the type declaration for POINTAPI. Am I doing something wrong, nobody else seems to have said anything.
(If this comment was disrespectful, please report it.)
|
5/5/1999 3:43:00 AM: Dan Webb
You need to add the declaration for GetWindowLong and the Type statement for POINTAPI to get this to work correctly.
(If this comment was disrespectful, please report it.)
|
5/5/1999 7:09:00 AM: WocitJC
Here is the POINTAPI dec. -
Public Type POINTAPI
X As Long
Y As Long
End Type
(If this comment was disrespectful, please report it.)
|
5/5/1999 10:30:00 AM: Nam H Nguyen
Your code did not work at all. Please help!
(If this comment was disrespectful, please report it.)
|
5/17/1999 7:26:00 AM: Raffaele
Your Code is Great!
But, how can I get the Hwnd when the
mouse click on a application?
Thanks!
(If this comment was disrespectful, please report it.)
|
5/18/1999 10:26:00 AM: will
this code does not work I it produces an error on the first line of the Global Declarations
(If this comment was disrespectful, please report it.)
|
5/18/1999 10:26:00 AM: will
this code does not work I it produces an error on the first line of the Global Declarations
Please Help
(If this comment was disrespectful, please report it.)
|
5/19/1999 1:55:00 PM: Greg
I have the same problem as some of the others. When I paste code into VB it usually gives an error on the first line please help.
(If this comment was disrespectful, please report it.)
|
6/2/1999 12:35:00 PM: shAmenn
hey, Will, Greg, and all the others that can't get this code to work... you guys need to read a book and stop complaining... he gave you guys the WHOLE program except fotr one declaration, you guys can figure that out!!! didn't he give you enough already???!!!!!
(If this comment was disrespectful, please report it.)
|
6/9/1999 9:13:00 PM: Mike
sweet.
Easy code to work out.
Remember: This machine has no brain, please use your own!
(If this comment was disrespectful, please report it.)
|
6/9/1999 9:26:00 PM: Mike
...and here is the declaration you still needPrivate Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
It's up to you to put it all together
(If this comment was disrespectful, please report it.)
|
6/10/1999 1:55:00 PM: DaoHoaTu
Yeah, it works. But I don't really know what this for.
(If this comment was disrespectful, please report it.)
|
7/5/1999 5:50:00 PM: keith
whats the constants or whatever for GWW_ID,GWL_STYLE,GWW_HINSTANCE?
(If this comment was disrespectful, please report it.)
|
7/22/1999 9:26:00 AM: Zee
Very Nice!
(If this comment was disrespectful, please report it.)
|
7/22/1999 4:08:00 PM: chris
Truly Impressive. I was unaware vb was this powerful! I'll be putting this to good use! Thanks
(If this comment was disrespectful, please report it.)
|
8/5/1999 10:19:00 PM: burn
well...vb is not this powerful, it's why API functions are used here. hehe.
(If this comment was disrespectful, please report it.)
|
8/5/1999 11:32:00 PM: The Lord
Any programming language is only as powerful as the resources it has access to and the skill of the programmer. Using DirectX VB can make games that you'd think were written in C.
(If this comment was disrespectful, please report it.)
|
8/6/1999 1:21:00 AM: Shahid Ali
Thats Great Man
(If this comment was disrespectful, please report it.)
|
8/6/1999 2:13:00 AM: Ram
I need the GetCursorPos(pt32) function.. so that
I could check ur program...
thanx in advance
(If this comment was disrespectful, please report it.)
|
8/6/1999 4:18:00 AM: Azzmodan
Most of the constants and declarations can be found in the "API Viewer" that comes with vb.
(If this comment was disrespectful, please report it.)
|
8/6/1999 4:32:00 AM: Azzmodan
Ooh and these are the constants, got them from the kb
Const GWW_HINSTANCE = (-6)
Const GWW_ID = (-12)
Const GWL_STYLE = (-16)
HOWTO: Get a Window's Class Name and Other Window Attributes
Article ID: Q112649
(If this comment was disrespectful, please report it.)
|
8/6/1999 5:39:00 AM: Donal
This code is very good.
However, you will need to add these declarations to get it to work.
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Type POINTAPI
x As Long
y As Long
End Type
Public Const GWL_STYLE = (-16)
Public Const GWW_HINSTANCE = (-6)
Public Const GWW_ID = (-12)
(If this comment was disrespectful, please report it.)
|
8/6/1999 6:11:00 AM: Sam
You don't need to go to the KB for the declares. I found them in API Viewer.
(If this comment was disrespectful, please report it.)
|
8/6/1999 10:24:00 AM: ?
Great code, if you cant get this to work, you shouldnt be programming!
(If this comment was disrespectful, please report it.)
|
8/6/1999 12:41:00 PM: Steve
Great code, however don't be mean to those who can't it to work. Simply tell them how to fix it. Some people are new you know. Anyway, impressive code.
(If this comment was disrespectful, please report it.)
|
8/6/1999 12:46:00 PM: ValkRider
The point for the first few of you to comment here is that you can't expect any code you get from anywhere to work if you don't understand it. Take the professional approach, learn and understand the code first before you try to make it work. If you understand it, making it work is the easy part. If you can't figure it out on your own take the next logical step and by yourself an appropriate reference, in this case Daniel Appleman's "VB Programmer's Guide to the Win 32 API" would be appropriate. But don't whine and complain and even worse berrate someone because you don't have the ability to understand their code. Ask for help. There's alot of nice folks out here more than willing to help out, just look at the second half of this comment list. Be professional programmers, and be nice ;-).
(If this comment was disrespectful, please report it.)
|
9/4/1999 9:40:00 PM: DoG
dope code...works perfect...but what can i do whith this?
(If this comment was disrespectful, please report it.)
|
12/19/1999 1:42:49 AM: rokinroj
LOL Burn!!
(If this comment was disrespectful, please report it.)
|
1/2/2000 10:52:40 AM: DSG
You've been rumbled, this source code is surprizingly similar to the code on p220,chapter 4.5 of visual basic 4 API How to book. EVERYBODY THIS IS A GREAT BOOK SO GO DOWN TO YOUR LOCAL BOOK LIBIARY AND READ IT
(If this comment was disrespectful, please report it.)
|
1/31/2000 12:53:55 AM: dog
very cool.
(If this comment was disrespectful, please report it.)
|
2/1/2000 5:07:41 PM: AHelper
All you people saying the Globals are having errors, you need to put them in a module
(If this comment was disrespectful, please report it.)
|
2/15/2000 7:33:21 PM: Spoon
I was able to get the code to work easly, except for the last text box, it always has the module of the exe, not of what the mouse is over.
(If this comment was disrespectful, please report it.)
|
2/22/2000 4:16:46 AM: Dan
Yeah the last text box is messed up, is it this code that is wrong or is it GetModuleFilename thats not working??????
please mail me if you respond
(If this comment was disrespectful, please report it.)
|
2/23/2000 5:36:12 PM: Coozzzzz
Ummm cant really get ModulePaths anymore in Win32 cuz instances dont uniquely identify the application to the system... only works within your own program :| i think it works for Win16 tho lol
(If this comment was disrespectful, please report it.)
|
9/3/2000 12:18:19 PM: Burbble
Looks like nice code but i'm too lazy to make it all into a program, can you submit as a ZIP? :)
(If this comment was disrespectful, please report it.)
|
3/26/2001 10:27:56 AM: ramboy
Burble is right, would it be a lot easier if your code is packed and debugging would be smoother in everyone's home computer. But that's me!
(If this comment was disrespectful, please report it.)
|
9/22/2001 12:59:51 PM: grv
very slick. step by step instructions:
1. cut and paste the form code into notepad & name winspy.frm
2. project -> add module ... cut n paste module code here
3. cut n paste declarations at the top of the module code
4. add after that:
Public Declare
Function GetWindowLong Lib "user32"
Alias "GetWindowLongA" (ByVal hwnd As
Long, ByVal nIndex As Long) As
Long
Public Type POINTAPI
x
As Long
y As Long
End
Type
Public Const GWL_STYLE =
(-16)
Public Const GWW_HINSTANCE =
(-6)
Public Const GWW_ID = (-12)
5. fix the GetWindowLong function you cut n pasted from here to be on one line
6. double check that that the GetWindowLong declare looks exactly like step 4
7. run
it's really very simple...just takes an hour to figure out if you're new to vb.
got this to work in vb 6.0
(If this comment was disrespectful, please report it.)
|
12/14/2001 12:11:27 PM: Greg
ok, for those who cannot get it to work, go do something else please. I myself am a COMPLETE BEGINNER and I got it to work just fine!
(If this comment was disrespectful, please report it.)
|
12/14/2001 12:13:00 PM: Greg
This is pretty easy to figure out. If you can't, you are either 1) Way too lazy, or 2) You have no idea what anything means!
I myself am a complete newb at this programming thing, and got it to work just fine!
(If this comment was disrespectful, please report it.)
|
4/6/2002 1:57:33 PM: Carlos
Nice work !
By the way thats righ, stop complaining
and this code can be use for e.g
for capture program...
(If this comment was disrespectful, please report it.)
|
4/7/2002 5:58:01 PM: Sergio
ya so im a beginner and i think i understand
what is going on.. Do i need to call this
module from a form or somthing.. I know how
to show forms but dont know how to call a module.
Ya well mabey ill try some more, but if i supposed
to do something other than cut paste and assemble
then i a little more help.
(If this comment was disrespectful, please report it.)
|
9/12/2002 11:36:57 PM:
Sweet !
(If this comment was disrespectful, please report it.)
|
4/4/2003 7:27:25 AM:
Well for all the lazy ppl, here are some api ref's
Const GWW_HINSTANCE = (-6)
Const GWW_ID = (-12)
Const GWL_STYLE = (-16)
Public Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function WindowFromPointXY Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
(If this comment was disrespectful, please report it.)
|
4/4/2003 7:27:58 AM:
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex 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 GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As IntegerDeclare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
(If this comment was disrespectful, please report it.)
|
4/18/2003 3:06:15 PM:
Can somebody refer me to a book or webpage that can explain what this program does? I'm just a newbie and just learning.
(If this comment was disrespectful, please report it.)
|
4/24/2003 7:39:45 AM:
allrite i got like 10 differnet versions of very similar things.. im not complaining or nothing i just was wondering if anybody can simply tell me exactly what to add after the given code *ducks*, kinda like what the fella with numbered steps was trying to do. thanks!
(If this comment was disrespectful, please report it.)
|
4/24/2003 8:17:56 AM:
ok i got the form and all going now.. but what do i do with this...Sub or funtion not defined...(getcursorpos)
(If this comment was disrespectful, please report it.)
|
4/24/2003 8:21:16 AM:
YES! finaly got it working!!!! disregard my previous 3 messages.
(If this comment was disrespectful, please report it.)
|
5/22/2003 1:32:15 PM: Natalia
Works. Thanks.
(If this comment was disrespectful, please report it.)
|
6/27/2003 2:25:20 AM:
nice one!
(If this comment was disrespectful, please report it.)
|
6/28/2003 2:56:10 AM: Masino Sinaga
Please add this to module (.bas) file:
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint 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
'(to be continued to next feedback below)...
(If this comment was disrespectful, please report it.)
|
6/28/2003 3:01:23 AM: Masino Sinaga
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Public Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Type POINTAPI
X As Long
Y As Long
End Type
'End of declaration.
'Please don't forget to change the code in winspy.frm:
Call GetCursorPosXY(pt32) to:
Call GetCursorPos(pt32)
That's all. Run the project, and it works good.
(If this comment was disrespectful, please report it.)
|
9/8/2003 3:36:09 PM: Zexe
Hey shAmenn, you must know that Will, Gred and all the other have no fault because the code did not work. Are you aware about COM and Code Embedding and Encapsulating? The user must use the code not to debug.
P.S.: No offense Matt, this is related to shAmenn.
shAmenn, if you have anything to comments, please do it at fufapadurii@yahoo.com
Thak you!
Best regards,
Fufa
(If this comment was disrespectful, please report it.)
|
12/26/2003 2:43:50 PM: John C Kirwin
What a journey! This is your test. Every path you have trod through, wilderness, through war, has led to this road. Certain death. Small chance of success. What are we waiting for?
(If this comment was disrespectful, please report it.)
|
1/5/2005 11:25:28 AM:
thanxs very very thanx for help,plz keep on helping us!zeeshan
(If this comment was disrespectful, please report it.)
|
4/2/2005 7:59:38 AM:
To All:
I read through this thread and found some of the writers very rude.
If someone post a request for help, obviously, the person doesnt know how otherwise, he wouldn't be asking for help. Response from someone named "Greg" provided a typical example of such rude behavior.
On 12/14/2001 12:11:27 PM: Greg wrote:
"ok, for those who cannot get it to
work, go do something else please..."
Also on 12/14/2001 12:13:00 PM: "Greg" wrote: "This is pretty easy to figure out. If you can't, you are either 1) Way too lazy, or 2) You have no idea what anything means!..."
Obviously, "Greg" needs to find a better way of communicating.
Continue below:
(If this comment was disrespectful, please report it.)
|
4/2/2005 8:00:07 AM:
Please realize that there are a lot of people on this site from all over the world.
Passing insults to someone seeking help is unethical and should henceforth stop.
If the code work for you and you cant help others, Stop being nasty..."SHAME ON YOU".
I found the contributions made on 6/28/2003 3:01:23 AM by "Masino Sinaga" very polite and helpful to others. This is a good behavior to emulate.
...Hmmmm.. this is a "food" for thought.
"A stitch in time saves nine" - says an adage. - Bill
(If this comment was disrespectful, please report it.)
|
6/21/2005 7:14:56 PM: Miles Cloud
A bit of information some might find interesting or even useful: GWW stands for Get Window Word (Word being the name of a Long variable in C I believe.) and GWL = Get Windows Long
(If this comment was disrespectful, please report it.)
|
9/15/2005 1:31:51 PM: help!
please help,
ive pasted in the code now what? please reply
im a complete newbie :p
(If this comment was disrespectful, please report it.)
|
1/14/2006 9:37:42 PM: mine
BUGS BUGS BUGS BUGS
(If this comment was disrespectful, please report it.)
|
7/10/2006 2:05:22 AM: Alen
dude this code is so messy man i could do anyting with it
(If this comment was disrespectful, please report it.)
|
11/3/2006 3:50:58 PM: Mr. Underhill
The nastyness in this forum is appalling... perhaps there lazy perhaps not but flaming never solved anything unless your solution is to totally piss someone off that can't jack you back properly butr, that would mean your a bully and of no real help or value to this forum so just stop flaming the newbies you might need one them to help you someday. as to a resolution to this what you need to do is add all the declares that came with the program and then add the ones that Masino Sinaga added and then take out the doubles. Those doubles lines will show up as an ambiguous name detected error so you just delete those extra lines until the program works O.K.?
Yes (Naysayers) I am being lazy telling you to do it that way but it is simpler and faster to let VB error out than it is to read line by line and figure out what lines are doubled up especially when they are Declare Statements. DUH...
(If this comment was disrespectful, please report it.)
|
3/2/2007 2:18:32 PM: Lemm
Pretty cool code, thanks for sharing! To everybody else: start reading this forum from the bottom up, and you'll get better results =)
(If this comment was disrespectful, please report it.)
|
7/22/2007 7:33:20 AM: sanootes
i find some mess . new in vb found little working . at last thumbs up man. who made its i like it at last.
(If this comment was disrespectful, please report it.)
|
11/23/2007 7:50:37 AM:
A few but precise things to add to make it work. Visual design very clean ! Cool.
(If this comment was disrespectful, please report it.)
|
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
To post feedback, first please login.
|
