[已解决]新手问个问题,关于输入.有图有JB
本帖最后由 lanpor 于 2013-1-3 20:13 编辑请问AU3能否做到在一个 窗口有几个输入框,就相当于把几个inputbox弄到一个窗口中
类似图片中的几个输入框
这下明白了吧
还是自己漫漫研究吧 期待高手的出现呀！ 不知道你的表述有问题还是我文字认识能力。
你是不是想输入INPUT里面之后，窗口的输入框就显示在INPUT输入的内容？如果是的话，你就搜索帮助吧，很简单 本帖最后由 user3000 于 2012-12-30 18:24 编辑
看在有JB的份上回复一个: 可以做到.
楼主接下来会问怎么做? 看这帖子,原理类似
http://www.autoitx.com/forum.php?mod=redirect&goto=findpost&pid=497454&ptid=36794 暂且认为你想转化vbs吧，判断数字那里不完全对路，自己修改，au3的inputbox返回值为字符串，所以。。。
Dim $lanpor
Dim $pcs, $bstart, $bstep, $tstart, $tstep
Dim $a, $c, $e
$lanpor = ObjCreate("wscript.Shell")
$pcs = InputBox("pieces", "", "5")
$bstart = InputBox("start1", "", "5")
$bstep = InputBox("step1", "", "5")
$tstart = InputBox("start2", "", "5")
$tstep = InputBox("step2", "", "5")
If Number($pcs) = False Or Number($bstart) = False Or Number($bstep) = False Or Number($tstart) = False Or Number($tstep) = False Then
MsgBox(16, "你輸入的內容包含非整數，請重新輸入", "錯誤")
Else
Sleep(200)
$lanpor.sendkeys("{DOWN}")
$lanpor.sendkeys("{TAB}")
$lanpor.sendkeys($pcs)
Sleep(200)
$lanpor.sendkeys("{TAB 3}")
Sleep(20)
$a = $a + 1
$bs = $bstart + ($a - 1) * $bstep
$lanpor.sendkeys($bs)
Sleep(20)
If $bs = $bstart + ($pcs - 1) * $bstep Then
$lanpor.sendkeys("{RIGHT}")
$b = $pcs
$be = $bstep * $b
$lanpor.sendkeys($be)
Sleep(20)
$b = $b - 1
If $b = 0 Then
$lanpor.sendkeys("{RIGHT}")
$c = $c + 1
$ts = $tstart + ($c - 1) * $tstep
$lanpor.sendkeys($ts)
Sleep(20)
If $ts = $tstart + ($pcs - 1) * $tstep Then
$lanpor.sendkeys("{RIGHT}")
$d = $pcs
$te = $tstart + $d * $tstep - 1
$lanpor.sendkeys($te)
Sleep(20)
$d = $d - 1
If $d = 0 Then
$lanpor.sendkeys("{RIGHT}")
$e = $e + 1
$lanpor.sendkeys("20")
Sleep(20)
If $e - $pcs = 0 Then
MsgBox(48, "任务完成", "DONE")
EndIf
$lanpor.sendkeys("{DOWN}")
EndIf
$lanpor.sendkeys("{UP}")
EndIf
$lanpor.sendkeys("{DOWN}")
EndIf
$lanpor.sendkeys("{UP}")
EndIf
$lanpor.sendkeys("{DOWN}")
EndIf 本帖最后由 cdmtony 于 2013-1-3 09:59 编辑
樓上高手呀。{:face (361):}
貌似代碼行不通。 {:face (229):}4楼虽告诉有JB但是我新手不知道怎么弄
5楼误解我意思了
页:
[1]