小猫妖 发表于 2009-3-14 13:56:55

关于自动填写

关于自动填写的问题……

下面这个脚本，能保存，但是按完填写以后却无法填写……

达人帮忙指教下……

谢谢咯……

#include <GUIConstants.au3>

$Reg = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
$WangZhi = RegRead($Reg,"DefaultWangZhi")
$Form1_1 = GUICreate("XXXX", 629, 460, 195, 113)
$Label1 = GUICtrlCreateLabel("网址：", 8, 312, 40, 17)
$Input1 = GUICtrlCreateInput("", 56, 304, 561, 21)
$Button2 = GUICtrlCreateButton("保存设置",395,424,70,25 )
$Button3 = GUICtrlCreateButton("自动填写",470,424,70,25 )
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button3
                        _TianXie()
                Case $Button2
                        _BaoCun()
        EndSwitch
WEnd

Func _TianXie()
        $TianXie1 = RegRead($Reg,"DefaultWangZhi")
        WinWaitActive("XXXX")
        ControlSend ( "XXXX", "网址：", "Edit1", $TianXie1)
        MsgBox(0,"","OK!")
EndFunc
Func _BaoCun()
    $WangZhi = GUICtrlRead($Input1)
    RegWrite($Reg,"DefaultWangZhi","REG_SZ",$WangZhi)
        MsgBox(0,"","保存完毕")
EndFunc

[ 本帖最后由 小猫妖 于 2009-3-14 18:54 编辑 ]

小猫妖 发表于 2009-3-14 14:44:08

还有就是把ControlSend ( "XXXX", "网址：", "Edit1", $TianXie1)
换成Send还是没有反应……

达人帮帮忙啊……

顽固不化 发表于 2009-3-14 15:53:59

Func _TianXie()
    $TianXie1 = RegRead($Reg,"DefaultWangZhi")
    guictrlsetdata($input1, $TianXie1)
    MsgBox(0,"","OK!")
EndFunc

小猫妖 发表于 2009-3-14 18:54:16

恩……

OK了……

谢谢楼上的……:face (36):
页: [1]
查看完整版本: 关于自动填写