Board logo

标题: [原创代码] PowerShell词典第二版,带发音和收藏功能 [打印本页]
作者: went    时间: 2021-6-7 11:30     标题: PowerShell词典第二版,带发音和收藏功能

保存bat或ps1
  1. #&cls&cd /d "%~dp0" & @powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & exit

  2. cls

  3. #------------------------初始化区------------------------------------

  4. [void][System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") #加载WinForm库

  5. [void][System.Reflection.Assembly]::LoadWithPartialName("System.Runtime.Serialization")

  6. [void][System.Reflection.Assembly]::LoadWithPartialName("PresentationFramework")

  7. $fav = 'MyFavorites.txt'  #收藏单词输出文件

  8. #Windows API

  9. $code=@"

  10.     using System;

  11.     using System.Runtime.InteropServices;

  12.     public static class GetApi{

  13.         [DllImport("user32.dll")]

  14.         public static extern bool SetWindowPos(IntPtr hWnd,IntPtr hWnd0,uint x,uint y,uint cx,uint cy,uint flag); //声明 Windows API 函数

  15.         [DllImport("user32.dll")]

  16.         private static extern bool ShowWindow(IntPtr hWnd,uint showType); //声明 Windows API 函数

  17.         [DllImport("kernel32.dll")]

  18.         private static extern IntPtr GetConsoleWindow(); //声明 Windows API 函数

  19. 	public static bool ShowConsoleWindow(uint showType){

  20. 		return ShowWindow(GetConsoleWindow(),showType);

  21. 	}

  22.     }

  23. "@

  24. Add-Type -TypeDefinition $code 

  25. [void][GetApi]::ShowConsoleWindow(0)

  26. 

  27. $transURL = 'http://dict-co.iciba.com/api/dictionary.php?type=xml&key=C6AAC87C99A4223504F6B7A79C628120&w={0}'

  28. 

  29. #------------------------界面区-------------------------------------

  30. #0.设置主窗口尺寸

  31. $mainFormWidth = 500                 #主窗口宽度

  32. $mainFormHeight = 400                #主窗口高度

  33. 

  34. #1.创建主窗口

  35. $form_main = New-Object "System.Windows.Forms.Form"

  36. $form_main.Width = $mainFormWidth                                                   #设置主窗口宽度

  37. $form_main.Height = $mainFormHeight                                                 #设置主窗口高度

  38. $form_main.StartPosition = [System.Windows.Forms.FormStartPosition]::CenterScreen   #主窗口居中屏幕

  39. $form_main.Text = "在线英汉词典 (Ctrl+S)"											#主窗口标题

  40. #主窗口置顶

  41. [GetApi]::SetWindowPos($form_main.Handle,-1,$form_main.Location.X,$form_main.Location.Y,$form_main.Width,$form_main.Height,64)

  42. 

  43. #2.创建输入框

  44. $tb_input = New-Object 'System.Windows.Forms.TextBox'

  45. $tb_input.Height = 20

  46. $tb_input.Width = $form_main.Width

  47. $tb_input.BackColor = '#012456'

  48. $tb_input.ForeColor = 'yellow'

  49. $form_main.Controls.Add($tb_input)

  50. 

  51. #创建英式音标显示框

  52. $lable_sbol_1 = New-Object 'System.Windows.Forms.Label'

  53. $lable_sbol_1.Location = New-Object 'System.Drawing.Point' 0,$tb_input.Height

  54. $lable_sbol_1.ForeColor = '#00C853'

  55. $lable_sbol_1.BackColor = '#012456'

  56. $lable_sbol_1.Height = 20

  57. $lable_sbol_1.Width = $form_main.Width

  58. $lable_sbol_1.Cursor = [System.Windows.Forms.Cursors]::Hand

  59. $form_main.Controls.Add($lable_sbol_1)

  60. 

  61. #创建美式音标显示框

  62. $lable_sbol_2 = New-Object 'System.Windows.Forms.Label'

  63. $lable_sbol_2.Location = New-Object 'System.Drawing.Point' 0,($tb_input.Height + $lable_sbol_1.Height)

  64. $lable_sbol_2.ForeColor = '#00C853'

  65. $lable_sbol_2.BackColor = '#012456'

  66. $lable_sbol_2.Height = 20

  67. $lable_sbol_2.Width = $form_main.Width

  68. $lable_sbol_2.Cursor = [System.Windows.Forms.Cursors]::Hand

  69. $form_main.Controls.Add($lable_sbol_2)

  70. 

  71. #创建显示框

  72. $rtb_show = New-Object 'System.Windows.Forms.RichTextBox'

  73. $rtb_show.Height = $form_main.Height - $tb_input.Height

  74. $rtb_show.Width = $form_main.Width

  75. $rtb_show.Location = New-Object 'System.Drawing.Point' 0,$tb_input.Height

  76. $rtb_show.ForeColor = '#F5F5F5'

  77. $rtb_show.BackColor = '#012456'

  78. $rtb_show.ReadOnly = $true

  79. $rtb_show.BorderStyle = [System.Windows.Forms.BorderStyle]::None

  80. $form_main.Controls.Add($rtb_show)

  81. 

  82. $whr = New-Object -ComObject 'WinHttp.WinHttpRequest.5.1'

  83. $xmlDoc = New-Object 'System.Xml.XmlDocument'

  84. $player = New-Object 'System.Windows.Media.MediaPlayer'

  85. $Script:query = $false

  86. $endl = "`r`n"

  87. #自定义方法

  88. function Print-Host($obj){ Write-Host ($obj | Out-String) }

  89. #------------------------事件区-------------------------------------

  90. $tb_input.add_KeyDown({

  91.     cls

  92.     [System.Windows.Forms.KeyEventArgs]$e = $_

  93.     if($e.KeyCode -eq [System.Windows.Forms.Keys]::S -and $e.Control){

  94. 		if(!$Script:query){[System.Windows.Forms.MessageBox]::Show('请先查询数据后再收藏!','提示: ' + $fav);return}

  95. 		$str = $tb_input.Text.Trim() + $endl + '----' + $endl

  96.         if([System.IO.File]::Exists($fav) -and (Get-Content $fav | Out-String) -match $str){

  97.             [System.Windows.Forms.MessageBox]::Show($str,'提示: 该词条已被收藏过' + $fav)

  98.             return

  99.         }

  100.         $s1 = $lable_sbol_1.Text

  101.         $s2 = $lable_sbol_2.Text

  102.         if($s1 -match '\S'){$str += $s1 + $endl}

  103.         if($s2 -match '\S'){$str += $s2 + $endl}

  104.         $arr = $rtb_show.Text -split '--------------------------------------------'

  105.         $str += $arr[1] + $endl + $arr[2]

  106.         $str = $str -replace '(?m)^\s+$',''

  107.         $str += '***************************************************************'

  108.         Write-Host ('保存:' + $endl + $str)

  109.         $str | Out-File $fav -Encoding utf8 -Append

  110.         [System.Windows.Forms.MessageBox]::Show($str,'提示: 收藏成功! ' + $fav)

  111.     }

  112.     if($e.KeyCode -ne [System.Windows.Forms.Keys]::Enter){return}

  113.     $whr.Open('GET',($transURL -f $tb_input.Text),$false)

  114.     $errMsg = '';

  115.     try{$whr.Send()}catch{$errMsg = $_.Exception.Message}

  116.     if($whr.Status -ne 200){

  117.         [System.Windows.Forms.MessageBox]::Show(('错误代码:{0} {1} {2}' -f $whr.Status,$whr.StatusText,$errMsg),'网络连接失败')

  118.         return;

  119.     }

  120.     $xmlDoc.LoadXml([System.Text.UTF8Encoding]::UTF8.GetString($whr.ResponseBody))

  121.     $lable_sbol_1.Text = $lable_sbol_2.Text = ''

  122.     $lable_sbol_1.Visible = $false

  123.     $lable_sbol_2.Visible = $false

  124.     $rtb_show.Location = New-Object 'System.Drawing.Point' 0,$tb_input.Height

  125.     if ($xmlDoc.dict.ps -is [string]){

  126.         $lable_sbol_1.Visible = $true

  127.         $lable_sbol_1.Text = '  英[{0}]' -f $xmlDoc.dict.ps

  128.         $lable_sbol_1.Tag = $xmlDoc.dict.pron

  129.         $rtb_show.Location = New-Object 'System.Drawing.Point' 0,($tb_input.Height + $lable_sbol_1.Height)

  130.    } elseif ($xmlDoc.dict.ps -is [array]){

  131.         $lable_sbol_1.Visible = $true

  132.         $lable_sbol_2.Visible = $true

  133.         $lable_sbol_1.Text = '  英[{0}]' -f $xmlDoc.dict.ps[0]

  134.         $lable_sbol_1.Tag = $xmlDoc.dict.pron[0]

  135.         $lable_sbol_2.Text = '  美[{0}]' -f $xmlDoc.dict.ps[1]

  136.         $lable_sbol_2.Tag = $xmlDoc.dict.pron[1]

  137.         $rtb_show.Location = New-Object 'System.Drawing.Point' 0,($tb_input.Height + $lable_sbol_1.Height + $lable_sbol_2.Height)

  138.    }

  139.     $str = '--------------------------------------------' + $endl

  140.     if($xmlDoc.dict.pos -is [string]){

  141.         $str += $xmlDoc.dict.pos + $xmlDoc.dict.acceptation

  142.     } elseif ($xmlDoc.dict.pos -is [array]){

  143.         for($i=0;$i -lt $xmlDoc.dict.pos.Count;$i++){

  144.             $str += '{0}{1}' -f $xmlDoc.dict.pos[$i],$xmlDoc.dict.acceptation[$i]

  145.         }

  146.     }

  147.     $str += $endl + '--------------------------------------------'

  148.     if(($str -replace '\s|；|;|-','') -eq ''){$str = ''}

  149.     for($i=0;$i -lt $xmlDoc.dict.sent.Count;$i++){

  150.         $str += $xmlDoc.dict.sent[$i].orig

  151.         $str += $xmlDoc.dict.sent[$i].trans 

  152.         $str += '--------------------------------------------'

  153.     }

  154.     #Print-Host -obj $str

  155.     $rtb_show.Text = $str

  156. 	$Script:query = $true

  157. })

  158. $form_main.add_SizeChanged({

  159.     $tb_input.Width = $rtb_show.Width = $lable_sbol_1.Width = $lable_sbol_2.Width = $form_main.Width

  160.     $rtb_show.Height = $form_main.Height - $tb_input.Height

  161. })

  162. #发音

  163. $lable_sbol_1.add_Click({

  164.     Print-Host ('英式发音:  ' + $this.Tag)

  165.     $player.Stop()

  166.     $player.Open($this.Tag)

  167.     $player.Play()

  168. })

  169. $lable_sbol_2.add_Click({

  170.     Print-Host ('美式发音:  ' + $this.Tag)

  171.     $player.Stop()

  172.     $player.Open($this.Tag)

  173.     $player.Play()

  174. })

  175. #------------------------结  束-------------------------------------

  176. #4.显示主窗口

  177. $form_main.add_Load({$tb_input.Focus()})

  178. $form_main.ShowDialog()
复制代码
作者: jave000    时间: 2021-9-22 23:06

不明觉厉的超强代码。
设置这些貌似都默认了，然后出现一个很小的窗口，我的电脑是三千分辨率，里面的字也特别小。以及标题栏和发音那里都有奇怪的字。
作者: WuZhengQiang    时间: 2023-2-15 00:41

太厉害了，怎么实现的，方便讲一下原理吗？



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2