Programmiert unter Win8 geht aber unter 7 nicht?

[Kantonix]

Guten Abend liebe Comunity,
wer hätts gedacht ich habe mal wieder eine frage wegen VB das mich langsam persönlich auf den *piep* geht :/

also ich habe mal angefangen so eine art Betriebssystem per .NET Programmierung zu machen mit VB natürlich ohne boot und so (was mit .net sowiso unmöglich ist) sondern einfach unter Windows startbar (Erspart euch bitte so dumme comments wie "Sowas braucht kein Mensch" oder "Das ist doch total unnötig" !!! ich mache das aus Spaß am Programmieren und aus Langeweile)
auf jedenfall hab ich das Problem das unter Windows 7 (.Net 4.5) das Programm ("System") nicht sauber startet.
Der Anfang geht noch, wenn es dann aber in den Vollbildmodus geht, geht nur noch das "BIOS" auf und ansonsten nix.
Unter Windows 8 (.Net 4.5) läuft es aber ohne Probleme.

Wenn ihr Win8 und 7 habt könnt ihr wenn ihr wollt es auch selbst ansehen. () ("Sry als anhang zu groß")

Hier hab ich jetzt auch mal ein Video erstellt zum besseren Verständnis was mein Problem ist:

Was ich schon Probiert habe:
-Diese Anleitung () = habe aber leider die Express version, geht also nicht
-Ich habe versucht mit Visual Studio 2012 zu programmieren und in 2010 zu Compilen = Geht auch nicht

Danke schon mal im vorraus für Hilfe

--------------------------------------------------------------------------------------------------------------------------------------
ERFOLG:

-Ich habe mal den Timer ausgeschalten der den Befehl gibt das wenn ich F12 drücke das Bios kommt (Nun geht es unter Win7 ABER: )

[tolio]

kompiliers mal für nen niedrigeres framework

[Kantonix]

Daran habe ich auch schon gedacht aber wenn ich von 4.0 auf 3.5 runter gehe macht mir die Design.vb einen strich durch die Rechnung da ich anscheinend einen code verwende der 4.0 oder höher braucht :/

[tolio]

fw4.0 musste auch mim 2010er studio kompilieren können, was für ne meldung kommt da?

[Kantonix]

Siehe Anhang,
ich habe so das Gefühl das .Net 3.5 nicht mit dem my.settings klar kommt was aber eigentlich unwahrscheinlich ist O.o

[tolio]

ich hab grad nochmal deinen anfangspost gelesen, also wenn startet dann muss es auch funktionieren, wenns an einer stelle dann hängt musste halt mal debuggen und schauen was net klappt

[stotterer09]

könntest du den code posten weswegen er sich nicht auf 3.5 erstellen lässt?

[Kantonix]

das ist es ja beim Debuggen unter Win8 mit .Net 4 geht alles ohne probleme
beim testen unter win7 geht es nicht richtig

beim Debuggen in win8 mit .Net 3.5 hängt er wenn es ans my.settings ran geht

Edit:
@stotterer09
Hier drin ist der Code:

 Spoiler

'------------------------------------------------------------------------------
' <auto-generated>
'     Dieser Code wurde von einem Tool generiert.
'     Laufzeitversion:4.0.30319.32559
'
'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
'     der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict On
Option Explicit On


Namespace My
    
    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"),  _
     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
    Partial Friend NotInheritable Class MySettings
        Inherits Global.System.Configuration.ApplicationSettingsBase
        
        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
        
#Region "Funktion zum automatischen Speichern von My.Settings"
#If _MyType = "WindowsForms" Then
    Private Shared addedHandler As Boolean

    Private Shared addedHandlerLockObject As New Object

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
        If My.Application.SaveMySettingsOnExit Then
            My.Settings.Save()
        End If
    End Sub
#End If
#End Region
        
        Public Shared ReadOnly Property [Default]() As MySettings
            Get
                
#If _MyType = "WindowsForms" Then
               If Not addedHandler Then
                    SyncLock addedHandlerLockObject
                        If Not addedHandler Then
                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
                            addedHandler = True
                        End If
                    End SyncLock
                End If
#End If
                Return defaultInstance
            End Get
        End Property
        
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
        Public Property BIOSsbno() As String
            Get
                Return CType(Me("BIOSsbno"),String)
            End Get
            Set
                Me("BIOSsbno") = value
            End Set
        End Property
        
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
        Public Property BIOSsbyes() As String
            Get
                Return CType(Me("BIOSsbyes"),String)
            End Get
            Set
                Me("BIOSsbyes") = value
            End Set
        End Property
        
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
        Public Property BName() As String
            Get
                Return CType(Me("BName"),String)
            End Get
            Set
                Me("BName") = value     [B][U][COLOR="Red"](AB HIER GIBT ER DEN OBER GESCREENTEN FEHLER AUS)[/COLOR][/U][/B]
            End Set
        End Property
        
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
        Public Property AktuellesPasswort() As String
            Get
                Return CType(Me("AktuellesPasswort"),String)
            End Get
            Set
                Me("AktuellesPasswort") = value
            End Set
        End Property
        
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
        Public Property ZeitZone() As String
            Get
                Return CType(Me("ZeitZone"),String)
            End Get
            Set
                Me("ZeitZone") = value
            End Set
        End Property
        
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
        Public Property Firewallein() As String
            Get
                Return CType(Me("Firewallein"),String)
            End Get
            Set
                Me("Firewallein") = value
            End Set
        End Property
        
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
        Public Property Firewallaus() As String
            Get
                Return CType(Me("Firewallaus"),String)
            End Get
            Set
                Me("Firewallaus") = value
            End Set
        End Property
        
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
        Public Property FirewallKeinAusnahmen() As String
            Get
                Return CType(Me("FirewallKeinAusnahmen"),String)
            End Get
            Set
                Me("FirewallKeinAusnahmen") = value
            End Set
        End Property
        
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
        Public Property Updateein() As String
            Get
                Return CType(Me("Updateein"),String)
            End Get
            Set
                Me("Updateein") = value
            End Set
        End Property
        
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
        Public Property Updateaus() As String
            Get
                Return CType(Me("Updateaus"),String)
            End Get
            Set
                Me("Updateaus") = value
            End Set
        End Property
    End Class
End Namespace

Namespace My
    
    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
    Friend Module MySettingsProperty
        
        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
        Friend ReadOnly Property Settings() As Global.HayKer_OS_Standard_Edition.My.MySettings
            Get
                Return Global.HayKer_OS_Standard_Edition.My.MySettings.Default
            End Get
        End Property
    End Module
End Namespace

Edit 2:
So wie ich das sehe stellt er nicht komplett auf 3.5 um da in dem Code "Laufzeitversion:4.0.30319.32559" Steht oder hat das nichts zu sagen?

[dready]

Das klingt weniger nach nem Framework Problem, sollten beide 4.5 können. Mhm

Denk Tolio hat hier schon die Richtige Idee gehabt



Probiers mal hiermit und schau wo genau das Problem liegt.

Alternativ, Check auf welcher Windowsversion es läuft und ersetz das ganze durch entsprechende Native WINAPI aufrufe. Denk so würd zumindest ich es zuerst probiern.

[Kantonix]

Ich habe oben jetzt mal ein video gemacht was genau mein Problem ist. Weil so langsam kapier ich garnichts mehr
ich hab schon alles probiert was mir in den sinn kam

[tolio]

debuggen!

[Kantonix]

Wenn ich unter Windows 7 Debugge kommt folgender Fehler:
"Das Manifestsignaturzertifikat wurde nicht im Zertifikatspeicher gefunden."

[tolio]

dann würd ich mal gegooglen wie man das behebt. zudem sollte das eig unter keinen umständen passieren wenn du das ganze projekt auf nen win7 pc ziehst und dort mitm vs debuggst

[Kantonix]

jetzt geht grad garnichts mehr am meinem PC :/ muss ihn mal wieder neu machen mal schaun wann ich Zeit und Lust habe ^^

[Kantonix]

OK ich habe jetzt gefunden wo der Fehler war
Und zwar genau in diesem Code lag der Fehler aber ich weiß nicht warum Windows 7 das anders ausführt wie Windows 8

    'Hier wird die Taste F12 mit einem Ereigniss versehen'

    Private Sub TastaturTimer_Tick(sender As Object, e As EventArgs) Handles TastaturTimer.Tick
        Dim Hotkeyss As Boolean
        Hotkeyss = GetAsyncKeyState(Keys.F12)

        If Hotkeyss = True Then
            If IO.File.Exists("hkossystem\bios\hkbiosstart.hkosbio") Then  'Existiert die Datei dann:'
                TastaturTimer.Stop()
                BIOS.Show()
                Close()
            Else  'Ansonsten:'
                TastaturTimer.Stop()
                Enabled = False
                My.Computer.Audio.Play(My.Resources.HKA99X_Error, AudioPlayMode.Background)
                MsgBox("Die Bios Datei -hkbiosstart.hkosbio- scheint zu fehlen bitte versuche es nochmal, installiere HayKer OS Neu oder Wende dich an den Entwickler!", MsgBoxStyle.Critical, "FATALERROR")
                Form1.Close()
            End If
        End If
        TastaturTimer.Start()
    End Sub

Ich hoffe mal das das hier verständlich ist
bin nun mal kein Profi und machs einfach so als Hobby