pubwin注册机-300用户(autoit3)
[code]#include <GUIConstants.au3>
#notrayicon
fileinstall("Authorization.dll", @tempdir & "\Authorization.dll")
fileinstall("pubwin.jpg", @tempdir & "\pubwin.jpg")
;检测pubwin目录中的Authorization.dll文件
if fileexists(@programfilesdir & "\Hintsoft\Pubsrv\Authorization.dll") then
filedelete(@programfilesdir & "\Hintsoft\Pubsrv\Authorization.dll")
endif
;AU3暂时不用
;系统提示
$ImageFile = @tempdir & "\pubwin.jpg";图片文件位置
SplashImageOn("test", $ImageFile, -1, -1, -1, -1, 1)
Sleep(3000)
SplashOff()
filecopy (@tempdir & "\Authorization.dll",@programfilesdir & "\\Hintsoft\\Pubsrv\\Authorization.dll")
msgbox (48,"系统提示","请先将PUBWIN注册到公安服务端，再运"&@CR&@CR&"行本注册程序，并确定你的PUBWIN安装"&@CR&@CR&"在C:\Program Files\Hintsoft\Pubsrv")
;MAC说明
$xtsj="请直接输入MAC地址，不要带“-”"
;PUBWIN注册机图形界面开始
Global $a=""
Global $b=""
Global $c=""
Global $d=""
global $e=""
global $f=""
global $g=""
GUICreate ("欢迎您使用pubwin-300个用户注册机-蓝宇网维工作室出品", 460, 250, @DesktopWidth/2 - 192, @DesktopHeight/2 - 50, -1, $WS_EX_ACCEPTFILES)
GuiCtrlCreateLabel("网吧名字:", 12, 10)
$PubTitle=GUIctrlcreateinput($a,80,10,180,16)
GuiCtrlCreateLabel("产品序列号:",12,40)
$SerialNumber=guictrlcreateinput($b,80,40,180,16)
GuictrlcreateLabel("网吧地址:",12,70)
$RegAddress=guictrlcreateinput($c,80,70,180,16)
guictrlcreatelabel("Email:",12,100)
$RegEMail=guictrlcreateinput($d,80,100,180,16)
guictrlcreatelabel("姓名:",12,130)
$RegBoss=guictrlcreateinput($e,80,130,180,16)
guictrlcreatelabel("电话号码:",12,160)
$RegPhone=guictrlcreateinput($f,80,160,180,16)
guictrlcreatelabel("网卡Mac:",12,190)
$MAC=guictrlcreateinput($g,80,190,180,16)
guictrlcreatelabel("MAC说明:",12,220)
guictrlcreatelabel($xtsj,80,220)
GUICtrlCreateGroup("软件说明：", 265, 8, 190, 198)
$sm1=GuictrlcreateLabel(" 最近绍兴地区pubwin公众管理" & @cr & @cr &"屋这套管理系统，不知道公安局" & @cr & @cr &"服务器出了什么问题，重装Pubwin" & @cr & @cr &"后注册，只有0个用户，导致不能" & @cr & @cr &"刷卡，本人写了一个注册机，可以" & @cr & @cr &"注册为300用户的，大家遇到此问" & @cr & @cr &"题的，可以拿去用。",270,30,180,160)
$enterbutton=guictrlcreatebutton("注册",265,220,50,20,$BS_FLAT)
guictrlsettip(-1,"注册程序")
$exitbutton=guictrlcreatebutton("退出",335,220,50,20,$bs_flat)
guictrlsettip(-1,"退出程序")
$IEbutton=guictrlcreatebutton("作者",405,220,50,20,$bs_flat)
guictrlsettip(-1,"蓝宇网维工作室欢迎您")
GUISetState()
;向临时文件夹写入注册表文件
;注册机核心代码开始
while 1
$msg=guigetmsg()
select
case $msg=$gui_event_close or $msg=$exitbutton
msgbox (16,"系统消息框","你确定要退出吗？")
FileDelete (@tempdir & "\Authorization.dll")
FileDelete (@tempdir & "\pubwin.reg")
FileDelete (@tempdir & "\pubwin.jpg")
exit
case $msg=$enterbutton
pd()
case $msg=$iebutton
ie()
endselect
wend
func pd()
$1=guictrlread($PubTitle)
$2=guictrlread($SerialNumber)
$3=guictrlread($RegAddress)
$4=guictrlread($RegEMail)
$5=guictrlread($RegBoss)
$6=guictrlread($RegPhone)
$7=guictrlread($MAC)
if $1="" then
msgbox (64,"警告","网吧名字不能为空！")
return
elseif $2="" then
msgbox (64,"警告","产品序列号不能为空！")
return
elseif $3="" then
msgbox (64,"警告","网吧地址不能为空！")
return
elseif $4="" then
msgbox (64,"警告","EMAIL不能为空！")
return
elseif $5="" then
msgbox (64,"警告","姓名不能为空！")
return
elseif $6="" then
msgbox (64,"警告","电话号码不能为空！")
return
elseif $7="" then
msgbox (64,"警告","MAC地址不能为空！")
return
tooltip (@cr&@cr&" 老兄呀，请把信息都填完整，好不好，这样叫我怎么给你注册，倒哦。 "&@cr&@cr&" ",300,250)
sleep(5000)
else
zc()
FileDelete (@tempdir & "\Authorization.dll")
FileDelete (@tempdir & "\pubwin.reg")
FileDelete (@tempdir & "\pubwin.jpg")
endif
endfunc
func zc()
dim $reg,$dll
$reg=@tempdir & "\pubwin.reg"
$dll="c:\progra~1\\Hintsoft\\Pubsrv\\Authorization.dll"
filewriteline(@tempdir & "\pubwin.reg","Windows Registry Editor Version 5.00")
filewriteline(@tempdir & "\pubwin.reg",@crlf)
filewriteline(@tempdir & "\pubwin.reg","[HKEY_LOCAL_MACHINE\SOFTWARE\Hintsoft\pubwin]")
filewriteline(@tempdir & "\pubwin.reg",'"PubsrvPath"="C:\\Program Files\\Hintsoft\\Pubsrv"')
filewriteline(@tempdir & "\pubwin.reg",'"PubTitle"="'&GUICtrlRead($PubTitle)&'"')
filewriteline(@tempdir & "\pubwin.reg",'"SerialNumber"="'&GUICtrlRead($SerialNumber)&'"')
filewriteline(@tempdir & "\pubwin.reg",'"RegAddress"="'&GUICtrlRead($RegAddress)&'"')
filewriteline(@tempdir & "\pubwin.reg",'"RegEMail"="'&GUICtrlRead($RegEMail)&'"')
filewriteline(@tempdir & "\pubwin.reg",'"RegBoss"="'&GUICtrlRead($RegBoss)&'"')
filewriteline(@tempdir & "\pubwin.reg",'"RegPhone"="'&GUICtrlRead($RegPhone)&'"')
filewriteline(@tempdir & "\pubwin.reg",'"OnlineFlag"=dword:00000001')
filewriteline(@tempdir & "\pubwin.reg",'"MifareOPFlag"=dword:00000005')
filewriteline(@tempdir & "\pubwin.reg",'MAC:'&GUICtrlRead($mac)&'')
sleep("1000")
RunWait("regsvr32 /s "& $dll&"","",@sw_hide)
RunWait("regedit /s "& $reg&"","",@sw_hide)
msgbox (48,"系统提示","谢谢您使用本程序，注册完毕，你的PUBWIN现在支持300用户了。" &@cr&@cr&" ")
endfunc
;IE超连接
func ie()
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj( $oIE,0,0,460,250)
$oIE.navigate("http://hi.baidu.com/%B1%F9%D0%C4%B3%D5/")
endfunc
[/code]
页:
[1]