你好:

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


 

【Au3】脚本读取万象加密的收费端IP的MDB数据库到注册表和注册表文件

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Icon=..\..\..\tools\高清ico\lock.ico
#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=
dim $name,$name1
$Form1 = GUICreate("万象收费端IP设置_1.0_QQ:47853253", 396, 180, 308, 398)
$Label2 = GUICtrlCreateLabel("", 120, 78, 220, 24)
$Label4 = GUICtrlCreateLabel("目前支持设置的IP段:192.168.0.x,192.168.1.x,192.168.2.x", 20, 148, 396, 24)
$Label1 = GUICtrlCreateLabel("请输入万象  OL  收费端IP:", 16, 12, 220, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("请输入万象2008收费端IP:", 16, 45, 220, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("应用", 150, 105, 90, 25)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 238, 12, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
$IPAddress2 = _GUICtrlIpAddress_Create($Form1, 238, 42, 130, 21)
_GUICtrlIpAddress_Set($IPAddress2, "0.0.0.0")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Button1
   $ip2=_guictrlipaddress_get($IPAddress1)
   $ip3=_guictrlipaddress_get($IPAddress2)
  if $ip2<>"0.0.0.0" Then
   if $ip3<>"0.0.0.0" Then
   $name1=$ip2
   $name=$ip3
   FileInstall("sky.mdb","")
   FileSetAttrib("sky.mdb","+H");给文件加隐藏属性。省得看见
   $mdb_data_path="sky.mdb"
            $mdb_data_pwd=""
            $tblname="万象"
            $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 = '"&$name&"'")
   $pass=$RS.Fields (0).value
            $rs.close
            $addfld.Close
   ;MsgBox(4096,"",$pass&"")
   ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Sicent\wx2004Clt","PCltedPar","reg_sz",$pass);双IP设置时不写注册表。
   ;2008注册表。
            RunWait(@ComSpec & ' /c ' & 'echo Windows Registry Editor Version 5.00>2008.reg', '', @SW_HIDE)
            RunWait(@ComSpec & ' /c ' & 'echo.>>2008.reg', '', @SW_HIDE)
            RunWait(@ComSpec & ' /c ' & 'echo [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Sicent\wx2004Clt]>>2008.reg', '', @SW_HIDE)
            RunWait(@ComSpec & ' /c ' & 'echo "PCltedPar"="'&$pass&'">>2008.reg', '', @SW_HIDE)
   $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
   ;ol.reg注册表。
   RunWait(@ComSpec & ' /c ' & 'echo Windows Registry Editor Version 5.00>OL.reg', '', @SW_HIDE)
            RunWait(@ComSpec & ' /c ' & 'echo.>>OL.reg', '', @SW_HIDE)
            RunWait(@ComSpec & ' /c ' & 'echo [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Sicent\wx2004Clt]>>OL.reg', '', @SW_HIDE)
            RunWait(@ComSpec & ' /c ' & 'echo "PCltedPar"="'&$pass1&'">>OL.reg', '', @SW_HIDE)
   FileDelete("sky.mdb")
   $Label2 = GUICtrlCreateLabel("双万象IP设置完成,请退出!", 120, 78, 220, 24)
  Else
   $name1=$ip2
   FileInstall("sky.mdb","")
   FileSetAttrib("sky.mdb","+H");给文件加隐藏属性。省得看见
   $mdb_data_path="sky.mdb"
            $mdb_data_pwd=""
            $tblname="万象"
            $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\wx2004Clt","PCltedPar","reg_sz",$pass1)
   ;ol.reg注册表。
   RunWait(@ComSpec & ' /c ' & 'echo Windows Registry Editor Version 5.00>OL.reg', '', @SW_HIDE)
            RunWait(@ComSpec & ' /c ' & 'echo.>>OL.reg', '', @SW_HIDE)
            RunWait(@ComSpec & ' /c ' & 'echo [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Sicent\wx2004Clt]>>OL.reg', '', @SW_HIDE)
            RunWait(@ComSpec & ' /c ' & 'echo "PCltedPar"="'&$pass1&'">>OL.reg', '', @SW_HIDE)
   FileDelete("sky.mdb")
   $Label2 = GUICtrlCreateLabel("万象OL收费端IP设置完成,请退出!", 120, 78, 220, 24)
  EndIf
 Else
  if $ip2="0.0.0.0" Then
   if $ip3<>"0.0.0.0" Then
   $name=$ip3 
   FileInstall("sky.mdb","")
   FileSetAttrib("sky.mdb","+H");给文件加隐藏属性。省得看见
   $mdb_data_path="sky.mdb"
            $mdb_data_pwd=""
            $tblname="万象"
            $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 = '"&$name&"'")
            $pass=$RS.Fields (0).value
            $rs.close
            $addfld.Close   
   RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Sicent\wx2004Clt","PCltedPar","reg_sz",$pass)
   ;2008.reg注册表。
   RunWait(@ComSpec & ' /c ' & 'echo Windows Registry Editor Version 5.00>OL.reg', '', @SW_HIDE)
            RunWait(@ComSpec & ' /c ' & 'echo.>>OL.reg', '', @SW_HIDE)
            RunWait(@ComSpec & ' /c ' & 'echo [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Sicent\wx2004Clt]>>OL.reg', '', @SW_HIDE)
            RunWait(@ComSpec & ' /c ' & 'echo "PCltedPar"="'&$pass&'">>OL.reg', '', @SW_HIDE)
   FileDelete("sky.mdb")
   $Label2 = GUICtrlCreateLabel("万象2008收费端IP设置完成,请退出!", 120, 78, 220, 24)
  Else
   $Label2 = GUICtrlCreateLabel("输入的IP有误,请重新输入!", 120, 78, 220, 24)
  EndIf
  EndIf
EndIf
 EndSwitch
WEnd
 

===========================

使用说明:

fields属性如下:?

Name:字段名?

value:字段值?

type:字段类型?

precision:字段允许最大字数

$RS.Fields (0)就是你select出来的第一个记录集。如:

select   id,name,pwd   from   table  

$RS.Fields (0)=$RS.Fields("id")  

$RS.Fields (2)=$RS.Fields("name")  

$RS.Fields (0)=$RS.Fields("pwd")

 

 

recordset  对象 ( 游标 ) 的一些属性和方法:  

   

rs.fields.count:   recordset   对象的字段总数。  

rs(i).name:   第 i 个字段的名称,i由 0 算起到  rs.fields.count-1。  

rs(i): 读取第 i 个字段的数据, i 由 0 算起到   rs.fields.count-1。  

rs(" 字段名称 "): 读取指定字段的数据。  

rs.recordcount: 游标中的数据记录总数。  

rs.eof: 是否已指到最后一条记录。  

rs.movenext: 将指标移到下一笔记录。  

rs.moveprev: 将指标移到上一笔记录。  

rs.movefirst: 将指标移到第一笔记录。  

rs.movelast: 将指标移到最后一笔记录。  

rs.close: 关闭  recordset 对象。



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