找回密码
 加入
搜索
查看: 3165|回复: 15

求高们手帮个忙,做个自动填卡的软件!

[复制链接]
发表于 2009-5-16 01:54:55 | 显示全部楼层 |阅读模式
本帖最后由 fenger520o 于 2009-5-17 10:25 编辑

有个样本就是不知道原理
想填的表如下:(这个图片是过虑王刷临时卡时弹出的,我想每次按F2自动填这个表,想做和样本差不多的窗口样式就可以了,也可以随意设计,只要能填表就可以)

样本:
http://61.136.116.115/样本.rar
(这个样本不是我想要的会乱填)
姓名和身份证号需要每按下F2填进对应位置并且换下一个(也就是说每次按F2输入的都不一样)
其他可以是死的每次按F2都是一样的数值
但是数值可以在INI文件里定义
如果哪位高手能帮个忙,我可以给个无限期的FTP空间(双100M光纤服务器)
最主要的能给我讲解下原理及设计思路
发表于 2009-5-16 03:16:23 | 显示全部楼层
本帖最后由 lynfr8 于 2009-5-18 15:31 编辑

原理:
1.从ini读取姓名、身份证和其他的数据
2.按F2自动发送到你这个‘临时卡资料用户资料‘窗口的‘姓名’和‘证件’和其他edit控件

设计思路:
IniRead :读取所需的ini数据,并按类型分别自定义变量$NAME,$IDCARD等等
HotKeySet :建立热键F2及其对应的func
ControlSetText :按下F2激活窗口并把$NAME,$IDCARD等变量发送到对应的控件
ControlClick :再模拟点击确认(如有新窗口跳出,winclose即可)

要做成样本那样的gui也不是很难
 #include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("请输入临时卡用户资料", 413, 305, 246, 195)
$Group1 = GUICtrlCreateGroup("临时卡用户资料", 32, 8, 337, 249)
$Label1 = GUICtrlCreateLabel("姓名", 40, 40, 50, 17)
$Label2 = GUICtrlCreateLabel("登陆密码", 40, 64, 50, 17)
$Label3 = GUICtrlCreateLabel("密码确认", 40, 88, 50, 17)
$Label4 = GUICtrlCreateLabel("证件类型", 40, 120, 50, 17)
$Label5 = GUICtrlCreateLabel("证件编号", 40, 144, 50, 17)
$Label6 = GUICtrlCreateLabel("单位住址", 40, 168, 50, 17)
$Label7 = GUICtrlCreateLabel("国家名", 40, 192, 50, 17)
$Label8 = GUICtrlCreateLabel("详细描述", 40, 216, 50, 17)
$Label9 = GUICtrlCreateLabel("模拟窗口by lynfr8", 344, 265, 54, 30)
$Input1 = GUICtrlCreateInput("", 99, 36, 257, 21)
$Input2 = GUICtrlCreateInput("", 99, 60, 257, 21)
$Input3 = GUICtrlCreateInput("", 99, 84, 257, 21)
$Input4 = GUICtrlCreateInput("", 99, 140, 257, 21)
$Input5 = GUICtrlCreateInput("", 99, 164, 257, 21)
$Input6 = GUICtrlCreateInput("", 99, 188, 257, 21)
$Input7 = GUICtrlCreateInput("", 99, 212, 257, 21)
$Combo1 = GUICtrlCreateCombo("", 99, 112, 257, 25)
GUICtrlSetData(-1, "身份证|军官证|警官证", "") 
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("确认", 72, 264, 97, 25, 0)
$Button2 = GUICtrlCreateButton("取消", 232, 264, 97, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Button1 
   MsgBox('','','已经自动输入')
                Case $Button2 
   Exit
EndSwitch
WEnd
再用这个‘模拟你给的样本的功能’测试下自动填表到以上的模拟窗口
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
Dim $Count1,$Count2,$Name,$IDcard,$Code,$detail,$var,$var2
$Count1 = IniRead("count.ini", "count", "count", "NotFound")
$Count2 = _FileCountLines("File.ini")-2
$Form1 = GUICreate("过滤王临时卡一键填表", 348, 262, 377, 168)
$Label0 = GUICtrlCreateLabel("一键输入记录数:"&$Count1, 80, 16, 132, 17)
$Label1 = GUICtrlCreateLabel("***过滤王临时卡***一键填表[F2]***", 81, 45, 200, 17)
$Label2 = GUICtrlCreateLabel("存档记录数:"&$Count2, 200, 16, 148, 17)
$Label3 = GUICtrlCreateLabel("姓名", 16, 69, 36, 17)
$Label4 = GUICtrlCreateLabel("密码", 16, 94, 36, 17)
$Label5 = GUICtrlCreateLabel("身份证", 16, 116, 36, 17)
$Label6 = GUICtrlCreateLabel("详细描述", 16, 140, 50, 20)
$Input1 = GUICtrlCreateInput('', 72, 64, 221, 21)
$Input2 = GUICtrlCreateInput('', 72, 88, 221, 21)
$Input3 = GUICtrlCreateInput('', 72, 112, 221, 21)
$Input4 = GUICtrlCreateInput('', 72, 136, 221, 21)
$Button1 = GUICtrlCreateButton("重输", 48, 180 ,73, 33, 0)
$Button2 = GUICtrlCreateButton("存档", 152, 180, 73, 33, 0)
$Button3 = GUICtrlCreateButton("退出", 248, 180, 73, 33, 0)
$Label7 = GUICtrlCreateLabel("作者;lynfr8  QQ:355584805  版本:20090517beta1", 53, 228, 308, 25)
GUISetState(@SW_SHOW)
HotKeySet("{F2}", "onekey")
Func onekey()
$var = IniReadSection("File.ini", "用户资料")
If @error Then 
    MsgBox(4096, "", "找不到File.ini")
Else
    For $i = 1 To $var[0][0]
  $Name = $var[$i][0]
  $var2 = $var[$i][1]
                $array = StringSplit($var2, "=", 1)
  ;msgbox(4096,$i,$array[$i])
  $IDcard = $array[UBound($array) - 2]
  $Code = $array[UBound($array) - 3]
  $detail = $array[UBound($array) - 1]
  ;MsgBox(4096,$i, $Code)
  ;MsgBox(4096,$i, $IDcard)
  ;MsgBox(4096,$i, $detail)
  _Send()
    Next
EndIf
EndFunc
Func _Send()
Dim $Win,$Address,$Country
$Win='请输入临时卡用户资料'
$Address='河南省新乡县'
$Country='中国'
run('模拟.exe')
WinWaitActive($Win,"临时卡用户资料")
ControlSetText($Win,"临时卡用户资料", "Edit1", $Name)
ControlSetText($Win,"临时卡用户资料", "Edit2", $Code)
ControlSetText($Win,"临时卡用户资料", "Edit3", $Code)
ControlSetText($Win,"临时卡用户资料", "Edit4", $IDcard)
ControlSetText($Win,"临时卡用户资料", "Edit5", $Address)
ControlSetText($Win,"临时卡用户资料", "Edit6", $Country)
ControlSetText($Win,"临时卡用户资料", "Edit7", $detail)
ControlCommand($Win,"临时卡用户资料","ComboBox1","SelectString","身份证")
    ControlClick($Win,"临时卡用户资料","Button3") 
Sleep(800)
send("{enter}")
WinClose($Win,"临时卡用户资料")
$Count1 = $Count1 + 1 
IniWrite("count.ini", "Count", 'Count', $Count1)
$Label0 = GUICtrlCreateLabel("一键输入记录数:"&$Count1, 80, 16, 132, 17)
TrayTip("已输入", $Name&"的资料", 5)
EndFunc
While 2
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Button1
         GUICtrlSetData($input1,"") 
      GUICtrlSetData($input2,"") 
   GUICtrlSetData($input3,"") 
      GUICtrlSetData($input4,"")
  Case $Button2
   $Name=GUICtrlRead($Input1)
   $Code=GUICtrlRead($Input2)
            $IDcard=GUICtrlRead($Input3)
   $detail=GUICtrlRead($Input4)
   IniWrite("File.ini", "用户资料", $Name, $Code&'='&$IDcard&'='&$detail)
   GUICtrlSetData($input1,"") 
      GUICtrlSetData($input2,"")
   GUICtrlSetData($input3,"") 
      GUICtrlSetData($input4,"")
   $Count2 = $Count2 + 1 
   IniWrite("count.ini", "Count", 'Count', $Count1)
            $Label2 = GUICtrlCreateLabel("存档记录数:"&$Count2, 200, 16, 148, 17)   
  Case $Button3 
   Exit
EndSwitch
WEnd
看看,是不是可以自动填表呢?呵呵,其实不是很复杂的

过滤王临时卡一键填表beta1

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
Dim $WinERROR,$Count1,$Count2,$Name,$IDcard,$Code,$detail,$var,$var2;自定义各种需要用到的变量
$Count1 = IniRead("count.ini", "count", "count", "NotFound");读取ini,获取已经运行的次数
$Count2 = _FileCountLines("File.ini")-2;获取存档资料的数目
$Form1 = GUICreate("过滤王临时卡一键填表", 348, 262, 377, 168);显示窗口的标题,可修改
$Label0 = GUICtrlCreateLabel("一键输入记录数:"&$Count1, 80, 16, 132, 17);动态实时显示已经自动填表的次数
$Label1 = GUICtrlCreateLabel("***过滤王临时卡***一键填表[F2]***", 81, 45, 200, 17)
$Label2 = GUICtrlCreateLabel("存档记录数:"&$Count2, 200, 16, 148, 17);动态实时显示存档记录数
$Label3 = GUICtrlCreateLabel("姓名", 16, 69, 36, 17);窗体文本显示
$Label4 = GUICtrlCreateLabel("密码", 16, 94, 36, 17)
$Label5 = GUICtrlCreateLabel("身份证", 16, 116, 36, 17)
$Label6 = GUICtrlCreateLabel("详细描述", 16, 140, 50, 20)
$Input1 = GUICtrlCreateInput('', 72, 64, 221, 21);输入框
$Input2 = GUICtrlCreateInput('', 72, 88, 221, 21)
$Input3 = GUICtrlCreateInput('', 72, 112, 221, 21)
$Input4 = GUICtrlCreateInput('', 72, 136, 221, 21)
$Button1 = GUICtrlCreateButton("重输", 48, 180 ,73, 33, 0)
$Button2 = GUICtrlCreateButton("存档", 152, 180, 73, 33, 0)
$Button3 = GUICtrlCreateButton("退出", 248, 180, 73, 33, 0)
$Label7 = GUICtrlCreateLabel("注意事项: 请先打开输入临时卡用户资料窗口", 53, 228, 308, 25);
GUISetState(@SW_SHOW);调整窗体可见
AdlibEnable("ERROR");检测目标窗体是否打开
Func ERROR()
$WinERROR = WinActive('请填入临时卡用户资料',"临时卡用户资料")
    If  $WinERROR = 0 Then
    MsgBox(4160, "", "未激活临时卡窗口,无法一键填表");判断无则提示
EndIf
AdlibDisable()   
EndFunc
HotKeySet("{F2}", "onekey");设定热键
Func onekey();热键触发功能模块
$var = IniReadSection("File.ini", "用户资料");读取用户资料
If @error Then 
    MsgBox(4096, "", "找不到File.ini");无则提示
Else
    For $i = 1 To $var[0][0]
  $Name = $var[$i][0];获取用户姓名
  $var2 = $var[$i][1];获取姓名对应的详细资料(密码、身份证、描述)
        $array = StringSplit($var2, "=", 1);将详细资料提取为数组
  ;msgbox(4096,$i,$array[$i])
  $IDcard = $array[UBound($array) - 2];获取身份证
  $Code = $array[UBound($array) - 3];获取密码
  $detail = $array[UBound($array) - 1];获取描述
  ;MsgBox(4096,$i, $Code)
  ;MsgBox(4096,$i, $IDcard)
  ;MsgBox(4096,$i, $detail)
  _Send();调用自动填表模块
Next
EndIf
EndFunc
Func _Send();自动填表模块
Dim $Win,$Address,$Country
$Win = '请填入临时卡用户资料';目标窗体标题
$TXT = "临时卡用户资料";请确认相应控件是否含有此可见文本,无则自行修改为''即可!
$Address = '河南省新乡县';单位或住址(可修改)
$Country = '中国';国家名(可修改)
WinActive($Win,$TXT);激活临时卡填表窗口
ControlSetText($Win,$TXT, "TEdit7", $Name);填入姓名
ControlSetText($Win,$TXT, "TEdit2", $Code);填入密码
ControlSetText($Win,$TXT, "TEdit1", $Code);填入确认密码
ControlSetText($Win,$TXT, "TEdit6", $IDcard);填入身份证
ControlSetText($Win,$TXT, "TEdit5", $Address);填入单位或住址
ControlSetText($Win,$TXT, "TEdit4", $Country);国家名
ControlSetText($Win,$TXT, "TEdit3", $detail);填入描述
ControlCommand($Win,$TXT,"TComboBox1","SelectString","身份证");选择身份证
    ControlClick($Win,$TXT,"TBitBtn2");点击确定
Sleep(800);延时,可根据数据录入速度修改时间
send("{enter}");如果输入数据后有确认窗口跳出则发送点击确定,无则可删除此句
;WinClose($Win,"临时卡用户资料");关闭目标窗口(如果目标窗体输入数据之后会自动清空
$Count1 = $Count1 + 1;每次运行自动加1
IniWrite("count.ini", "Count", 'Count', $Count1);写入ini
$Label0 = GUICtrlCreateLabel("一键输入记录数:"&$Count1, 80, 16, 132, 17);更新实时显示
        TrayTip("已输入", $Name&"的资料", 5)
EndFunc;
While 2
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE;关闭退出
   Exit
  Case $Button1
         GUICtrlSetData($input1,"") ;清空对应的输入框字符
      GUICtrlSetData($input2,"") 
   GUICtrlSetData($input3,"") 
      GUICtrlSetData($input4,"")
  Case $Button2
   $Name=GUICtrlRead($Input1);获取输入的字符
   $Code=GUICtrlRead($Input2)
            $IDcard=GUICtrlRead($Input3)
   $detail=GUICtrlRead($Input4)
   IniWrite("File.ini", "用户资料", $Name, $Code&'='&$IDcard&'='&$detail);写入ini
   GUICtrlSetData($input1,"") ;清空对应的输入框字符
      GUICtrlSetData($input2,"")
   GUICtrlSetData($input3,"") 
      GUICtrlSetData($input4,"")
   $Count2 = $Count2 + 1 ;每次运行自动加
   IniWrite("count.ini", "Count", 'Count', $Count1);写入ini
            $Label2 = GUICtrlCreateLabel("存档记录数:"&$Count2, 200, 16, 148, 17) ;更新实时显示  
  Case $Button3 ;关闭退出
   Exit
EndSwitch
WEnd


过滤王临时卡一键填表beta2
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
Local $WinERROR,$Count1,$Count2,$Name,$IDcard,$Code,$detail,$var,$var2,$i,$Win,$Address,$Country;自定义各种需要用到的变量
$Count1 = IniRead("count.ini", "count", "count", "NotFound");读取ini,获取已经运行的次数
$Count2 = _FileCountLines("File.ini")-2;获取存档资料的数目
$Form1 = GUICreate("过滤王临时卡一键填表", 348, 262, 377, 168);显示窗口的标题,可修改
$Label0 = GUICtrlCreateLabel("一键输入记录数:"&$Count1, 80, 16, 132, 17);动态实时显示已经自动填表的次数
$Label1 = GUICtrlCreateLabel("***过滤王临时卡***一键填表[F2]***", 81, 45, 200, 17)
$Label2 = GUICtrlCreateLabel("存档记录数:"&$Count2, 200, 16, 148, 17);动态实时显示存档记录数
$Label3 = GUICtrlCreateLabel("姓名", 16, 69, 36, 17);窗体文本显示
$Label4 = GUICtrlCreateLabel("密码", 16, 94, 36, 17)
$Label5 = GUICtrlCreateLabel("身份证", 16, 116, 36, 17)
$Label6 = GUICtrlCreateLabel("详细描述", 16, 140, 50, 20)
$Input1 = GUICtrlCreateInput('', 72, 64, 221, 21);输入框
$Input2 = GUICtrlCreateInput('', 72, 88, 221, 21)
$Input3 = GUICtrlCreateInput('', 72, 112, 221, 21)
$Input4 = GUICtrlCreateInput('', 72, 136, 221, 21)
$Button1 = GUICtrlCreateButton("重输", 48, 180 ,73, 33, 0)
$Button2 = GUICtrlCreateButton("存档", 152, 180, 73, 33, 0)
$Button3 = GUICtrlCreateButton("退出", 248, 180, 73, 33, 0)
$Label7 = GUICtrlCreateLabel("注意事项: 请先打开输入临时卡用户资料窗口", 53, 228, 308, 25);
GUISetState(@SW_SHOW);调整窗体可见

AdlibEnable("ERROR");检测目标窗体是否打开
Func ERROR()
$WinERROR = WinActive('请填入临时卡用户资料',"临时卡用户资料")
If $WinERROR = 0 Then
MsgBox(4160, "", "未激活临时卡窗口,无法一键填表");判断无则提示
EndIf
AdlibDisable() 
EndFunc

HotKeySet("{F2}", "onekey");设定热键


Func onekey();热键触发功能模块
$var = IniReadSection("File.ini", "用户资料");读取用户资料
If @error Then 
MsgBox(4096, "", "找不到File.ini");无则提示
ElseIf $i > $Count2 Then 
MsgBox(4096, "", "存档读取完毕");读取完毕的提示
Else
$Name = $var[$i+1][0];获取用户姓名
$var2 = $var[$i+1][1];获取姓名对应的详细资料(密码、身份证、描述)
$array = StringSplit($var2, "=", 1);将详细资料提取为数组
$IDcard = $array[UBound($array) - 2];获取身份证
$detail = $array[UBound($array) - 1];获取描述
_Send();调用自动填表模块
EndIf
$i = $i+1
EndFunc

Func _Send();自动填表模块
$Win = '请填入临时卡用户资料';目标窗体标题
$TXT = "临时卡用户资料";请确认相应控件是否含有此可见文本,无则自行修改为''即可!
$Code = 00000;密码(可修改)
$Address = '河南省新乡县';单位或住址(可修改)
$Country = '中国';国家名(可修改)
WinActive($Win,$TXT);激活临时卡填表窗口
ControlSetText($Win,$TXT, "TEdit7", $Name);填入姓名
ControlSetText($Win,$TXT, "TEdit2", $Code);填入密码
ControlSetText($Win,$TXT, "TEdit1", $Code);填入确认密码
ControlSetText($Win,$TXT, "TEdit6", $IDcard);填入身份证
ControlSetText($Win,$TXT, "TEdit5", $Address);填入单位或住址
ControlSetText($Win,$TXT, "TEdit4", $Country);国家名
ControlSetText($Win,$TXT, "TEdit3", $detail);填入描述
ControlCommand($Win,$TXT,"TComboBox1","SelectString","身份证");选择身份证
ControlClick($Win,$TXT,"TBitBtn2");点击确定
Sleep(800);延时,可根据数据录入速度修改时间
send("{enter}");如果输入数据后有确认窗口跳出则发送点击确定,无则可删除此句
;WinClose($Win,"临时卡用户资料");关闭目标窗口(如果目标窗体输入数据之后会自动清空
$Count1 = $Count1 + 1;每次运行自动加1
IniWrite("count.ini", "Count", 'Count', $Count1);写入ini
$Label0 = GUICtrlCreateLabel("一键输入记录数:"&$Count1, 80, 16, 132, 17);更新实时显示
TrayTip("已输入", $Name&"的资料", 5)
EndFunc;

While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE;关闭退出
Exit
Case $Button1
GUICtrlSetData($input1,"") ;清空对应的输入框字符
GUICtrlSetData($input2,"") 
GUICtrlSetData($input3,"") 
GUICtrlSetData($input4,"")
Case $Button2
$Name=GUICtrlRead($Input1);获取输入的字符
$Code=GUICtrlRead($Input2)
$IDcard=GUICtrlRead($Input3)
$detail=GUICtrlRead($Input4)
IniWrite("File.ini", "用户资料", $Name, $Code&'='&$IDcard&'='&$detail);写入ini
GUICtrlSetData($input1,"") ;清空对应的输入框字符
GUICtrlSetData($input2,"")
GUICtrlSetData($input3,"") 
GUICtrlSetData($input4,"")
$Count2 = $Count2 + 1 ;每次运行自动加
IniWrite("count.ini", "Count", 'Count', $Count1);写入ini
$Label2 = GUICtrlCreateLabel("存档记录数:"&$Count2, 200, 16, 148, 17) ;更新实时显示 
Case $Button3 ;关闭退出
Exit
EndSwitch
WEnd
打包下载:见7楼【注意:未经过严格检测,不保证具体环境报错可能】

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2009-5-16 17:30:53 | 显示全部楼层
给网吧计费系统开临时卡是吧?从一个文件中随机读取姓名和身份证号码,填入计费系统的开机对话框。
很久以前我写过一个,不过是针对温州地区的创元系统的。
读取身份证数据到数组,绑定一个热键,按下热键检查指定窗口,存在就随机读取一个数组元素发送到窗口。再加上一个Tray菜单,一些自动勾选通宵什么的选项,一个隐藏自身的热键。基本结构就是这样子。
有兴趣的话留下邮箱我发过去,你修改一下配合你们的计费系统。
至于FTP空间就谢了,架在网吧服务器上的我手头大把,不过可靠性和安全性才是大问题。
 楼主| 发表于 2009-5-16 19:52:36 | 显示全部楼层
发表于 2009-5-17 01:36:07 | 显示全部楼层
4# fenger520o


小改一下,已发送,请查收。
 楼主| 发表于 2009-5-17 10:09:07 | 显示全部楼层
谢谢非常感谢
发表于 2009-5-18 15:36:36 | 显示全部楼层
本帖最后由 lynfr8 于 2009-5-18 15:45 编辑

[local]1[/local]奇怪,想在原帖上传附件总是不成功
只能放在这里了

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2009-5-19 08:04:45 | 显示全部楼层
lynfr8 牛人!!!!
发表于 2009-8-5 19:47:17 | 显示全部楼层
学习下 弄个试试
发表于 2009-10-14 07:37:35 | 显示全部楼层
留下脚印,想学做这方面的工具。
发表于 2009-10-14 19:05:02 | 显示全部楼层
各位高手能加我QQ:314461715不?有事请教!
发表于 2009-10-16 16:56:13 | 显示全部楼层
看看 下个学习下
发表于 2009-10-18 17:26:07 | 显示全部楼层
下个学习下
发表于 2009-11-4 17:47:28 | 显示全部楼层
留个脚印  这个东西看起来有用  我做了一个雨人的  也是坛子里的高手发的 我改改自己用了
发表于 2010-3-26 02:08:27 | 显示全部楼层
我也想弄个,有高手教下么
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-7-5 11:51 , Processed in 0.084408 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表