Greetings. I'm not SURE this is the correct forum to ask something like this, but I've got to start somewhere, right? We've got an IBM mainframe, with 3270 on our machines to access the data. We can write VB script to automate the completion of repetitive tasks, and it actually saves countless hours of what would otherwise be MANUAL work. The problem is that when running a script, the speed is strangly dependent upon whether or not the mouse cursor is moving over the VB file. For example, say my VB script can perform a transaction in 5 seconds when the mouse is not moving over the VB file that is running. I can then move the mouse cursor in any direction or distance, as long as it is moving somewhere over the VB script file, and the script can all of the sudden perform the same transactions in 2 seconds. My first thought was to get one of those things people have on their desks that rock back and forth, producing a repetitive blue wave, and simply sit my mouse on it. My next thought was to have a program that would just move the cursor around. I'm not even sure that is possible, let alone how I would go about doing it. Any ideas or thoughts? Thanks.

GregApparently this is how VB scrip is helping the unemployment issue.

Now the IT department shave to hire somebody to rock the mouse back and forth to speed up the process. Just think of how this will help he under skilled people who can not otherwise hold a job.

Put an ad in the local newspaper:
mouse rocker wanted,
no experience needed.,
mouse provided.. Well, I can't tell you how many times I have sat there, racing the clock to a deadline, doing nothing but just what you suggested.I was unaware VBScript even ran on IBM mainframes. There is no native way in VBScript to do this, but if you have a VB compiler, you can build a class wrapper using the Windows API and use it within VBScript to move the cursor:

Class Wrapper:
CODE: [Select]Public Class SetCursorPos
Private Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" _
(ByVal x As Long, ByVal y As Long) As Long

Public Sub MoveTheCursor(ByVal xPos As Integer, ByVal yPos As Integer)
SetCursorPos(xPos, yPos)
End Sub
End Class

The above is for VB6; replace every occurrence of long to integer if using VB.Net

In your VBScript, add the following code:

Code: [Select]Set pointer = CreateObject("vbWrappers.SetCursorPos")
pointer.MoveTheCursor 100, 80

The 100 and 80 coordinates are arbitrary. Change as needed to hover in the correct spot.

Good luck.






Quote from: Sidewinder on June 29, 2011, 08:00:10 AM

I was unaware VBScript even ran on IBM mainframes.

We've got an IBM mainframe, with 3270 on our machines to access the data.

AutoHotkey - Free Mouse and Keyboard Macro Program with Hotkeys ...
Introduction. AutoHotkey is a free, open-source utility for Windows. With it, you can: Automate almost anything by sending keystrokes and mouse clicks.
www.autohotkey.com

Good solution.

Good solution.

Sometimes, people discover that a long-running task runs faster if you hold down the mouse. How can that be?

This strange state of affairs typically results when a program is spending too much time updating its progress status and not enough time actually doing work. (In other words, the programmer messed up badly.) When you click and hold the mouse over the caption bar, the window manager waits for the next mouse message so it can determine whether you are clicking on the caption or attempting to drag. During this waiting, window painting is momentarily suppressed.