[办公]超级发送

使用方法：window+b，剩下的自己发掘喽！

;==================================================
;** 快捷键 Win+B 打开超级发送到
;==================================================
#b::

;clipboard =  ; Start off empty to allow ClipWait to detect when the text has arrived.
Send ^c
clipwait,1

;MsgBox, clipboard = %clipboard%

Gui,Add, text,x5 y5,点击你要发送到的APP:
Gui,Add, GroupBox, x10 y20 w400 h100, 内容摘选
Gui,Font, c0000FF
Gui,Add, text,x25 y35 w350 h75 ,%clipboard%
Gui,Font, c000000
Gui,Add, text, x10 y125 w70, 打开链接:
Gui, Add, Button,x85 y120 w70, &Firefox
Gui, Add, Button,x160 y120 w70, &Chrome
Gui, Add, Button,x235 y120 w70, &Opera
Gui, Add, Button,x310 y120 w70, &IE

Gui,Add, text, x10 y150 w70, 搜索关键字:
Gui, Add, Button,x85 y145 w70, &Google
Gui, Add, Button,x160 y145 w70, &Baidu
Gui, Add, Button,x235 y145 w70, Bi&ng
Gui, Add, Button,x310 y145 w70, &Wiki

Gui,Add, text, x10 y175 w70, 内容发送:
Gui, Add, Button,x85 y170 w70, 新浪微博
Gui, Add, Button,x160 y170 w70, 搜狗地图
Gui, Add, Button,x235 y170 w70, 谷歌翻译
Gui, Add, Button,x310 y170 w70, 本地搜索

Gui,Add, text, x10 y205 w70, web工具:
Gui, Add, Button,x85 y200 w70, url2Pdf
Gui, Add, Button,x160 y200 w70, 二维码
Gui, Add, Button,x235 y200 w70, QQ旋风
Gui, Add, Button,x310 y200 w70, 迅雷


Gui,Add, text, x10 y230 w70, 购物比价:
Gui, Add, Button,x85 y225 w70, 淘宝
Gui, Add, Button,x160 y225 w70, 购物党
Gui, Add, Button,x235 y225 w70, 一淘比价
Gui, Add, Button,x310 y225 w70, 网易惠惠

Gui,Add, text, x10 y260 w70, 办公效率:
Gui, Add, Button,x85 y255 w70, Word
Gui, Add, Button,x160 y255 w70, email地址
Gui, Add, Button,x235 y255 w70, OneNote
Gui, Add, Button,x310 y255 w70, 注册表跳转

Gui,Add, text, x10 y290 w70, 文件操作:
Gui, Add, Button,x85 y285 w70, 复制路径
Gui, Add, Button,x160 y285 w70, 复制名称
Gui, Add, Button,x235 y285 w70, MD5
Gui, Add, Button,x310 y285 w70, WinRAR打开

Gui, Add, Button,x85 y315 w70, 执行路径


gui,+ToolWindow
GUI,+AlwaysOnTop
Gui Show,W415 h350,SendTo.Plus
return

GuiEscape:
	Gui, Destroy
return



button执行路径:
	run %Clipboard%
	gui,Destroy
return

buttonMD5:
	run E:\快盘\工具\nirLauncher\NirSoft\hashmyfiles.exe /file %Clipboard%
	Gui,Destroy
return

button复制名称:
	loop,Parse,Clipboard,`n
	Clipboard=%Clipboard%
	StringSplit,file,Clipboard,`n
	Clipboard=
	Loop,%file0%
	{
		SplitPath,file%A_Index%,name
		Clipboard=%Clipboard%`n%name%
	}
	TrayTip 已复制名称, %Clipboard%,10,1
	Gui,Destroy
return



ButtonWinRAR打开:
	run "winrar" %clipboard%
	Gui,Destroy
return

;本复制路径支持多选文件路径的复制.
Button复制路径:
	loop,Parse,Clipboard,`n
	Clipboard=%Clipboard%
    	Gui,Destroy
        TrayTip 已复制路径, %Clipboard%,10,1
return


ButtonQQ旋风:
	run "D:\netTools\QQDownload\QQDownload.exe" %clipboard%
	Gui,Destroy
return

Button迅雷:
	run "D:\netTools\Thunder\Program\Thunder.exe" %clipboard%
	Gui,Destroy
return

Buttonemail地址:
	run mailto:%clipboard%
	Gui,Destroy
return

ButtonWord:
	Word := ComObjCreate("Word.Application")
	Word.Visible := true ;隐藏或显示word窗口
	Word.Documents.Add.Content.Paste 
	Gui,Destroy
return


Button淘宝:
    run, http://s.taobao.com/search?q=%clipboard%
    Gui,Destroy
return

Button购物党:
    run, http://www.gwdang.com/search?s_product=%clipboard%
    Gui,Destroy
return

Button一淘比价:
    run, http://s.etao.com/search?q=%clipboard%
    Gui,Destroy
return

Button网易惠惠:
    run, http://www.huihui.cn/search?q=%clipboard%
    Gui,Destroy
return

;----------  一个 url编码函数 ----------------------------
	UrlEncode(String)
	{
	   OldFormat := A_FormatInteger
	   SetFormat, Integer, H

	   Loop, Parse, String
	   {
	      if A_LoopField is alnum
	      {
	         Out .= A_LoopField
	         continue
	      }
	      Hex := SubStr( Asc( A_LoopField ), 3 )
	      Out .= "%" . ( StrLen( Hex ) = 1 ? "0" . Hex : Hex )
	   }
	   SetFormat, Integer, %OldFormat%
	   return Out
	} 
;--------------------------------------------------------
Button二维码:
    outstr:=clipboard
    outstr:=UrlEncode(outstr)   ;此处使用自定义函数
    run, http://qr.liantu.com/api.php?text=%outstr%
    Gui,Destroy
return



Button注册表跳转:
    StringReplace, clipboard, clipboard, ＼, \, All
    StringReplace, clipboard, clipboard, \\, \, All
    StringReplace, clipboard, clipboard, hkcu, HKEY_CURRENT_USER, All
    StringReplace, clipboard, clipboard, hkcr, HKEY_CLASSES_ROOT, All
    StringReplace, clipboard, clipboard, hklm, HKEY_LOCAL_MACHINE, All
    RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Applets\Regedit, LastKey, 计算机\%clipboard%
    Gui, Destroy
    run regedit
return


ButtonOneNote:
    run, onenote.exe /sidenote /paste
    Gui, Destroy
Return

;网站生成pdf文件
Buttonurl2Pdf:
   run,http://html-pdf-convert.com/convert.php?url=%clipboard%
   Gui, Destroy
Return

;-------------- 内容发送 ----------------------------

Button搜狗地图:
   run,http://map.sogou.com/#lq=%clipboard%
   Gui, Destroy
Return


Button谷歌翻译:
   run,http://translate.google.cn/?#en/zh-CN/%clipboard%
   Gui, Destroy
Return


Button本地搜索:
   Run "D:\SystemTools\Everything\Everything.exe" -s %clipboard%
   Gui, Destroy
Return


Button新浪微博:
   run, http://v.t.sina.com.cn/share/share.php?title=%clipboard%
   Gui, Destroy
Return

;--------------  搜索引擎 -------------------------
ButtonWiki:
   run, http://zh.wikipedia.org/wiki/%clipboard%
   Gui, Destroy
Return


ButtonBing:
   run, http://www.bing.com/search?q=%clipboard%
   Gui, Destroy
Return


ButtonGoogle:
   run, www.google.com/search?q=%clipboard%
   Gui, Destroy	
Return


ButtonBaidu:
   run, www.baidu.com/s?wd=%clipboard%
   Gui, Destroy	
return

;------------ 切换浏览器 ----------------------
ButtonIE:
	TrayTip 启动,IE
	run "iexplore.exe" %clipboard%
	Gui, Destroy	
Return

ButtonFirefox:
	TrayTip 启动,Firefox
	run "firefox.exe" %clipboard%
	Gui, Destroy
Return

buttonChrome:
	TrayTip 启动,Chrome
	run "chrome.exe" %clipboard%
	Gui, Destroy
Return

buttonOpera:
	TrayTip 启动,Opera
	run "opera.exe" %clipboard%
	Gui, Destroy
Return