Problem beim Starten meines Programmes

schuchie12 · 20. September 2012, 18:09

Hey,
Ich habe eine Problem mit meinem Programm undzwar:
Ich habe mein Programm auf verschiedenen Pc's getestet alle Windows 7 mit dem neusten .net Framwork, aber auf meinem Laptop startet es für ca. 1 Sekunde und schließt sich wieder
Aber auf anderen PC's Funktioniert es ohne Probleme! Ich bekomme diese Fehlermeldung wenn ich über AppclicationEvents abfange:

Hier ist mein Code:

VB.NET-Quellcode

Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Public Class Form1
Dim listener As New TcpListener(55555)
Dim client As TcpClient
Dim anachricht As String = "" 'ausgehende nachricht
Dim snachricht As String = "" 'sendenachricht
Dim abefehl As String = "" 'Ankommender Befehl
Dim IP As Net.IPAddress = Net.Dns.GetHostEntry(My.Computer.Name).AddressList(2)
Dim user As String = My.User.Name.ToString
Dim usebefehl As String 'Wurde der BEfehl ausgeführt?
Dim picture As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim graphic As Graphics = Graphics.FromImage(picture)
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal key As Keys) As Integer
Dim offen As Boolean = True
Dim passwort As String
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Senden(1)
listener.Stop()
lesen.Stop()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listener.Start()
Dim listthread As New Thread(New ThreadStart(AddressOf listening))
listthread.Start()
Senden(0)
End Sub
Private Sub listening()
lesen.Start()
lesen.Enabled = True
End Sub
Private Sub Senden(ByVal sbefehl As Integer) 'sbefehl = sendenerbefehl
client = New TcpClient("192.168.178.41", 55555) 'Ip vom Maty 192.168.0.24
Dim writer As New StreamWriter(client.GetStream())
Select Case sbefehl
Case 0 'anmelden
snachricht = "0#" & user & "#" & IP.ToString
Case 1 'abmelden
snachricht = "1#" & user
Case 3 'antwortvon befehl
Case 4 'Passwort
snachricht = "3#" & IP.ToString
End Select
Try
writer.Write(snachricht)
RichTextBox1.AppendText("[" & DateTime.Now & "] " & snachricht & vbCrLf)
writer.Flush()
Catch ex As Exception
RichTextBox1.AppendText(ex.ToString & vbCrLf)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Senden(0)
End Sub
Private Sub lesen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lesen.Tick
Try
If listener.Pending = True Then
Dim text As String
anachricht = ""
client = listener.AcceptTcpClient
Dim reader As New StreamReader(client.GetStream)
While reader.Peek > -1
anachricht = anachricht + Convert.ToChar(reader.Read)
End While
Dim sArray() As String
sArray = Split(anachricht, "#")
abefehl = sArray(0)
Select Case abefehl
Case 0 'Nachricht anzeigen
text = sArray(1)
MsgBox(text, MsgBoxStyle.Information, "Nachricht vom Admin")
RichTextBox1.AppendText("[" & DateTime.Now & "] " & "Admin: " & text & vbCrLf)
Case 1 ' Nachricht alle
text = sArray(1)
Try
MsgBox(text, MsgBoxStyle.Information, "Nachricht vom Admin")
RichTextBox1.AppendText("[" & DateTime.Now & "] " & "Admin: " & text & vbCrLf)
Catch ex As Exception
RichTextBox1.AppendText(ex.ToString & vbCrLf)
End Try
Case 2 'Sperren
If Timer1.Enabled = False Then
Sperren.schließen = True
Sperren.BackColor = Color.Black
Sperren.Show()
Sperren.Label1.Visible = True
Sperren.Label1.Location = New Point(Sperren.Width / 3.5, Sperren.Height / 2.1)
Timer1.Enabled = True
snachricht = "2#" & user.ToString & "#Gesperrt"
Senden(3)
End If
Case 3 'entsperren
If Timer1.Enabled = True Then
Timer1.Enabled = False
Sperren.schließen = False
Sperren.Close()
Sperren.Label1.Visible = False
snachricht = "2#" & user.ToString & "#Entsperrt"
Senden(3)
End If
Case 4 'sperren screen
If Timer1.Enabled = False Then
Sperren.schließen = True
graphic.CopyFromScreen(0, 0, 0, 0, picture.Size)
Sperren.BackgroundImage = picture
Sperren.Show()
Timer1.Enabled = True
snachricht = "2#" & user.ToString & "#Screen Gesperrt"
Senden(3)
End If
Case 5 'passwort vergleich
Dim pw As String
pw = sArray(1)
If pw = passwort Or passwort = "umfwba" Then
Me.WindowState = FormWindowState.Normal
Me.ShowInTaskbar = True
Me.Show()
Me.TopMost = True
MsgBox("Richtiges Passwort", MsgBoxStyle.Information)
Else
MsgBox("Falsches Passwort", MsgBoxStyle.Critical)
End If
End Select
End If
If GetAsyncKeyState(Keys.F10) = -32767 Then
If offen = True Then
Me.WindowState = FormWindowState.Minimized
offen = False
Me.ShowInTaskbar = False
ElseIf offen = False Then
offen = True
passwort = InputBox("Bitte geben sie das Passwort ein.:", "Passwort")
Senden(4)
End If
End If
Catch ex As Exception
RichTextBox1.AppendText(ex.ToString & vbCrLf)
End Try
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Sperren.TopMost = True
End Sub
End Class

Ich hoffe ihr wisst wie man dieses Problem löst

Wenn das hier im Falschem Forum ist tut's mir Leid bin neu

n1nja · 20. September 2012, 18:13

Benutz mal bitte den VB-Tag dafür, sonst kann es kein Schwein lesen!

Und dein Laptop hat auch Windows 7 drauf?
Auch die selbe Architektur?

schuchie12 · 20. September 2012, 18:19

So Hab jetzt leserlich gemacht

So und ja der Laptop hat auch Windows 7

n1nja · 20. September 2012, 18:35

Alle System haben auch x64 oder x86?

Irgendwas ist auch außerhalb des Index...

Und warum packst du das "Abhören" vom Clienten in einen Timer?

schuchie12 · 20. September 2012, 19:01

1. Auf dem PC wo ich programmiere ist x64 und auf den anderen x86 es funktioniert halt nur auf meinem Laptop nicht und ich hab das abhören des clients in den Timer reingepackt das ich es nicht anderes wüsste

n1nja · 20. September 2012, 19:20

Als was hast du dein Projekt erstellt? Als AnyCPU oder x64 ?

Stell deine Programme auf x86, dann funktionieren sie überall...
Bei nen x64 System wird es dann halt auf 32 Bit Ebene ausgeführt!

Ich würde das abhören in einen extra Thread laufen lassen mit einer Do-Schleife!

So in der Art:

VB.NET-Quellcode

Private Sub Listen()
Do
Try
Dim txt as String = ""
txt = stream.readline
Catch ex As Exception
'wenn nicht mehr verbunden
End Try
Loop
End Sub

schuchie12 · 20. September 2012, 19:29

Und wo kann man das in VB auf x86 umstellen?

n1nja · 20. September 2012, 19:32

Im Konfigurations-Manager...

Welche Version hast du eigentlich? Visual Studio oder Express?

schuchie12 · 20. September 2012, 19:36

Ich habe die Version Microsoft Visual Studio 2010 Version 10.0.40219.1

n1nja · 20. September 2012, 19:39

So sieht das bei mir aus:

schuchie12 · 20. September 2012, 19:41

Habs gefunden ist bei mir etwas versteckter... Ich find das bei mir unter Projekt/Projekt Eigenschaften/Kompilieren/Erweiterte Kompiler Einstellungen. Ich hab es gerade nochmal getestet und es kommt immernoch der selbe Fehler auf.

n1nja · 20. September 2012, 19:44

Ok dann erstell mal deine EXE neu und versuch es dann nochmal... Und versuch den Timer mal wegzulassen!

PS: Vergiss aber nicht bei der Do-Schleife wenn die Verbindung geschlossen ist, auch den Thread bzw die Sub zu beenden:)

schuchie12 · 20. September 2012, 19:52

Sorry aber irgendwie versteh ich net wie ich das ohne nen Timer machen soll. Wie dann das ganze Ablaufen soll mit nur einer Do-Schleife. Ich mein der "reader" muss ja ständig schauen ob was gesendet wurde.

n1nja · 20. September 2012, 19:57

VB.NET-Quellcode

Private Sub Listen()
Do
Try
Dim txt as String = ""
txt = stream.readline
select case txt
case "1"
'tu das
case "2"
'tu das andere
Catch ex As Exception
'wenn nicht mehr verbunden
End Try
Loop
End Sub

Edit: Du kannst dir auch mal dieses Tut hier durchlesen... Das hilft dir sicher weiter!
HIER

schuchie12 · 20. September 2012, 20:03

Ist das so richtig gemacht?

VB.NET-Quellcode

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listener.Start()
Dim listthread As New Thread(New ThreadStart(AddressOf listening))
listthread.Start()
Senden(0)
End Sub
Private Sub listening()
Listen()
End Sub
Private Sub Listen()
Do
Try
Dim text As String
anachricht = ""
client = listener.AcceptTcpClient
Dim reader As New StreamReader(client.GetStream)
While reader.Peek > -1
anachricht = anachricht + Convert.ToChar(reader.Read)
End While
Dim sArray() As String
sArray = Split(anachricht, "#")
abefehl = sArray(0)
Select Case abefehl
Case 0 'Nachricht anzeigen
text = sArray(1)
MsgBox(text, MsgBoxStyle.Information, "Nachricht vom Admin")
RichTextBox1.AppendText("[" & DateTime.Now & "] " & "Admin: " & text & vbCrLf)
Case 1 ' Nachricht alle
text = sArray(1)
Try
MsgBox(text, MsgBoxStyle.Information, "Nachricht vom Admin")
RichTextBox1.AppendText("[" & DateTime.Now & "] " & "Admin: " & text & vbCrLf)
Catch ex As Exception
RichTextBox1.AppendText(ex.ToString & vbCrLf)
End Try
Case 2 'Sperren
If Timer1.Enabled = False Then
Sperren.schließen = True
Sperren.BackColor = Color.Black
Sperren.Show()
Sperren.Label1.Visible = True
Sperren.Label1.Location = New Point(Sperren.Width / 3.5, Sperren.Height / 2.1)
Timer1.Enabled = True
snachricht = "2#" & user.ToString & "#Gesperrt"
Senden(3)
End If
Case 3 'entsperren
If Timer1.Enabled = True Then
Timer1.Enabled = False
Sperren.schließen = False
Sperren.Close()
Sperren.Label1.Visible = False
snachricht = "2#" & user.ToString & "#Entsperrt"
Senden(3)
End If
Case 4 'sperren screen
If Timer1.Enabled = False Then
Sperren.schließen = True
graphic.CopyFromScreen(0, 0, 0, 0, picture.Size)
Sperren.BackgroundImage = picture
Sperren.Show()
Timer1.Enabled = True
snachricht = "2#" & user.ToString & "#Screen Gesperrt"
Senden(3)
End If
Case 5 'passwort vergleich
Dim pw As String
pw = sArray(1)
If pw = passwort Or passwort = "umfwba" Then
Me.WindowState = FormWindowState.Normal
Me.ShowInTaskbar = True
Me.Show()
Me.TopMost = True
MsgBox("Richtiges Passwort", MsgBoxStyle.Information)
Else
MsgBox("Falsches Passwort", MsgBoxStyle.Critical)
End If
End Select
Catch ex As Exception
'wenn nicht mehr verbunden
End Try
Loop
End Sub

n1nja · 20. September 2012, 20:13

Probier es doch einfach mal aus

Wenn es in einen Thread packst wird es nicht funktionieren, da du von einen Thread keine Controls auf der Form ansprechen kannst!

schuchie12 · 20. September 2012, 20:20

Ich hab jetzt mal den Thread weg gemacht und getestet und es funktioniert nicht, der reader liest nicht mehr. Und es kommt immer noch die Fehlermeldung.

VB.NET-Quellcode

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listener.Start()
' Dim listthread As New Thread(New ThreadStart(AddressOf listening))
'listthread.Start()
Listen()
Senden(0)
End Sub
Private Sub Listen()
Do
Try
Dim text As String
anachricht = ""
client = listener.AcceptTcpClient
Dim reader As New StreamReader(client.GetStream)
While reader.Peek > -1
anachricht = anachricht + Convert.ToChar(reader.Read)
End While
Dim sArray() As String
sArray = Split(anachricht, "#")
abefehl = sArray(0)
Select Case abefehl
Case 0 'Nachricht anzeigen
text = sArray(1)
MsgBox(text, MsgBoxStyle.Information, "Nachricht vom Admin")
RichTextBox1.AppendText("[" & DateTime.Now & "] " & "Admin: " & text & vbCrLf)
Case 1 ' Nachricht alle
text = sArray(1)
Try
MsgBox(text, MsgBoxStyle.Information, "Nachricht vom Admin")
RichTextBox1.AppendText("[" & DateTime.Now & "] " & "Admin: " & text & vbCrLf)
Catch ex As Exception
RichTextBox1.AppendText(ex.ToString & vbCrLf)
End Try
Case 2 'Sperren
If Timer1.Enabled = False Then
Sperren.schließen = True
Sperren.BackColor = Color.Black
Sperren.Show()
Sperren.Label1.Visible = True
Sperren.Label1.Location = New Point(Sperren.Width / 3.5, Sperren.Height / 2.1)
Timer1.Enabled = True
snachricht = "2#" & user.ToString & "#Gesperrt"
Senden(3)
End If
Case 3 'entsperren
If Timer1.Enabled = True Then
Timer1.Enabled = False
Sperren.schließen = False
Sperren.Close()
Sperren.Label1.Visible = False
snachricht = "2#" & user.ToString & "#Entsperrt"
Senden(3)
End If
Case 4 'sperren screen
If Timer1.Enabled = False Then
Sperren.schließen = True
graphic.CopyFromScreen(0, 0, 0, 0, picture.Size)
Sperren.BackgroundImage = picture
Sperren.Show()
Timer1.Enabled = True
snachricht = "2#" & user.ToString & "#Screen Gesperrt"
Senden(3)
End If
Case 5 'passwort vergleich
Dim pw As String
pw = sArray(1)
If pw = passwort Or passwort = "umfwba" Then
Me.WindowState = FormWindowState.Normal
Me.ShowInTaskbar = True
Me.Show()
Me.TopMost = True
MsgBox("Richtiges Passwort", MsgBoxStyle.Information)
Else
MsgBox("Falsches Passwort", MsgBoxStyle.Critical)
End If
End Select
Catch ex As Exception
'wenn nicht mehr verbunden
End Try
Loop
End Sub

n1nja · 20. September 2012, 20:30

Dann versuch es mal so:

VB.NET-Quellcode

Private Sub Listen()
While client.connected
Try
Dim text As String
anachricht = ""
client = listener.AcceptTcpClient
Dim reader As New StreamReader(client.GetStream)
While reader.Peek > -1
anachricht = anachricht + Convert.ToChar(reader.Read)
End While
Dim sArray() As String
sArray = Split(anachricht, "#")
abefehl = sArray(0)
Select Case abefehl
'usw.....
End while

Und zu den Problem mit der Fehlermeldung... Fehler beim Erstellen des Formulars!
Hast du irgendwo im Designer was als Warnung markiert?

Sonst kann ich dir da leider nicht weiterhelfen!
Hatte die Meldung noch nie...

schuchie12 · 20. September 2012, 20:51

Generell beim Debuggen kommt kein Fehler auf nur wenn ich die exe Datei dann auf meinen Laptop ziehe und da dann Starte geht das Programm einmal kurz an und dann wieder aus

n1nja · 20. September 2012, 22:50

Erstellst du auch deine EXE oder kopierst du einfach nur deine Dubugging-EXE kopieren?!

ERSTELLEN ---> Programmname ERSTELLEN anklicken...

Problem beim Starten meines Programmes

Problem beim Starten meines Programmes

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben