有啥好的软件可以实现录制鼠标和键盘的操作（尽量少手敲），生成脚本供python调用？

Posted 2023-04-02

最近在搞web自动化测试，页面元素直接绘图生成无法用selenium定位元素，现在想通过录制鼠标和键盘操作生成脚本来实现（想尽快派上用场），试过按键精灵，但是生成的exe文件，勾选了自动运行或者打开多少秒后运行，python打开按键小精灵后依然不会执行，只有自己按F10才会运行，这样就和自动化测试相违背了，总不能守着电脑按F10，所以想问问有没录制软件可以实现我的需求。

Python也能象按键精灵一样模拟键鼠操作，直接用Python来做吧，该模块叫pyautogui，了解一下。

import pyautogui
print('Press Ctrl-C to quit.')
try:
    while True:
        # Get and print the mouse coordinates.
        x, y = pyautogui.position()
        positionStr = 'X: ' + str(x).rjust(4) + ' Y: ' + str(y).rjust(4)
        print(positionStr, end='')
        print('\\b' * len(positionStr), end='', flush=True)
except KeyboardInterrupt:
    print('\\nDone.')

这是Automate_the_Boring_Stuff一书中的演示代码，用于查找当前鼠标的坐标。

追问

你说的我有实践过，要想找录制软件的初衷是组内人员不是谁都会搞python或者java，然后用例数量又巨大又想希望能尽快派上用场，所以还是想找找工具录制

追答

pyautogui 这个模块是可以发送模拟按键的啊，你调用Python脚本后，用pyautogui发送一个F10的按键消息又不会死，这样你做好的按键精灵脚本就可以用了，为什么不敢去试试呢？

import pyautogui as autoit
# 你调用按键精灵脚本的代码...
# .....
autoit.press('f10') # 此处发送F10按键。

pyautogui 所有有效的按键，参见模块内的列表变量“KEYBOARD_KEYS” 。

参考技术A 按键精灵 F10 是全局响应的

python打开按键小精灵后
python再模拟键盘按键F10不就行了 ???追问

试过。。。不行，无论VBS或者pyautogui的keydown，还有pywin32都试过了，还有其他办法么？

追答

再写一个按键精灵脚本一开始就运行着
专门用来定时运行你的另外一个脚本

参考技术B 可以啊 但是 不清楚 你的记录是什么 鼠标轨迹 还是 鼠标点击 键盘记录太简单了追问

录制记录鼠标点击的坐标和动作，例如左键点击双击右键点击，键盘的操作，包括组合键，这些记录下来后，还要可以导出脚本让python调用执行。

参考技术C Python也能象按键精灵一样模拟键鼠操作，直接用Python来做吧，该模块叫pyautogui，这款是性价比很高的

类助手有啥好的用途？

【中文标题】类助手有啥好的用途？

【英文标题】：What are good uses for class helpers?类助手有什么好的用途？

【发布时间】：2010-09-20 04:25:43

【问题描述】：

Delphi（可能还有很多其他语言）有类助手。这些提供了一种向现有类添加额外方法的方法。无需创建子类。

那么，类助手有什么用处？

【参考方案1】：

我正在使用它们：

将insert enumerators 放入未实现它们的 VCL 类中。 致enhance VCL 类。

向 TStrings 类添加方法，以便我可以在 my derived lists 和 TStringList 中使用相同的方法。

TGpStringListHelper = class helper for TStringList
public
  function  Last: string;
  function  Contains(const s: string): boolean;
  function  FetchObject(const s: string): TObject;
  procedure Sort;
  procedure Remove(const s: string);
end;  TGpStringListHelper 

为了简化对记录字段和remove casting的访问。

【参考方案2】：

起初我对班级助手持怀疑态度。但后来我读到了一个有趣的blog entry，现在我确信它们确实有用。

例如，如果您想要现有实例类的额外功能并且由于某种原因您无法更改现有源。您可以创建一个类助手来添加此功能。

示例：

type
  TStringsHelper = class helper for TStrings
  public
    function IsEmpty: Boolean;
  end;

function TStringsHelper.IsEmpty: Boolean;
begin
  Result := Count = 0;
end;

现在，我们现在每次都使用 TStrings（的子类）的一个实例，并且 TStringsHelper 在范围内。我们可以访问方法 IsEmpty。

示例：

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Memo1.Lines.IsEmpty then
    Button1.Caption := 'Empty'
  else
    Button1.Caption := 'Filled';
end;

注意事项：

类助手可以存储在一个单独的单元中，因此您可以添加自己漂亮的类助手。请务必为这些单元起一个易于记忆的名称，例如 ClassesHelpers 用于 Classes 单元的助手。 还有记录助手。 如果范围内有多个类助手，预计会出现一些问题，只能使用一个助手。

【讨论】：

您是否阅读过评论：“从在您自己的应用程序中使用它们的观点来看，类助手的最大问题是，给定类的范围内可能只有一个类助手随时。” ... “也就是说，如果你在范围内有两个助手，编译器只会识别一个。你不会收到任何警告，甚至不会提示任何其他可能隐藏的助手。”

CLASS 助手可以继承自其他 CLASS 助手，因此您可以 - 实际上 - 有多个 CLASS 助手同时处于活动状态（但它们必须相互了解，因此您只能拥有一个CLASS 助手的连续“字符串”处于活动状态，即如果你有 Helper1，Helper2 从 Helper1 继承，Helper3 从 Helper2 继承，那么你不能只让 Helper3 处于活动状态（没有一些条件编译指令），但必须同时拥有这三个范围内的助手 - 您可以只有 Helper1，只有 Helper1+Helper2 或同时激活所有三个 - 没有 Helper1+Helper3）。

“类助手可以相互继承”——这使类助手的全部优点失效。

【参考方案3】：

这听起来很像 C#3（和 VB9）中的扩展方法。我见过它们的最佳用途是对IEnumerable<T>（和IQueryable<T>）的扩展，它可以让LINQ 处理任意序列：

var query = someOriginalSequence.Where(person => person.Age > 18)
                                .OrderBy(person => person.Name)
                                .Select(person => person.Job);

（当然也可以是其他）。所有这些都是可行的，因为扩展方法允许您有效地将对静态方法的调用链接在一起，这些静态方法采用与返回相同的类型。

【讨论】：

附带说明，Delphi 自 2000 年以来就拥有类助手，我们拥有该概念的专利。 Nick Hodges Delphi 产品经理 Embarcadero Technologies

@Nick：你说的是哪个版本的 Delphi，自 2000 年以来就有类助手？我只记得在 Delphi 2007 中使用它们进行非破坏性发布时阅读过它们。那是您声称 Delphi 拥有它们的那一年之后的 6 年。

在 Delphi 8（Delphi for .NET 的第一个版本）中将类助手添加到 Delphi。

@NickHodges 您是否还申请了无法同时激活多个助手的专利？

【参考方案4】：

它们对于插件非常有用。例如，假设您的项目定义了某种数据结构，并以某种方式保存到磁盘。但是其他一些程序做了非常相似的事情，但是数据文件不同。但是你不想用一堆导入代码来让你的 EXE 膨胀，因为你的很多用户都不需要使用这个功能。您可以使用插件框架并将导入器放入可以像这样工作的插件中：

type
   TCompetitionToMyClass = class helper for TMyClass
   public
      constructor Convert(base: TCompetition);
   end;

然后定义转换器。一个警告：类helper 不是类friend。这种技术只有在可以通过其公共方法和属性完全设置一个新的 TMyClass 对象时才有效。但如果可以的话，它真的很好用。

【参考方案5】：

我记得第一次遇到您所说的“类助手”是在学习 Objective C 时。Cocoa（Apple 的 Objective C 框架）使用所谓的“类别”。

类别允许您通过添加自己的方法来扩展现有类，而无需子类化。事实上，Cocoa 鼓励你尽可能避免子类化。子类化通常是有意义的，但通常可以使用类别来避免。

在 Cocoa 中使用类别的一个很好的例子是所谓的“键值代码 (KVC)”和“键值观察 (KVO)”。

该系统使用两个类别（NSKeyValueCoding 和 NSKeyValueObserving）实现。这些类别定义并实现了可以添加到您想要的任何类的方法。例如 Cocoa 通过使用这些类别向 NSArray 添加方法来向 KVC/KVO 添加“一致性”，例如：

- (id)valueForKey:(NSString *)key

NSArray 类既没有声明也没有此方法的实现。但是，通过使用类。您可以在任何 NSArray 类上调用该方法。你不需要继承 NSArray 来获得 KVC/KVO 的一致性。

NSArray *myArray = [NSArray array]; // Make a new empty array
id myValue = [myArray valueForKey:@"name"]; // Call a method defined in the category

使用这种技术可以轻松地将 KVC/KVO 支持添加到您自己的类中。 Java 接口允许您添加方法声明，但类别还允许您将实际实现添加到现有类。

【参考方案6】：

正如 GameCat 所示，TStrings 是避免打字的好选择：

type
  TMyObject = class
  public
    procedure DoSomething;
  end;

  TMyObjectStringsHelper = class helper for TStrings
  private
    function GetMyObject(const Name: string): TMyObject;
    procedure SetMyObject(const Name: string; const Value: TMyObject);
  public
    property MyObject[const Name: string]: TMyObject read GetMyObject write SetMyObject; default;
  end;

function TMyObjectStringsHelper.GetMyObject(const Name: string): TMyObject;
var
  idx: Integer;
begin
  idx := IndexOf(Name);
  if idx < 0 then
    result := nil
  else
    result := Objects[idx] as TMyObject;
end;

procedure TMyObjectStringsHelper.SetMyObject(const Name: string; const Value:
    TMyObject);
var
  idx: Integer;
begin
  idx := IndexOf(Name);
  if idx < 0 then
    AddObject(Name, Value)
  else
    Objects[idx] := Value;
end;

var
  lst: TStrings;
begin
  ...
  lst['MyName'] := TMyObject.Create; 
  ...
  lst['MyName'].DoSomething;
  ...
end;

---

您是否曾经需要访问注册表中的多行字符串？

type
  TRegistryHelper = class helper for TRegistry
  public
    function ReadStrings(const ValueName: string): TStringDynArray;
  end;

function TRegistryHelper.ReadStrings(const ValueName: string): TStringDynArray;
var
  DataType: DWord;
  DataSize: DWord;
  Buf: PChar;
  P: PChar;
  Len: Integer;
  I: Integer;
begin
  result := nil;
  if RegQueryValueEx(CurrentKey, PChar(ValueName), nil, @DataType, nil, @DataSize) = ERROR_SUCCESS then begin
    if DataType = REG_MULTI_SZ then begin
      GetMem(Buf, DataSize + 2);
      try
        if RegQueryValueEx(CurrentKey, PChar(ValueName), nil, @DataType, PByte(Buf), @DataSize) = ERROR_SUCCESS then begin
          for I := 0 to 1 do begin
            if Buf[DataSize - 2] <> #0 then begin
              Buf[DataSize] := #0;
              Inc(DataSize);
            end;
          end;

          Len := 0;
          for I := 0 to DataSize - 1 do
            if Buf[I] = #0 then
              Inc(Len);
          Dec(Len);
          if Len > 0 then begin
            SetLength(result, Len);
            P := Buf;
            for I := 0 to Len - 1 do begin
              result[I] := StrPas(P);
              Inc(P, Length(P) + 1);
            end;
          end;
        end;
      finally
        FreeMem(Buf, DataSize);
      end;
    end;
  end;
end;

【讨论】：

哇，覆盖“默认”！极好的。并且可能是奇怪错误的重要来源:)

同意，这有点不对劲。但我主要在狭窄范围内使用类助手，所以这不是问题 - 到目前为止......

【参考方案7】：

我不建议使用它们，因为我阅读了此评论：

“类最大的问题 助手，来自使用它们的 p.o.v 在您自己的应用程序中，这是事实 给定的只有一个类助手 课程可能随时都在范围内。” ……“也就是说，如果你有两个帮手 在范围内，只有一个会被识别 由编译器。你不会得到任何 警告甚至暗示任何其他 可能隐藏的助手。”

http://davidglassborow.blogspot.com/2006/05/class-helpers-good-or-bad.html

【讨论】：

我已阅读该评论。但这不是不使用它们的理由。就像任何其他工具一样小心使用它们。

@GamecatisToonKrijthe 甚至没有提示，这意味着开发人员现在必须扫描第三方库的所有来源（不仅一次，而且每次更新）以检测“冲突助手”...

这是正确答案。帮助程序不是 Delphi 版本的 C# 扩展方法。助手不是通用的编程解决方案，不应在任何新代码中使用。如果你试图在一个类中已经存在的地方声明一个帮助器（例如TGuidHelper），那么你会破坏现有的代码。如果 Delphi 支持扩展方法，我会LOVE；这将是一个 EXTRAORDINARILY 有用的语言功能。但助手不是那个特性。

【参考方案8】：

我已经看到它们用于使可用的类方法在类之间保持一致：将 Open/Close 和 Show/Hide 添加到给定“类型”的所有类，而不仅仅是 Active 和 Visible 属性。

【参考方案9】：

如果 Dephi 支持扩展方法，我想要的一种用途是：

TGuidHelper = class
public
   class function IsEmpty(this Value: TGUID): Boolean;
end;

class function TGuidHelper(this Value: TGUID): Boolean;
begin
   Result := (Value = TGuid.Empty);
end;

所以我可以打电话给if customerGuid.IsEmpty then ...。

另一个很好的例子是能够使用IDataRecord 范式（我喜欢）从 XML 文档（或者 JSON，如果你喜欢这种东西）读取值：

orderGuid := xmlDocument.GetGuid('/Order/OrderID');

这比：

var
   node: IXMLDOMNode;

   node := xmlDocument.selectSingleNode('/Order/OrderID');
   if Assigned(node) then
      orderID := StrToGuid(node.Text) //throw convert error on empty or invalid
   else
      orderID := TGuid.Empty; // "DBNull" becomes the null guid