以下是一个示例的AutoHotkey代码，它可以实现按下按钮后将选定文本划掉并更改颜色：

^+d::
    Send, ^c ; 复制选定文本到剪贴板
    ClipWait ; 等待剪贴板内容可用

    ; 获取选定文本的坐标
    CoordMode, Mouse, Screen
    MouseGetPos, x, y

    ; 创建一个标签，用于显示划掉的文本
    Gui +LastFound
    Gui, Add, Text, x%x% y%y% w200 h20, %Clipboard%
    Gui, Font, s12, Strikethrough
    Gui, Color, Yellow
    WinSet, TransColor, Yellow ; 设置标签背景色为透明

    ; 显示标签
    Gui, Show, x0 y0 NoActivate

    ; 等待1秒
    Sleep, 1000

    ; 隐藏标签
    Gui, Hide

    ; 清空剪贴板内容
    Clipboard := ""

    ; 将划掉的文本发送回原来的位置
    MouseMove, x, y
    Send, ^v

    ; 恢复鼠标位置
    MouseMove, %x%, %y%
return

此代码定义了一个快捷键（Ctrl + Shift + D），当按下这个快捷键时，它会执行以下操作：

1. 复制选定的文本到剪贴板。
2. 获取选定文本的坐标。
3. 创建一个标签，用于显示划掉的文本，并设置其背景色为透明。
4. 显示标签，并等待1秒。
5. 隐藏标签。
6. 清空剪贴板内容。
7. 将划掉的文本发送回原来的位置。
8. 恢复鼠标位置。

请注意，这只是一个示例代码，你可以根据自己的需求进行修改和调整。