找回密码  加入

AUTOIT CN

搜索
查看: 356|回复: 5

[AU3基础] 程序不按要求运行,看看错在哪里

[复制链接]
发表于 2018-6-10 19:19:02 | 显示全部楼层 |阅读模式
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>


dim $edittxt='User:'
;设置输入框默认内容变量



GUICreate("User:")
;设置窗口标题

$myedit = GUICtrlCreateEdit($edittxt,0, 0, 300, 600, 100)
;创建一个标题框,设置数据为变量editxtxt
While 1
       
;创建一个循环


dim $msg1=0
;初始化循环控制变量
GUICtrlSetData ( $myedit,$edittxt)
GUISetState()       
;设置窗口显示



While 1
Dim $jhkz=1


while $jhkz
        If WinActive ("User") Then
               
         ;MsgBox(4096, "WinActive", "记事本窗口是活动的.")
         HotKeySet("{ENTER}", "setmsg")
         Dim $jhkz=0
Else
      Dim $jhkz=1
          ;$msg1 = 0
HotKeySet("{ENTER}", "")
EndIf
msgbox(0,'',$jhkz)
WEnd
        ;msgbox(0,'',11)
        ;HotKeySet("{Enter}", "setmsg")
        ;EndIf

$msg = GUIGetMsg()
if $msg1 = 960929 Then ExitLoop
If $msg = $GUI_EVENT_CLOSE Then Exit

Wend


$msg = GUIGetMsg()
$myedit1=GUICtrlread($myedit)
$edittxt=$myedit1& @CRLF& @CRLF& 'User:'

;msgbox(0,'',$edittxt)
If $msg = $GUI_EVENT_CLOSE Then Exit
WEnd









;$myedit1=GUICtrlread($myedit)
;获取输入的内容
;$edittxt=$myedit1& @CRL
;代码待插入
;提交数据到服务器
;GUICtrlSetData ( $myedit,$edittxt)
;更新上次输入的内容到屏幕
;$msg1=0
;本次输入暂停事件
;HotKeySet("{Enter}", "setmsg")
;GUISetState()
;While 1
;if $msg1 = 960929 Then ExitLoop
;Wend



Func setmsg()
    $msg1 = 960929
EndFunc

;Func Seedent()
;msgbox(0,'','回车')
;EndFunc


;msgbox(0,'',$edittxt)





;我想要做一个类似CMD的程序 程序窗口在激活的情况下 按回车换行  现在是窗口没有激活 系统其他软件按回车无反应了

发表于 2018-6-10 22:38:09 | 显示全部楼层
$myedit = GUICtrlCreateEdit($edittxt,0, 0, 300, 600, $ES_WANTRETURN)
 楼主| 发表于 2018-6-11 00:31:41 | 显示全部楼层
wkun 发表于 2018-6-10 22:38
$myedit = GUICtrlCreateEdit($edittxt,0, 0, 300, 600, $ES_WANTRETURN)

这个是可以做到回车 但是做不到捕获回车 然后控制回车跳出循环吧
发表于 2018-6-11 00:53:39 | 显示全部楼层
回车做了全局热键.其它软件当然没反应了
 楼主| 发表于 2018-6-13 23:18:55 | 显示全部楼层
tubaba 发表于 2018-6-11 00:53
回车做了全局热键.其它软件当然没反应了

关键在else中是没有做HotKeySet的
 楼主| 发表于 2018-6-13 23:21:10 | 显示全部楼层
Else
      Dim $jhkz=1
          ;$msg1 = 0
HotKeySet("{ENTER}")
EndIf

感谢各位 刚刚仔细看了看官网的手册 发现取消热键的函数用错了 已经搞定了 感谢各位
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备15028933号-3 )谷歌 百度

GMT+8, 2018-10-17 10:38 , Processed in 0.083518 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表