set ws = createobject("wscript.shell")
ws.run ("多功能剪切板.exe")
wscript.sleep 1000
ws.appactivate("多功能剪切板")
ws.sendkeys "c:\11" 			'F1的快捷路径
ws.sendkeys "~{TAB}"
ws.sendkeys "c:\22" 			'F2的快捷路径
ws.sendkeys "~{TAB}"
ws.sendkeys "c:\33"
ws.sendkeys "~{TAB}"
wscript.sleep 1000
ws.sendkeys "% n" 			'输入完成，最小化多功能窗口
wscript.quit
复制代码

@echo off&setlocal enabledelayedexpansion
(echo set ws = createobject("wscript.shell"^)
echo N = WScript.Arguments(0^)
echo ws.appactivate("多功能剪切板"^)
echo wscript.sleep 500
echo For i = 1 To N-1
echo     ws.SendKeys "{TAB}"
echo Next
echo ws.sendkeys "^v"
echo wscript.sleep 500
echo ws.sendkeys "{TAB}"
echo wscript.quit)>$.vbs

start "" "多功能剪切板.exe"
rem 注意 +21 这个数值与下面的 “地址列表：”的行数一致。否则取数会出错
for /f "delims=" %%i in ('more +21 %~f0') do (
	set/a n+=1&echo %%i | clip &cscript //NoLogo $.vbs !n!
)
del $.vbs&exit/b

地址列表：
E:\01_项目2024\15_广西2024\03_资料0914
E:\02_项目2024\15_北京2024\03_资料0914
E:\03_项目2024\15_西安2024\03_资料0914
复制代码

<#*,:
@echo off
cd /d "%~dp0"
set "batchfile=%~f0"
Powershell -ExecutionPolicy Bypass -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create([IO.File]::ReadAllText($env:batchfile,[Text.Encoding]::GetEncoding(0) )) )"

exit /b
#>
Add-Type -AssemblyName System.Windows.Forms, Microsoft.VisualBasic
$proc = Start-Process -FilePath "多功能剪切板.exe" -PassThru
[Microsoft.VisualBasic.Interaction]::AppActivate($proc.Id)
# Start-Sleep -Milliseconds 1000
[System.Windows.Forms.SendKeys]::SendWait("E:\01_项目2024\15_广西2024\03_资料0914") # F1的快捷路径
[System.Windows.Forms.SendKeys]::SendWait("~{TAB}")

[System.Windows.Forms.SendKeys]::SendWait("E:\22\01_项目2024\15_广西2024\03_资料0914") # F2的快捷路径
[System.Windows.Forms.SendKeys]::SendWait("~{TAB}")

[System.Windows.Forms.SendKeys]::SendWait("E:\33\中文abc") # F3的快捷路径
[System.Windows.Forms.SendKeys]::SendWait("~{TAB}")

Start-Sleep -Milliseconds 500
[System.Windows.Forms.SendKeys]::SendWait("% n")
复制代码

f1::send, E:\01_项目2024\15_广西2024\03_资料0914
f2::send, E:\02_项目2024\15_北京2024\03_资料0914
f3::send, E:\03_项目2024\15_西安2024\03_资料0914
return
复制代码

@echo off

:loop
set /p s=请输入一个数字，按回车键退出
if %s%==1 goto :c1
if %s%==2 goto :c2
exit

:c1
set "s=E:\01_项目2024\15_广西2024\03_资料0914"
mshta.exe vbscript:ClipboardData.SetData("text","%s%")(close)
echo 已复制 %s%
echo,
goto :loop

:c2
set "s=E:\01_项目2024\"
mshta.exe vbscript:ClipboardData.SetData("text","%s%")(close)
echo 已复制 %s%
echo,
goto :loop
复制代码

@echo off&setlocal enabledelayedexpansion
(echo set ws = createobject("wscript.shell"^)
echo N = WScript.Arguments(0^)
echo ws.appactivate("多功能剪切板"^)
echo wscript.sleep 500
echo For i = 1 To N-1
echo     ws.SendKeys "{TAB}"
echo Next
echo ws.sendkeys "^v"
echo wscript.sleep 500
echo ws.sendkeys "{TAB}"
echo wscript.quit)>$.vbs

start "" "多功能剪切板.exe"
for /f "delims=" %%i in (地址列表.txt) do (
	set/a n+=1&echo %%i | clip &cscript //NoLogo $.vbs !n!
)
rem 地址粘贴完成，把软件最小化，需要的可以把::去掉
::mshta vbscript:execute("Set A=CreateObject(""WScript.Shell""):a.appactivate""多功能剪切板"":A.sendkeys(""%% n""):close")
del $.vbs&exit/b
复制代码

@echo off&setlocal enabledelayedexpansion
chcp 936
(echo set ws = createobject("wscript.shell"^)
echo N = WScript.Arguments(0^)
echo ws.appactivate("多功能剪切板"^)
echo wscript.sleep 500
echo For i = 1 To N-1
echo     ws.SendKeys "{TAB}"
echo Next
echo ws.sendkeys "^v"
echo wscript.sleep 500
echo wscript.quit)>$.vbs

chcp 65001
start "" "MultiClipBoard.exe"
for /f "delims=" %%i in (addlist.txt) do (
	set/a n+=1&echo %%i | clip &cscript //NoLogo $.vbs !n!
)
rem 地址粘贴完成，把软件最小化，需要的可以把::去掉
::mshta vbscript:execute("Set A=CreateObject(""WScript.Shell""):a.appactivate""多功能剪切板"":A.sendkeys(""%% n""):close")
del $.vbs&exit/b
复制代码

;&cls &@echo off
;chcp 65001 >nul
;cd /d "%~dp0"
;start "" "AutoHotkey.exe" "%~f0"
;echo 注意：1.脚本编码 UTF-8 带签名& echo       2.在输入法英文状态下使用
;timeout 10
;exit

f1::send, E:\01_项目2024\15_广西2024\03_资料0914
f2::send, E:\02_项目2024\15_北京2024\03_资料0914
f3::send, E:\03_项目2024\15_西安2024\03_资料0914
return
复制代码

::111::E:\01_项目2024\15_广西2024\03_资料0914
::222::E:\02_项目2024\15_北京2024\03_资料0914
::333::E:\03_项目2024\15_西安2024\03_资料0914
复制代码

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit

$list=@(
'C:\01_项目AA2'
'C:\01_项目AA2'
'C:\01_项目AA2'
)

Add-Type -AssemblyName System.Windows.Forms
Add-Type @'
using System;
using System.Runtime.InteropServices;

public class HK
{
    [DllImport("user32.dll")]
    public static extern bool RegisterHotKey(IntPtr hWnd, int id, uint fsModifiers, uint vk);
    [DllImport("user32.dll")]
    public static extern bool GetMessage(ref MSG lpMsg, IntPtr hWnd, uint wMsgFilterMin, uint wMsgFilterMax);
    [StructLayout(LayoutKind.Sequential)]
    public struct MSG
    {
	public IntPtr hwnd;
	public uint message;
	public IntPtr wParam;
	public IntPtr lParam;
	public uint time;
	public int x;
	public int y;
    }
}
'@

$define = for($i=0x70; $i -le 0x79; $i++){
[void][HK]::RegisterHotKey(0, $i, 0x4000, $i)
"{0}{{scb '{1}'; {2}; break}}" -f $i, $list[$i-0x70], '[System.Windows.Forms.SendKeys]::SendWait("^v")'
}
$define='switch($msg.wParam){'+($define|out-string)+'}'

$msg = @{}
while([HK]::GetMessage([ref]$msg, 0, 0, 0) -ne 0){if($msg.message -eq 0x0312){iex $define}}
复制代码

/*
@echo off&chcp 936&cls&setlocal
set "exename=单功能剪切板.exe"
if exist "%exename%" start "" "%exename%"&exit/b
for /f "delims=" %%a in ('dir /b /ad /o-n "%systemroot%\Microsoft.NET"') do (
for /f "delims=" %%b in ('dir /b /ad /o-n "%systemroot%\Microsoft.NET\%%a"') do (
for /f "delims=" %%r in ('dir /s /b /o-n "%systemroot%\Microsoft.NET\%%a\%%b\csc.exe"') do (
if "%%~xr"==".exe" (
set "csc=%%~fr"
goto :aaa)
)))
echo 找不到C#编译器csc.exe
goto :bbb
:aaa
"%csc%"  /target:winexe /out:"%exename%"  "%~f0"
echo,&timeout /t 1 1>nul
if exist "%exename%" (echo,编译成功，请重新运行此bat或%exename%) else (echo,编译失败)
:bbb
endlocal
echo,&pause&exit /b
*/

using System;
using System.Drawing;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Threading.Tasks;
using System.Text;
using System.Windows.Forms;
using System.Runtime.InteropServices;

namespace WinFormsApp
{
public class Winapi{
public const int WM_DESTROY=0x0002;
public const int WM_HOTKEY=0x0312;
public const int MOD_NOREPEAT=0x4000; 
[DllImport("user32.dll",ExactSpelling=true)]
[return:MarshalAs(UnmanagedType.Bool)]
public static extern bool RegisterHotKey(IntPtr hwnd,int id,uint fsmodifiers,uint vk);
[DllImport("user32.dll",ExactSpelling=true)]
[return:MarshalAs(UnmanagedType.Bool)]
public static extern bool UnregisterHotKey(IntPtr hwnd,int id);
}

public partial class Form999:Form{

private List<Label> lstlb;
private List<TextBox> lsttb;
private List<bool> lsbl;
private Button bt1;
private Button bt2;
private Label lb;
private System.ComponentModel.IContainer components = null;

protected override void Dispose(bool disposing){
if (disposing && (components != null)){components.Dispose();}
base.Dispose(disposing);
}

public Form999(){Initial();}//this.bt2.PerformClick();}

public void Initial(){
this.lstlb=new List<Label>(10);
this.lsttb=new List<TextBox>(10);
this.lsbl=new List<bool>(10);
for(int t=0x70;t<0x7a;t++){
lsbl.Add(Winapi.RegisterHotKey(this.Handle,t,Winapi.MOD_NOREPEAT,(uint)t));
}
this.SuspendLayout();
int i=0;
for(int c=0;c<10;c++){
lstlb.Add(new Label());
if((c>4) && (0==i)){i+=1;}
lstlb[c].Size=new Size(30,70);
lstlb[c].Name="lable"+c;
if(c<5){lstlb[c].TextAlign=ContentAlignment.TopRight;}
lstlb[c].Text=String.Format("F{0}",c+1);
lstlb[c].Location=new Point(16+(8+150+60+30+8)*i,70*(c%5)+8*(c%5+1));

lsttb.Add(new TextBox());
if((c>4) && (0==i)){i+=1;}
lsttb[c].Size=new Size(150,70);
lsttb[c].Name="textbox"+c;
lsttb[c].TabIndex=i;
lsttb[c].BorderStyle=BorderStyle.FixedSingle;
lsttb[c].Multiline=true;
lsttb[c].Location=new Point(16+30+8+(150+60+30+8)*i,70*(c%5)+8*(c%5+1));
if(!lsbl[c]){lsttb[c].Enabled=false;lsttb[c].Text="快捷键注册失败";}
}

this.bt1=new Button();
this.bt1.Name="button1";
this.bt1.Size=new Size(100,24);
this.bt1.Location=new Point(16+30+8+24,480-16-20-32);
this.bt1.TabIndex=11;
this.bt1.Text="清空框框内容";
this.bt1.UseVisualStyleBackColor=true;
this.bt1.Click+=new EventHandler(this.bt1_Click);

this.bt2=new Button();
this.bt2.Name="button2";
this.bt2.Size=new Size(100,24);
this.bt2.Location=new Point(16+(30+8)*2+150+60+24,480-16-20-32);
this.bt2.TabIndex=12;
this.bt2.Text="重新加载配置";
this.bt2.UseVisualStyleBackColor=true;
this.bt2.Click+=new EventHandler(this.bt2_Click);

for(int t=0;t<10;t++){this.lstlb[t].TabIndex=t+13;}

this.lb=new Label();
this.lb.Location = new System.Drawing.Point(8, 480-16-8);
this.lb.Name = "label";
this.lb.Size = new System.Drawing.Size(480-8-8, 20);
this.lb.TabIndex = 23;
this.lb.TextAlign=ContentAlignment.TopCenter;
this.lb.Text="可将 123456.txt 作为配置文件，文件编码 utf8，一行一个，不想配置的可用空行代替";

this.bt2_Click(null,null);
this.ClientSize = new System.Drawing.Size(480, 480);
for(int t=0;t<10;t++){
this.Controls.Add(this.lstlb[t]);
this.Controls.Add(this.lsttb[t]);
}
this.Controls.Add(this.bt1);
this.Controls.Add(this.bt2);
this.Controls.Add(this.lb);
this.Name = "Form999";
this.Text = "单功能剪切版";
this.ResumeLayout(false);
this.PerformLayout();
}
protected override void WndProc(ref Message m)
{
int value=0;
switch(m.Msg){
case Winapi.WM_DESTROY:
for(int t=0;t<10;t++){
if(this.lsbl[t]){
Winapi.UnregisterHotKey(this.Handle,t+0x70);
}}
break;
case Winapi.WM_HOTKEY:
value=(int)m.WParam;
if((value>0x69)&&(value<0x7a)){
Clipboard.SetData("UnicodeText",this.lsttb[value-0x70].Text);
System.Threading.Thread.Sleep(0);
SendKeys.SendWait("^v");
}
break;
}
base.WndProc(ref m);
}

private void bt1_Click(object sender, EventArgs e){
for(int t=0;t<10;t++){
if(lsbl[t]){this.lsttb[t].Text="";}
}}

private void bt2_Click(object sender, EventArgs e){
string cfgfile="123456.txt";
string[] str;
if(File.Exists(cfgfile)){
str=File.ReadAllLines(cfgfile,Encoding.UTF8);
for(int t=0;(t<(str.Length-1))&&(t<10);t++){
if(this.lsbl[t]){this.lsttb[t].Text=str[t];}
}}}
}
static class Program{
[STAThread]
static void Main(){
Application.EnableVisualStyles();
Application.SetCompatibleTextRenderingDefault(false);
Application.Run(new Form999());
}}

}
复制代码

/*
@echo off&chcp 936&cls&setlocal
set "exename=单功能剪切板.exe"
if exist "%exename%" start "" "%exename%"&endlocal&exit/b
for /f "delims=" %%a in ('dir /b /ad /o-n "%systemroot%\Microsoft.NET"') do (
for /f "delims=" %%b in ('dir /b /ad /o-n "%systemroot%\Microsoft.NET\%%a"') do (
for /f "delims=" %%r in ('dir /s /b /o-n "%systemroot%\Microsoft.NET\%%a\%%b\csc.exe"') do (
if "%%~xr"==".exe" (
set "csc=%%~fr"
goto :aaa)
)))
echo 找不到C#编译器csc.exe
goto :bbb
:aaa
"%csc%"  /target:winexe /out:"%exename%"  "%~f0"
echo,&timeout /t 1 1>nul
if exist "%exename%" (echo,编译成功，请重新运行此bat或%exename%) else (echo,编译失败)
:bbb
endlocal
echo,&pause&exit /b
*/

using System;
using System.Drawing;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Threading.Tasks;
using System.Text;
using System.Windows.Forms;
using System.Runtime.InteropServices;

namespace WinFormsApp
{
public class Winapi{
public const int WM_DESTROY=0x0002;
public const int WM_HOTKEY=0x0312;
public const int WM_KEYDOWN=0x0100;
public const int WM_KEYUP=0x0101;//public const int WM_CHAR=0x0102;
public const int MOD_NOREPEAT=0x4000; 
[DllImport("user32.dll",ExactSpelling=true)]
[return:MarshalAs(UnmanagedType.Bool)]
public static extern bool RegisterHotKey(IntPtr hwnd,int id,uint fsmodifiers,uint vk);
[DllImport("user32.dll",ExactSpelling=true)]
[return:MarshalAs(UnmanagedType.Bool)]
public static extern bool UnregisterHotKey(IntPtr hwnd,int id);
[DllImport("user32.dll")]
public static extern IntPtr GetForegroundWindow();
[DllImport("user32.dll",ExactSpelling=true)]
[return:MarshalAs(UnmanagedType.Bool)]
public static extern bool PostMessageA(IntPtr hwnd, uint msg, int wparam, uint iparam);
}

public partial class Form999:Form{

private List<Label> lstlb;
private List<TextBox> lsttb;
private List<bool> lsbl;
private Button bt1;
private Button bt2;
private Label lb;
private System.ComponentModel.IContainer components = null;

protected override void Dispose(bool disposing){
if (disposing && (components != null)){components.Dispose();}
base.Dispose(disposing);
}

public Form999(){Initial();}//this.bt2.PerformClick();}

public void Initial(){
this.lstlb=new List<Label>(10);
this.lsttb=new List<TextBox>(10);
this.lsbl=new List<bool>(10);
for(int t=0x70;t<0x7a;t++){
lsbl.Add(Winapi.RegisterHotKey(this.Handle,t,Winapi.MOD_NOREPEAT,(uint)t));
}
this.SuspendLayout();
int i=0;
for(int c=0;c<10;c++){
lstlb.Add(new Label());
if((c>4) && (0==i)){i+=1;}
lstlb[c].Size=new Size(30,70);
lstlb[c].Name="lable"+c;
if(c<5){lstlb[c].TextAlign=ContentAlignment.TopRight;}
lstlb[c].Text=String.Format("F{0}",c+1);
lstlb[c].Location=new Point(16+(8+150+60+30+8)*i,70*(c%5)+8*(c%5+1));

lsttb.Add(new TextBox());
if((c>4) && (0==i)){i+=1;}
lsttb[c].Size=new Size(150,70);
lsttb[c].Name="textbox"+c;
lsttb[c].TabIndex=i;
lsttb[c].BorderStyle=BorderStyle.FixedSingle;
lsttb[c].Multiline=true;
lsttb[c].Location=new Point(16+30+8+(150+60+30+8)*i,70*(c%5)+8*(c%5+1));
if(!lsbl[c]){lsttb[c].Enabled=false;lsttb[c].Text="快捷键注册失败";}
}

this.bt1=new Button();
this.bt1.Name="button1";
this.bt1.Size=new Size(100,24);
this.bt1.Location=new Point(16+30+8+24,480-16-20-32);
this.bt1.TabIndex=11;
this.bt1.Text="清空框框内容";
this.bt1.UseVisualStyleBackColor=true;
this.bt1.Click+=new EventHandler(this.bt1_Click);

this.bt2=new Button();
this.bt2.Name="button2";
this.bt2.Size=new Size(100,24);
this.bt2.Location=new Point(16+(30+8)*2+150+60+24,480-16-20-32);
this.bt2.TabIndex=12;
this.bt2.Text="重新加载配置";
this.bt2.UseVisualStyleBackColor=true;
this.bt2.Click+=new EventHandler(this.bt2_Click);

for(int t=0;t<10;t++){this.lstlb[t].TabIndex=t+13;}

this.lb=new Label();
this.lb.Location = new System.Drawing.Point(8, 480-16-8);
this.lb.Name = "label";
this.lb.Size = new System.Drawing.Size(480-8-8, 20);
this.lb.TabIndex = 23;
this.lb.TextAlign=ContentAlignment.TopCenter;
this.lb.Text="可将 123456.txt 作为配置文件，文件编码 utf8，一行一个，不想配置的可用空行代替";

this.bt2_Click(null,null);
this.ClientSize = new System.Drawing.Size(480, 480);
for(int t=0;t<10;t++){
this.Controls.Add(this.lstlb[t]);
this.Controls.Add(this.lsttb[t]);
}
this.Controls.Add(this.bt1);
this.Controls.Add(this.bt2);
this.Controls.Add(this.lb);
this.Name = "Form999";
this.Text = "单功能剪切板";
this.ResumeLayout(false);
this.PerformLayout();
}

protected override void WndProc(ref Message m)
{
int value=0;IntPtr ip;
switch(m.Msg){
case Winapi.WM_DESTROY:
for(int t=0;t<10;t++){
if(this.lsbl[t]){
Winapi.UnregisterHotKey(this.Handle,t+0x70);
}}
break;
case Winapi.WM_HOTKEY:
value=(int)m.WParam;
if((value>0x69)&&(value<0x7a)&&(!string.IsNullOrEmpty(this.lsttb[value-0x70].Text))){
Clipboard.SetData("UnicodeText",this.lsttb[value-0x70].Text);
System.Threading.Thread.Sleep(0);
SendKeys.SendWait("^v");
}else{
ip=Winapi.GetForegroundWindow();
if(ip != IntPtr.Zero){
Winapi.PostMessageA(ip,Winapi.WM_KEYDOWN,value,0x40000001);
Winapi.PostMessageA(ip,Winapi.WM_KEYUP,value,0xc0000001);
}}
break;
}
base.WndProc(ref m);
}

private void bt1_Click(object sender, EventArgs e){
for(int t=0;t<10;t++){
if(lsbl[t]){this.lsttb[t].Text="";}
}}

private void bt2_Click(object sender, EventArgs e){
string cfgfile="123456.txt";
string[] str;
if(File.Exists(cfgfile)){
str=File.ReadAllLines(cfgfile,Encoding.UTF8);
for(int t=0;(t<(str.Length-1))&&(t<10);t++){
if(this.lsbl[t]){this.lsttb[t].Text=str[t];}
}}}
}

static class Program{
[STAThread]
static void Main(){
Application.EnableVisualStyles();
Application.SetCompatibleTextRenderingDefault(false);
Application.Run(new Form999());
}}

}
复制代码