devi scaricare .. mscomm.ocx e metterlo o nella cartella del file
oppure in system32..
se hai dei problemi di tasti usa gli imput...
codice html:
<html><head>
<title>index</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head><body bgcolor="#0000">
<P align=left>
<OBJECT id=lclock style="LEFT: 0px; WIDTH: 577px; TOP: 0px; HEIGHT: 24px"
classid=clsid:978C9E23-D4B0-11CE-BF2D-00AA003F40D0><PARAM NAME="ForeColor" VALUE="16777215"><PARAM NAME="BackColor" VALUE="2147483654"><PARAM NAME="VariousPropertyBits" VALUE="8388635"><PARAM NAME="Caption" VALUE=""><PARAM NAME="PicturePosition" VALUE="458753"><PARAM NAME="Size" VALUE="15266;635"><PARAM NAME="MousePointer" VALUE="0"><PARAM NAME="BorderColor" VALUE="2147483654"><PARAM NAME="BorderStyle" VALUE="0"><PARAM NAME="SpecialEffect" VALUE="0"><PARAM NAME="Accelerator" VALUE="0"><PARAM NAME="FontName" VALUE="Times New Roman"><PARAM NAME="FontEffects" VALUE="1073741824"><PARAM NAME="FontHeight" VALUE="360"><PARAM NAME="FontOffset" VALUE="0"><PARAM NAME="FontCharSet" VALUE="0"><PARAM NAME="FontPitchAndFamily" VALUE="2"><PARAM NAME="ParagraphAlign" VALUE="3"><PARAM NAME="FontWeight" VALUE="400"></OBJECT>
</P>
<P align=left>
<OBJECT id=Command2 classid=clsid:D7053240-CE69-11CD-A777-00DD01143C57><PARAM NAME="ForeColor" VALUE="2147483666"><PARAM NAME="BackColor" VALUE="2147483663"><PARAM NAME="VariousPropertyBits" VALUE="27"><PARAM NAME="Caption" VALUE="Connect"><PARAM NAME="PicturePosition" VALUE="458753"><PARAM NAME="Size" VALUE="2540;847"><PARAM NAME="MousePointer" VALUE="0"><PARAM NAME="Accelerator" VALUE="0"><PARAM NAME="TakeFocusOnClick" VALUE="-1"><PARAM NAME="FontName" VALUE="Times New Roman"><PARAM NAME="FontEffects" VALUE="1073741824"><PARAM NAME="FontHeight" VALUE="240"><PARAM NAME="FontOffset" VALUE="0"><PARAM NAME="FontCharSet" VALUE="0"><PARAM NAME="FontPitchAndFamily" VALUE="2"><PARAM NAME="ParagraphAlign" VALUE="3"><PARAM NAME="FontWeight" VALUE="400"></OBJECT>
<OBJECT id=MSComm1 classid=clsid:648A5600-2C6E-101B-82B6-000000000014><PARAM NAME="_ExtentX" VALUE="1005"><PARAM NAME="_ExtentY" VALUE="1005"><PARAM NAME="_Version" VALUE="393216"><PARAM NAME="CommPort" VALUE="1"><PARAM NAME="DTREnable" VALUE="-1"><PARAM NAME="Handshaking" VALUE="0"><PARAM NAME="InBufferSize" VALUE="1024"><PARAM NAME="InputLen" VALUE="0"><PARAM NAME="NullDiscard" VALUE="0"><PARAM NAME="OutBufferSize" VALUE="512"><PARAM NAME="ParityReplace" VALUE="63"><PARAM NAME="RThreshold" VALUE="0"><PARAM NAME="RTSEnable" VALUE="0"><PARAM NAME="BaudRate" VALUE="9600"><PARAM NAME="ParitySetting" VALUE="0"><PARAM NAME="DataBits" VALUE="8"><PARAM NAME="StopBits" VALUE="0"><PARAM NAME="SThreshold" VALUE="0"><PARAM NAME="EOFEnable" VALUE="0"><PARAM NAME="InputMode" VALUE="0"></OBJECT>
<OBJECT id=Command3 classid=clsid:D7053240-CE69-11CD-A777-00DD01143C57><PARAM NAME="ForeColor" VALUE="2147483666"><PARAM NAME="BackColor" VALUE="2147483663"><PARAM NAME="VariousPropertyBits" VALUE="27"><PARAM NAME="Caption" VALUE="DisConnect"><PARAM NAME="PicturePosition" VALUE="458753"><PARAM NAME="Size" VALUE="2540;847"><PARAM NAME="MousePointer" VALUE="0"><PARAM NAME="Accelerator" VALUE="0"><PARAM NAME="TakeFocusOnClick" VALUE="-1"><PARAM NAME="FontName" VALUE="Times New Roman"><PARAM NAME="FontEffects" VALUE="1073741824"><PARAM NAME="FontHeight" VALUE="240"><PARAM NAME="FontOffset" VALUE="0"><PARAM NAME="FontCharSet" VALUE="0"><PARAM NAME="FontPitchAndFamily" VALUE="2"><PARAM NAME="ParagraphAlign" VALUE="3"><PARAM NAME="FontWeight" VALUE="400"></OBJECT>
</P>
<P align=left> </P>
<P align=left>
<OBJECT id=Text1 style="LEFT: 0px; WIDTH: 288px; TOP: 0px; HEIGHT: 105px"
classid=clsid:8BD21D10-EC42-11CE-9E0D-00AA006002F3><PARAM NAME="VariousPropertyBits" VALUE="3967830043"><PARAM NAME="BackColor" VALUE="2147483654"><PARAM NAME="ForeColor" VALUE="2147483652"><PARAM NAME="MaxLength" VALUE="0"><PARAM NAME="BorderStyle" VALUE="0"><PARAM NAME="ScrollBars" VALUE="2"><PARAM NAME="DisplayStyle" VALUE="1"><PARAM NAME="MousePointer" VALUE="0"><PARAM NAME="Size" VALUE="7620;2778"><PARAM NAME="PasswordChar" VALUE="0"><PARAM NAME="ListWidth" VALUE="0"><PARAM NAME="BoundColumn" VALUE="1"><PARAM NAME="TextColumn" VALUE="65535"><PARAM NAME="ColumnCount" VALUE="1"><PARAM NAME="ListRows" VALUE="8"><PARAM NAME="cColumnInfo" VALUE="0"><PARAM NAME="MatchEntry" VALUE="2"><PARAM NAME="ListStyle" VALUE="0"><PARAM NAME="ShowDropButtonWhen" VALUE="0"><PARAM NAME="ShowListWhen" VALUE="1"><PARAM NAME="DropButtonStyle" VALUE="1"><PARAM NAME="MultiSelect" VALUE="0"><PARAM NAME="Value" VALUE=""><PARAM NAME="Caption" VALUE=""><PARAM NAME="PicturePosition" VALUE="458753"><PARAM NAME="BorderColor" VALUE="2147483654"><PARAM NAME="SpecialEffect" VALUE="2"><PARAM NAME="Accelerator" VALUE="0"><PARAM NAME="GroupName" VALUE=""><PARAM NAME="FontName" VALUE="Times New Roman"><PARAM NAME="FontEffects" VALUE="1073741824"><PARAM NAME="FontHeight" VALUE="240"><PARAM NAME="FontOffset" VALUE="0"><PARAM NAME="FontCharSet" VALUE="0"><PARAM NAME="FontPitchAndFamily" VALUE="2"><PARAM NAME="ParagraphAlign" VALUE="1"><PARAM NAME="FontWeight" VALUE="400"></OBJECT>
<OBJECT id=Text2 style="WIDTH: 93px; HEIGHT: 28px"
classid=clsid:8BD21D10-EC42-11CE-9E0D-00AA006002F3><PARAM NAME="VariousPropertyBits" VALUE="746604571"><PARAM NAME="BackColor" VALUE="2147483653"><PARAM NAME="ForeColor" VALUE="2147483656"><PARAM NAME="MaxLength" VALUE="0"><PARAM NAME="BorderStyle" VALUE="0"><PARAM NAME="ScrollBars" VALUE="0"><PARAM NAME="DisplayStyle" VALUE="1"><PARAM NAME="MousePointer" VALUE="0"><PARAM NAME="Size" VALUE="2461;741"><PARAM NAME="PasswordChar" VALUE="0"><PARAM NAME="ListWidth" VALUE="0"><PARAM NAME="BoundColumn" VALUE="1"><PARAM NAME="TextColumn" VALUE="65535"><PARAM NAME="ColumnCount" VALUE="1"><PARAM NAME="ListRows" VALUE="8"><PARAM NAME="cColumnInfo" VALUE="0"><PARAM NAME="MatchEntry" VALUE="2"><PARAM NAME="ListStyle" VALUE="0"><PARAM NAME="ShowDropButtonWhen" VALUE="0"><PARAM NAME="ShowListWhen" VALUE="1"><PARAM NAME="DropButtonStyle" VALUE="1"><PARAM NAME="MultiSelect" VALUE="0"><PARAM NAME="Value" VALUE=""><PARAM NAME="Caption" VALUE=""><PARAM NAME="PicturePosition" VALUE="458753"><PARAM NAME="BorderColor" VALUE="2147483654"><PARAM NAME="SpecialEffect" VALUE="2"><PARAM NAME="Accelerator" VALUE="0"><PARAM NAME="GroupName" VALUE=""><PARAM NAME="FontName" VALUE="Times New Roman"><PARAM NAME="FontEffects" VALUE="1073741824"><PARAM NAME="FontHeight" VALUE="240"><PARAM NAME="FontOffset" VALUE="0"><PARAM NAME="FontCharSet" VALUE="0"><PARAM NAME="FontPitchAndFamily" VALUE="2"><PARAM NAME="ParagraphAlign" VALUE="1"><PARAM NAME="FontWeight" VALUE="400"></OBJECT>
<OBJECT id=Command1 style="WIDTH: 96px; HEIGHT: 29px"
classid=clsid:D7053240-CE69-11CD-A777-00DD01143C57><PARAM NAME="ForeColor" VALUE="2147483666"><PARAM NAME="BackColor" VALUE="2147483663"><PARAM NAME="VariousPropertyBits" VALUE="27"><PARAM NAME="Caption" VALUE="Send"><PARAM NAME="PicturePosition" VALUE="458753"><PARAM NAME="Size" VALUE="2540;767"><PARAM NAME="MousePointer" VALUE="0"><PARAM NAME="Accelerator" VALUE="0"><PARAM NAME="TakeFocusOnClick" VALUE="-1"><PARAM NAME="FontName" VALUE="Times New Roman"><PARAM NAME="FontEffects" VALUE="1073741824"><PARAM NAME="FontHeight" VALUE="240"><PARAM NAME="FontOffset" VALUE="0"><PARAM NAME="FontCharSet" VALUE="0"><PARAM NAME="FontPitchAndFamily" VALUE="2"><PARAM NAME="ParagraphAlign" VALUE="3"><PARAM NAME="FontWeight" VALUE="400"></OBJECT>
</P>
<P align=left>
</P>
<P align=left>
</P>
<script language="vbscript">
Dim a , rr, AA
Dim Nporta, settaggio, cc
Dim Stringa
Dim RIGA
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")
'Set filetxt = filesys.OpenTextFile("c:\somefile.txt", ForAppending, True)
'filetxt.WriteLine("Your text goes here.")
'filetxt.Close
'public sub Start_Click()
'a = 1
'Text0_0.Text = date()
'set filetxt = filesys.OpenTextFile("appoggio.dat", ForReading)
'rr = filetxt.ReadLine
'Text1_0 = CStr(rr)
' filetxt.Close
'end sub
Private Sub Command1_Click()
On Error Resume Next
If MSComm1.PortOpen = True Then
MSComm1.Output = Text2.Text
Text2 = ""
End If
End Sub
Private Sub Command2_Click()
If MSComm1.PortOpen = False Then
MSComm1.CommPort = 3
MSComm1.Settings = "9600, N, 8, 1"
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
End If
End Sub
Private Sub Command3_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
End Sub
Private Sub Command7_Click()
If MSComm1.PortOpen = True Then
For AA = 1 To 6000
'doevents
Label1.Caption = AA
Next
MSComm1.Output = "B"
For AA = 1 To 6000
'doevents
Label1.Caption = AA
Next
MSComm1.Output = "B"
For AA = 1 To 6000
'doevents
Label1.Caption = AA
Next
MSComm1.Output = "000"
End If
End Sub
Private Sub Label1_Change()
'Shape1.BackColor = vbRed
'If Label1.Caption = 6000 Then Shape1.BackColor = vbGreen
End Sub
Private Sub MSComm1_OnComm()
Dim Buffer
'doevents
Buffer = MSComm1.Input
Text1.Text = Text1.Text & Buffer
lclock.Caption = Now
End Sub
</script>
</body>
</HTML>