| |
| |
|
| - Page 1 - |
|
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 ▲ |
|
| |
|
|
| |
| |
| - Page 1 - |
|
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 ▲ |
|
| |
|
| |
| |
| - Page 2 - |
|
|
Rolf
Koch | is correct again *lol*
time look, what there yet can make.
have me Yes convincing
Rolf |
|
| |
| |
| |
|
|
Rolf
Koch | strain time here on the look, becomes but quite happig
[...] 
Rolf |
|
| |
| |
| |
|
|
 | Hm I mean I had the everything Schonmal umgesetzt - means TCPIP-communication.
But no leichter material - i'd you really sooner Rolfs Variante recommend.
my Variante would warscheinlich your gesammten Programmaufbau verwerfen - and so correctly. pleasure the everything rauszusuchen have so did i not. On each drop müsstest You then - if you with the XProfan realisierst - at least in Prozesskommunikation something firm his, because everything in a XProfan-Process would each Program bad slow. |
|
| |
| |
| |
|
|
Jac
de
Lad | Well, I Have in my Prog ne function Intranet-Update. there becomes in the background anyhow nothing other made, means is it alike, whether the Prog for long need or not. but ifs really so tricky is take I either really Rolfs Variante or verzichte on The function (I Have too yet ne Internetupdate-function, The works correct!).
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/30/06 ▲ |
|
| |
|
(860)
Deutsch
English
Français
Español
Italia