❶ 求教--按键精灵简单的数字脚本--大师们帮忙下 看看 谢谢
TA1 = DateAdd("s",60,time)
TB1 = DateAdd("s",120,time)
TC1 = DateAdd("s",240,time)
//首先赋予起始时间，在系统时间上增加60秒、120秒、240秒。 “S”是秒的单位。 否则你需要等1分钟才会执行第1次按键，我们增加了时间，就下述指令会判断时间已经过去了60秒、120秒、240秒，所以会直接执行，然后等待60、120、240秒后会再度执行
Do
TA2 = time
If DateDiff("s", TA1, TA2) > 59 Then
keypress 49,1
delay 50
KeyPress 50, 1
TA1 = time
End If
delay 300
TB2 = time
If DateDiff("s", TB1, TB2) > 119 Then
keypress 51,1
TB1 = time
End If
delay 300
TC2 = time
If DateDiff("s", TC1, TC2) > 239 Then
keypress 117,1
delay 50
KeyPress 119, 1
TC1 = time
End If
delay 300
Loop
备注：
keypress 117,1
delay 50
KeyPress 119, 1
这个命令几乎是同时按下去的，若不能同时按，那么请把 delay 50延时加大即可。
❷ 高分求一个按键精灵识别excel数字的脚本
识别的标准是什么？根据什么识别？只要整数吗？或者...
你描述的情况好像比较复杂，实现准确的全自动可能性不大，
给你一段脚本参考（注释详细），我用这个脚本把一个应用程序的数据复制到EXCEL里。
dim strtext
dim path as String
dim hang as integer
dim lie as integer
dim n as integer
VBS n=1
VBS i=1
//用变量i配合x控制循环次数
VBS lie=3
//从第3列开始写入,lie是列
Plugin hwnd = Window.GetKeyFocusWnd()
//获得当前窗口句柄
Delay 100
//VBSCall path=inputbox("请输入要写入的excel文件路径,如:d:\损失率.xls")
path="d:\dw\抄表赵.xls"
VBSCall n=cint(inputbox("要写入第几张工作表，请输入整数"))
VBSCall hang =cint(inputbox("从第几行开始写入"))
//hang=2
//从第hang行开始写入，hang是行
VBSCall x =cint(inputbox("要写入多少条到excel，最多25"))
//cint数字函数！ 能把字符型变成数字！强制执行整数运算
Delay 100
VBS Set objIE = CreateObject("InternetExplorer.Application")
VBS objIE.Navigate("about:blank")
Delay 200
While i<=x
Plugin Window.Active(hwnd)
//激活窗口
Delay 666
Gosub Ctrl+C复制
Delay 200
VBS strtext=objIE.document.parentwindow.clipboardData.GetData("text")
strtext=Trim(strtext)
//Trim函数能去掉字符串中的空格
Delay 100
//VBSCall Call MessageBox(strtext)
//SayExpression strtext
Rem ==================下面是写入EXCEL部分==================
Set xlApp=CreateObject("Excel.Application")
xlApp.Visible = false
//True 去掉或改成 false就是前台看不见
Set xlBook = xlApp.Workbooks.Open(path)
//path是文件的路径和名字，如：d:\抄表.xls。也可是用变量（本例中用变量path）
//Set xlSheet = xlBook.ActiveSheet
//如果需要取的不是默认被打开的那个工作表，要用 Set xlSheet = xlBook.Sheets(Num) Num= 1..2.3.. 替换上句，指定正确的工作表
Set xlSheet = xlBook.Sheets(n)
//写入第n张工作表,n改成3就是第三张
Delay 100
VBS xlSheet.cells(hang,lie).value=strtext
//(行，列)。上面两行就是在单元格写入。（1，1）就是A1格
VBS xlBook.save
//保存用xlBook.save 或者 xlBook.saveAs "保存路径\新名字" 就是另存为。
VBS xlApp.quit
VBS Set xlApp=Nothing
hang=hang+1
//lie=lie+1
Rem ==================上面是写入EXCEL部分==================
i=i+1
Gosub 选中下一条记录
EndWhile
VBS objIE.Quit
VBSCall Call MessageBox("已完成"&x&"项写入")
EndScript
Sub Ctrl+C复制
KeyDown 17 1
Delay 18
KeyPress 67 1
Delay 18
KeyUp 17 1
Return Ctrl+C
Sub 选中下一条记录
KeyPress 40,1
KeyPress 13,1
Return 选中下一条记录
//结束
strtext=objIE.document.parentwindow.clipboardData.GetData("text")
这行把复制到的内容赋给变量strtext，这样也能实现对复制内容的计算。
❸ 有什么脚本可以让表格中的数字自动加1
可以用vbs脚本的sendkeys
（可以直接用txt来编写，写完之后改为vbs后缀就行了）
例如：
set wshshell=wscript.createobject("wscript.shell") '创建实例
wshshell.Sendkeys"{BACKSPACE}" '删除前一个
wshshell.Sendkeys"2"
WScript.Sleep 1000 '单位为毫秒
wshshell.Sendkeys"{BACKSPACE}"
wshshell.Sendkeys"3"
WScript.Sleep 1000
wshshell.Sendkeys"{BACKSPACE}"
wshshell.Sendkeys"4"
WScript.Sleep 1000
wshshell.Sendkeys"{BACKSPACE}"
wshshell.Sendkeys"5"
…………
把输入位置放在你想要输的地方就行了
还有一种不是时间的，自己控制：
dim a,ctr '定义变量
set wshshell=wscript.createobject("wscript.shell")
ctr=1 '视情况随便改
do 'do……loop循环
a=msgbox("+1",4096+vbOKCancel)
if a=vbOK then
WScript.Sleep 2000 '在这段时间里点一下你要输入的地方
wshshell.Sendkeys"{BACKSPACE}"
WScript.Sleep 300
wshshell.Sendkeys ctr
ctr=ctr+1 '每次输入的是上一个数加1
elseif a=vbCancel then
exit do
end if
loop
'同样为vbs脚本
❹ flash数字自动增加动作脚本
具体我不知道你的表盘是如何个转动法。
但是如果单是应用数字变化的代码的话，你可以使用如下方法：
1、onEnterFrame，更新速度就是帧速
在时间軕上面，添加代码
this.onEnterFrame = onEnterFrameFun;
function onEnterFrameFun(){
if(!time){
time = 0;
}
time++;
//文本框txt
txt.text = time;
//文本框变量txt
// txt = time;
}
delete this.onEnterFrame; //停止计时
2、setInterval，更新速度是设定的setInterval速度
在时间轴上面添加代码
var id:Number=setInterval(onEnterFrameFun,100);
function onEnterFrameFun(){
if(!time){
time = 0;
}
time++;
//文本框txt
txt.text = time;
//文本框变量txt
// txt = time;
}
clearInterval(id);//停止计时
3、利用影片剪辑，速度速度是 代码放置位置决定
在时间轴上面添加代码
function onEnterFrameFun(){
if(!time){
time = 0;
}
time++;
//文本框txt
txt.text = time;
//文本框变量txt
// txt = time;
}
新建一个影片剪辑，命实例名为mc，在元件mc里需要的计算一次的帧处添加代码
_root.onEnterFrameFun();
mc.stop();//停止计时
另外，对于转盘动画，如果想动画转一圈就计算一次，则使用方法3，在转盘的最后一帧添加代码
onEnterFrameFun();
这样可以实现转盘转的圈数计算
❺ 我身边一个熟悉的场景脚本怎么写
身边一个熟悉的场景脚本可以这样写。
1、发现故事，所发现的故事是生活中感人的故事，不在于大与小，而在于一个情字，发现故事要做一个有心人，要善于思考与发现身边那些感人的事情。
2、加工整理构思：对所发现的故事要进行帅选，帅选过后的故事要对其故事元素进行帅选，提炼一个思想主题，思考要对故事进行怎样的结构安排以便更好地体现这一主题。
3、写作：写作包括故事文本的写作和制作数字故事时脚本的写作。
4、选材：根据故事的结构安排和写作的要求，选择与主题密切相关的图片，文字，视频，音频，为制作做好充分的准备。
5、制作与分享：把选择好的各类素材运用数字化故事制作工具（IE-book或photostory）制作成完整的数字化故事，把制作好的数字化故事通过网络跟同学、老师、家人或其他人进行分享。
❻ 关于劳动者的数字故事的脚本怎么写
活动目的，为激发学生热爱劳动者，珍惜劳动成果的情感，构建德智体美劳全面培养的教育体系，学校开展五一劳动节主题教育实践活动，引导学生对五一劳动节有深刻的认知。