首页下载资源后端MobaXterm、WindTerm、xshell、finalshell、soureCRT快捷指令工具cxtool-3.8.0

ZIPMobaXterm、WindTerm、xshell、finalshell、soureCRT快捷指令工具cxtool-3.8.0

bandaoyu5.46MB需要积分:1

资源文件列表:

cxtool快捷指令-3.8.0.zip 大约有61个文件
  1. cxtool快捷指令-3.8.0/Bookmarks/
  2. cxtool快捷指令-3.8.0/Bookmarks/categoryNames.txt 98B
  3. cxtool快捷指令-3.8.0/Bookmarks/favorites.txt 132B
  4. cxtool快捷指令-3.8.0/cxtool-3.2.8-16x.exe 1.55MB
  5. cxtool快捷指令-3.8.0/cxtool-3.2.8-24x.exe 1.55MB
  6. cxtool快捷指令-3.8.0/ReminderCfgFile.xml 1.02KB
  7. cxtool快捷指令-3.8.0/工程/
  8. cxtool快捷指令-3.8.0/工程/beifen1.txt 12.11KB
  9. cxtool快捷指令-3.8.0/工程/BfaceForm.frm 20.44KB
  10. cxtool快捷指令-3.8.0/工程/BfaceForm.frx 537.87KB
  11. cxtool快捷指令-3.8.0/工程/Bookmarks.frm 22.97KB
  12. cxtool快捷指令-3.8.0/工程/Bookmarks.frx 4.2KB
  13. cxtool快捷指令-3.8.0/工程/Bookmarks/
  14. cxtool快捷指令-3.8.0/工程/Bookmarks/categoryNames.txt 98B
  15. cxtool快捷指令-3.8.0/工程/Bookmarks/categoryNames.txt.tmp
  16. cxtool快捷指令-3.8.0/工程/Bookmarks/favorites.txt 170B
  17. cxtool快捷指令-3.8.0/工程/calculator.frm 27.91KB
  18. cxtool快捷指令-3.8.0/工程/calculator.frx 4.21KB
  19. cxtool快捷指令-3.8.0/工程/cmdCfgForm.frm 2.72KB
  20. cxtool快捷指令-3.8.0/工程/cmdCfgForm.frx 4.2KB
  21. cxtool快捷指令-3.8.0/工程/cxtool.frm 29.31KB
  22. cxtool快捷指令-3.8.0/工程/cxtool.frx 416.82KB
  23. cxtool快捷指令-3.8.0/工程/cxtool.vbp 1.79KB
  24. cxtool快捷指令-3.8.0/工程/cxtool.vbw 582B
  25. cxtool快捷指令-3.8.0/工程/cxtool-24x.frm 35.51KB
  26. cxtool快捷指令-3.8.0/工程/cxtool-24x.frx 416.82KB
  27. cxtool快捷指令-3.8.0/工程/cxtool-3.2.8.exe 1.55MB
  28. cxtool快捷指令-3.8.0/工程/globalModule.bas 17.42KB
  29. cxtool快捷指令-3.8.0/工程/Module1.bas 10.68KB
  30. cxtool快捷指令-3.8.0/工程/MSSCCPRJ.SCC 479B
  31. cxtool快捷指令-3.8.0/工程/noteForm.frm 2.11KB
  32. cxtool快捷指令-3.8.0/工程/noteForm.frx 4.2KB
  33. cxtool快捷指令-3.8.0/工程/noteForm2.frm 2.43KB
  34. cxtool快捷指令-3.8.0/工程/noteForm2.frx 4.2KB
  35. cxtool快捷指令-3.8.0/工程/remainder.frm 15.94KB
  36. cxtool快捷指令-3.8.0/工程/remainder.frx 46B
  37. cxtool快捷指令-3.8.0/工程/ReminderCfgFile.xml 1.02KB
  38. cxtool快捷指令-3.8.0/工程/Reminders.txt 1.36KB
  39. cxtool快捷指令-3.8.0/工程/配置文件.txt 6.93KB
  40. cxtool快捷指令-3.8.0/工程/上下班打卡提醒/
  41. cxtool快捷指令-3.8.0/工程/上下班打卡提醒/Form1.frm 4.26KB
  42. cxtool快捷指令-3.8.0/工程/上下班打卡提醒/工程1.vbp 632B
  43. cxtool快捷指令-3.8.0/工程/上下班打卡提醒/工程1.vbw 51B
  44. cxtool快捷指令-3.8.0/工程/上下班打卡提醒/上班图片.jpg 1.55MB
  45. cxtool快捷指令-3.8.0/工程/上下班打卡提醒/上下班打卡.exe 20KB
  46. cxtool快捷指令-3.8.0/工程/上下班打卡提醒/下班图片.jpg 3.37MB
  47. cxtool快捷指令-3.8.0/工程/上下班打卡提醒/用法.txt 255B
  48. cxtool快捷指令-3.8.0/工程/提示板.txt 943B
  49. cxtool快捷指令-3.8.0/工程/文本1.txt 1.49KB
  50. cxtool快捷指令-3.8.0/工程/文本2.txt 943B
  51. cxtool快捷指令-3.8.0/配置文件.txt 6.93KB
  52. cxtool快捷指令-3.8.0/提示板.txt 945B
  53. cxtool快捷指令-3.8.0/图标/
  54. cxtool快捷指令-3.8.0/图标/ct-256x256.ico 16.56KB
  55. cxtool快捷指令-3.8.0/图标/ct64x64.ico 4.19KB
  56. cxtool快捷指令-3.8.0/图标/ctTT美图抠图2.ico 16.56KB
  57. cxtool快捷指令-3.8.0/图标/cxtool.ico 4.19KB
  58. cxtool快捷指令-3.8.0/图标/蓝色-2-32x32.ico 4.19KB
  59. cxtool快捷指令-3.8.0/图标/蓝色32x32.ico 4.19KB
  60. cxtool快捷指令-3.8.0/文本1.txt 1.49KB
  61. cxtool快捷指令-3.8.0/文本2.txt 943B

资源介绍:

MobaXterm、WindTerm、xshell、finalshell、soureCRT的快捷指令工具 详细说明见:https://blog.csdn.net/bandaoyu/article/details/139336859
Private Counter As Integer Private ReminderList As Collection Private ReminderCfgFile As String Private Const REMINDER_CFG_FILE_NAME = "Reminders.txt" Private ToAdd As Boolean Private ToModify As Boolean Private ToModifyInedx As Long Private Sub Form_Load() ' 设置 ListView 列宽 With ListView1 .View = lvwReport .ColumnHeaders.add Text:="index", Width:=150 .ColumnHeaders.add Text:="Date", Width:=1200 .ColumnHeaders.add Text:="Time", Width:=1000 .ColumnHeaders.add Text:="Reminder", Width:=3400 .ColumnHeaders.add Text:="Repeat", Width:=750 .ColumnHeaders.add Text:="Command", Width:=5000 End With ' 设置 Combo1 选项 With Combo1 .AddItem "永不" .AddItem "每天" .AddItem "每月" .AddItem "每年" End With ' 初始化 Timer1 Timer1.Interval = 1000 * 1 ' 每秒触发一次 Timer1.Enabled = True ReminderCfgFile = App.Path + "/" + REMINDER_CFG_FILE_NAME ' 加载提醒数据 LoadRemindersFromFile SetEditingMode False End Sub Private Sub btnDelete_Click() SetEditingMode True ' 删除选中的条目 If Not ListView1.selectedItem Is Nothing Then ListView1.ListItems.Remove ListView1.selectedItem.Index End If If Not ListView1.selectedItem Is Nothing Then ' 选中第一个项目 End If End Sub Private Sub SetEditingMode(editing As Boolean) btnSave.Visible = editing btnCancel.Visible = editing Text1.Enabled = editing Text1.Locked = Not editing Text2.Enabled = editing Text2.Locked = Not editing End Sub Private Sub btnEditCfg_Click() open_txt REMINDER_CFG_FILE_NAME End Sub Private Sub btnModify_Click() SetEditingMode True ToModify = True For ToModifyInedx = 1 To ListView1.ListItems.Count If ListView1.ListItems(ToModifyInedx).Selected Then Exit For End If Next ToModifyInedx End Sub Private Sub btnAdd_Click() Dim ReminderDate As Date Dim ReminderTime As Date Dim RepeatType As String Dim ReminderText As String Dim CommandText As String SetEditingMode True btnModify.Visible = False btnDelete.Visible = False btnEditCfg.Visible = False btnAdd.Visible = False ' 清除输入框 DTPicker1.Value = Now DTPicker2.Value = Now Text1.Text = "" Text2.Text = "" ToAdd = True End Sub Private Sub btnCancel_Click() ToAdd = False ToModify = False SetEditingMode False btnModify.Visible = True btnDelete.Visible = True btnEditCfg.Visible = True btnAdd.Visible = True RefreshListView End Sub Private Sub ListView1_Click() Dim ItemIndex As Long ' 获取选中项目的索引 For ItemIndex = 1 To ListView1.ListItems.Count If ListView1.ListItems(ItemIndex).Selected Then Exit For End If Next ItemIndex If ItemIndex <= ListView1.ListItems.Count Then DTPicker1.Value = CDate(ListView1.ListItems(ItemIndex).SubItems(1)) ' 显示日期 DTPicker2.Value = CDate(ListView1.ListItems(ItemIndex).SubItems(2)) ' 显示时间 Text1.Text = ListView1.ListItems(ItemIndex).SubItems(3) ' 显示提醒内容 Combo1.Text = ListView1.ListItems(ItemIndex).SubItems(4) ' 显示重复类型 Text2.Text = ListView1.ListItems(ItemIndex).SubItems(5) ' 显示命令 End If End Sub Private Sub btnSave_Click() Dim FileName As String Dim FileNum As Integer Dim ListViewItem As ListItem SetEditingMode False btnModify.Visible = True btnDelete.Visible = True btnEditCfg.Visible = True btnAdd.Visible = True If ToAdd = True Then ' 获取输入数据 ReminderDate = DTPicker1.Value ReminderTime = DTPicker2.Value RepeatType = Combo1.Text ReminderText = Text1.Text CommandText = Text2.Text ' 更新 ListView Dim newItem As ListItem Set newItem = ListView1.ListItems.add(, , ListView1.ListItems.Count) newItem.SubItems(1) = Format(ReminderDate, "yyyy/mm/dd") newItem.SubItems(2) = Format(ReminderTime, "hh:mm:ss") newItem.SubItems(3) = ReminderText newItem.SubItems(4) = RepeatType newItem.SubItems(5) = CommandText ToAdd = False End If If ToModify = True Then If ItemIndex <= ListView1.ListItems.Count Then ' 获取输入数据 ReminderDate = DTPicker1.Value ReminderTime = DTPicker2.Value RepeatType = Combo1.Text ReminderText = Text1.Text CommandText = Text2.Text ListView1.ListItems(ToModifyInedx).SubItems(1) = ReminderDate ListView1.ListItems(ToModifyInedx).SubItems(2) = Format(ReminderTime, "hh:mm") ListView1.ListItems(ToModifyInedx).SubItems(3) = ReminderText ListView1.ListItems(ToModifyInedx).SubItems(4) = RepeatType ListView1.ListItems(ToModifyInedx).SubItems(5) = CommandText End If ToModify = False End If FileName = ReminderCfgFile ' 打开文件 FileNum = FreeFile() Open FileName For Output As #FileNum ' 写入数据 For Each ListViewItem In ListView1.ListItems ' 获取子项 Dim SubItemsText As String SubItemsText = ListViewItem.Text & vbTab & DateValue(ListViewItem.ListSubItems(1).Text) & vbTab & TimeValue(ListViewItem.ListSubItems(2).Text) & vbTab & ListViewItem.ListSubItems(3).Text & vbTab & ListViewItem.ListSubItems(4).Text & vbTab & ListViewItem.ListSubItems(5).Text Print #FileNum, SubItemsText Next ListViewItem ' 关闭文件 Close #FileNum MsgBox "Reminders saved successfully.", vbInformation, "Save Reminders" End Sub Private Sub LoadRemindersFromFile() Dim FileName As String Dim FileNum As Integer Dim LineData As String Dim ItemIndex As Long Dim ReminderDate As Date Dim ReminderTime As Date Dim ReminderText As String Dim RepeatType As String Dim CommandText As String FileName = ReminderCfgFile ' 清空 ListView 和 ReminderList ListView1.ListItems.Clear ' 打开文件 FileNum = FreeFile() Open FileName For Input As #FileNum ' 读取数据 ItemIndex = 0 Do Until EOF(FileNum) Line Input #FileNum, LineData ' 检查是否为注释行 If Left(LineData, 1) = "#" Then ' 跳过注释行 GoTo NextLine End If ' 使用 Split 函数按制表符分隔字符串 Dim Fields() As String Fields = Split(LineData, vbTab) ' 检查字段数量是否正确 If UBound(Fields) < 4 Then ' 如果字段数量不足,则跳过该行 GoTo NextLine End If ReminderDate = CDate(Fields(1)) ReminderTime = TimeValue(Fields(2)) ' 使用 TimeValue 函数转换为时间格式 ReminderText = Fields(3) RepeatType = Fields(4) CommandText = Fields(5) ' 更新 ListView 和 ReminderList Dim SubItems() As Variant ReDim SubItems(5) SubItems(0) = ReminderDate SubItems(1) = Format(ReminderTime, "hh:mm") SubItems(2) = ReminderText SubItems(3) = RepeatType SubItems(4) = CommandText If Remin
100+评论
captcha