XProfan

Español

Jac
de
Lad

¡Hola ihr en el Foro!

Mit FTP() kann Yo sí en Profano Internet agieren. Aber kann Yo auch en el Intranet, also por LAN irgendwie Archivos austauschen? Beziehungsweise de una freigegebenen Ordner Archivos beziehen? En me ha el siempre no geklappt!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Hi meinste algo como?
[...]

es algo älter, aber una Intento si en Usted zutrifft wäre lo doch wert

Rolf

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Gracias Rolf,

Yo probiers igual veces de. Heute abend kann Yo dir eventuell ya escribir, obs funktioniert!

Jac

PS: Yo vorhin grad de lo que ROC 4.3a gelesen, en deiner Webseite es aber nix su. Gibts el ya? (Naja, bin grade al runterladen...igual werd ego wissen!)

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Hi Jac,

Lo kann sólo una geben, el con el Versión el Zukunft arbeitet? Na wer

?

Exactamente ICH. Nee en el Ernst, dies es sólo mi aktuelle Arbeitsversion. Ist üblich, dass en Foreneinträgen de me el Versión siempre algo höher ausfällt como el gerade aktuell es.

Rolf

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

¡Hola Rolf!

Yo me el LANInc grad veces angeschaut. Naja, así sería lo zwar ir, aber seeeeehr umständlich (meiner Meinung después de jedenfalls). Gibts no ne einfachere Möglichkeit en en Netzwerk-Ordner (also Yo mi en el Netzwerk freigegebene) zuzugreifen? Kennt alguien tal vez ne DLL más o menos? Also el RasOnline.dll es ya bastante prima en el Umgang con Internet aber en el Intranet en me a Casa hats eben no feunktioniert...

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Geht einfacher:
Kompilieren Marca Separación

CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.3a
DATUM  29.01.2006    um  16:19 Uhr
VERWENDETE PROFANVERSION IST 8.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS XP
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE LISTBOX1&, netzpfad$
NETZPFAD$="\TOBIASMESSAGE"
WINDOWSTYLE 63
WINDOWTITLE "Local Area Network ;)"
WINDOW 22,20-275,500
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
LISTBOX1& = CREATE("LISTBOX",%HWND,"liste",0015,0016,0220,0411)
Addfiles Netzpfad$+"*.*"
Movelisttolist(Listbox1&)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(LISTBOX1&) LISTBOX

    ENDIF

WEND

Achtung: Beachte el número el Backslashs, el son así wichtig.
Also pass Usted lo simplemente veces a.

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Gracias Rolf!

Hm, en el einfachsten Sachen kommt uno veces otra vez no. Heißt el, dass Soy un Netzwerkordner (z.B. //Susi/Profano-Shared) simplemente como una normalen Ordner uso kann? Dann wären todos mi Fragen y Problemas gelöst!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

*lölchen*
sí correcto.
Nur darfst No así:
//Susi/Profano-Shared,
pero así
///Susi/Profano-Shared
angeben.
Natürlich necesario el Pfade entsprechend freigegeben ser.

Rolf

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Rolf, du bist el allergrößte!

Das klappt bastante prima. Ne kleine Cuestión kommt me ahora aber todavía: ¿Es posible, el Freigabenamen rauszufinden? Also ///Susi/Profano-Shared (en el Annahme, dass el Prog el no sabe. Und dazu al besten el Arbeitsgruppencomputer y el Arbeitsgruppe. Also así: Zuerst ermittel Yo el Arbeitsgruppen, entonces el angeschlossenen Computer y schließlich el freigegebenen Ordner, el Yo entonces todos para qué De todos modos durchsuchen kann. Weißte Yo mi? Ist el irgendwie posible (sin, dass Yo dir ahora jede Menge Arbeit aufbürde!).

Jac

PS: ROC 4.3a ROCKT!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

kurz ma rápidamente antworten

> Zuerst ermittel Yo el Arbeitsgruppen

Dies macht sí el Laninc.
Mach Dir veces el Mühe y kuck el Usted correcto a.
El es absolut no kompliziert es sí incluso ne Ayuda en *lol*

Rolf

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

si encima el Ejemplo el LANINC zumindest el User herausbekommen hast, así kannst Usted hiermit evtl. weiterarbeiten.
Am Schluss entsteht una Textdatei, con welcher Usted entonces weiterarbeiten kannst.
In dieser Texdatei son todos Freigaben para gewählten Arbeitscomputer.
Kompilieren Marca Separación

declare zeile$,computer$
CLS
def Freigaben(1) winexec(getenv$("COMSPEC") +" /k net view \"+$(1)+" > C:USER.TXT",0)
Freigaben("TOBIAS")
sleep 3000 bisschen Zeit lassen
@sendmessage(FindWindow($syspath+"cmd.exe"),16,0,0)
Assign #1,"C:USER.TXT"
Reset #1

Whilenot eof(#1)

    input #1,zeile$

    if instr("Freigegebene Ressourcen auf ",zeile$)

        computer$=""+translate$(zeile$,"Freigegebene Ressourcen auf ","")

    endif

    if instr("Platte",zeile$)

        zeile$=del$(zeile$,instr("Platte",zeile$),100)
        zeile$=trim$(zeile$)
        print Computer$+""+Zeile$

    endif

wend

close #1
Assign #1,"C:USER.TXT"
Erase #1
waitinput

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Sí, nee, also,

is klar, dass el así va, pero yo quería eben verhindern, dass Yo siempre sólo ne temporäre Expediente escribir muss y así. Pensé el va con ner API oder qué en el Art auch!? Yo finde el reichlich umständlich sólo ne temporäre Expediente escribir muss...weißte Yo mi??? Außerdem erscheint me con Sleep bastante unsicher (langsamer/más rápido Rechner). Und qué es si yo ne nichtdeutsche Windows-Versión habe? (Freigegebene Resourcen en...)

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

29.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

►