问个问题，inputbox的

kn007

InputBox("1：", "2！（2）", "", "M2")
我的脚本只有以上这一句句子，为什么M2，可以只写两个以内的东西，但显示 MM ，M2替换为什么可以让输入只能输入数字，而且只能输入两位以内？

kn007

$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
                IF $time>=0 And $time<=100 Then
                ;
                Else
                MsgBox(16+4096, "警告 !!! .............          By kn007 ", "您输入错误，再见！..........",5)
                Exit
                EndIf

我现在是上面的脚本，但写英文字符什么的，他都不报错，写 -1或101才出错，郁闷

kn007

顶。。。。无聊。。。。。。。。。没人/...

破帽遮颜

$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
IF StringIsDigit($time) And StringLen($time) = 2 Then
        ;
Else
        MsgBox(16 + 4096, "警告 !!! .............          By kn007 ", "您输入错误，再见！..........", 5)
        Exit
EndIf

jhun

$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
IF StringRegExp ($time,"^[1-9]\d*$",0)=0 Or $time<0 Or $time>100 Then MsgBox(16+4096, "警告 !!! .............          By kn007 ", "您输入错误，再见！..........",5)

kn007

谢谢破帽遮颜 ，我试试

给你个好玩的东西

随便打开个网页，比如www.autoitx.com

然后在地址栏那，黏贴以下代码，好好玩的哦，刷新下就停了

javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.images; DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=Math.sin(R*x1+i*x2+x3)*x4+x5; DIS.top=Math.cos(R*y1+i*y2+y3)*y4+y5}R++}setInterval('A()',5); void(0);

kn007

$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
IF StringIsDigit($time) And StringLen($time) = 2 Then
        ;
Else ...
破帽遮颜 发表于 2009-6-27 10:23

不能输入一个数字，汗

kn007

改了一下可以了，IF StringIsDigit($time) And StringLen($time) = 2 Or StringLen($time) = 1

对了如何限制只能写1~50的数字呢？

接下来试试jhun 的源码

kn007

[au3]$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
IF StringRegExp ($time,"^[1-9]\d*$",0)=0 Or $time100 Then  ...
jhun 发表于 2009-6-27 10:26

没办法输入0，汗

kn007

IF StringRegExp ($time,"^[0-9]\d*$",0)=0 Or $time<0 Or $time>50 Then
解决

jhun

没办法输入0，汗
kn007 发表于 2009-6-27 10:36

这样就行了

$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
IF StringRegExp ($time,"^\d*$",0)=0 Or $time<0 Or $time>100 Then MsgBox(16+4096, "警告 !!! .............          By kn007 ", "您输入错误，再见！..........",5)

破帽遮颜

晕,我真不懂,你都发帖上千了,怎么连这个你都还要问啊!汗

kn007

加上了这个 IF $time>=0 And $time<=30 Then    ，我都是灌出来的

晕,我真不懂,你都发帖上千了,怎么连这个你都还要问啊!汗
破帽遮颜 发表于 2009-6-27 10:43

kn007

这样就行了
[au3]$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
IF StringRegExp ($time,"^\d*$", ...
jhun 发表于 2009-6-27 10:41

谢谢，我试试

kn007

可以了，谢谢啊