|
|
Informationen über osversion |
Memory Flush - Ramverbrauch deutlich senken! |
Verfasst am: 15.06.2009, 18:53 Aufrufe: 1162
... sp; ByVal maximumWorkingSetSize As Integer) As Integer<br /><br /> Public Shared Sub FlushMemory()<br /> GC.Collect()<br /> GC.WaitForPendingFinalizers()<br /> If (Environment.OSVersion ...
|
Prüfen ob das Betriebssystem Windows XP ist |
Verfasst am: 15.06.2009, 11:29 Aufrufe: 739
Beschreibung:Diese Funktion prüft ob das zur Zeit der Ausführung laufende Programm Windows XP ist.Funktion:Private Function IsWindowsXP() As Boolean<br /><br /> Dim OS As OperatingSystem = Environment.OSVersion <br /> Dim Result As Boolean = OS.Platfor ...
|
Servie Pack 2 obwohl ServiePack 3 |
Verfasst am: 12.05.2008, 12:38 Aufrufe: 894
Moin,ich habe mich mal an mein Visual Basic Buch gehalten, und da wollten die, dass ich so eine Console schreibe, die anzeigt welches ServicePack installiert ist. Nur das zeigt bei mir ServicePack 2 an, obwohl bei der Installation von Visual Basic Express 2008 stand: ServicePack 3.5 wird installiert...Hier der Code:Visual Basic: Simon
|
Nützliche Funktionen [Sources] |
Verfasst am: 19.03.2008, 02:10 Aufrufe: 3258
Beschreibung:
Diese Funktion prüft ob das zur Zeit der Ausführung laufende Programm Windows XP ist.
Funktion:
Private Function IsWindowsXP() As Boolean
Dim OS As OperatingSystem = Environment.OSVersion
Dim Result As Boolean = OS.Platform = _
PlatformID.Win32NT AndAlso ((OS.Version.Major = 5 AndAlso _
OS.Version.Minor >= 1) OrElse OS.Version.Major > 5)
...
|
Memory Flush - Ramverbrauch deutlich senken! |
Verfasst am: 02.12.2007, 13:52 Aufrufe: 2820
dll" ( _
ByVal process As IntPtr, _
ByVal minimumWorkingSetSize As Integer, _
ByVal maximumWorkingSetSize As Integer) As Integer
Public Shared Sub FlushMemory()
GC.Collect()
GC.WaitForPendingFinalizers()
If (Environment.OSVersion.Platform = PlatformID.Win32NT) Then
SetProcessWorkingSetSize(Process.GetC ...
|
[Video] XP Key auslesen |
Verfasst am: 02.11.2007, 02:43 Aufrufe: 3077
Click
If IsWindowsXP() Then
TextBox1.Text = "WindowsXP"
Dim Result As String = GetCDKeyFromWindowsXP.ReturnproductKey()
If Not Result Then = Nothing Then
End If
End If
End Sub
Private Function IsWindows()Xp() As Boolean
Dim OS As OperationSystem = Enviroment.OSVersion
Dim Result As Boolean = OS.Platform = PlatformID.Wi ...
|
Snippets |
Verfasst am: 06.06.2007, 10:29 Aufrufe: 2477
Quelle: http://www.visual-basic5.de/
Laufwerke ermitteln: http://www.visual-basic5.de/Heinz.Prelle/vbnet2/dngdri01.htm
OSVersion ermitteln: http://www.visual-basic5.de/Heinz.Prelle/vbnet2/dnosver1.htm
Angemeldeten User ermitteln: http://www.visual-basic5.de/Heinz.Prelle/vbnet2/dngeuser.htm
Systemordner ermitteln: http://www.visual-basic5.de/Heinz.Prelle/vbnet2/dngetsyd.htm
Computernamen ermitteln: ht ...
|
|
|