vb远程开机代码

'此程序主要功能是用VB实现远程开机；

'一台电脑要想实现网上远程开机，其主板和网卡必须都支持远程唤醒功能，然后还得进入BIOS设置COMS，至于如何设置，不同的主板设置

'方法也可能不一样，请参考有关资料。设置好COMS后就可以用本程序发送远程开机命令了。

'如果想要广域网远程开机，那么除了设置COMS外，还得对路由器进行一定的设置，由于这不是一两句话能说得完的，所以有兴趣的话就加

'我的QQ来交流吧，加Q的时候最好说明一下身份哦！ '使用方法：

'新建一个工程，在Form1上添加三个Text控件，三个标签控件，一个命令按钮和一个Winsock1控件，然后复制下面的代码到Form1，如图： '交流：QQ782022994

Dim MagicPacket(0 To 101) As Byte '魔术包

Dim myMAC(0 To 5) As Byte '欲唤醒的主机的MAC地址

Private Sub StrToMAC(ByVal myStrMAC As String) '将MAC地址的字符串形式转化为十六进制数值保存在数组myMAC里 Dim i As Integer

Dim tempStr

DELL服务器错误代码

E1000

Failsafe voltage error. Contact support.（故障保护电压错误。请联络支持人员。） 查看系统事件记录以了解严重故障事件。

断开系统的交流电源 10 秒，然后重新启动系统。 如果问题仍然存在，请参阅\获得帮助\。 E1114

Ambient Temp exceeds allowed range.（环境温度超过了许可范围。） 环境温度到了超出许可范围的某个点。 请参阅\系统冷却问题故障排除\。 E1116

Memory disabled, temp above range. Power cycle AC.（已禁用内存，温度超出范围。请关闭交流电源再打开。）

内存已超过许可温度，系统已将其禁用以防止组件损坏。 断开系统的交流电源 10 秒，然后重新启动系统。

请参阅\系统冷却问题故障排除\。如果问题仍然存在，请参阅\获得帮助\。 E1210

Motherboard battery failure. Check battery.（母板电池故障。请检查电池。） CMOS 电池丢失，或电压超出许可范围。 请参阅\系统电池故障排除\。 E1211

RAID Controlle

和智能智能排课系统1、2、3是一套

Vb核心代码设计

一：输入界面与代码（以班级表为例）

Dim Conn As New ADODB.Connection '连接变量

Dim SqlString As String '查询字符串

Dim Connstring As String '连接字符串

Dim RS1 As New ADODB.Recordset '记录集变量

Dim bm '定义一个变量用来存放添加记录时原来记录的位置

Dim tj As Boolean

Private Sub Command10_Click()

Form4.Hide

Form3.Show

End Sub

Private Sub Command1_Click() '移到首记录

RS1.MoveFirst

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = True

Command4.Enabled = True

Call DispValue '显示当前记录的值

End Sub

Private Sub Command2_Click() '前移

RS1.MovePrevi

【程序填空】

1. '功能：以下程序段用于实现矩阵转置，即将一个n×m的矩阵的行和列互换 Private Sub Form_Click() Const n = 3 Const m = 4 Dim a(n, m), b(m, m) As Integer For I = 1 To n For j = 1 To m a(I, j) = Int(Rnd * 90) + 10 Next j Next i For I = 1 To n For j = 1 To m B(I,j)=a(I,j) Next j Next I Print \矩阵转置前\For I = 1 To n For j = 1 To m Print a(I, j); Next j print Next I Print \矩阵转置后\For I = 1 To m For j = 1 To n Print b(I, j); Next j Print Next I End Sub

1. '功能：输入数字1-7,显示其对应是星期几(例:输入 1,显示星期日,如果输入其它内容，一律显示\输入错误\Private Sub Comm

Vb核心代码设计

一：输入界面与代码（以班级表为例）

Dim Conn As New ADODB.Connection '连接变量 Dim SqlString As String '查询字符串 Dim Connstring As String '连接字符串 Dim RS1 As New ADODB.Recordset '记录集变量

Dim bm '定义一个变量用来存放添加记录时原来记录的位置 Dim tj As Boolean

Private Sub Command10_Click() Form4.Hide Form3.Show End Sub

Private Sub Command1_Click() '移到首记录 RS1.MoveFirst

Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True

Call DispValue '显示当前记录的值 End Sub

Private Sub Command2_Cl

上海理工大学本科生毕业设计（论文）

利用VB进行PC与PLC通信

程序代码与程序运行结果

1 计算机与可编程控制器通信程序说明 1.1 计算机与可编程控制器通信运行界面

在编写程序代码之前应先应用VB6.0建立一个运行界面，如图5.1。

图5.1 PC与可编程控制器状态通信界面

1.2 计算机与可编程控制器通信程序说明

整个PC与可编程控制器通信的程序段中，结合所做界面与构想，分为初始运行、回路测试、置位、复位、返回和周期输入端口状态检测几大部分。 ? 初始运行

在初始运行程序段中，包括了对地址栏中地址、图形控件的初始设置，以及Mscomm控件通信参数的赋值。 ? 回路测试

回路测试的存在主要是，在状态通信前，能较为明显的显示计算机与可编程序逻辑控制器是否连接通畅。其中利用到时钟控件，来进行周期性地通信监测，在置位、复位及时间定期校核中此控件都被将使用到。 ? 置位

置位程序是用于在回路测试成功后，将计算机的设置值输出给可编程控制器的驱动程

1

个人计算机（PC）与可编程控制器通信

序。此程序段最为重要的是通信报文的建立，PC与可编程控制器通信的报文格式为：

STX CMD 数据ETX SUMH SUML 段 其中STX为开始标志，AS

#include #include #include int print() {

printf(\★★★★★★★★★★★★★★★★★★★★★★★★★★★★★\\n\ printf(\

printf(\◆◆◆◆◆◆◆◆关机软件◆◆◆◆◆◆ ◆◆\\n\ printf(\◆◆ 1.实现10分钟内的定时关闭计算机 ◆◆\\n\ printf(\◆◆ 2.立即关闭计算机 ◆◆\\n\ printf(\◆◆ 3.注销计算机 ◆◆\\n\ printf(\◆◆ 4.关闭并重启计算机 ◆◆\\n\ printf(\◆◆ 5.休眠计算机 ◆◆\\n\ printf(\◆◆ 6.远程目标计算机重启 ◆◆\\n\ printf(\◆◆ 7.远程目标计算机关闭 ◆◆\\n\ printf(\◆◆ 8.退出系统 ◆◆\\n\ printf(\◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ ◆◆\\n\ printf(\

print

如何编写高质量的VB代码

简介：

本文描述了如何通过一些技术手段来提高vb代码的执行效率。这些手段可以分为两个大的部分：编码技术和编译优化技术。在编码技术中介绍了如何通过使用高效的数据类型、减少外部引用等编程手段来提高代码执行速度，减少代码消耗的系统资源。在编译优化技术中介绍了如何正确地利用vb提供的编译选项对在编译时最后生成的可执行文件进行优化。

前言

什么是一个高效的软件？一个高效的软件不仅应该比实现同样功能的软件运行得更快，还应该消耗更少的系统资源。这篇文章汇集了作者在使用vb进行软件开发时积累下来的一些经验，通过一些简单的例子来向你展示如何写出高效的vb代码。其中包含了一些可能对vb 程序员非常有帮助的技术。在开始之前，先让我陈清几个概念。

让代码一次成型：在我接触到的程序员中，有很多人喜欢先根据功能需求把代码写出来，然后在此基础上优化代码。最后发现为了达到优化的目的，他们不得不把代码再重新写一遍。所以我建议你在编写代码之前就需要考虑优化问题。

把握好优化的结果和需要花费的工作之间的关系：通常当完成了一段代码，你需要检查和修改它。在检查代码的过程中，也许你会发现某些循环中的代码效率还可以得到进一步的改进。在这种情况下，很多追求完美的程序员也许会立

/*money management system*/ #include \#include \main() {

FILE *fp; struct date d;

float sum,chm=0.0; int len,i,j=0; int c;

char ch[4]=\pp: clrscr(); sum=0.0;

gotoxy(1,1);printf(\gotoxy(1,2);printf(\

gotoxy(1,3);printf(\gotoxy(1,4);printf(\

gotoxy(1,5);printf(\gotoxy(1,6);printf(\gotoxy(1,7);printf(\

gotoxy(1,8);printf(\

gotoxy(1,9);printf(\gotoxy(1,10);printf(\

gotoxy(1,11);printf(\gotoxy(1,12);printf(\gotoxy(1,13);printf(\

gotoxy(1,14);printf(\gotoxy(1,15);printf(\gotoxy(1,16);printf(\gotoxy(1,17);printf(\gotoxy(1,18);printf(\go

Module Module1

Sub Main()

Dim a As Date

Dim h, m, s As Integer Dim n, i As Long Dim x, z As Long Dim y As Long

Console.WriteLine(\本程序为倒计时程序，请分部输入需要倒数的小时数、分钟数、秒数\

Console.WriteLine(\请输入计时的小时数（大于等于0的整数）：\ h = Console.ReadLine()

Console.WriteLine(\请输入计时的总分钟数（大于等于0并且小于60的整数）：\

m = Console.ReadLine()

Console.WriteLine(\请输入计时的秒数（大于等于0的并且小于60的整数）：\ s = Console.ReadLine()

Console.WriteLine(\当前系统时间为：{0}\

a = N