hi,
ja so dachte ich es mir. er soll es aber anhand des tagesdatum erkennen.
thx
mfg
thomas
hi,
ja so dachte ich es mir. er soll es aber anhand des tagesdatum erkennen.
thx
mfg
thomas
hi,
dein versuch läuft super. was ich machen möchte ist nur eine überlegung ob man die dateien in eine bestimmten ordner wie ich es beschrieben habe zusätzlich verschieben kann. es kann auch seperat von dem ersten script laufen.
nochmals danke für das erste script.
mfg thomas
hi,
danke es sieht ja doch komplizierter aus als ich mir es vorgestellt habe. :keks:
im engl. Forum bin auf das Script gestossen,
$time = FileGetTime("c:\thomas\1.txt")
$moncalc=StringSplit("31,28,31,30,31,30,31,31,30,31,30,31",",")
;$time[0] = year
;$time[1] = month
;$time[2] = day
$mon=0
For $i=1 To @MON
$mon=$mon+$moncalc[$i]
Next
For $i=1 To $time[1]
$mon=$mon-$moncalc[$i]
Next
$Timedif=(((@YEAR-$time[0])*365)+($mon)+@mday-$time[2])
MsgBox(1,"Date was "&$time[1]&"/"&$time[2]&"/"&$time[0],$timedif & " Days old")
Kann man das so benutzen, das erkannt wir in welchen Ordner die Datei gehört.
z.B 03.12.2006 gehört in den Ordner Dezember 2006(oder 12 2006)
03.012007 gehört in den Ordner Januar 2007?
Mfg Thomas
Hallo,
ich quäle mich schon eine weile mit dem FileGetTime ich möchte gerne erreichen das heute erstellte Dateien mit Filecopy in ein anderen Ordner ablege. Mein Lösungsansatz ist dieser.
#include <Array.au3>
#include <date.au3>
$folder = "c:\Thomas\"
$ordner = "c:\Thomas\Test"
$search = FileFindFirstFile($folder & "*.xls")
$now = @MDAY &"."& @MON &"." & @YEAR
While 1
$file = FileFindNextFile($search)
if @error Then ExitLoop
if FileGetTime($folder & $file,1,1) = _Now() Then
$now = FileGetTime($folder & $file,0,1)
_test()
EndIf
WEnd
Func _test()
MsgBox(0,"Thomas","je")
EndFunc
#include <Array.au3>
#include <date.au3>
Dim $array[1] = [0]
$dir = 'c:\Thomas\'
$start = FileFindFirstFile($dir & '*.xls')
While 1
$file_found = FileFindNextFile($start)
If @error Then ExitLoop
$time = FileGetTime($dir & $file_found, 1,1)
_ArrayAdd($array, $time & ' -> ' & $file_found)
If $start = _Now() Then
_test()
EndIf
WEnd
_ArrayDisplay($array, 'with date/time (YYYY.MM.DD)')
[/autoit] [autoit][/autoit] [autoit]Func _test()
MsgBox(0,"Thomas","je")
EndFunc
Ich bekomme aber leider nicht die Datei angezeigt die wirklich heute erstellt wurde.
Somit kann ich sie auch nicht kopieren. Wie kann ich es anders lösen?
Mfg Thomas :hm:
Mahlzeit Kollegen,
so da ich nun auch schon einige Anfragen gestellt habe wollte ich auch mal ein kleines Projekt abgeben. Da ich auf meiner Arbeit des öfteren mit Kunden zutun habe, die sich eine Mail einrichten. Da habe ich mal ein kleines Tool einfallen lassen.
;######################################
;ThomasB Installationshilfe Mailkonto##
;######################################
#include <GuiConstants.au3>
#include <string.au3>
#include <file.au3>
GuiCreate("ADTG Mailkonto Einrichtungstool", 455, 170,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$Outlook2007 = @ProgramFilesDir & "\Microsoft Office\Office12\Outlook.exe"
$Outlook2003 = @ProgramFilesDir & "\Microsoft Office\Office11\Outlook.exe"
$OutlookXP = @ProgramFilesDir & "\Microsoft Office\Office10\Outlook.exe"
$Outlook2000 = @ProgramFilesDir & "\Microsoft Office\Office9\Outlook.exe"
$Express = @ProgramFilesDir & "\Outlook Express\msimn.exe"
$PID = ProcessExists("Outlook.exe")
$PID1 = ProcessExists("msimn.exe")
$Radio_1 = GuiCtrlCreateRadio("Outlook Express", 335, 30, 100, 20)
$Radio_2 = GuiCtrlCreateRadio("Outlook 2000", 335, 50, 90, 20)
$Radio_3 = GuiCtrlCreateRadio("Outlook XP", 335, 70, 90, 20)
$Radio_4 = GuiCtrlCreateRadio("Outlook 2003", 335, 90, 100, 20)
$Radio_5 = GUICtrlCreateRadio("Outlook 2007", 335, 110, 100,20)
$Checkbox_1 = GuiCtrlCreateCheckbox("Exchange Server", 20, 110, 100, 40)
$Label_5 = GuiCtrlCreateLabel("Ihr Name", 20, 20, 90, 20)
$Input_6 = GuiCtrlCreateInput("", 120, 20, 200, 20);Name
$Label_6 = GuiCtrlCreateLabel("Benutzername", 20, 40, 90, 20)
$Input_7 = GuiCtrlCreateInput("", 120, 40, 200, 20);Benutzername
$Label_7 = GuiCtrlCreateLabel("Passwort", 20, 60, 90, 20)
$Input_8 = GuiCtrlCreateInput("", 120, 60, 200, 20, $ES_Password);PW
$Label_8 = GuiCtrlCreateLabel("Mail-Adresse", 20, 80, 90, 20)
$Input_9 = GuiCtrlCreateInput("", 120, 80, 200, 20);Mail_Adresse
$Button_10 = GuiCtrlCreateButton("Abbruch", 330, 140, 110, 20)
$Group_11 = GuiCtrlCreateGroup("Outlook Version", 330, 10, 110, 125)
GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Radio_1 = $GUI_CHECKED
_Express()
Case $msg = $Radio_2 = $GUI_CHECKED
_Office2000()
Case $msg = $Radio_3 = $GUI_CHECKED
_OfficeXP()
Case $msg = $Radio_4 = $GUI_CHECKED
_Office2003()
Case $msg = $Radio_5 = $GUI_CHECKED
_Office2007()
Case $msg = $Button_10
ExitLoop
;;;
EndSelect
WEnd
Exit
Func _Express()
$ver = FileGetVersion($Express)
If $ver < "9" Then
If $PID1 Then ProcessClose($PID1)
If WinWaitClose($PID1, 20) Then
Run($Express)
Sleep(1000)
Send('!xk')
Sleep(1000)
Send('!ze')
Sleep(1000)
Send(GUICtrlRead($Input_6))
Sleep(500)
Send('{Enter}')
Send(GUICtrlRead($Input_9))
Sleep(500)
Send('{Enter}')
Send('pop.kundenserver.de')
Sleep(500)
Send('{Tab}')
Send('auth.smtp.kundenserver.de')
Sleep(500)
Send('{Enter}')
Send('{DEL}')
Sleep(500)
Send(GUICtrlRead($Input_7))
Sleep(500)
Send('{Tab}')
Sleep(500)
Send(GUICtrlRead($Input_8))
Sleep(500)
Send('{Enter}')
Sleep(500)
Send('{Enter}')
Sleep(500)
Send('{TAB 2}{Enter}')
Send('{DEL}')
Sleep(500)
Send(GUICtrlRead($Input_6))
Sleep(500)
Send('^{Tab}')
Sleep(500)
Send('!u')
Sleep(500)
Send('{Enter}')
Sleep(500)
Send('!{F4}')
Else
MsgBox(64, "Outlook Express" , $Express & " " & "kann nicht geöffenet werden",10)
Exit
EndIf
EndIf
EndFunc
Func _Office2000()
$ver = FileGetVersion($Outlook2000)
If $ver > "9" Then
Run($Outlook2000)
Else
MsgBox(64, "Outlook 2000" , $Outlook2000 & " " & "kann nicht geöffenet werden",10)
Exit
EndIf
EndFunc
Func _OfficeXP()
$ver = FileGetVersion($OutlookXP)
If $ver > "10" Then
Run($OutlookXP)
Else
MsgBox(64, "Outlook XP" , $OutlookXP & " " & "kann nicht geöffenet werden",10)
Exit
EndIf
EndFunc
Func _Office2003()
$ver = FileGetVersion($Outlook2003)
If $ver > "11" Then
If $PID Then ProcessClose($PID)
If WinWaitClose($PID, 10) Then
Run($Outlook2003)
Sleep(3000)
Send ('!xme{ENTER}')
Sleep(1000)
Send('!p{ENTER}')
Sleep(2000)
ControlClick("E-Mail-Konten", "", 357)
ControlSend("E-Mail-Konten", "", 357, GUICtrlRead($Input_6))
Sleep(1000)
ControlClick("E-Mail-Konten", "", 358)
ControlSend("E-Mail-Konten", "", 358, GUICtrlRead($Input_9))
Sleep(1000)
ControlClick("E-Mail-Konten", "", 350)
ControlSend("E-Mail-Konten", "", 350, GUICtrlRead($Input_8))
ControlClick("E-Mail-Konten", "", 370)
ControlSend("E-Mail-Konten", "", 370, "pop.kundenserver.de")
ControlClick("E-Mail-Konten", "", 371)
ControlSend("E-Mail-Konten", "", 371, "auth.smtp.kundenserver.de")
Send('{Tab}')
Send('{Del}')
ControlSend("E-Mail-Konten", "", 355, GUICtrlRead($Input_7))
Sleep(500)
Send('{ALTDOWN}t{ALTUP}')
Sleep(500)
Send('{Del}')
ControlSend("Internet-E-Mail-Einstellungen", "", 221, "")
ControlSend("Internet-E-Mail-Einstellungen", "", 221, GUICtrlRead($Input_6))
Sleep(2500)
Send('^{TAB}')
Sleep(1000)
Send('{Space}')
Sleep(1000)
Send('{Enter}')
Sleep(1000)
Send('{Enter}')
Sleep(1000)
Send('{Enter}')
Sleep(1000)
Send('!ss')
Send('!{F4}')
Exit
Else
MsgBox(64, "Outlook 2003" , @ProgramFilesDir & " " & "kann nicht geöffenet werden",10)
Exit
EndIf
EndIf
EndFunc
Func _Office2007()
$ver = FileGetVersion($Outlook2007)
If $ver > "12" Then
If $PID Then ProcessClose($PID)
If WinWaitClose($PID, 10) Then
Run($Outlook2007)
Sleep(3000)
Send ('!x')
Sleep(1000)
Send("!xkk{ENTER}")
Sleep(1000)
Send('!n')
Sleep(2000)
ControlClick("Neues E-Mail-Konto hinzufügen", "", 357)
ControlSend("Neues E-Mail-Konto hinzufügen", "", 357, GUICtrlRead($Input_6))
Send ('{Tab}')
Sleep(1000)
ControlClick("Neues E-Mail-Konto hinzufügen", "", 358)
ControlSend("Neues E-Mail-Konto hinzufügen", "", 358, GUICtrlRead($Input_9))
Send ('{Tab}')
Sleep(1000)
ControlClick("Neues E-Mail-Konto hinzufügen", "", 350)
ControlSend("Neues E-Mail-Konto hinzufügen", "", 350, GUICtrlRead($Input_8))
Send ('{Tab}')
Sleep(1000)
ControlClick("Neues E-Mail-Konto hinzufügen", "", 604)
ControlSend("Neues E-Mail-Konto hinzufügen", "", 604, GUICtrlRead($Input_8))
Sleep(1000)
Send('!e')
Send('{Enter}')
Sleep(1000)
Send('{Enter}')
Sleep(2000)
ControlClick("Neues E-Mail-Konto hinzufügen", "", 370)
ControlSend("Neues E-Mail-Konto hinzufügen", "", 370, "pop.kundenserver.de")
ControlClick("Neues E-Mail-Konto hinzufügen", "", 371)
ControlSend("Neues E-Mail-Konto hinzufügen", "", 371, "auth.smtp.kundenserver.de")
ControlClick("Neues E-Mail-Konto hinzufügen", "", 355)
ControlSend("Neues E-Mail-Konto hinzufügen", "", 355, GUICtrlRead($Input_7))
ControlClick("Neues E-Mail-Konto hinzufügen", "", 350)
ControlSend("Neues E-Mail-Konto hinzufügen", "", 350, GUICtrlRead($Input_8))
Sleep(1000)
Send('{Tab}{Tab}{Tab}{Tab}{Enter}')
ControlSend("Internet-E-Mail-Einstellungen", "", 221, "")
ControlSend("Internet-E-Mail-Einstellungen", "", 221, GUICtrlRead($Input_6))
Sleep(500)
Send('{TaB 4}')
;Send('{Tab}{Tab}{Tab}{Tab}{Tab}{Right}')
Sleep(1000)
Send('{Tab}{Space}')
Sleep(1000)
Send('{Enter}')
Sleep(1000)
Send('{Enter}')
Sleep(1000)
Send('{Enter}')
Sleep(1000)
Send('!ss')
Send('!{F4}')
Exit
Else
MsgBox(64, "ADTG Mailkonto Einrichtungstool" , $Outlook2007 & " " & "kann nicht geöffenet werden",10)
EndIf
EndIf
EndFunc
;Ende
;######################################
;ThomasB Installationshilfe Mailkonto##
;######################################
Sicher kann noch einiges verändert werden, auch andere Mailkonten können eingebaut werden
MFG ThomasB
hi,
1. Auf dem Server liegen eigentlich Dateien. Über markieren ziehe ich mir die vorhandenen Dateinamen in eine txt, speichere Sie mit dem Datum von z.B. heute (20061105).
2. Dann sollen die heute.txt mit der gestern.txt verglichen werden. Die von gestern zu heute neuen Dateien, sollen nach einander geladen werden. Das geschieht über eine Batchdatei.
3. Leider kann ich kein Script anfügen da er auf Arbeit ist.
4.Das was lüft ist der Teile mit der Markierung, Speicherung. Wo ich hilfe benötig ist der Teil mit dem Vergleichen und einzeln zum Download bereitzustellen.
5. Die Löschung der alten Datei denke ich bekomme ich auch hin.
mfg Thomas
hy,
ich habe da so ein ähnliches Problem, an dem ich schon eine weile grübele., ob es einfach realisierbar ist.
Problembeschreibung:
Auf dem Server befindet sich ein Verzeichniss mit Dateinamen.Der gesamte Inhalt wird über ein DOS Komando in eine Datei kopiert. Diese Datei wird dann mit dem Datum des Tages gespeichert. Danach sollte sofern möglich die Datei mit der Datei des Vortages verglichen werden. Alles was neu in der Datei ist sollte Schritt für Schritt (jeweils eine Datei) über ein DOS Befehl vom Server gedownloadet werden. Wenn alles geladen ist soll die Datei des Vortages gelöscht werden. Am nächsten Tag läuft der gleiche Prozess ab. Ausgenommen sind WE und Feiertag.
Nun werden sich einige Fragen warum gerade DOS und ein Server. Es ist ein sftp Server der in England steht und nur über DOS bedient werden kann. Ich bin jetzt schon soweit das die erste Datei erstellt wird. Der Rest ist mir noch nicht so recht klar.
Vielleicht könnt Ihr mir ja helfen, damit ich weiter komme.
MFG
ThomasB
tschuldigung für das r ich hatte gerade eines mehr im angebot kommt sicher auch wieder vor
@th.merger
Hi,
du hast mich da auf etwas hingewiesen. Da die Maschine auch durch ein Bildschirmschoner gesperrt ist muss ich wohl wieder auf dein super Script zurück greifen.
Ich denke das hier das Problem zu suchen ist.
Thx
MFG Thomas :kiss:
Hallo,
ja der Titel bleibt immer gleich. Bevor ich den neuen Teil mit dem Verschieben und der Log Datei eingebaut habe wurde das Fenster geschlossen. Nachdem nichtmehr. Das Script über den Taskplaner läuft. Wenn es selbstständig startet, bleibt es offen, wenn manuel dann schliesst es.
Ich habe das Script angehängt.
#include <string.au3>
#include <file.au3>
#include <Date.au3>
#include <array.au3>
$Daten = _FileListToArray("C:\bcu_pos\CarrierCDR\" , "*.cvp")
Run('C:\bcu_pos\CarrierCDR.exe')
Sleep ('1000')
Send ('!KS')
Sleep ('180000')
Send ('!KC')
Sleep ('10000')
WinActive("CarrierCDR v2.0.2 Server: (local)","")
Sleep ('10000')
Send ('!{F4}')
If Not IsArray($Daten) Or $Daten[0] = 0 Then
;MsgBox(0, '', "Es wurden keine Daten kopiert!")
_FileWriteLog("X:\CDR`S Komplett\CDRs.prob","Es wurde keine Datei kopiert")
Exit
Else
FileMove("C:\bcu_pos\CarrierCDR\*.cvp", "X:\CDR`S Komplett\BT")
_FileWriteLog("X:\CDR`S Komplett\CDRs.prob","Es wurde(n) " & $Daten[0] & " Datei kopiert")
;MsgBox(0, '', "Es wurden " & $Daten[0] & "Dateien kopiert!", 10)
EndIf
;FileMove("C:\bcu_pos\CarrierCDR\*.cvp", "X:\CDR`S Komplett\BT")
;_FileWriteLog("C:\bcu_pos\CarrierCDR\cdr.prob","Datei wurde verschoben")
Exit
[/autoit]Ich könnte natürlich auch das verschieben in ein seperates Script legen, das dann etwas später startet. Aber schöner wäre es wenn alles in einem ist.
mfg Thomas :weinen:
ps: Fenster ist immer aktiv.
Nabend,
ich dann doch nochmal. Warum schliesst das aktive Fenster nicht habe ich noch was falsch gemacht? Schaut dochmal drüber.
#Include <File.au3>
#Include <Array.au3>
#include <GUIConstants.au3>
#region --- ScriptWriter generated code Start ---
Run('C:\Dokumente und Einstellungen\thomasb\Desktop\PassGen.exe')
Sleep('18000')
Send('!F4')
#endregion --- ScriptWriter generated code End ---
$Daten = _FileListToArray("C:\Datensicherung\", "*.txt")
If Not IsArray($Daten) Or $Daten[0] = 0 Then
;MsgBox(0, '', "Es wurden keine Daten kopiert!")
_FileWriteLog("c:\thomas.prob","Es wurde keine Datei kopiert")
Exit
Else
FileMove("C:\Datensicherung\*.txt", "C:\Dell\")
_FileWriteLog("c:\thomas.prob","Es wurde " & $Daten[0] & " Datei kopiert")
;MsgBox(0, '', "Es wurden " & $Daten[0] & "Dateien kopiert!", 10)
EndIf
exit
Ich bin am verzweifeln.
Mfg Thomas
Moin Moin,
danke es geht
:keks:
mfg thomas
Moin Moin,
ich habe mal wieder ein kleine Problem als Anfänger . Ich würde gerne zählen wieviele Dateien mit Filemove verschoben wurden und dieses dann in eine Log Datei schreiben. Ich bin bis hier her gekommen.
#include<file.au3>
Dim $n
If FileExists("C:\Datensicherung\*.txt")Then
FileMove("C:\Datensicherung\*.txt", "C:\Direkt\")
If $n > 0 Then
_FileWriteLog("c:\thomas.prob", "Es wurden " & $n & "Datei kopiert")
Else
MsgBox(0,"", "Es wurden keine Dateien kopiert.")
EndIf
Endif
Exit
Sicher gibt es hierfür eine kleine simple Lösung.
MFG Thomas
hä,
habe ich was verpasst?
mfg
thomas
hallo,
wow ich habe das hier schon im Forum gefunden mit der Share. leider wollte das nicht so wie ich es wollte.
opt("TrayIconHide", 1)
#include <GUIConstants.au3>
#include <Process.au3>
#Include <GuiListView.au3>
#include <Array.au3>
Dim $pid[1]
$pid[0] = @AutoItPID
$Form1 = GUICreate(@ComputerName & " - " & @UserName, 350,300,(@DesktopWidth -350)/2,(@DesktopHeight - 300) /2,$WS_CAPTION)
;toolbar
$software = GUICtrlCreateButton("", 0, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\appwiz.cpl", "", 0)
GUICtrlSetTip(-1, "software")
$mmc = GUICtrlCreateButton("", 20, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\mmc.exe", "", 0)
GUICtrlSetTip(-1, "Computer Verwaltung")
$devMan = GUICtrlCreateButton("", 40, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\sysdm.cpl", "", 0)
GUICtrlSetTip(-1, "Gerätemanager")
$cmd = GUICtrlCreateButton("", 60, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\cmd.exe", "", 0)
GUICtrlSetTip(-1, "DOS-Eingabe")
$regedit = GUICtrlCreateButton("", 80, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @WindowsDir & "\regedit.exe", "", 0)
GUICtrlSetTip(-1, "Regedit")
$ServMan = GUICtrlCreateButton("", 100, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 165, 0)
GUICtrlSetTip(-1, "Dienste")
$ODBCMan = GUICtrlCreateButton("", 120, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\odbccp32.cpl", "", 0)
GUICtrlSetTip(-1, "ODBC")
$Netcon = GUICtrlCreateButton("", 140, 0, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 148, 0)
GUICtrlSetTip(-1, "Netzwerkverbindungen")
$exit = GUICtrlCreateButton("exit", 316, 0, 34, 20)
GUICtrlSetTip(-1, "beenden")
;tabs
$Tab1 = GUICtrlCreateTab(0, 20, 350, 280)
; lokal-tab
$TabSheet1 = GUICtrlCreateTabItem("login")
GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 104, 0)
GUICtrlCreateLabel("Password:", 16, 86, 53, 17)
GUICtrlCreateLabel("User:", 16, 55, 29, 17)
$usrlocal = GUICtrlCreateInput("administrator", 80, 55, 129, 21, -1, $WS_EX_CLIENTEDGE)
$pwdlocal = GUICtrlCreateInput("0T1L62", 80, 86, 129, 21, $ES_PASSWORD, $WS_EX_CLIENTEDGE)
$beAdmin = GUICtrlCreateButton("login", 215, 86, 75, 25)
GUICtrlCreateLabel("Prog:", 16, 130)
GUICtrlCreateLabel("IP-Adresse:", 16, 150)
GUICtrlCreateLabel("User:", 16, 170)
GUICtrlCreateLabel("OSVersion:", 16, 190)
GUICtrlCreateLabel("Computer:", 16, 210)
GUICtrlCreateLabel("LogonDomain:", 16, 230)
GUICtrlCreateLabel("LogonServer:", 16, 250)
GUICtrlCreateLabel("aRun 1.0", 100, 130, 150)
GUICtrlSetFont(-1, 9, 600)
GUICtrlCreateLabel(@IPAddress1, 100, 150, 150)
GUICtrlCreateLabel(@UserName, 100, 170, 170)
GUICtrlCreateLabel(@OSVersion, 100, 190, 190)
GUICtrlCreateLabel(@ComputerName, 100, 210, 150)
GUICtrlCreateLabel(@LogonDomain, 100, 230, 150)
GUICtrlCreateLabel(@LogonServer, 100, 250, 150)
;infotab
;$TabSheet = GUICtrlCreateTabItem("Info")
;GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 221, 0)
;sendmail
$TabSheet = GUICtrlCreateTabItem("Mail")
GUICtrlSetImage(-1, @ProgramFilesDir & "\Tobit InfoCenter\DVWIN32.EXE", 4, 0)
GUICtrlCreateLabel("Empfänger:", 16, 55, 53, 17)
GUICtrlCreateLabel("Betreff:", 16, 86, 53, 17)
GUICtrlCreateLabel("Inhalt:", 16, 117, 29, 17)
$mailto = GUICtrlCreateInput("", 80, 55, 250, 21, -1, $WS_EX_CLIENTEDGE)
$mailsub = GUICtrlCreateInput("", 80, 86, 250, 21, $WS_EX_CLIENTEDGE)
$mailbody = GUICtrlCreateEdit("", 80, 117, 250, 150, $WS_EX_CLIENTEDGE)
$mailsnd = GUICtrlCreateButton("senden", 250, 270, 75, 25)
$mailattch = GUICtrlCreateButton("...", 16, 135, 25, 17)
;netzwerk-tab
$TabSheet2 = GUICtrlCreateTabItem("Netzwerk")
GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 18, 0)
$label1 = GUICtrlCreateLabel("Share:", 16, 55, 50, 17)
$share = GUICtrlCreateInput("\\192.168.100.211", 55, 55, 140, 21, -1, $WS_EX_CLIENTEDGE)
$selectFolder = GUICtrlCreateButton("...", 195, 55, 27, 21)
$label2 = GUICtrlCreateLabel("Datei:", 16, 80, 50, 17)
$file = GUICtrlCreateInput("c:\CarrierFree.lnk", 55, 80, 140, 21, -1, $WS_EX_CLIENTEDGE)
$selectFile = GUICtrlCreateButton("...", 195, 80, 27, 21)
$logincredits = GUICtrlCreateCheckbox("Netzwerkuser", 80, 110, 100, 17)
GUICtrlCreateLabel("Password:", 16, 155, 53, 17)
GUICtrlCreateLabel("User:", 16, 130, 29, 17)
$usrnet = GUICtrlCreateInput("Administrator", 80, 130, 140, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetState($usrnet, $GUI_DISABLE)
$pwdnet = GUICtrlCreateInput("0T1L62", 80, 155, 140, 21, $ES_PASSWORD, $WS_EX_CLIENTEDGE)
GUICtrlSetState($pwdnet, $GUI_DISABLE)
$netlogin = GUICtrlCreateButton("login + map", 60, 180, 75, 25)
$mapDrive = GUICtrlCreateButton("run", 145, 180, 75, 25)
;prozess-tab
$TabSheet3 = GUICtrlCreateTabItem("Prozesse")
GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 12, 0)
$procs = GUICtrlCreateListView("pid|Anwendung", 16, 55, 300, 200, $LVS_REPORT, $LVS_EX_FULLROWSELECT)
$killproc = GUICtrlCreateButton("prozess beenden", 16, 260, 200, 25)
;share-tab
$TabSheet3 = GUICtrlCreateTabItem("shares")
GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", 85, 0)
$shares = GUICtrlCreateListView("device|path", 16, 55, 300, 200, $LVS_REPORT, $LVS_EX_FULLROWSELECT)
$unmap = GUICtrlCreateButton("Netzlaufwerk trennen", 16, 260, 200, 25)
;$unmapall = GUICtrlCreateButton("remove all shares", 16, 185, 200, 25)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
GUICtrlSetTip ( $file, GuiCtrlRead($file))
GUICtrlSetTip ( $share, GuiCtrlRead($share))
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $exit
ExitLoop
;SuiCide()
Case $msg = $netlogin
_mapShare()
Case $msg = $selectFolder
Case $msg = $unmap
_unMap()
Case $msg = $logincredits
If GUICtrlRead($logincredits) = 1 Then
GUICtrlSetState($usrnet, $GUI_ENABLE)
GUICtrlSetState($pwdnet, $GUI_ENABLE)
Else
GUICtrlSetState($usrnet, $GUI_DISABLE)
GUICtrlSetState($pwdnet, $GUI_DISABLE)
EndIf
Case Else
EndSelect
WEnd
Exit
Func _mapShare()
If GUICtrlRead($logincredits) = 1 Then
$success = DriveMapAdd("*", GUICtrlRead($share), 0, GUICtrlRead($usrnet), GUICtrlRead($pwdnet))
Else
$success = DriveMapAdd("*", GUICtrlRead($share), 0)
EndIf
If $success Then
MsgBox(64, "Connected", "Zugriff auf das Netzwerk erfolgreich!" & @CRLF & "Ressource wurde auf " & $success & " gemappt.")
GUICtrlCreateListViewItem($success & "|" & GUICtrlRead($share), $shares)
Else
MsgBox(16, "Es ist ein Fehler aufgetreten!", "Zugriff auf das Netzwerk war nicht erfolgreich!")
EndIf
EndFunc ;==>_mapShare
Func _unMap()
$drive = _GUICtrlListViewGetItemText ($shares, _GUICtrlListViewGetSelectedIndices ($shares), 0)
$cshare = _GUICtrlListViewGetItemText ($shares, _GUICtrlListViewGetSelectedIndices ($shares), 1)
If $drive <> "" Then
DriveMapDel($drive)
_GUICtrlListViewDeleteItem ($shares, $drive)
ElseIf $cshare <> "" Then
DriveMapDel($drive)
_GUICtrlListViewDeleteItem ($shares, $cshare)
EndIf
EndFunc ;==>_unMap
Func _getFolder(ByRef $input)
$sFolder = FileSelectFolder("Verzeichnis auswählen:", "", "", "::{208D2C60-3AEA-1069-A2D7-08002B30309D}")
If Not @error = 1 Or $sFolder <> "" Then
GUICtrlSetData($input, $sFolder)
EndIf
EndFunc ;==>_getFolder
wie die exe auf dem Rechner geht habe ich glaube geschnallt. den Rest muss ich noch begreiffen.
mfg
Thomas
hi,
jupp das wäre es.
Mfg Thomas
hi,
das Problem ist sicher nicht die Remoteverbindung sonder die Frauen die das ganze Thema bedienen sollen. Was passiert: die Verbindung wird benötigt, um CDR, Kundendaten, DTAG Rückmeldungen abzurufen. Da ich es alles Zentral Verwalten muss, ist es notwendig das Programm auf der W2k im Serverraum zu bringen. Nur dort kann die DFÜ Verbindung aufgebaut werden, die auch noch so heissen muss wie das installierte Programm, damit ich überhaupt auf den Gegenserver komme. Shön wäre es wenn nur eine exe gestartet wird, die die Verbindung startet. Den Rest macht das Programm eigenständig bis zur Trennung der Verbindung. Das Problem ist wie gesagt das starten jeniger übers Netzwerk.
MFG
ThomasB
Hallo und guten Abend,
en.
da mir schonmal geholfen wurde wollte fragen ob es die Möglichkeit gibt auf einem im Netzwerk befindlichen eine DFÜ Verbindung zu starten. Sicher werdemn jetzt einige sagen das ich diese Verbindung nur freigeben muss. Abder das geht leider nicht, da diese Verbindung nur auf diesen lokalen Rechner( W2K mit FileServer Funktion) gestartet werden kann.
Vielleicht hat ja wer nen Lösungsansatz.
MFg
Thomasb
Hi,
so es ist soweit das ich allen die sich meinem Problem angenommen haben recht herzlichen Dank sagen kann. :schild4: :stolz_bin:
Das Problem ist gelöst.
MFG
ThomasB
hi,
danke bugfix genauso habe ich es auch gelöst.
mfg Thomas