‘壹’ 求VBS JAVA 等简单易懂的操作串口（com口）的代码，
Comm.Output=字符串或byte
如果是可见字符，则可以直接输出字符串，如Comm.Output="hello"
不然得用byte（数组），如
Comm.CommPort = 3 '...使用Com3口
Comm.Settings = "57600,n,8,1" '对串口通讯的相关参数。包括串口通讯的比特率，奇偶校验，数据位长度、停止位等。其默认值 是“9600,N,8,1”，表示串口比特率是9600bit/s，不作奇偶校验，8位数据位，1个停止位。
Comm.OutBufferSize = 1024
If Comm.PortOpen = False Then
Comm.PortOpen = True '...打开串口
End If
Comm.OutBufferCount = 0 '...清空输出寄存器
Dim buffer(6) as Byte
buffer(0) = 255
buffer(1) = 1
buffer(2) = 0
buffer(3) = 0
buffer(4) = 0
buffer(5) = 0
buffer(6) = 1
Comm.Output = buffer
Comm.PortOpen = False
上面确实是VB的代码。
在VBS中，没有类型，所以声明数组与初始化可能为：
Dim buffer(6)
buffer(0) = CByte(255)
...
我没试过，不一定正确哟。
‘贰’ VBS如何进行串口的读数据操作，写已经实现，但是读一直无法触发MSCOMM控件的oncomm事件，不知道是什么原因
这应该是由于动态库或者是OCX文件没有注册好，或者遭到了破坏，这个控件要加载MSCOMCTL.OCX，检查一下这个文件
‘叁’ 请问各位大虾VBS和JS脚本有什么区别呢两者哪个兼容性更好
VBS比较倾向与系统应用，JS比较倾向与WEB应用。JS的兼容性更好！
VBS只能在微软公司的东西上运行，如Windows，MSIE。JS不仅可以在Windows上运行，还支持几乎全部的浏览器，包括苹果等移动设备，所以兼容性肯定是很好的。只是它的运行速度不如VBS，就是这样。
欢迎追问。。
‘肆’ 求VBS 脚本编写的串口发送接收
VB有串口控件，可以做；但纯粹用VBS脚本不调用外部dll，难！
‘伍’ 高分求VBS操作COM口的代码
用VB给你做了一个，一边是计算机串口，一边是PLC。按你所说，我用计算机发送数据，如果有PLC的返回信息，就说明我发送成功了。
有设置发送字符，间隔时间，循环次数，有可以计算已经发送了多少次。
调试成功，结合你的工程，你再改一些应该没什么问题了。
反正基本就是这个原理。
对MSCCOMM做一些设置，对应你另一边的通讯设备。
代码如下：
Option Explicit
Dim strOutput$
Dim N%, C%
Private Sub cmdClear_Click()
txtSend.Text = ""
txtRec.Text = ""
End Sub
Private Sub cmdSend_Click()
Timer1.Interval = Val(txtTime.Text)
Timer1.Enabled = True
N = Val(txtCount.Text)
C = 0
txtSend.Enabled = False
txtTime.Enabled = False
txtCount.Enabled = False
cmdClear.Enabled = False
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Dim strInputBuf$
Select Case MSComm1.CommEvent
Case comEvReceive
strInputBuf = MSComm1.Input
If strInputBuf <> "" Then txtRec.Text = txtRec.Text + strInputBuf
Me.Refresh
End Select
End Sub
Private Sub Timer1_Timer()
strOutput = txtSend.Text + "*" + Chr(13)
MSComm1.Output = strOutput
txtRec.Text = ""
C = C + 1
Label4.Caption = C
If C > N - 1 Then
Timer1.Enabled = False
Label4.Caption = "完成"
txtSend.Enabled = True
txtTime.Enabled = True
txtCount.Enabled = True
cmdClear.Enabled = True
End If
End Sub
‘陆’ VBS在html里无法执行
我写了一段跟你差不多的代码，当写成<BUTTON onClick="open()">浏览</BUTTON>时好像也打不开，但是我修改了一些就可以了。
这是修改后的。你也这样去试一下，就是在button标签里面写一个名字（我这里写了button1），然后把函数写成 标签名+动作 的形式。如果还有问题咱再讨论一下。
‘柒’ 如何用VBS控制WEB网页中的按钮
元素ID.click()
‘捌’ 如何用VBS代码，对电脑的串口进行接收和发送数据；拒绝VB，要VBS；
搜吧
按说 可以的
不过，还没有 见过 VBS代码！
‘玖’ vbs 常用命令
1.点击WIN按钮，在运行对话框下面输入cmd，打开命令提示符窗口。
注意事项：
VBS, Microsoft Visual Basic Scripting Edition是Visual Basic编程语言家族的最新成员，它将灵活的脚本语言引入到更广泛的应用程序中，包括Microsoft Internet Explorer中的Web客户端脚本和Microsoft Internet Information Server中的Web服务器脚本。
‘拾’ 高分求VBS操作COM口的代码，
用VB给你做了一个，一边是计算机串口，一边是PLC。按你所说，我用计算机发送数据，如果有PLC的返回信息，就说明我发送成功了。
有设置发送字符，间隔时间，循环次数，有可以计算已经发送了多少次。
调试成功，结合你的工程，你再改一些应该没什么问题了。
反正基本就是这个原理。
对MSCCOMM做一些设置，对应你另一边的通讯设备。
代码如下：
OptionExplicit
DimstrOutput$
DimN%,C%
PrivateSubcmdClear_Click()
txtSend.Text=""
txtRec.Text=""
EndSub
PrivateSubcmdSend_Click()
Timer1.Interval=Val(txtTime.Text)
Timer1.Enabled=True
N=Val(txtCount.Text)
C=0
txtSend.Enabled=False
txtTime.Enabled=False
txtCount.Enabled=False
cmdClear.Enabled=False
EndSub
PrivateSubForm_Load()
MSComm1.PortOpen=True
EndSub
PrivateSubMSComm1_OnComm()
DimstrInputBuf$
SelectCaseMSComm1.CommEvent
CasecomEvReceive
strInputBuf=MSComm1.Input
IfstrInputBuf<>""ThentxtRec.Text=txtRec.Text+strInputBuf
Me.Refresh
EndSelect
EndSub
PrivateSubTimer1_Timer()
strOutput=txtSend.Text+"*"+Chr(13)
MSComm1.Output=strOutput
txtRec.Text=""
C=C+1
Label4.Caption=C
IfC>N-1Then
Timer1.Enabled=False
Label4.Caption="完成"
txtSend.Enabled=True
txtTime.Enabled=True
txtCount.Enabled=True
cmdClear.Enabled=True
EndIf
EndSub
我VBS一点也没用过，不懂啊。
你说每次发送一样的数据，那就把txtSend.Text里输入成你想要的输出的16进制代码。（呵呵，手动随便改都能发出去，那发固定的更容易了）
还有最后一行的TEXT框是我调试用的（主要用来看返回信息，以确认是否发送送成功），你做程序时不用加上。
还有，16进制的发送，不知道对发送模式有讲究，那个好象是MSCCOM的某个属性，INPUTMODE吧？反正写法和这个差不多。一个是文本发送，一个是二进制发送。这两个都试一下，应该差不多了。
我也是VB新手，学习阶段。只能帮这些了~~