- 博客(0)
- 资源 (5)
- 收藏
- 关注
xp 语音阅读脚本 可用于学习英语等
@echo off & title xp语音阅读脚本 & color 0a
mode con cols=58 lines=10
:开始
color 0a
cls
Set 按键=
echo.
echo [按C退出]
Set /p 按键= 请输入你想要阅读的英语单词:
If /I "%按键%"=="" goto 开始
If /I "%按键%"=="c" exit
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("%按键%")(Window.close)
goto 开始
'使用方法
'拖放txt文件到本vbs脚本文件上,即可阅读txt文件中的英语.
'制作整理: 540784089
set oSpeech = CreateObject("SAPI.SpVoice")
set oFSO = CreateObject("Scripting.FileSystemObject")
set oFile = oFSO.OpenTextFile(WScript.Arguments(0))
strContent = oFile.ReadAll
oSpeech.Speak strContent
set oSpeech = nothing
set oFSO = nothing
set oFile = nothing
2010-09-28
c# 系列窗体全屏代码
用于窗口全屏的代码 两种全屏方法 c#
/窗体的基本设置:
//(1)工作区域设置
//方法1-获取工作区的分辨率
/*
Rectangle rect = new Rectangle();
rect = Screen.GetWorkingArea(this);
rect.Width=System .Windows .Forms .Screen .GetWorkingArea (this).Width ;
rect.Height = System.Windows.Forms.Screen.GetWorkingArea(this).Height;
this.Size = new Size(rect.Width, rect.Height);
*/
//方法2—获取整屏的分辨率
/*
int SH = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height;
int SW = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width;
this.Size = new Size(SW,SH);
*/
2010-09-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人