求VB6.0的一些代码

来源：百度知道 编辑：UC知道 时间：2024/05/13 11:24:14
1。快速关机
2。快速重启
3。死机
4。用Winsock传图片

如果可以的话，做成VB工程，发给我，QQ：354929237
分数可以追加到100
最好有人可以做个例子工程发给我
`
gengzhijun2003@yahoo.com.cn

快速关机
shell "shutdown.exe -s -t 0" , vbhide
快速重启
shell "shutdown.exe -r -t 0" , vbhide
死机
在FORM_LOAD中写入
shell app.path & "\" & app.exename & ".exe"即可
发送图片
const BUF_SIZE = 1024
Dim iFile As Integer
Dim bytBuffer() As Byte
Dim strFileName As String

Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = 3008
Winsock1.RemotePort = ...
Winsock1.RemoteHostIP = ...

strFileName = ...
iFile = FreeFile
Open strFileName For Binary Access Read As iFile
Do Until EOF(iFile)
ReDim
bytBuffer(IIf(LOF(iFile)-Seek(iFile)>BUF_SIZE,BUF_SIZE,LOF(iFile)-Seek(iFile)))
Get iFile,,bytBuffer
Winsock1.SendData bytBuffer
Loop
Close iFile

……破坏程序么。
如果想要快速关机，我推荐几个方法。
1、使用API---ExitWindowsEx。详细使用方法请参考MSDN
（2）、用Shell "shutdown -f -t 0 -s"。仅限2000以上系统。Shutdown参数请在CMD下用shutdown /?获取
快速重起同上（shutdow