你好:

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


 

【Au3】脚本收集万象加了密的注册表收费端IP到MDB数据库。。

该脚本是没问题的,如果你运行不了,那你换换你的AutoIT3版本试试。

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

#PRE_UseUpx=n
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
$mdb_data_path="sky.mdb"
$mdb_data_pwd=""
$tblname="万象"
dim $name,$pass
dim $ip1="192.168.0."
dim $ip2=1
data($mdb_data_path, $tblname) ;首先创建数据库
While 1
if $ip2<255 then 
$name=$ip1&$ip2
runwait("Client64bit_3.2.2.86.exe /verysilent /ip="&$name&" /norestart")
$pass=regRead("HKEY_LOCAL_MACHINE\SOFTWARE\Sicent\wx2004Clt","PCltedPar");还是在XP上提取妥当。所以这里就是这样。
$ip2=$ip2+1
    sx()
Else
Exit
EndIf        
WEnd
 
 
;写数据的函数
Func sx()
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $mdb_data_path & ";Jet Oledb:Database Password=" & $mdb_data_pwd)
$addfld.Execute("insert into 万象 (name,pass) values('"&$name&"','"&$pass&"')")
$addfld.close
;MsgBox(4096, "提示:"," 成功写入数据库!")  
EndFunc
 
 
;创建数据库的函数
Func data($mdb_data_path, $tblname)
if not FileExists($mdb_data_path) Then
$newMdb = ObjCreate("ADOX.Catalog")
$newMdb.Create("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
$newmdb.ActiveConnection.Close;建数据库
$addtbl = ObjCreate("ADODB.Connection")
$addTbl.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
$addTbl.Execute("Create TABLE " & $tblname)
$addtbl.Close;建表
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $mdb_data_path)
$addfld.Execute("Alter TABLE " & $tblname & " ADD id identity(1, 1) primary key,name char ,pass memo");id identity(1, 1) primary key为自动编号和主键
;pass memo,这里原来是pass char,但char数据类型太短,加密后的IP字节太长,无法写入。
$addfld.Close;建列表名
MsgBox(64,"提示","建立数据库成功。",5)
Else
MsgBox(64,"提示","你已经建立了一个数据库了。",5)
EndIf
EndFunc
 
 
——————————————————————————
mdb数据类型:
1、文本:char(n)n表示文本大小
2、备注:memo
3、字节型:byte
4、长整型:long
5、整型:short
6、单精度:single
7、双精度:double
8、时间日期:time
9、货币:money或currency
10、自动编号:counter
11、是否:bit
12、OLE对象:OLEObject
13、二进制:binary


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