Facebook Sharer
选择您要替换的背景颜色：
【农历新年】背景图片：
个性化设定
 注册  找回密码

JBTALKS.CC

重要公告 | 新山论坛 | 柔佛论坛 | 地方州属 | 论坛综合 | 交友灌水 | 论坛特区 | 时事论坛 | 生活家居 | 闲情逸志 | 年轻男女 | 生活点滴 | 影视娱乐 | 影视娱乐 | 谈婚论嫁
个人创作 | 图片分享 | 摄影天地 | 漫画论坛 | 数码城市 | 电脑综合 | 电玩世界 | 网络游戏 | 手机平板 | 汽车论坛 | 体育世界 | 大专论坛 | 中学论坛 | 宽柔中学 | 旅游享乐
校园论坛 | 网络商店 | 分类广告 | 买卖中心 | 买卖中心 | 最新主题 | 我的帖子 | 论坛设施 | 收藏本站 | 理财投资 | 社会团体 | 中文输入 | 搜索网站 | 网络资讯 | 网络报章

2015新年年货市场
新头像与签名档条规 31-03-2014 更新
JBTALKS身份认证卖家正式开放申请！
123下一页
返回列表 发新帖
查看: 4501|回复: 29
打印 上一主题 下一主题

vb.net auto shutdown PC

[复制链接]
goodday

13

主题

0

好友

2113

积分

白金长老

Rank: 10
跳转到指定楼层
1#
发表于 2008-8-9 11:00 PM |只看该作者 |正序浏览
vb6


  3. Private Const EWX_LOGOFF = 0
  4. Private Const EWX_SHUTDOWN = 1
  5. Private Const EWX_REBOOT = 2
  6. Private Const EWX_FORCE = 4
  7. Private Const TOKEN_ADJUST_PRIVILEGES = &H20
  8. Private Const TOKEN_QUERY = &H8
  9. Private Const SE_PRIVILEGE_ENABLED = &H2
  10. Private Const ANYSIZE_ARRAY = 1
  11. Private Const VER_PLATFORM_WIN32_NT = 2

  13. Type OSVERSIONINFO
  14. dwOSVersionInfoSize As Long
  15. dwMajorVersion As Long
  16. dwMinorVersion As Long
  17. dwBuildNumber As Long
  18. dwPlatformId As Long
  19. szCSDVersion As String * 128
  20. End Type

  22. Public Type LUID
  23. LowPart As Long
  24. HighPart As Long
  25. End Type

  27. Public Type LUID_AND_ATTRIBUTES
  28. pLuid As LUID
  29. Attributes As Long
  30. End Type

  32. Public Type TOKEN_PRIVILEGES
  33. PrivilegeCount As Long
  34. Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
  35. End Type

  37. Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long
  38. Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal
  39. ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
  40. Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
  41. Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As
  42. TOKEN_PRIVILEGES, ReturnLength As Long) As Long Private Declare Function ExitWindowsEx Lib "user32.dll" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
  43. Private Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long

  45. Private Sub EnableShutDown()
  46. Dim hProc As Long
  47. Dim hToken As Long
  48. Dim mLUID As LUID
  49. Dim mPriv As TOKEN_PRIVILEGES
  50. Dim mNewPriv As TOKEN_PRIVILEGES

  52. hProc = GetCurrentProcess()
  53. OpenProcessToken hProc, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken
  54. LookupPrivilegeValue "", "SeShutdownPrivilege", mLUID
  55. mPriv.PrivilegeCount = 1
  56. mPriv.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
  57. mPriv.Privileges(0).pLuid = mLUID
  58. AdjustTokenPrivileges hToken, False, mPriv, 4 + (12 *
  59. mPriv.PrivilegeCount), mNewPriv, 4 + (12 * mNewPriv.PrivilegeCount)
  60. End Sub

  62. Public Sub ShutDownNT(Force As Boolean)
  63. Dim Ret As Long
  64. Dim flags As Long

  66. flags = EWX_SHUTDOWN
  67. If Force Then flags = flags + EWX_FORCE
  68. EnableShutDown
  69. ExitWindowsEx flags, 0
  70. End Sub

  72. Public Sub RebootNT(Force As Boolean)
  73. Dim Ret As Long
  74. Dim flags As Long

  76. flags = EWX_REBOOT
  77. If Force Then flags = flags + EWX_FORCE
  78. EnableShutDown
  79. ExitWindowsEx flags, 0
  80. End Sub

  82. Public Sub LogOffNT(Force As Boolean)
  83. Dim Ret As Long
  84. Dim flags As Long

  86. flags = EWX_LOGOFF
  87. If Force Then flags = flags + EWX_FORCE
  88. ExitWindowsEx flags, 0
  89. End Sub

复制代码


vb.net
要引进
在ｒｅｆｅｒａｎｃｅ　里

imports System.Diagnostics

  2. System.Diagnostics.Process.Start("Shutdown", "/s")
复制代码




Auto , shutdown
收藏收藏0

相关帖子
回复

使用道具 举报

goodhermit95

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11
30#
发表于 2008-9-13 11:38 PM |只看该作者

回复 #29 饿魔 的帖子

用 visual basic compliter 来 转换成exe
回复

使用道具 举报

饿魔

16

主题

2

好友

2291

积分

白金长老

Rank: 10
29#
发表于 2008-9-13 09:28 PM |只看该作者
要怎么运行...em0015
回复

使用道具 举报

goodhermit95

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11
28#
发表于 2008-8-28 10:58 PM |只看该作者

回复 #27 dious 的帖子

为什么呢？乱delete东西？我最怕这种东西的
我的autoclicker等等全部给他delete掉
还Clean 《清洗，= =
回复

使用道具 举报

dious

3

主题

0

好友

7984

积分

百变名嘴

Rank: 13Rank: 13Rank: 13Rank: 13
27#
发表于 2008-8-26 11:04 PM |只看该作者
原帖由 goodhermit95 于 2008-8-24 07:51 PM 发表
NOD32（Eset Smart Security 3.0） 《《ARRAY   永久破解

nod啊

那很好

千萬不要用最新版的kaspersky 2009
回复

使用道具 举报

goodday

13

主题

0

好友

2113

积分

白金长老

Rank: 10
26#
发表于 2008-8-26 12:05 AM |只看该作者
原帖由 暗杀天使 于 2008-8-25 12:49 PM 发表
印象中("Shutdown -a")是破解对吗~以前有看朋友玩过~~


这个只是把 要关机倒数时， 强制的 中断倒数关机
回复

使用道具 举报

暗杀天使

51

主题

3

好友

3207

积分

本站名嘴

Rank: 11Rank: 11
25#
发表于 2008-8-25 12:49 PM |只看该作者
印象中("Shutdown -a")是破解对吗~以前有看朋友玩过~~
回复

使用道具 举报

goodhermit95

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11
24#
发表于 2008-8-24 07:51 PM |只看该作者

回复 #23 dious 的帖子

NOD32（Eset Smart Security 3.0） 《《ARRAY   永久破解
回复

使用道具 举报

dious

3

主题

0

好友

7984

积分

百变名嘴

Rank: 13Rank: 13Rank: 13Rank: 13
23#
发表于 2008-8-24 01:09 AM |只看该作者

回复 #22 goodhermit95 的帖子

對了

你使用什么antivirus
回复

使用道具 举报

goodhermit95

62

主题

5

好友

3715

积分

本站名嘴

Rank: 11Rank: 11
22#
发表于 2008-8-22 07:20 PM |只看该作者

回复 #21 dious 的帖子

不会啦
只要有做好防备，很安全的
回复

使用道具 举报

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

JBTALKS.CC |联系我们 |隐私政策 |Share

GMT+8, 2025-1-25 06:52 PM , Processed in 0.109957 second(s), 27 queries .

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

Ultra High-performance Dedicated Server powered by iCore Technology Sdn. Bhd.
Domain Registration | Web Hosting | Email Hosting | Forum Hosting | ECShop Hosting | Dedicated Server | Colocation Services
本论坛言论纯属发表者个人意见，与本论坛立场无关
Copyright © 2003-2012 JBTALKS.CC All Rights Reserved
合作联盟网站:
JBTALKS 马来西亚中文论坛 | JBTALKS我的空间 | ICORE TECHNOLOGY SDN. BHD.
回顶部