❶ 求教--按鍵精靈簡單的數字腳本--大師們幫忙下 看看 謝謝
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）製作成完整的數字化故事，把製作好的數字化故事通過網路跟同學、老師、家人或其他人進行分享。
❻ 關於勞動者的數字故事的腳本怎麼寫
活動目的，為激發學生熱愛勞動者，珍惜勞動成果的情感，構建德智體美勞全面培養的教育體系，學校開展五一勞動節主題教育實踐活動，引導學生對五一勞動節有深刻的認知。