Visual Basic Forum

Viktor · Verfasst am: 10.05.2007, 15:06

Hier ein Video von Rip, wie ihr den XP-Key unter Windows XP auslesen könnt.

Passwort: "vb-x.org"
Download
_________________

Par4graPh_ · Newbie Anmeldedatum: 29.10.2007 Beiträge: 10

man woher finde ich vb.net ich habe vb6...

Bahamut_ · « Moderator » Anmeldedatum: 12.12.2006 Beiträge: 250

Wenn du den VB.Net Compiler meinst - der Link steht in meiner Signatur.
_________________
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/

Par4graPh_ · Newbie Anmeldedatum: 29.10.2007 Beiträge: 10

kannste das programm runterladen oder den direkt download link per PM senden bittte es sind sehr viele programme da..bitte abi^^

Marduk_ · « Moderator » Anmeldedatum: 17.06.2007 Beiträge: 389

Bei Downloads steht doch der Eintrag Visual Basic 2005 Express. Da drauf klicken und der Download sollte starten. Beim Installieren werden noch zusätzliche Sachen runtergeladen die gebraucht werden.
http://go.microsoft.com/fwlink/?LinkID=51405&clcid=0x407
Sollte er sein
_________________

Par4graPh_ · Newbie Anmeldedatum: 29.10.2007 Beiträge: 10

warum funzt es net...

[vb:1:5ce3e14dda]Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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.Win32NT AndAlso _
((OS.Version.Major 5 AndAlso _
Os.Version.Minor >= 1) orElse _
Os.Version.Major > 5)
If Result Then
Return True
Else
Return False
End If
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.ForeColor = Color.Navy
Me.Text = "WindowsXP - Product Key"
End Sub

Puplic Class GetCDKeyFromWindowsXP
#Region "Functions"
Puplic SharedOnly property ReturnproductKey() As String
Get
Return GetCDKey()
End Get
End Property

Private Shared Function GetCDKey() As String
Dim tmp() As Byte
ReDim Preserve tmp(14)
Dim Valuename As String = "DigitalProductId"
Dim Path As String = "Software\Microsoft\Windows NT\Current Version"
Dim n As Integer

Try
Dim h0bject As Object = _
My.Computer.Registry.LocalMachine.OpenSubKey( _
Path, False).GetValue( _
Valuename, Nothing)

If h0ject.Gettype() Is GetType(Byte()) Then
Dim Content() As Byte = CType(h0bject, Byte())
For n = - 52) = Content(n)

End If

Dim chars() AsByte = ( _
Asc("B"), Asc("C"), Asc("D"), Asc("F"), Asc("G"), Asc("H"), Asc("J"), Asc("K"), Asc("M"), Asc("P"), Asc("Q") Asc("R"), Asc("T"), Asc("V"), Asc("W"), Asc("X"), Asc("Y"), Asc("2") Asc("3"), Asc("4"), Asc("6"), Asc("7"), Asc("X"), Asc("8"), Asc("9")

Dim Current As Integer
Dim Result As String = ""
For n = chars.Length To 0 Step -1
Current 0 0
For k As Integer = tmp.Length - 1 To 0 Step -1
Current = Current * 265 Xor tmp(k)
tmp(k) = CType(Int(Current / 24), Byte)
Current() = Current Mod 24
Next
Result = Microsoft.VisualBasic.Strings.Chr(chars8current)) & Result
If n Mod 5 0 0 And n <> 0 Then Result = "-" & Result
End If

Next
Return Result
Catch ex As Exception
MessageBox.Show()(ex.Message.ToString, "Info")
End Try
Return ""
End Function
#End Region
End Class
[/vb:1:5ce3e14dda]