你好:

     感谢你访问我的 Blog ,本博客只提供博主的技术经验分享,你可以在此做简单的留言和评论,我会抽空回复你;若是要深入交流探讨,请联系QQ:47853253或者加QQ群:12012081


 

万象网管收费端IP设置工具【没解决 GUICtrlCreateEdit鼠标复制内容】

#Region ;**** 参数创建于 ACNWrapper_GUI ****

#PRE_icon=..\..\..\..\tools\高清ico\Client.exe|-1

#PRE_UseUpx=n

#PRE_UseX64=n

#PRE_Res_requestedExecutionLevel=None

#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <GuiIPAddress.au3>

#include <StaticConstants.au3>

;#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

Opt("TrayMenuMode", 3)

$Form1 = GUICreate("万象网管收费端IP设置工具_QQ:47853253", 396, 343, 308, 398)

;$Label2 = GUICtrlCreateEdit("", 0, 55, 395, 180,$SS_CENTER)

$Label6 = GUICtrlCreateLabel("万象收费端IP在客户机注册表里是一串加密的数据,此工具的目的就是为了在不执行万象客户端的安装的情况下得到并设置此值。", 0, 250, 395, 28,$SS_CENTER)

GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")

$Label4 = GUICtrlCreateLabel("支持设置的收费端IP段:192.168.【1.x-10.x】【88.x,100.x,200.x】", 0, 320, 396, 24,$SS_CENTER)

$Label1 = GUICtrlCreateLabel("请输入万象网管收费端IP:", 16, 20, 220, 24)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$Button1 = GUICtrlCreateButton("应用IP设置", 8, 288, 90, 25)

$Button2 = GUICtrlCreateButton("导出IP到注册表", 140, 288, 110, 25)

$Button3 = GUICtrlCreateButton("设置万象自启动", 288, 288, 100, 25)

$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 238, 20, 130, 21)

_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")

GUISetState(@SW_SHOW)

$mdb_data_path="sky.mdb"

$mdb_data_pwd=""

$tblname="万象"

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

$ip2=_guictrlipaddress_get($IPAddress1)

if $ip2<>"0.0.0.0" Then

FileInstall("sky.mdb","")

FileSetAttrib("sky.mdb","+H")

$name1=$ip2

$addfld = ObjCreate("ADODB.Connection")

            $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &$mdb_data_path)

            $RS =ObjCreate("ADODB.Recordset")

            $RS.ActiveConnection = $addfld

            $RS.Open ("Select pass From 万象 where name = '"&$name1&"'")

$pass1=$RS.Fields (0).value

            $rs.close

            $addfld.Close

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Sicent")

            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Sicent\wx2004Clt")

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Sicent\wx2004Clt","PCltedPar","reg_sz",$pass1)

FileDelete("sky.mdb")

$Label2 = GUICtrlCreateEdit("设置完成!万象收费端IP为:【"&$name1&"】加密后的值为:"&$pass1, 0, 55, 395, 180,$SS_CENTER)

Else

$Label6 = GUICtrlCreateLabel("输入的IP有误,请重新输入!", 0, 250, 395, 28,$SS_CENTER)

EndIf

Case $Button2

$ip2=_guictrlipaddress_get($IPAddress1)

if $ip2<>"0.0.0.0" Then

FileInstall("sky.mdb","")

FileSetAttrib("sky.mdb","+H")

$name1=$ip2

$addfld = ObjCreate("ADODB.Connection")

            $addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &$mdb_data_path)

            $RS =ObjCreate("ADODB.Recordset")

            $RS.ActiveConnection = $addfld

            $RS.Open ("Select pass From 万象 where name = '"&$name1&"'")

$pass1=$RS.Fields (0).value

            $rs.close

            $addfld.Close

RunWait(@ComSpec & ' /c ' & 'echo Windows Registry Editor Version 5.00>wx.reg', '', @SW_HIDE)

            RunWait(@ComSpec & ' /c ' & 'echo.>>wx.reg', '', @SW_HIDE)

            RunWait(@ComSpec & ' /c ' & 'echo [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Sicent\wx2004Clt]>>wx.reg', '', @SW_HIDE)

            RunWait(@ComSpec & ' /c ' & 'echo "PCltedPar"="'&$pass1&'">>wx.reg', '', @SW_HIDE)

$Label2=GUICtrlCreateEdit("Windows Registry Editor Version 5.00"&@CRLF&@CRLF&"[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Sicent\wx2004Clt]"&@CRLF&"PCltedPar="&$pass1, 0, 55, 395, 180,$SS_CENTER)

       $Label6 = GUICtrlCreateLabel("注册表已导出到程序所在目录\wx.reg  !", 0, 250, 395, 28,$SS_CENTER)

            FileDelete("sky.mdb")

Else

$Label6 = GUICtrlCreateLabel("输入的IP有误,请重新输入!", 0, 250, 395, 28,$SS_CENTER)

EndIf

Case $Button3

RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\run","wx","reg_sz","c:\windows\syswow64\clsmn.exe")

    $Label6 = GUICtrlCreateLabel("万象客户端自启动设置完成!", 0, 250, 395, 28,$SS_CENTER)

EndSwitch

WEnd



[本日志由 lq3447 于 2017-05-27 01:18 AM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
评论: 0 | 引用: 0 | 查看次数: 91
发表评论
你没有权限发表留言!