Jump to content

Recommended Posts

Posted

I need to be able to paste into an input box, but paste the text which is 36 characters, all at once like a right click and paste, which does work when done manually.

The reason this is necessary, is because the application that is polling this input box polls it so quickly it will fail if it polls and only part of the text is there. As a side note, the input box controls the contents of the window beneath it.

Thanks for reading

  • Moderators
Posted

gte,

Sounds like an interesting app. :D How about using ClipPut and then Sending Ctrl-V?

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

  Reveal hidden contents

 

  • Moderators
Posted

gte,

Yes - but do I take from your tone that it does not work?

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

  Reveal hidden contents

 

Posted (edited)

Yes, it wasn't working, I believe you cannot use control a/c/v with this craptastic program I'm trying to write to.

Here is what I ended up doing after experimenting, it's kind of sloppy with the generic sending of keys to the active window, any ideas on a better way to clean that up?

Func currentinbox()
    
    If WinExists("HP OpenView ServiceCenter - Incident Queue: Unassigned Incidents - HP OpenView ServiceCenter Client", "") Then
        Sleep(25)
        WinActivate("HP OpenView ServiceCenter - Incident Queue: Incidents (Problems) I Opened - HP OpenView ServiceCenter Client", "")
        Sleep(50)
        ControlClick("HP OpenView ServiceCenter", "", "[CLASSNN:Edit4]")
        Sleep(25)
        Send("{LSHIFT}+{F10}")
        Sleep(25)
        Send("s")
        Sleep(25)
        ClipPut("Open Incidents Assigned To My Branch")
        Sleep(25)
        ControlClick("HP OpenView ServiceCenter", "", "[CLASSNN:Edit4]", "right")
        Sleep(25)
        Send("p")
        Sleep(250)
        ConsoleWrite("Done" & @crlf)
    EndIf

EndFunc

  On 2/4/2010 at 6:58 PM, 'Melba23 said:

gte,

Yes - but do I take from your tone that it does not work?

M23

Edited by gte

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...