Attribute VB_Name = "Launcher" '// This is free and unencumbered software released into the public domain. '// For more information, please refer to https://github.com/hongwenjun '// Attribute VB_Name = "其他工具启动" Other Tools Start 2023.6.11 '// 运行计算器 Public Function START_Calc() Shell "Calc" End Function '// 记事本打开备忘录 Public Function START_Notepad() On Error GoTo ErrorHandler cmd_line = "Notepad C:\TSP\备忘录.txt" Shell cmd_line, vbNormalNoFocus ErrorHandler: End Function '// 打开条码阅读器 Public Function START_Barcode_ImageReader() On Error GoTo ErrorHandler cmd_line = "C:\Program Files (x86)\Softek Software\Softek Barcode Toolkit 30 Day Evaluation\bin\ImageReader.exe" Shell cmd_line, vbNormalNoFocus ErrorHandler: End Function '// 矢量化工具 Vector Magic Public Function START_Vector_Magic() On Error GoTo ErrorHandler cmd_line = "C:\Program Files (x86)\Vector Magic\vmde.exe" Shell cmd_line, vbNormalNoFocus ErrorHandler: End Function '// waifu2x 图片放大 Public Function START_waifu2x() On Error GoTo ErrorHandler cmd_line = "C:\soft\waifu2x-gui-1.2\waifu2x-gui.exe" Shell cmd_line, vbNormalNoFocus ErrorHandler: End Function '// 开始视频录制 Public Function START_Bandicam() On Error GoTo ErrorHandler cmd_line = "C:\Program Files (x86)\Bandicam\BandicamPortable.exe" Shell cmd_line, vbNormalNoFocus ErrorHandler: End Function '// 找字体 https://www.myfonts.com/pages/whatthefont Public Function START_whatthefont() '// Weburl "https://www.myfonts.com/pages/whatthefont" End Function Function Weburl(url As String) '// API.WebHelp url End Function