下面是一个使用AutoHotkey编写的脚本，用于比较不同目录中的文件名（去除扩展名），如果文件名相同，则复制/移动。

; 设置源目录和目标目录
sourceDir := "C:\Source\Directory"
targetDir := "C:\Target\Directory"

; 获取源目录中的所有文件
Loop, Files, %sourceDir%\*.*
{
    ; 获取文件名（去除扩展名）
    sourceFileName := SubStr(A_LoopFileName, 1, InStr(A_LoopFileName, ".")-1)
    
    ; 检查目标目录中是否存在相同的文件名
    Loop, Files, %targetDir%\*.*
    {
        ; 获取文件名（去除扩展名）
        targetFileName := SubStr(A_LoopFileName, 1, InStr(A_LoopFileName, ".")-1)
        
        ; 如果文件名相同，则复制/移动文件
        if (sourceFileName = targetFileName)
        {
            ; 复制文件
            FileCopy, %sourceDir%\%A_LoopFileName%, %targetDir%\%A_LoopFileName%
            
            ; 或者移动文件（删除源文件）
            ; FileMove, %sourceDir%\%A_LoopFileName%, %targetDir%\%A_LoopFileName%, 1
            
            ; 输出操作结果
            MsgBox, 文件 %A_LoopFileName% 已复制/移动到目标目录。
            
            ; 跳出内层循环
            break
        }
    }
}

在上面的示例中，你需要将sourceDir和targetDir变量的值更改为你实际的源目录和目标目录。

脚本中使用了两个嵌套的循环。外层循环用于遍历源目录中的所有文件，内层循环用于遍历目标目录中的所有文件。在每次循环中，我们都会获取文件名（去除扩展名），然后比较源目录和目标目录中的文件名是否相同。如果文件名相同，则可以选择复制文件到目标目录，或者移动文件并删除源文件。

你可以根据实际需求选择复制或移动文件。如果选择移动文件，你需要取消注释FileMove行并注释FileCopy行。

最后，脚本会弹出一个消息框，显示文件已复制/移动到目标目录。你可以根据需要修改消息框的内容或删除该行。