AM电脑吧 - Win10精简版系统_Win11精简版_Win7旗舰版

Yes
AM电脑吧 - Win10精简版系统_Win11精简版_Win7旗舰版»本站首页 › Win系统区 › 电脑系统使用 › 2017/8/20之前帖子存档› 局域网共享设置工具AU3源码
查看: 12497|回复: 27
收起左侧

[其它] 局域网共享设置工具AU3源码

[复制链接]
ampc8224

签到天数: 230 天

[LV.7]七个CPU
id dmqhcx88 发表于 2011-08-11 19:03:18

  2. #include <ButtonConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6. #include <Process.au3>
  7. Opt("TrayMenuMode",1)
  8. FileInstall("2.JPG", @TempDir & "")
  9. #Region ### START Koda GUI section ### Form=
  10. $Form1 = GUICreate("局域网共享设置工具", 218, 118, 192, 124)
  11. GUISetBkColor(0xC0DCC0)
  12. $Pic1 = GUICtrlCreatePic(@TempDir & "\2.JPG", 0, 0, 217, 65)
  13. $Button1 = GUICtrlCreateButton("关闭共享", 23, 74, 75, 33,$BS_FLAT )
  14. $Button2 = GUICtrlCreateButton("开通共享", 120, 74, 75, 33,$BS_FLAT )
  15. GUISetState(@SW_SHOW)
  16. #EndRegion ### END Koda GUI section ###
  17. While 1
  18. $nMsg = GUIGetMsg()
  19. Switch $nMsg
  20.   Case $GUI_EVENT_CLOSE
  21. FileDelete(@TempDir & "\2.JPG")   
  22.    Exit
  23.   Case  $Button1
  24. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa',"restrictanonymous","REG_DWORD",'1')
  25. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa',"restrictanonymous","REG_DWORD",'1')
  26. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa',"limitblankpassworduse","REG_DWORD",'1')
  27. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa',"limitblankpassworduse","REG_DWORD",'1')
  28. RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count',"HRZR_EHAPCY","REG_BINARY",'0C0000002A00000090AFA487A495C601')
  29. RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\RNG',"Seed","REG_BINARY",'AC6F9A2B11644468EC901B7672A70A144C7937BBFDBD70B2B258D5B5895CB64E3B18A52646BC3E6A30A47DA056E66AB5573ABFA1CDCAB6644CF90ED264ED861F61F6D1010B7C8DBD7310C84E57934E90')
  30. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List',"445:TCP","REG_SZ","445:TCP:LocalSubNet:Disabled:@xpsp2res.dll,-22005")
  31. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List',"137:UDP","REG_SZ","137:UDP:LocalSubNet:Disabled:@xpsp2res.dll,-22001")
  32. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List',"138:UDP","REG_SZ","138:UDP:LocalSubNet:Disabled:@xpsp2res.dll,-22002")
  33. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List',"139:TCP","REG_SZ","139:TCP:LocalSubNet:Disabled:@xpsp2res.dll,-22004")
  34. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Epoch',"Epoch","REG_DWORD",'508')
  35. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List',"445:TCP","REG_SZ","445:TCP:LocalSubNet:Disabled:@xpsp2res.dll,-22005")
  36. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List',"137:UDP","REG_SZ","137:UDP:LocalSubNet:Disabled:@xpsp2res.dll,-22001")
  37. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List',"138:UDP","REG_SZ","138:UDP:LocalSubNet:Disabled:@xpsp2res.dll,-22002")
  38. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List',"139:TCP","REG_SZ","139:TCP:LocalSubNet:Disabled:@xpsp2res.dll,-22004")
  39. RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Epoch',"Epoch","REG_DWORD",'508')
  40. _RunDOS("net user Guest /active:no")
  41. MsgBox(64, "提示", "局域网共享已关闭!")   
  42.   Case  $Button2
  43. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa","restrictanonymous","REG_DWORD","0")
  44. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa","restrictanonymous","REG_DWORD","0")
  45. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa","limitblankpassworduse","REG_DWORD","0")
  46. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa","limitblankpassworduse","REG_DWORD","0")
  47. RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count","HRZR_EHAPCY","REG_BINARY","0C00000026000000F0FBE5526495C601")
  48. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List","445:TCP","REG_SZ","445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005")
  49. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List","137:UDP","REG_SZ","137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001")
  50. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List","138:UDP","REG_SZ","138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002")
  51. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List","139:TCP","REG_SZ","139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004")
  52. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Epoch","Epoch","REG_DWORD","493")
  53. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Print\Providers","LogonTime","REG_BINARY","E8318E4F6495C601")
  54. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List","445:TCP","REG_SZ","445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005")
  55. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List","137:UDP","REG_SZ","137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001")
  56. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List","138:UDP","REG_SZ","138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002")
  57. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List","139:TCP","REG_SZ","139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004")
  58. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Epoch","Epoch","REG_DWORD","493")
  59. RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa","forceguest","REG_DWORD","1")
  60. _RunDOS("net user Guest /active:yes")
  61. MsgBox(64, "提示", "局域网共享已打开!")   
  62. EndSwitch
  63. WEnd
复制代码

评分

参与人数 1硬盘 +10 带宽 +10 收起 理由
ampc81 弡 + 10 + 10 原创内容

本文地址: https://www.ampc8.com/thread-2969-1-1.html
上一篇：安全专家成功破解GPRS加密算法
下一篇：AM电脑吧登陆器AU3源码
回复

举报

ampc839210

签到天数: 271 天

[LV.8]八秒开机
id trhy1234567 发表于 2016-06-22 17:41:28
支持，谢谢。
回复

举报

ampc837083

签到天数: 7 天

[LV.3]三流显示器
id udker 发表于 2016-01-24 14:29:19
好简洁。。下下来试试~~~
回复

举报

ampc89892

签到天数: 312 天

[LV.8]八秒开机
id lshfyq 发表于 2015-11-08 15:56:36

看看，谢谢楼主分享！
回复

举报

ampc825714

签到天数: 9 天

[LV.3]三流显示器
id NOD622505 发表于 2015-09-19 20:39:55
谢谢分享
回复

举报

ampc810551

签到天数: 1 天

[LV.1]一个记事本
id fyq 发表于 2013-08-19 02:11:23
谢谢分享
下载了
回复

举报

ampc87995

签到: Lazy
id NrenHe 发表于 2012-04-24 16:26:58
15fdgsdf4g15sdfh65s4fhfghsdfh
回复

举报

头像被屏蔽

签到天数: 9 天

[LV.3]三流显示器
id jsgh1983 发表于 2012-03-11 18:30:57
看看楼主是怎样做的，谢谢分享！
回复

举报

ampc86591

签到: Lazy
id ggggay 发表于 2012-03-08 18:13:39
下来看看，怎么样的
回复

举报

ampc86565

签到: Lazy
id lslws 发表于 2012-03-07 15:50:49

回复

举报

下一页 »
1234下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 验证注册

Powered by AMpc8.Com (晋ICP备13003365号) ghs 晋公网安备 14090202000112号 |GMT+8, 2024/4/28 11:16 |
快速回复 返回顶部 返回列表