LClick*5

Ideas for new features & functions

Moderators: Dorian (MJT support), JRL

Post Reply
User avatar
JRL
Automation Wizard
Posts: 3497
Joined: Mon Jan 10, 2005 6:22 pm
Location: Iowa

LClick*5

Post by JRL » Fri Oct 09, 2020 4:46 pm

Could LClick and RClick be included with the keyboard functions that accept a multiplier?

User avatar
Marcus Tettmar
Site Admin
Posts: 7376
Joined: Thu Sep 19, 2002 3:00 pm
Location: Dorset, UK
Contact:

Re: LClick*5

Post by Marcus Tettmar » Sat Oct 10, 2020 3:37 pm

Yes, have added to the list.
Marcus Tettmar
http://mjtnet.com/blog/ | http://twitter.com/marcustettmar

Did you know we are now offering affordable monthly subscriptions for Macro Scheduler Standard?

User avatar
JRL
Automation Wizard
Posts: 3497
Joined: Mon Jan 10, 2005 6:22 pm
Location: Iowa

Re: LClick*5

Post by JRL » Mon Oct 12, 2020 3:19 pm

Excellent!
Thank you. :)

Code: Select all

Let>RP_Windowmode=0
//DeleteFile>%temp_dir%DateStampPuzzlerTrial.txt
DeleteFile>%temp_dir%PuzzlerCPULoad.txt
//LibFunc>Winmm,timeBeginPeriod,vResB,1

//Setup for running secondary background macros
//A substitute for multithreading
StringReplace>Command_Line,",,Command_Line
UpperCase>Command_Line,Command_Line
Uppercase>Script_Dir,Script_Dir
ExtractFileName>Command_Line,vExecutorName
StringReplace>vExecutorName,.EXE ,.EXE,vExecutorName
If>%vExecutorName%=MSCHED.EXE
Else
  StringReplace>Command_Line,%script_Dir%\%vExecutorName%,,Command_Line
EndIf


Min>vMM

Dialog>Dialog1
object Dialog1: TForm
  Left = 661
  Top = 207
  HelpContext = 5000
  BorderIcons = [biSystemMenu]
  Caption = 'Timing Test'
  ClientHeight = 103
  ClientWidth = 180
  Color = 16177200
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  ShowHint = True
  OnTaskBar = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 55
    Top = 16
    Width = 31
    Height = 13
    Caption = 'Cycles'
  end
  object Label2: TLabel
    Left = 56
    Top = 40
    Width = 32
    Height = 13
    Caption = 'Label2'
  end
  object MSButton1: tMSButton
    Left = 50
    Top = 64
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 0
    DoBrowse = False
    BrowseStyle = fbOpen
  end
end
EndDialog>Dialog1

GetTime>vPreTime
SetDialogProperty>Dialog1,,Caption,vPreTime
AddDialogHandler>Dialog1,MSButton1,OnClick,Quit
AddDialogHandler>Dialog1,,OnClose,Quit
Show>Dialog1
Let>vCycleCount=0
GoSub>GetCPU

Label>ReTime
  GetTime>vPreTime
  SetDialogProperty>Dialog1,,Caption,vPreTime
  //A few seconds of tight loop
  Sec>vSS
  If>vSS>55
  //LibFunc>Winmm,timeBeginPeriod,vResB,1
  Label>NoWait
    //Min>vMM2
    //If>%vMM%<>%vMM2%
    Let>ww=0
    Repeat>ww
      WriteLn>%temp_dir%Make a file to wake the drive.txt,wres,Arbitrary Text
      Add>ww,1
    Until>ww=5
      DeleteFile>%temp_dir%Make a file to wake the drive.txt
      Let>RP_Wait=0
      RunProgram>%command_Line% %Script_Dir%\P13 Min Test Called Macro.scp /vData=%vData%

      //Macro>%script_Dir%\P13 Min Test Called Macro.scp /vData=%vData%
      //Min>vMM

      //DateStamp>%temp_dir%DateStampPuzzlerTrial.txt,%vData% - %vLastTime%
      GetTime>vLastTime
      SetDialogProperty>Dialog1,Label2,Caption,vLastTime
      Min>vMM
      DeleteFile>%temp_dir%PuzzlerCPULoad.txt
      GoSub>GetCPU
      Add>vCycleCount,1
      SetDialogProperty>Dialog1,Label1,Caption,Cycles = %vCycleCount%
      //LibFunc>Winmm,timeEndPeriod,vResE,1
      Goto>Control
    //EndIf
    Goto>NoWait
  EndIf
  Label>Control
  GetTime>vPreTime
  SetDialogProperty>Dialog1,,Caption,vPreTime
  Sec>vSS
  If>vSS>55
    Wait>0.01
    Goto>Control
  EndIf
  Wait>0.01
Goto>ReTime

SRT>GetCPU
  Let>RP_Wait=1
  RunProgram>cmd /c wmic cpu get loadpercentage > %temp_dir%PuzzlerCPULoad.txt
  ReadLn>%temp_dir%PuzzlerCPULoad.txt,2,vData
  Trim>vData,vData
END>GetCPU

SRT>Quit
  //LibFunc>Winmm,timeEndPeriod,vResE,1
  ExecuteFile>%script_Dir%\Analyze_timestamp_Output.scp
  Exit>0
END>Quit

Exit>0

Code: Select all

Let>RP_Wait=1
Let>RP_Windowmode=0

//LibFunc>Winmm,timeBeginPeriod,vResB,1

Min>vMM

//Two seconds of tight loop
LibFunc>Winmm,timeBeginPeriod,vResB,1
Label>NoWait
  Min>vMM2
  If>%vMM%<>%vMM2%
    DateStamp>%temp_dir%DateStampPuzzlerTrial.txt,%vData%
    LibFunc>Winmm,timeEndPeriod,vResE,1
    Goto>Control
  EndIf
  Goto>NoWait
EndIf
Label>Control

Exit>0

User avatar
Dorian (MJT support)
Automation Wizard
Posts: 1347
Joined: Sun Nov 03, 2002 3:19 am
Contact:

Re: LClick*5

Post by Dorian (MJT support) » Wed Jun 07, 2023 2:22 pm

Added to v15.0.23
Yes, we have a Custom Scripting Service. Message me or go here

Post Reply
Sign up to our newsletter for free automation tips, tricks & discounts