Programm stürtzt ab....

uppppsss sry hab eben selber ein wenig stress muss das programm morgen abgeben und ich verzweifle....

also Programiert wurde es mit Visual Studio 2010
Porgrammier Spreche: VB.net

hier noch der Code:

Imports System.Net
Imports System.Text.RegularExpressions
Imports System.IO
Imports System.Management
Imports System.Windows
Imports Microsoft.Win32
Imports System.Data.SqlClient
Imports System.Windows.Forms
Imports System.InvalidOperationException


Public Class Form1
'Infovariabln
Dim MeinKeY As RegistryKey
Dim MeinName As String
Dim cpuCounter = New PerformanceCounter("Processor", "% Processor Time", "_Total")
Dim intCpuAuslastung As Integer
Dim intSpaceFreeC As Integer = 0
Dim intSpaceUsedC As Integer = 0
Dim intSpaceMaxC As Integer = 0
Dim intSpaceFreeD As Integer = 0
Dim intSpaceUsedD As Integer = 0
Dim intSpaceMaxD As Integer = 0
Dim strComputerName As String
Dim strOS As String
Dim intArchitekture As Integer
Dim strCuUser As String
Dim strFramework As String
Dim Addresslist() As IPAddress
Dim intRam As Integer
Dim strInet As String
Dim timedate As DateTime
Dim strCPUDesc As String

Dim SQL_USER As String
Dim SQL_Passwort As String
Dim SQL_Verbindung As String

'SQL Connection
Dim SQlConnection As String = "Data Source=VM-SR-RM\SQLEXPRESS;Initial Catalog=computerview;User ID=vbcon;Password=123;"
Dim objDBCon As New SqlConnection(SQlConnection)
Dim objDataReader As SqlDataReader
Dim objDBCommand As SqlCommand

Private Sub minimieren_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles minimieren_button.Click

Me.Hide()
task_bar.Visible = True

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_GetData.Tick
'Timer auslesen CPU , HD Speicher, RAM, IP, Time

'Zeit
timedate = DateTime.Now

'CPU
intCpuAuslastung = CInt(cpuCounter.NextValue())
cpu_progress.Value = intCpuAuslastung
txt_cpu_auslastung.Text = intCpuAuslastung & "%"

'Laufwerk C:
intSpaceMaxC = Int(My.Computer.FileSystem.GetDriveInfo("C:\").TotalSize / 1024 / 1024 / 1024)
intSpaceUsedC = Int(My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace / 1024 / 1024 / 1024)
intSpaceFreeC = intSpaceMaxC - intSpaceUsedC
txt_gesamte_festplatte.Text = intSpaceMaxC & " GB "
txt_belegter_speicher.Text = intSpaceUsedC & " GB "
txt_freier_speicher.Text = intSpaceFreeC & " GB "

'Laufwerk D:
Try
txt_festplatte_gesamt_d.Text = Int(My.Computer.FileSystem.GetDriveInfo("D:\").TotalSize / 1024 / 1024 / 1024) & " GB "
txt_belegter_speicher_d.Text = Int(My.Computer.FileSystem.GetDriveInfo("D:\").TotalFreeSpace / 1024 / 1024 / 1024) & " GB "
txt_freier_speicher_d.Text = Val(txt_gesamte_festplatte.Text) - Val(txt_belegter_speicher.Text) & " GB "
Catch ex As Exception
End Try

'Arbeitsspeicher
intRam = (My.Computer.Info.TotalPhysicalMemory) / 1024 / 1024
txt_ram.Text = intRam & " MB"


'IP Adresse
Addresslist = Dns.GetHostEntry(Dns.GetHostName()).AddressList
Dim IPs As IPAddress
list_box_ip.Items.Clear()
For Each IPs In Addresslist
list_box_ip.Items.Add(IPs.ToString)
Next

'Framework Version augeben
strFramework = System.Runtime.InteropServices.RuntimeEnvironment.GetSystemVersion()
txt_framework_version.Text = strFramework

End Sub

' Schliessen Button und (ALT-F4) wird Deaktiviert!
Protected Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim myParam As CreateParams = MyBase.CreateParams
myParam.ClassStyle = myParam.ClassStyle Or &H200
Return myParam
End Get
End Property

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim MeinKey As RegistryKey
'Einen Registryzweig zum Schreiben öffnen
'Autostart eintrag
MeinKey = Registry.CurrentUser.OpenSubKey( _
"Software\Microsoft\Windows\CurrentVersion\Run", True)

' Diverse Testschlüssel anlegen
' Programm Pfad
MeinKey.SetValue("Remote Monitoring", "C:\Program Files (x86)\Remote Monitoring\Remote_Client_Software.exe /run")


Timer_GetData.Enabled = True
Timer_I_Net_Connection.Enabled = True

SQL_Transfer.Enabled = True 'Timer SQL Ein
txt_internetverbindung.Enabled = False

'CPU Info
Dim objCPUItem As Object, objCPU As Object
objCPU = New Object
objCPUItem = GetObject("winmgmts:").InstancesOf("Win32_Processor")
For Each objCPU In objCPUItem
strCPUDesc = Trim$(objCPU.Name)
txt_cpu_typ_Leistung.Text = strCPUDesc
Next

'Aktiver Benutzer
strCuUser = Environment.UserName
txt_aktiver_benutzer.Text = strCuUser

'Computernamen ausgeben
strComputerName = Environment.MachineName()
txt_computername.Text = strComputerName

'Windows Version
strOS = My.Computer.Info.OSFullName.ToString
txt_windows_version.Text = strOS

'PCArchitektur
Dim PCArchitektur_check As String
PCArchitektur_check = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Session Manager\Environment", False).GetValue("PROCESSOR_ARCHITECTURE")
Select Case PCArchitektur_check
Case "AMD64"
intArchitekture = 64
TextBox4.Text = ("64bit - System")
Case "x86"
intArchitekture = 32
TextBox4.Text = ("32bit - System")
Case Else
intArchitekture = 0
TextBox4.Text = ("Unbekannte Architektur!")
End Select

'SQL Verbindung öffnen
objDBCon.Open()


End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_I_Net_Connection.Tick

Dim siteResponds As Boolean = False
txt_internetverbindung.Enabled = True

Try
siteResponds = My.Computer.Network.Ping("www.google.ch")
Catch
siteResponds = False
End Try

If siteResponds = True Then
strInet = "Ja"
Me.txt_internetverbindung.Text = "Internetverbindung vorhanden"
txt_internetverbindung.BackColor = Color.Green

Else
strInet = "Nein"
Me.txt_internetverbindung.Text = "Internetverbindung getrennt"
txt_internetverbindung.BackColor = Color.Red
End If

End Sub

Private Sub meldung_löschen_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles meldung_löschen_button.Click
txt_error_desc.Text = ""
txt_error_text.Text = ""

End Sub

Private Sub SQL_Transfer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SQL_Transfer.Tick

objDBCommand = New SqlCommand("select ID_Computer from TR_Computer where Name = '" & strComputerName & "';", objDBCon)


Dim i As Integer = -1
Try
i = objDBCommand.ExecuteScalar()


If i <= 0 Then
'Insert TR_Computer
objDBCommand = New SqlCommand("insert into TR_Computer (Name, OS, Architektur, Aktiv_User, Framework, Internet, RAM, TimeDate) values ('" & strComputerName & "', '" & strOS & "' , " & intArchitekture & ", '" & strCuUser & "', '" & strFramework & "', '" & strInet & "', " & intRam & " ,'" & timedate & "');", objDBCon)
objDBCommand.ExecuteNonQuery()
'Insert TR_HD (C: / D
objDBCommand = New SqlCommand("insert into TR_HD (Laufwerk, Speicher, FREE, FK_Computer) values ('C:', " & intSpaceMaxC & ", " & intSpaceFreeC & ", (select ID_Computer from TR_Computer where TR_Computer.Name = '" & strComputerName & "'));", objDBCon)
objDBCommand.ExecuteNonQuery()
objDBCommand = New SqlCommand("insert into TR_HD (Laufwerk, Speicher, FREE, FK_Computer) values ('D:', " & intSpaceMaxD & ", " & intSpaceFreeD & ", (select ID_Computer from TR_Computer where TR_Computer.Name = '" & strComputerName & "'));", objDBCon)
objDBCommand.ExecuteNonQuery()
'Insert Tr_Network
For Each Adress In Addresslist
objDBCommand = New SqlCommand("insert into Tr_Network (IP, FK_Computer) values ('" & Adress.ToString & "', (select ID_Computer from TR_Computer where TR_Computer.Name = '" & strComputerName & "'));", objDBCon)
objDBCommand.ExecuteNonQuery()
Next
'Insert TR_CPU
objDBCommand = New SqlCommand("insert into TR_CPU (CPU_Typ, Auslastung, FK_Computer) values ('" & strCPUDesc & "', '" & intCpuAuslastung & "', (select ID_Computer from TR_Computer where TR_Computer.Name = '" & strComputerName & "'));", objDBCon)
objDBCommand.ExecuteNonQuery()
Else
'Update TR_Computer
objDBCommand = New SqlCommand("update TR_Computer SET Name='" & strComputerName & "', OS='" & strOS & "', Architektur='" & intArchitekture & "', Aktiv_User='" & strCuUser & "', Framework='" & strFramework & "', Internet='" & strInet & "', RAM='" & intRam & "', TimeDate='" & timedate & "' where ID_Computer = " & i & ";", objDBCon)
objDBCommand.ExecuteNonQuery()
'Update TR_HD (C: / D
objDBCommand = New SqlCommand("update TR_HD SET Laufwerk = 'C:', Speicher = " & intSpaceMaxC & ", FREE = " & intSpaceFreeC & " where FK_Computer = " & i & " and Laufwerk = 'C:';", objDBCon)
objDBCommand.ExecuteNonQuery()
objDBCommand = New SqlCommand("update TR_HD SET Laufwerk = 'D:', Speicher = " & intSpaceMaxD & ", FREE = " & intSpaceFreeD & " where FK_Computer = " & i & " and Laufwerk = 'D:';", objDBCon)
objDBCommand.ExecuteNonQuery()

'Delete IP / Insert New Tr_Network
objDBCommand = New SqlCommand("Delete from TR_Network where FK_Computer = " & i & ";", objDBCon)
objDBCommand.ExecuteNonQuery()
For Each Adress In Addresslist
objDBCommand = New SqlCommand("insert into Tr_Network (IP, FK_Computer) values ('" & Adress.ToString & "', " & i & ");", objDBCon)
objDBCommand.ExecuteNonQuery()
Next
'Update TR_CPU
objDBCommand = New SqlCommand("update TR_CPU SET CPU_Typ = '" & strCPUDesc & "', Auslastung = " & intCpuAuslastung & " where FK_Computer = " & i & ";", objDBCon)
objDBCommand.ExecuteNonQuery()

End If
Catch ex As Exception
End Try
End Sub

Private Sub senden_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles senden_button.Click
' ID_Computer auslesen
objDBCommand = New SqlCommand("select ID_Computer from TR_Computer where Name = '" & strComputerName & "';", objDBCon)
Dim i As Integer = -1
i = objDBCommand.ExecuteScalar()

'IN SQL DB schrieben
objDBCommand = New SqlCommand("insert into TR_Error (Typ, Beschreibung, Fehler, time, FK_Computer) values (1, '" & txt_error_desc.Text & "', '" & txt_error_text.Text & "','" & timedate & "', '" & i & "');", objDBCon)
objDBCommand.ExecuteNonQuery()

'Felder wieder Lehren
txt_error_desc.Text = ""
txt_error_text.Text = ""
End Sub

Private Sub beenden_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles beenden_button.Click
beenden_passwort.Show()
End Sub

Private Sub Timer_Time_Date_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_Time_Date.Tick
txt_datum.Text = Date.Today
txt_uhrzeit.Text = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)

End Sub

Private Sub EventLogLesen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EventLogLesen.Tick

' ID_Computer auslesen
objDBCommand = New SqlCommand("select ID_Computer from TR_Computer where Name = '" & strComputerName & "';", objDBCon)
Dim i As Integer = -1
i = objDBCommand.ExecuteScalar()

objDBCommand = New SqlCommand("delete from TR_Error where Beschreibung = 'Eventlog' and FK_Computer = " & i & ";", objDBCon)
objDBCommand.ExecuteNonQuery()


'EventLog Ausgabe nur 3 Tage Retour und nur Warnings und Errors - 15min Intervall
Dim MyEVL As New EventLog("System")

EventLog_Ausgabe.ClearSelected()

For Each Entry As EventLogEntry In MyEVL.Entries

If DateDiff(DateInterval.Day, Entry.TimeGenerated, Now) <= 1 Then
If Entry.EntryType.ToString = "Warning" Or Entry.EntryType.ToString = "Error" Then
EventLog_Ausgabe.Items.Add(Entry.EntryType.ToString & " - " & _
Entry.TimeWritten.ToString & " - " & _
Entry.Message.ToString)

If Entry.EntryType.ToString = "Warning" Then
Try
'IN SQL DB schrieben
objDBCommand = New SqlCommand("insert into TR_Error (Typ, Fehler, Beschreibung, time, FK_Computer) values (3, '" & Entry.Message.ToString & "', 'Eventlog','" & Entry.TimeWritten & "', " & i & ");", objDBCon)
objDBCommand.ExecuteNonQuery()
Catch
End Try
Else
Try
'IN SQL DB schrieben
objDBCommand = New SqlCommand("insert into TR_Error (Typ, Fehler, Beschreibung, time, FK_Computer) values (2, '" & Entry.Message.ToString & "', 'Eventlog','" & Entry.TimeWritten & "', " & i & ");", objDBCon)
objDBCommand.ExecuteNonQuery()
Catch
End Try
End If
End If
End If
Next

End Sub

Private Sub task_bar_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles task_bar.MouseDoubleClick
Me.Show()
task_bar.Visible = False
End Sub

Private Sub Admin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Admin.Click
Admin_PW_Abfrage.Show()
End Sub

Public Sub Info_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Info.Click
Process.Start("C:\Program Files (x86)\Remote Monitoring\Info.html")
End Sub
End Class

kein plan wie das geht bei diesem Forum ;( sonst hätte ich es schon mit code tags eingefügt aber selbst schreiben ist mühsam.

Hallo

Habe grade eben den momentanen Fehler als Bild reingepostet aber der Fehler bringt mich nicht weiter!

Habt ihr eine Idee?

ich habe sie veröffentlicht und auf die WM-Ware kopiert aber eben dan kommt der Fehler wo ich ober reingepostet habe!

Also ich habe das Problem gefunden

Es haben paar Sachen gefahlt auf der VM und zwar :

- VisualBasicPowerPacksSetup
- ReportViewer

Als ich das alles Installiert habe hat alles so Funktioniert wie gewünscht ;)

Danke für die bemühung.