dnvplj 发表于 2014-11-13 19:49:31

回复 10# austere
还是一样，没起作用。

austere 发表于 2014-11-13 20:06:30

回复 16# dnvplj


    不会啊。我测试了没有问题啊~~   你是把我的源码又重新复制的吗？ 我重新编辑了一下~

dnvplj 发表于 2014-11-13 20:17:46

回复 17# austere
重新复制了

austere 发表于 2014-11-13 20:20:20

回复 18# dnvplj


    再重新试下，我XPwin7 测试都没有问题了

netegg 发表于 2014-11-13 21:14:22

找到了MSChapSrvChangePassword2 api

dnvplj 发表于 2014-11-14 09:19:45

回复 19# austere
成功了，在次感谢austere朋友

hgzhoulin 发表于 2014-11-15 20:41:06

感谢分享，学习了

austere 发表于 2014-11-16 20:44:25

回复 1# dnvplj #include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3>

FileInstall("123.jpg", @TempDir & "\123.jpg", 1)
$Form1 = GUICreate("更改密码", 382, 284, -1, -1, $ws_popup)
$Pic1 = GUICtrlCreatePic(@TempDir & "\123.jpg", 0, 0, 382, 284, $SS_CENTERIMAGE)
$ss1 = GUICtrlCreateLabel("为 " & @UserName & " 设置密码", 0, 0, 355, 28, "", $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0xffffff)
$ss2 = GUICtrlCreateLabel("", 355, 0, 27, 28)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$input1 = GUICtrlCreateInput("", 140, 38, 230, 24)
GUICtrlSetFont(-1, 14, 400)
$input2 = GUICtrlCreateInput("", 140, 68, 230, 24)
GUICtrlSetFont(-1, 14, 400)
$ss3 = GUICtrlCreateLabel("", 195, 247, 75, 25)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ss4 = GUICtrlCreateLabel("", 112, 247, 75, 25)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

GUISetState(@SW_SHOW)
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $ss2
                        Exit
                Case $ss3
                        Exit
                Case $ss4
                        If GUICtrlRead($input1) == GUICtrlRead($input2) Then
                                GUISetState(@SW_HIDE)
                                _RunDOS("net user " & @UserName & " " & GUICtrlRead($input1))
                                $box = MsgBox(64 + 4, "提示", "密码修改成功！是否立即启动计算机？")
                                If $box = 6 Then _RunDOS("shutdown -r -t 0")
                                Exit
                        Else
                                MsgBox(64 + 0, "错误提示", "两次输入的密码不一致，请重新输入！")
                        EndIf
        EndSwitch
WEnd重新修改的，图片放到脚本目录下编译就好了

nian_jin 发表于 2014-11-17 13:06:42

可以簡單一點的麼。。。

Authree 发表于 2014-11-18 10:12:56

果然厉害，，这模拟跟系统里修改密码如出一辙。。

sunkiss 发表于 2014-11-19 19:14:18

还行，呵呵，这可以乱真了。
页: 1 [2]
查看完整版本: [已解决]如何调出XP密码设置对话框