1
1

Launcher.bas 1.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. Attribute VB_Name = "Launcher"
  2. '// This is free and unencumbered software released into the public domain.
  3. '// For more information, please refer to https://github.com/hongwenjun
  4. '// Attribute VB_Name = "其他工具启动" Other Tools Start 2023.6.11
  5. '// 运行计算器
  6. Public Function START_Calc()
  7. Shell "Calc"
  8. End Function
  9. '// 记事本打开备忘录
  10. Public Function START_Notepad()
  11. On Error GoTo ErrorHandler
  12. cmd_line = "Notepad C:\TSP\备忘录.txt"
  13. Shell cmd_line, vbNormalNoFocus
  14. ErrorHandler:
  15. End Function
  16. '// 打开条码阅读器
  17. Public Function START_Barcode_ImageReader()
  18. On Error GoTo ErrorHandler
  19. cmd_line = "C:\Program Files (x86)\Softek Software\Softek Barcode Toolkit 30 Day Evaluation\bin\ImageReader.exe"
  20. Shell cmd_line, vbNormalNoFocus
  21. ErrorHandler:
  22. End Function
  23. '// 矢量化工具 Vector Magic
  24. Public Function START_Vector_Magic()
  25. On Error GoTo ErrorHandler
  26. cmd_line = "C:\Program Files (x86)\Vector Magic\vmde.exe"
  27. Shell cmd_line, vbNormalNoFocus
  28. ErrorHandler:
  29. End Function
  30. '// waifu2x 图片放大
  31. Public Function START_waifu2x()
  32. On Error GoTo ErrorHandler
  33. cmd_line = "C:\soft\waifu2x-gui-1.2\waifu2x-gui.exe"
  34. Shell cmd_line, vbNormalNoFocus
  35. ErrorHandler:
  36. End Function
  37. '// 开始视频录制
  38. Public Function START_Bandicam()
  39. On Error GoTo ErrorHandler
  40. cmd_line = "C:\Program Files (x86)\Bandicam\BandicamPortable.exe"
  41. Shell cmd_line, vbNormalNoFocus
  42. ErrorHandler:
  43. End Function
  44. '// 找字体 https://www.myfonts.com/pages/whatthefont
  45. Public Function START_whatthefont()
  46. '// Weburl "https://www.myfonts.com/pages/whatthefont"
  47. End Function
  48. Function Weburl(url As String)
  49. '// API.WebHelp url
  50. End Function