梦想吧技术论坛 » 『 脚本技术专栏 』 » AU3-DF及EP密码设置工具

似水年华 发表于 2007-4-22 07:06 PM

AU3-DF及EP密码设置工具

#cs ----------------------------------------------------------------------------
客户机延时启动加载程序_DF_EP密码设置工具_不带密码加密功能

    将原始密码重新再次加密

星际魂 Copyright (C) 2006 QQ:172160497
您可以自由复制或修改本源码为自用，并请保留此段信息，请勿用于商业用途！
如果你能更好的改进本代码，请将改进后的代码发一份给我，将不胜感激！！！
#ce ----------------------------------------------------------------------------
#include <guiconstants.au3>
If Not FileExists(@ScriptDir&"\SleepBootCfg.ini") Then
MsgBox(64,"错误信息","当前目录下未发现“SleepBootCfg.ini”配置文件，"&@CRLF&@CRLF&"请将本程序放入配置文件所在目录"&@CRLF&@CRLF&"或将该配置文件COPY到本程序所在目录下再运行")
Exit
EndIf
$WinMain = GuiCreate('网吧延时启动程序_DF_EP密码设置工具', 400, 250)
GuiCtrlCreateLabel('DF图形界面密码:',5,18)
$EditText_DF_Wks = GUICtrlCreateEdit('在此输入你的冰点客户端图形界面密码...',95,5,290,40,$ES_AUTOVSCROLL)
GuiCtrlCreateLabel('DF_DOS界面密码:',5,56)
$EditText_DF_Cmd = GUICtrlCreateEdit('在此输入你的冰点客户端DOS密码，没有则不用填...',95,45,290,40,$ES_AUTOVSCROLL)
GuiCtrlCreateLabel('EP客户管理密码:',5,94)
$EditText_EP = GUICtrlCreateEdit('在此输入你的PubwinEP客户端管理密码...',95,85,290,40,$ES_AUTOVSCROLL)
$WriteButton = GuiCtrlCreateButton('写入配置文件', 150, 180, 105, 25)
$ResetButton = GuiCtrlCreateButton('重新输入', 270, 180, 105, 25)
GuiCtrlCreateLabel('Copyright by 2006 星际魂 QQ:172160497',85,220)
GUICtrlSetColor(-1,0x777777)
GUICtrlSetState($WriteButton,$GUI_DISABLE)
GUICtrlSetState($ResetButton,$GUI_DISABLE)
GuiSetState()
Sleep(3000)
GUICtrlSetData($EditText_DF_Wks,'')
GUICtrlSetData($EditText_DF_Cmd,'')
GUICtrlSetData($EditText_EP,'')
ControlFocus($WinMain,"",$EditText_DF_Wks)
GUICtrlSetState($WriteButton,$GUI_ENABLE)
GUICtrlSetState($ResetButton,$GUI_ENABLE)
While 1
    $Msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
   Exit
     Case $msg = $WriteButton
    GuiSetState(@SW_DISABLE,$WinMain)
    $ReadPass_DF_Wks = GuiCtrlRead($EditText_DF_Wks)
    $ReadPass_DF_Cmd = GuiCtrlRead($EditText_DF_Cmd)
    $ReadPass_EP = GuiCtrlRead($EditText_EP)
    if $ReadPass_DF_Wks <> "" Then GUICtrlSetData($EditText_DF_Wks,'正在将新密码写入配置文件，请稍候...')
       if $ReadPass_DF_Cmd <> "" Then GUICtrlSetData($EditText_DF_Cmd,'正在将新密码写入配置文件，请稍候...')
    if $ReadPass_EP <> "" Then GUICtrlSetData($EditText_EP,'正在将新密码写入配置文件，请稍候...')
    IniWrite(@ScriptDir&"\SleepBootCfg.ini","QQ172160497","DF_Workstation_Pass",$ReadPass_DF_Wks)
    IniWrite(@ScriptDir&"\SleepBootCfg.ini","QQ172160497","DF_CommandLine_Pass",$ReadPass_DF_Cmd)
    IniWrite(@ScriptDir&"\SleepBootCfg.ini","QQ172160497","PubwinEP_Pass",$ReadPass_EP)
    if $ReadPass_DF_Wks <> "" Then GUICtrlSetData($EditText_DF_Wks,'加密后的DF_Work密码已写入配置文件，请牢记你输入的密码！！！')
       if $ReadPass_DF_Cmd <> "" Then GUICtrlSetData($EditText_DF_Cmd,'加密后的DF_Cmd密码已写入配置文件，请牢记你输入的密码！！！')
    if $ReadPass_EP <> "" Then GUICtrlSetData($EditText_EP,'加密后的EP密码已写入配置文件，请牢记你输入的密码！！！')
    GuiSetState(@SW_ENABLE,$WinMain)
     Case $msg = $ResetButton
    GuiSetState(@SW_DISABLE,$WinMain)
    GUICtrlSetData($EditText_DF_Wks,'')
       GUICtrlSetData($EditText_DF_Cmd,'')
       GUICtrlSetData($EditText_EP,'')
    GuiSetState(@SW_ENABLE,$WinMain)
    ControlFocus($WinMain,"",$EditText_DF_Wks)   
EndSelect
WEnd

redapple 发表于 2007-4-29 01:41 PM

谢谢共享，我收下了。仔细看一下。

查看完整版本: AU3-DF及EP密码设置工具