帮忙看一下循环哪里出问题了[已解决]

oceanwind · 发表于 2011-12-15 14:01:29

本帖最后由 oceanwind 于 2011-12-15 15:23 编辑

想作一个实时监控当@MSEC=20时各往已打开的记本里写东西
外加两个按钮停止与开始监控

谢谢先

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=C:\WINDOWS\system32\SHELL32.dll
#AutoIt3Wrapper_outfile=timesuper.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('TrayMenuMode', 1) ;单击不暂停
Dim $s
Opt("WinTitleMatchMode", 2)
Opt("SendKeyDelay", 200)
GUICreate("颜色显示", 300, 160)
$jkbutton = GUICtrlCreateButton("开始监控", 30, 100, 60)
$tzbutton = GUICtrlCreateButton("停止监控", 120, 100, 60)
$sj=@HOUR&@MIN
$tj=0
GUISetState(@SW_SHOW)
While 1
      $msg = GUIGetMsg()
      If  $Msg = -3 then
            Exit
   endif
   if $Msg = $jkbutton then
   $tj=1
      endif
            While 1
$msg1 = GUIGetMsg()
Select
         case $Msg1 = $tzbutton
      ExitLoop
   Case $Msg1 = -3
   exit
                  EndSelect
While @MSEC=20 And $tj=1
   ;$var = PixelGetColor( 1323 , 916 )
   If  WinActive("无标题 - 记事本", "")=0 Then
   WinActivate("无标题 - 记事本", "")
   EndIf
   Sleep(50)
   $zc = ControlGetText("无标题 - 记事本", "", "Edit1")
   ControlSetText ( "无标题 - 记事本", "", "Edit1", $zc&"---"&@HOUR&":"&@MIN&":"&@MSEC  )
WEnd
            WEnd
WEnd

seniors · 发表于 2011-12-15 14:24:35

要学学语法了
三个while根本没必要，一个while就行了
还有if也没必要，用case多好啊
一分钟写一次就全是看到的时间了，呵

如果是要写时间的话dos命令AT很不错的

oceanwind · 发表于 2011-12-15 14:38:36

要学学语法了
三个while根本没必要，一个while就行了
还有if也没必要，用case多好啊
一分钟写一次就全是 ...
seniors 发表于 2011-12-15 14:24

能指点一下吗....

oceanwind · 发表于 2011-12-15 15:16:34

要一个WHILE 能行吗?
又改了下
还是没有预期的在@MSEC=20的写入动作.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('TrayMenuMode', 1) ;单击不暂停
Dim $s
Opt("WinTitleMatchMode", 2)
Opt("SendKeyDelay", 200)
GUICreate("颜色显示", 300, 160)
$jkbutton = GUICtrlCreateButton("开始监控", 30, 100, 60)
$tzbutton = GUICtrlCreateButton("停止监控", 120, 100, 60)
$tj=0
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
   case $Msg = -3
Exit
   case $Msg = $jkbutton
$tj=1
   case $Msg = $tzbutton
$tj=0
EndSelect
While @MSEC=20 And $tj=1
   ;$var = PixelGetColor( 1323 , 916 )
   If  WinActive("无标题 - 记事本", "")=0 Then
   WinActivate("无标题 - 记事本", "")
   EndIf
   Sleep(50)
   $zc = ControlGetText("无标题 - 记事本", "", "Edit1")
   ControlSetText ( "无标题 - 记事本", "", "Edit1", $zc&"---"&@HOUR&":"&@MIN&":"&@MSEC  )
WEnd
WEnd

seniors · 发表于 2011-12-15 15:16:58

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('TrayMenuMode', 1) ;单击不暂停
Dim $s
Opt("WinTitleMatchMode", 2)
Opt("SendKeyDelay", 200)
GUICreate("颜色显示", 300, 160)
$jkbutton = GUICtrlCreateButton("开始监控", 30, 100, 60)
$tzbutton = GUICtrlCreateButton("停止监控", 120, 100, 60)
$sj = @HOUR & @MIN
$tj = 0
GUISetState(@SW_SHOW)
While 1
        $msg1 = GUIGetMsg()
        Switch $msg1
                Case -3
                        Exit
                Case $tzbutton
                        $tj = 0
                        
                Case $jkbutton
                        $tj = 1
        EndSwitch
        While @SEC == 20 And $tj == 1
                ;$var = PixelGetColor( 1323 , 916 )
                If WinActive("无标题 - 记事本", "") = 0 Then
                        WinActivate("无标题 - 记事本", "")
                EndIf
                Sleep(50)
                $zc = ControlGetText("无标题 - 记事本", "", "Edit1")
                ControlSetText("无标题 - 记事本", "", "Edit1", $zc & "---" & @HOUR & ":" & @MIN & ":" & @SEC)
        WEnd
WEnd

oceanwind · 发表于 2011-12-15 15:23:03

seniors 发表于 2011-12-15 15:16

谢谢楼上的朋友
非常OK

seniors · 发表于 2011-12-15 15:25:40

和你注册时间差不多，你要多学学基本的语法

oceanwind · 发表于 2011-12-15 15:29:58

和你注册时间差不多，你要多学学基本的语法
seniors 发表于 2011-12-15 15:25

是啊书到用时方恨少

		自动登录	找回密码
密码			加入

[AU3基础] 帮忙看一下循环哪里出问题了[已解决]

相关帖子

评分

评分