如果在 Win98 下可以试试这个快速重启:Dim X As Long
X = Shell("C:\WINDOWS\RUNDLL.EXE User.exe,ExitWindowsExec",1)
X = Shell("C:\WINDOWS\RUNDLL.EXE User.exe,ExitWindowsExec",1)
解决方案 »
- 建立不确定的录入窗体
- WebBrowse自动按"确定"按钮的问题
- 关于打包问题的困惑,我用setupfactory打包,但最近总发现好多文件不会自动打进来,如何可以做到打全所用到的所有文件呀?
- 如何用ASCII的方法统计字数
- 请求大家帮帮小女子——如何进行分类统计?
- 有没有简单的办法求数组的元素个数?
- 春节快到了,,回来VB看看大家,顺便散点分。[新年快乐]
- 一個簡單問題,可我不會
- sql查询语句,合并相同字段......
- 关于picturebox的问题(to--> wiw(不只是VB))
- 我作了一个程序,用了api实现在托盘家图标,单击图标显示程序窗口。win2k下通过,但win9x下就不行了,为什么?
- 哪有vb 的汉化包下载?????????????
Private Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'声明常数
Private Const EWX_LOGOFF = 0
Private Sub Form_Load()
ExitwindowsEx EWX_LOGOFF,0 '调用即可
End Sub