返回列表 回复 发帖
似水年华

D8站长

Rank: 9Rank: 9Rank: 9
1#
打印
tT
发表于 2007-4-22 06:06 PM | 只看该作者

pubwin注册机-300用户(autoit3)

机-300, pubwin, 用户, 注册

  2. #include <GUIConstants.au3>
  3. #notrayicon
  4. fileinstall("Authorization.dll", @tempdir & "\Authorization.dll")
  5. fileinstall("pubwin.jpg", @tempdir & "\pubwin.jpg")

  7. ;检测pubwin目录中的Authorization.dll文件
  8. if fileexists(@programfilesdir & "\Hintsoft\Pubsrv\Authorization.dll") then
  9. filedelete(@programfilesdir & "\Hintsoft\Pubsrv\Authorization.dll")
  10. endif
  11. ;AU3暂时不用
  12. ;系统提示
  13. $ImageFile = @tempdir & "\pubwin.jpg";图片文件位置
  14. SplashImageOn("test", $ImageFile, -1, -1, -1, -1, 1)
  15. Sleep(3000)
  16. SplashOff()

  18. filecopy (@tempdir & "\Authorization.dll",@programfilesdir & "\\Hintsoft\\Pubsrv\\Authorization.dll")
  19. msgbox (48,"系统提示","请先将PUBWIN注册到公安服务端，再运"&@CR&@CR&"行本注册程序，并确定你的PUBWIN安装"&@CR&@CR&"在C:\Program Files\Hintsoft\Pubsrv")

  21. ;MAC说明
  22. $xtsj="请直接输入MAC地址，不要带“-”"
  23. ;PUBWIN注册机图形界面开始
  24. Global $a=""
  25. Global $b=""
  26. Global $c=""
  27. Global $d=""
  28. global $e=""
  29. global $f=""
  30. global $g=""
  31. GUICreate ("欢迎您使用pubwin-300个用户注册机-蓝宇网维工作室出品", 460, 250, @DesktopWidth/2 - 192, @DesktopHeight/2 - 50, -1, $WS_EX_ACCEPTFILES)
  32. GuiCtrlCreateLabel("网吧名字:", 12, 10)
  33. $PubTitle=GUIctrlcreateinput($a,80,10,180,16)
  34. GuiCtrlCreateLabel("产品序列号:",12,40)
  35. $SerialNumber=guictrlcreateinput($b,80,40,180,16)
  36. GuictrlcreateLabel("网吧地址:",12,70)
  37. $RegAddress=guictrlcreateinput($c,80,70,180,16)
  38. guictrlcreatelabel("Email:",12,100)
  39. $RegEMail=guictrlcreateinput($d,80,100,180,16)
  40. guictrlcreatelabel("姓名:",12,130)
  41. $RegBoss=guictrlcreateinput($e,80,130,180,16)
  42. guictrlcreatelabel("电话号码:",12,160)
  43. $RegPhone=guictrlcreateinput($f,80,160,180,16)
  44. guictrlcreatelabel("网卡Mac:",12,190)
  45. $MAC=guictrlcreateinput($g,80,190,180,16)
  46. guictrlcreatelabel("MAC说明:",12,220)
  47. guictrlcreatelabel($xtsj,80,220)
  48. GUICtrlCreateGroup("软件说明：", 265, 8, 190, 198)
  49. $sm1=GuictrlcreateLabel("   最近绍兴地区pubwin公众管理" & @cr & @cr &"屋这套管理系统，不知道公安局" & @cr & @cr &"服务器出了什么问题，重装Pubwin" & @cr & @cr &"后注册，只有0个用户，导致不能" & @cr & @cr &"刷卡，本人写了一个注册机，可以" & @cr & @cr &"注册为300用户的，大家遇到此问" & @cr & @cr &"题的，可以拿去用。",270,30,180,160)
  50. $enterbutton=guictrlcreatebutton("注册",265,220,50,20,$BS_FLAT)
  51. guictrlsettip(-1,"注册程序")
  52. $exitbutton=guictrlcreatebutton("退出",335,220,50,20,$bs_flat)
  53. guictrlsettip(-1,"退出程序")
  54. $IEbutton=guictrlcreatebutton("作者",405,220,50,20,$bs_flat)
  55. guictrlsettip(-1,"蓝宇网维工作室欢迎您")
  56. GUISetState()
  57. ;向临时文件夹写入注册表文件
  58. ;注册机核心代码开始

  60. while 1
  61.      $msg=guigetmsg()
  62. select
  63.      case $msg=$gui_event_close or $msg=$exitbutton
  64. msgbox (16,"系统消息框","你确定要退出吗？")
  65. FileDelete (@tempdir & "\Authorization.dll")
  66. FileDelete (@tempdir & "\pubwin.reg")
  67. FileDelete (@tempdir & "\pubwin.jpg")
  68.      exit
  69.      case $msg=$enterbutton
  70.      pd()
  71. case $msg=$iebutton
  72.    ie()
  73. endselect
  74. wend

  76. func pd()
  77. $1=guictrlread($PubTitle)
  78. $2=guictrlread($SerialNumber)
  79. $3=guictrlread($RegAddress)
  80. $4=guictrlread($RegEMail)
  81. $5=guictrlread($RegBoss)
  82. $6=guictrlread($RegPhone)
  83. $7=guictrlread($MAC)
  84. if $1="" then
  85. msgbox (64,"警告","网吧名字不能为空！")
  86. return
  87. elseif $2="" then
  88. msgbox (64,"警告","产品序列号不能为空！")
  89. return
  90. elseif $3="" then
  91. msgbox (64,"警告","网吧地址不能为空！")
  92. return
  93. elseif $4="" then
  94. msgbox (64,"警告","EMAIL不能为空！")
  95. return
  96. elseif $5="" then
  97. msgbox (64,"警告","姓名不能为空！")
  98. return
  99. elseif $6="" then
  100. msgbox (64,"警告","电话号码不能为空！")
  101. return
  102. elseif $7="" then
  103. msgbox (64,"警告","MAC地址不能为空！")
  104. return
  105. tooltip (@cr&@cr&"                老兄呀，请把信息都填完整，好不好，这样叫我怎么给你注册，倒哦。          "&@cr&@cr&"                                                        ",300,250)
  106. sleep(5000)
  107. else
  108. zc()
  109. FileDelete (@tempdir & "\Authorization.dll")
  110. FileDelete (@tempdir & "\pubwin.reg")
  111. FileDelete (@tempdir & "\pubwin.jpg")
  112. endif
  113. endfunc

  115. func zc()
  116. dim $reg,$dll
  117. $reg=@tempdir & "\pubwin.reg"
  118. $dll="c:\progra~1\\Hintsoft\\Pubsrv\\Authorization.dll"
  119. filewriteline(@tempdir & "\pubwin.reg","Windows Registry Editor Version 5.00")
  120. filewriteline(@tempdir & "\pubwin.reg",@crlf)
  121. filewriteline(@tempdir & "\pubwin.reg","[HKEY_LOCAL_MACHINE\SOFTWARE\Hintsoft\pubwin]")
  122. filewriteline(@tempdir & "\pubwin.reg",'"PubsrvPath"="C:\\Program Files\\Hintsoft\\Pubsrv"')
  123. filewriteline(@tempdir & "\pubwin.reg",'"PubTitle"="'&GUICtrlRead($PubTitle)&'"')
  124. filewriteline(@tempdir & "\pubwin.reg",'"SerialNumber"="'&GUICtrlRead($SerialNumber)&'"')
  125. filewriteline(@tempdir & "\pubwin.reg",'"RegAddress"="'&GUICtrlRead($RegAddress)&'"')
  126. filewriteline(@tempdir & "\pubwin.reg",'"RegEMail"="'&GUICtrlRead($RegEMail)&'"')
  127. filewriteline(@tempdir & "\pubwin.reg",'"RegBoss"="'&GUICtrlRead($RegBoss)&'"')
  128. filewriteline(@tempdir & "\pubwin.reg",'"RegPhone"="'&GUICtrlRead($RegPhone)&'"')
  129. filewriteline(@tempdir & "\pubwin.reg",'"OnlineFlag"=dword:00000001')
  130. filewriteline(@tempdir & "\pubwin.reg",'"MifareOPFlag"=dword:00000005')
  131. filewriteline(@tempdir & "\pubwin.reg",'MAC:'&GUICtrlRead($mac)&'')
  132. sleep("1000")
  133. RunWait("regsvr32 /s "& $dll&"","",@sw_hide)
  134. RunWait("regedit /s "& $reg&"","",@sw_hide)
  135. msgbox (48,"系统提示","谢谢您使用本程序，注册完毕，你的PUBWIN现在支持300用户了。" &@cr&@cr&"                                 ")
  136. endfunc
  137. ;IE超连接
  138. func ie()
  139. $oIE = ObjCreate("Shell.Explorer.2")
  140. GUICtrlCreateObj( $oIE,0,0,460,250)
  141. $oIE.navigate("http://hi.baidu.com/%B1%F9%D0%C4%B3%D5/")
  142. endfunc
复制代码
收藏 分享 评分
感谢Baidu,Google,Dreams8给我这次机会!
还要感谢我的爸爸妈妈!
HOHO
回复 引用

订阅 TOP

返回列表