❶ 求助按键精灵的 日期递增语句 实现循环输入20080101..20080102...按日期格式循环下去
方案一、增加一个“日历”控件。
让用户在里面选年份、月份、日期。
方案二、把年月日分成三个列表框或组合框或者文本框，
让用户分别输入或选择。
答案补充：
你非要这样也行。
一个textbox显示日期，一个commandbutton用来点击。
Private Sub Command1_Click()
Dim i As Long
i = CLng(CDate(Text1))
i = i + 1
Text1 = CDate(i)
End Sub
❷ 按键精灵中，我在界面的输入框输入时间(比如：20:20:13)，然后让脚本里面的代码按这个时间来执行，怎么弄
s = Plugin.Sys.GetTime()
xs=int(s/1000/60/60)
fz=int(s/1000/60)-xs*60
m=Clng(s/1000)-fz*60-xs*60*60
shijian=xs &":"&fz&":"&m
//Form1.InputBox1.Text为输入框内容，InputBox1为名称，或者你的不同需要你改下
If Form1.InputBox1.Text =shijian
End If
❸ js脚本： 在文本框中输入一个日期值后按确定按钮后和当前时间比较大小
function check() {
var d = new Date();
//取当前年月日，舍去时分秒
d = new Date(d.getFullYear() + "-" + (d.getMonth() + 1) + "-" + d.getDate());
var d2 = new Date(document.getElementById("txtDate").value);
if (d2 == "Invalid Date") {
alert("非日期");
return;
}
//getTime 从1970.1.1开始的毫秒数
var n = d.getTime() - d2.getTime();
if (n == 0) {
alert("相等");
} else if (n > 0) {
alert("小于当前日期");
} else {
alert("大于当前日期");
}
}
<input id="txtDate" type="text" value="2013-1-17"/>
<input type="button" value="比较" onclick="check()"/>
❹ 用按键精灵如何输入当前日期
思路如下：
得到当前系统时间，保存到变量time。
标记start。
如果time=2010 9 4 8:00则（我的这个时间格式可能不对，还是以按键的为准，日期你要写今天的）。
按"y”键一次。
否则跳转到标记start。
请注意，这只是个思路，而不是源代码，别把它当成源代码复制，获得系统日期的命令插件命令里有。
软件功能
1、网络游戏中可使用按键精灵制作脚本，实现自动打怪，自动补血，自动说话等。
2、办公族可用按键精灵自动处理表格间数据的转换，自动调整文档格式、文章排版，自动收发邮件等。
3、利用按键精灵实现定时自动打开检验网页链接，文献检索，收集资料等重复操作。
4、任何只要在电脑前用双手可以完成的电脑操作都可以替代完成。
❺ 求输入一个日期自动计算星期几执行拷贝命令(批处理、脚本都可以）
呵呵,涉及日期计算vbs的是简便些，我写个bat的(适用20100101-20120228下面代码没去考虑闰年要考虑就又要多许多代码，估计用不上那长时间吧）
改了一下，建mm月dd日式的文件夹名
@echo off&color f1
setlocal enabledelayedexpansion
::下两行可改，尾部不要另加\
set sd1=D:\WENJIAN
set sd2=E:
echo 输入起始日期(yyyymmdd)格式如20100605
set/p da=请核对无误后回车:
set/a "dy=%da:~,4%-2010"
set/a "dd=%dy%*365+%da:~6,1%*10+%da:~7,1%"
set/a "mm=%da:~4,1%*10+%da:~5,1%"
echo 正在处理，请等候...
set n=1
for %%i in (31 28 31 30 31 30 31 31 30 31 30 31)do (
if !n! lss %mm% (set/a "dd=!dd!+%%i")
if !n! equ %mm% set bdm=%%i
set/a n+=1 )
set/a "dw=(%dd%+4)%%7"
if %dw%==0 set dw=7
set/a "dd=%da:~6,1%*10+%da:~7,1%"
if %mm% lss 10 set "mm=0%mm%"
for /L %%a in (%dd%,1,%bdm%)do (
if %%a lss 10 (set "ymd=%mm%月0%%a日")else set "ymd=%mm%月%%a日"
if not exist "%sd2%\!ymd!" md "%sd2%\!ymd!"
/y "%sd1%\!dw!.xml" "%sd2%\!ymd!\">nul
set/a dw+=1
if !dw!==8 set "dw=1")
set/a "dd=%da:~6,1%*10+%da:~7,1%"
set/a dd-=1
if %dd%==0 goto :eof
if %mm% lss 10 set "mm=%mm:0=%"
set/a mm+=1
if %mm% equ 13 set "mm=1"
if %mm% lss 10 set mm=0%mm%
for /L %%b in (1,1,%dd%)do (
if %%b lss 10 (set "ymd=%mm%月0%%b日")else set "ymd=%mm%月%%b日"
if not exist "%sd2%\!ymd!" md "%sd2%\!ymd!"
/y "%sd1%\!dw!.xml" "%sd2%\!ymd!\">nul
set/a dw+=1
if !dw!==8 set "dw=1")
echo 完成操作！
pause
❻ 按键精灵随机输入一个范围内的日期
我使用按键精灵8 版本不同语法不同
首先要有一个日期库，没有库的写法判断起来挺麻烦
日期库到下面去下载：
http://www.uushare.com/user/aquan/file/3529613
下载好放在D盘下面 "D:\日期库.txt" 当然路径可以自己改 只要路径与脚本里面的路径对应就行。
//以下为脚本
UserVar lowerbound=1 "最早第几日"
UserVar upperbound=365 "最晚第几日"
Text = Plugin.File.ReadFileEx("D:\日期库.txt")
dim MyArray
MyArray = Split(Text, "|")
Dim MyValue, Response
Response = MsgBox (" 从 "&MyArray(lowerbound-1)&" 到 "&MyArray(upperbound-1)&" 随机？ ", vbYesNo)
Randomize
Do Until Response = vbNo
MyValue = Int((upperbound - lowerbound) * Rnd + lowerbound)
Response = MsgBox ("日期："&Cstr(MyArray(MyValue))&" 继续随机？ ", vbYesNo)
Loop
//以上为脚本
如果还有问题请在网络HI里给QQ号或者直接网络HI密我 详谈
❼ 用matlab写一个脚本：输入给定年月日，计算这一年已经逝去的天数(包括当天)。
clc;clear
year=input('InsertYear:');
month=input('InsertMonth:');
day=input('InsertDay:');
isleap=@(year)(mod(year,4)==0&(~(mod(year,100)==0)))|mod(year,400)==0;
days=[31,28,31,30,31,30,31,31,30,31,30,31];
whichday=sum(days(1:1:month-1))+day+isleap(year)*1*(month>2||(month==2&&day==29));
fprintf('Thisisthe%dth(st,rd,nd)dayoftheyear! ',whichday)
❽ Shell 脚本cp后给文件加上当天日期,然后根据当天日期判断,再加上顺序数字01 02 03
1、假设你有一堆文件要改名列表
2、例如
#!/bin/sh
cd ./sh
ymd=`date +%Y%m%d`
max=`find . -type f -name '*.sh'|wc|awk '{print $1}'`
x=(`seq -f %02g 1 ${max}`)
i=0
for file in `ls *.sh`;do
file1=$(echo $file|awk -F. '{print $1}')
newfile=$file1-$ymd-${x[$i]}.sh
echo $file $newfile;
/bin/mv $file $newfile;
((i++))
done
3、执行
199.sh 199-20180206-01.sh
204.sh 204-20180206-02.sh
27.sh 27-20180206-03.sh
28.sh 28-20180206-04.sh
76.sh 76-20180206-05.sh
❾ 按键精灵自动输入系统时间
你的按键精灵是8还是7 以7为例 请复制脚本
Dim RunTime, RTFormat, InputLen, DiffDate, PromptStr, MyBox, Tittle
Tittle = "[飞龙三少]按键精灵定时器"
//〓〓〓〓〓〓☆〓〓〓〓〓〓☆〓〓〓★主程序★〓〓〓☆〓〓〓〓〓〓☆〓〓〓〓〓〓//
Rem 定时器开始
Gosub SetRunTime
Gosub CheckTime
Rem 定时器结束
EndScript
//〓〓〓〓〓〓☆〓〓〓〓〓〓☆〓〓〓★子程序★〓〓〓☆〓〓〓〓〓〓☆〓〓〓〓〓〓//
Sub SetRunTime
PromptStr = "请设置程序定时运行的时间！" &Chr(13)&Chr(13)& "请务必按文本框内格式进行设定！"
//设定时间格式
RTFormat = Date & " " & Hour(Now) & ":" & Minute(Now)
//设置定时运行时间
RunTime = InputBox(PromptStr, Tittle, RTFormat)
InputLen = Len(RunTime)
If InputLen > 0
RunTime = FormatDateTime(RunTime)
PromptStr = "当前定时时间" &Chr(13)&Chr(13)& "确认定时设置并启动定时器？"
MyBox = Msgbox(PromptStr, 33, Tittle)
If MyBox = 2
Goto 定时器结束
EndIf
Else
PromptStr = "您已取消设置定时！定时器退出！"
MyBox = Msgbox(PromptStr, 48, Tittle)
Goto 定时器结束
EndIf
Return SetRunTime
Sub CheckTime
//计算当前系统时间与定时时间的时间间隔
//间隔60秒以内，开始执行子程序Main的脚本
//若系统时间超过定时时间60秒，定时器退出
//定时器每隔45秒计算一次时间间隔
DiffDate = DateDiff("s",Now,RunTime)
If Abs(DiffDate) <= 60
Gosub Main
ElseIf DiffDate < -60
PromptStr = "当前系统时间已超过定时时间范围！定时器退出！"
MyBox = Msgbox(PromptStr, 48, Tittle)
Else
Delay 45000
Gosub CheckTime
EndIf
Return CheckTime
Sub Main
KeyPress 65,1
//需要定时运行的脚本入口
Return Main
//复制以上代码.
//打开按键精灵-源文件-粘贴代码-保存退出
//A键已经给你加进去了
//你只需要按F10启动脚本 然后根据弹出的提示框输入你要什么日期什么时间启动 就可以
到指定时间后他会按一下A键
上面的为设置时间后如果弹出窗口 就表示你设置的生效了 然后删除语句:MsgBox("现在时间：" & Now & "，开始执行脚本!")