snobordo
11.04.2002, 17:50
Ich will ein Programm Programmieren, das in einem Computerraum auf Knopfdruck einzelne PCs blockiert. Aber dabei kommt immer diese Fehlermeldung:
Wrong protocol or connection state for the requested transaction or request
Woran liegt das? :mauer: Wenn ich ein Testprogramm mit einem Connect-Button, einem Blockier-Button und einem Deblockier-Button mach, dann funzt es. Aber was stimmt an diesem code nicht? Hier ist der code:
Dim AnzahlCr, AnzahlUr, Port, I, Datei As String, Block As
String, Deblock As String
Private Sub Form_Load()
Block = "Blockieren"
Deblock = "Deblockieren"
AnzahlCr = 15
AnzahlUr = 7
Port = 1034
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Verbindung.Close
End Sub
Private Sub mnuCr_Click(Index As Integer)
Dim Host As String
On Error GoTo Fehler
If Not mnuCr(Index).Tag = "0" Then
mnuCr(Index).Tag = ""
GoTo 1
End If
If mnuCr(Index).Checked = False Then
mnuCr(Index).Checked = True
Else
mnuCr(Index).Checked = False
End If
1
Host = "localhost"
If mnuCr(Index).Checked = False Then
Verbindung.Connect Host, Port
Verbindung.SendData Block
tmrSenden(0).Enabled = True
Else
Verbindung.Connect Host, Port
Verbindung.SendData Deblock
tmrSenden(1).Enabled = True
End If
Verbindung.Close
Exit Sub
Fehler:
mnuCr(Index).Checked = False
End Sub
Wrong protocol or connection state for the requested transaction or request
Woran liegt das? :mauer: Wenn ich ein Testprogramm mit einem Connect-Button, einem Blockier-Button und einem Deblockier-Button mach, dann funzt es. Aber was stimmt an diesem code nicht? Hier ist der code:
Dim AnzahlCr, AnzahlUr, Port, I, Datei As String, Block As
String, Deblock As String
Private Sub Form_Load()
Block = "Blockieren"
Deblock = "Deblockieren"
AnzahlCr = 15
AnzahlUr = 7
Port = 1034
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Verbindung.Close
End Sub
Private Sub mnuCr_Click(Index As Integer)
Dim Host As String
On Error GoTo Fehler
If Not mnuCr(Index).Tag = "0" Then
mnuCr(Index).Tag = ""
GoTo 1
End If
If mnuCr(Index).Checked = False Then
mnuCr(Index).Checked = True
Else
mnuCr(Index).Checked = False
End If
1
Host = "localhost"
If mnuCr(Index).Checked = False Then
Verbindung.Connect Host, Port
Verbindung.SendData Block
tmrSenden(0).Enabled = True
Else
Verbindung.Connect Host, Port
Verbindung.SendData Deblock
tmrSenden(1).Enabled = True
End If
Verbindung.Close
Exit Sub
Fehler:
mnuCr(Index).Checked = False
End Sub