| |
| |
|
Jac
de
Lad | Hello your in the Forum!
with FTP() can I Yes in Profan Internet agieren. but can I in Intranet, means by LAN somehow Files replace? Beziehungsweise of a freigegebenen Ordner Files relating? With me is the always not worked!
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 | 01/29/06 ▲ |
|
| |
|
|
Rolf
Koch | Hi meinste something like?
[...] 
is something older, but one attempt whether it on you zutrifft would it still worth 
Rolf |
|
| |
| |
| |
|
|
Jac
de
Lad | thanks Rolf,
I probiers same time from. tonight can I you possible already write, obs functions!
Jac 
PS: I Have a little while ago strain of what ROC 4.3a red, on your Website standing but nothing of it. Gibts the already? (Well, be grade on the runterladen...same werd ichs know!) |
|
| |
| 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 | 01/29/06 ▲ |
|
| |
|
|
Rolf
Koch | Hi Jac,
It can only a give, the with the Version the future operates? well who  ?
very ICH. no in the serious, these hold my actually Arbeitsversion. is normally, that in Foreneinträgen of me The Version always something higher ausfällt as The straight currently is.
Rolf |
|
| |
| |
| |
|
|
Jac
de
Lad | Hello Rolf!
I Have me The LANInc strain time angeschaut. Well, so would it of course weg, but seeeeehr umständlich (of my opinion to anyway). Gibts not ne einfachere Possibility circa on networking-Ordner (means I mean the network freigegebene) access? knows someone Perhaps ne DLL or so? means The RasOnline.dll is already integrally lovely in the Use with internet but in the Intranet by me To dwell hats even not 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 | 01/29/06 ▲ |
|
| |
|
|
Rolf
Koch | goes plainer:
CompileMarkSeparationCODE 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
deference: mind The Number of Backslashs, are so important.
means pass you it simply at times. |
|
| |
| |
| |
|
|
Jac
de
Lad | thanks Rolf!
Hm, on The simplest things comes one time again not. means the, I a Netzwerkordner (z.B. //Susi/Profan-Shared) simply How a normalen Ordner use can? then wären any my ask and Problems resolved!
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 | 01/29/06 ▲ |
|
| |
|
|
Rolf
Koch | *lölchen*
Yes correctly..
only must You do not so:
//Susi/Profan-Shared,
separate so
///Susi/Profan-Shared
. Indicate
naturally must The Paths properly released his.
Rolf |
|
| |
| |
| |
|
|
Jac
de
Lad | Rolf, you are the allergrößte!
the works integrally lovely. Ne small question comes me now but yet: is it possible, whom Freigabenamen rauszufinden? means ///Susi/Profan-Shared (in the assumption, that the Prog whom not knows. and moreover best The Arbeitsgruppencomputer and the team. means so: first ermittel I The Arbeitsgruppen, then The associated computer and finally The freigegebenen Ordner, The I then any for whatever search can. whited I my? is the somehow possible (without, I you now each crowd work 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 | 01/29/06 ▲ |
|
| |
|
|
Rolf
Koch | short ma quick Answer
> first ermittel I The Arbeitsgruppen
this power Yes The Laninc.
Mach you times the trouble and kuck The you correctly. on.
The is utterly not tricky is Yes even ne Help *lol*
Rolf |
|
| |
| |
| |
|
|
Rolf
Koch | if you over the example the LANINC at least The User herausbekommen have, so can You herewith evtl. weiterarbeiten.
on the Schluss arise a Textdatei, with which You then weiterarbeiten can.
in this Texdatei stand any releases to that chosen Arbeitscomputer.
CompileMarkSeparationdeclare 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
|
|
| |
| |
| |
|
|
Jac
de
Lad | Yes, no, means,
is clear, that the so goes, but I wished even prevent, I always first ne temporary File write must and so. I thought the goes with Ner API or what in the manner too!? I find the plenty umständlich first ne temporary File write must...whited I my??? Also appear me with the Sleep quite uncertain (slower/faster computer). and What is if I ne nichtdeutsche windows-Version have? (Freigegebene Resources on...)
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 | 01/29/06 ▲ |
|
| |
|
(5.707)
Deutsch
English
Français
Español
Italia