Show Bid Request Mouse UP/Down VB6 Bid Request Id: 51532 Bookmark in my 'To Do' list Posted by: mwade (98 ratings) (Software buyer rating 9.95) Non-action Ratio: Very Good - 12.79% Posted: Mar 6, 2003 3:58:54 PM EDT Bidding Closes: Mar 9, 2003 3:59:54 PM EDT Viewed (by coders): 108 times Deadline: 3/20/2003 TIME EXPIRED Phase: 100% of work completed and accepted. Coder has been paid. Max Accepted Bid: Bidding is closed Project Type: Very Small Business Project: under $100 (USD) Bidding Type: Open Auction Categories: Visual Basic Enter chat room for this bid request (0 active users at Jul 8, 2003 4:50:41 AM EDT) Description: I am currently using the following code to detect if a left or right mouse button has been pressed using a VB6 application that is hidden. The problem I am having is if the user holds the mouse button down I get more results then I want. So I am looking for a way to detect a mouse button up and mouse button down for the left or right mouse button. 1. Create a VB6 Application that can detect an up and down mouse click 2. Be sure that the Application does not need to have focus to detect the clicks 3. Please look at the included code so you can see how I am currently detecting the clicks 4. get paid ‘mod1 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Function LeftButton() As Boolean LeftButton = (GetAsyncKeyState(vbKeyLButton) And &H8000) End Function Function RightButton() As Boolean RightButton = (GetAsyncKeyState(vbKeyRButton) And &H8000) End Function ‘frm Private Sub Timer1_Timer() If LeftButton = True Then Call GetInfo("Left Click On") Exit Sub ElseIf RightButton = True Then Call GetInfo("Right Click On") Exit Sub End If End Sub Private Sub GetInfo(mAction As String) ‘here we capture the screen and insert it into a collection. I didn&'t include the code End sub Deliverables: 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Installation package that will install the software (in ready-to-run condition) on the platform(s) specified in this bid request. 3) Complete ownership and distribution copyrights to all work purchased. Platform: Windows Must be 100% finished and received by buyer on: Mar 20, 2003 EDT Deadline legal notes: All times are expressed in the time zone of the site EDT (UT - 5). If the buyer omitted a time, then the deadline is 11:59:59 PM EDT on the indicated date. Remember that contacting the other party outside of the site (by email, phone, etc.) on all business projects < $500 (before the buyer's money is escrowed) is a violation of both the software buyer and seller agreements. We monitor all site activity for such violations and can instantly expel transgressers on the spot, so we thank you in advance for your cooperation. If you notice a violation please help out the site and report it. Thanks for your help.   Bidding/Comments: All monetary amounts on the site are in United States dollars. Rent a Coder is a closed auction, so coders can only see their own bids and comments. Buyers can view every posting made on their bid requests. See all rejected bids (and all comments) Name   Bid Amount    Date   Coder Rating   This bid was accepted by the buyer! Aaron Young (25 ratings) in Red Wing, Minnesota United States Bid id: 554,069   $25 (USD) Mar 6, 2003 5:02:20 PM EDT  9.96 (Excellent)     Here's an example of the functionality you've requested. My bid is for the code to this example which is complete and fully commented. Regards, - Aaron. Attached File           See 1 private reply(ies) to/from Aaron Young.