![小程序将当前日期+时间作为 YYYY-MM-DD HH:MM 复制到剪贴板?](https://linux22.com/image/1278098/%E5%B0%8F%E7%A8%8B%E5%BA%8F%E5%B0%86%E5%BD%93%E5%89%8D%E6%97%A5%E6%9C%9F%2B%E6%97%B6%E9%97%B4%E4%BD%9C%E4%B8%BA%20YYYY-MM-DD%20HH%3AMM%20%E5%A4%8D%E5%88%B6%E5%88%B0%E5%89%AA%E8%B4%B4%E6%9D%BF%EF%BC%9F.png)
我有时需要以 MySQL 格式输入当前日期 + 时间,即 YYYY-MM-DD HH:MM。
在我自己编写一个之前,是否有人知道可以执行此操作的 Windows 小程序,以便我只需双击它,然后将剪贴板粘贴到其他地方?
谢谢。
编辑:事实证明,这很容易做到自由基础,尽管它是一个控制台小程序而不是 GUI 小程序:
#include "vbcompat.bi"
#include "windows.bi"
Sub ClearClipboard(hwnd As HWND = NULL)
OpenClipboard(hWnd)
EmptyClipboard()
CloseClipboard()
End Sub
Sub WriteClipboard(Text As String, CPFormat As Integer = CF_TEXT, hWnd As HWND = NULL)
Var hGlobalClip = GlobalAlloc(GMEM_MOVEABLE Or GMEM_SHARE, Len(Text)+1)
OpenClipboard(hWnd)
EmptyClipboard()
Var lpMem = GlobalLock(hGlobalClip)
CopyMemory(lpMem, StrPtr(Text), Len(text))
GlobalUnlock(lpMem)
SetClipboardData(CPFormat, hGlobalClip)
CloseClipboard()
End Sub
Dim a As Double = Now()
Dim CurrentDateTime as String
ClearClipboard()
CurrentDateTime = Format(a, "yyyy-mm-dd hh:mm")
WriteClipboard(CurrentDateTime)
答案1
我很快就制作了一个名为“HTA”的实用程序来执行此操作获取MySQL日期时间使用 VBScript。您可以随意使用/修改/重新分发它以用于任何目的。由于它是 HTA,您可以使用任何文本编辑器直接修改代码。
使用方法:运行后字符串就会出现在剪贴板上。点击“刷新”按钮即可更新。