Beiträge von AsiX-5

"Meiner Meinung nach bist du lernresistent oder du weißt nicht, was du überhaupt in deinem Script machst"
Musst ja nicht gleich Ausfällig werden.
Ja das Script habe ich nicht ganz alleine gemacht, Stimmt aber mir gehts ja auch nicht um Die GUI's, wil ja auch garnichts Vorgekaut bekommen, sondern einfach nur Wege, wie ich diese zusammen bekomme.

[autoit]

#RequireAdmin
#include <FTPEx.au3>
#include <Array.au3>
#include <misc.au3>

[/autoit][autoit][/autoit][autoit]

Global $sPassword = "***"
Global $sUser = "***"
Global $sServer = "***"
Global $spath = "C:\arbeitsprojekt.doc"
Global $sOrdner = "/"
Global $sFilename = "arbeitsprojekt.doc"

[/autoit][autoit][/autoit][autoit]

While 1
Sleep (60000)
$hOpen = _FTP_Open("Autoit")
$hConnect = _FTP_Connect($hOpen, $sServer, $sUser, $sPassword, 1)
_FTP_ProgressUpload($hConnect, $sPath, $sOrdner&$sFilename, "_Update_Progress")
_FTP_Close($hOpen)
_FTP_Close($hConnect)
Sleep(1000)
WEnd

[/autoit]

so habe es jetzt so. also muss sagen, bei mir funktioniert es(jetzt) ok hattet recht. hatt wwwabrbeitsmappe.doc ausgegeben :-S
auch mit fehlerhafter GUICtrlCreateProgress und ein GUICtrlCreateLabel was "Raupi" schrieb

Zitat von peethebee

[autoit]

AdlibRegister

[/autoit]

heißt die Funktion inzwischen, weil mehrere registriert werden können.

Ja Das weiß ich, nur komme ich leider nicht mit der zurecht. und "Ja" ich habe auch die Google-Funktion und die Hilfe zu Rate gezogen.
nur weiß ich leider nicht, wie ich Die Adlibregister in meinen beiden Fällen zum Einsatz bringen kann

so also Die beiden sind es nun (im Anhang)
soweit überarbeitet, bei mir laufen sie, wie gesagt, getrennt voneinander gut, quasi so wie sie sollen, nur susammen bekomme ich sie nicht.
und wenn ich mich an Adlib versuche bekomme ich Promt:

AdlibEnable ("_Test", 2000)
^ ERROR

Mir anscheinend zu hoch -.-

PS: das mit dem Stick rausziehen und beenden hab ich erstmal so gelassen, weil es, wenn es alleine läuft Funktioniert!

Hallo, ok ich weiß das multitasking, bzw multithriting nicht ganz einfach ist, deswegen hoffe ich, ihr könnt mir Helfen eine andere Lösung zu finden, bzw habt Ideen für mein Problem.

ich möchte eine schleife laufen lassen, die in besimmten abständen eine von mir per Hand Aktualisierte Datei an meinen Server schickt.
gleichzeitig möche ich aber eine überwachung meines USB-Ports, da soll er meine arbeits-fortschrits-Dateien Automatisch darauf speichern wenn dieser eingesteckt wird.
Beide anwendungen funktionieren ,unabhänging von einander(d.h. in 2 Skripten) einwandfrei
nun mein problem, ich möchte sie in einem Skript, bzw später .exe vereinen
Wie bekomm ich beide anwendungen zusammen ohne das eine von beiden Pausiert?
habe viele Theorien gehört mit Adliebregister, UDF's und TimerInit, aber nichts hat mich zu meinem Erfolg gebracht.

[autoit]

;upload der Datei auf den Server
#RequireAdmin
#include <FTPEx.au3>
#include <Array.au3>
#include <misc.au3>

[/autoit][autoit][/autoit][autoit]

While 1
Sleep (3600000);jede stunde die Datei zum Server schicken
Global $sPassword = "********"
Global $sUser = "***************"
Global $sServer = "***************"
Global $spath = "@Desktopdir & "arbeitsprojekt.doc"
Global $sOrdner = "/www"
Global $sFilename = "arbeitsprojekt.doc"

[/autoit][autoit][/autoit][autoit]

$hProgress = GUICtrlCreateProgress(8, 32, 297, 25)
$hLabel = GUICtrlCreateLabel("", 91, 70, 200, 25)
$hOpen = _FTP_Open("Autoit")
$hConnect = _FTP_Connect($hOpen, $sServer, $sUser, $sPassword, 1)

[/autoit][autoit][/autoit][autoit]

_FTP_ProgressUpload($hConnect, $sPath, $sOrdner&$sFilename, "_Update_Progress")

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

_FTP_Close($hOpen)
_FTP_Close($hConnect)
Sleep(1000)
WEnd
Func _Update_Progress($iProzent)
GUICtrlSetData($hProgress, $iProzent)
GUICtrlSetData($hLabel, "Hochladen bei " & $iProzent & "% (Abbruch mit F8)")
If _IsPressed("77") Then Return 0
Return 1
EndFunc
;=========================================================
;======================Das 2te Skript=====================
;=========================================================
;Usbüberwachung und datei schreiben wärend der oberen Schleife
#RequireAdmin
Global $strComputer = "."
Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")

[/autoit][autoit][/autoit][autoit]

$colEvents = $objWMIService.ExecNotificationQuery _
("Select * From __InstanceOperationEvent Within 5 Where " _
& "TargetInstance isa 'Win32_LogicalDisk'")

[/autoit][autoit][/autoit][autoit]

While 1
$objEvent = $colEvents.NextEvent
If $objEvent.TargetInstance.DriveType = 2 Then
Select
Case $objEvent.Path_.Class()="__InstanceCreationEvent"
filecopy(@Desktop & "arbeitshilfe.jpg", $objEvent.TargetInstance.DeviceId,1)
Case $objEvent.Path_.Class()="__InstanceDeletionEvent"
msgbox(0,"abgeschlossen","USB-Stick wurde entfernt")
ExitLoop
EndSelect
EndIf
WEnd

[/autoit]

ok danke, wird gemacht

Zitat von stayawayknight

Soweit ich weiß geht das nicht. Das Script wird, soweit ich weiß, angehalten, der Adlibteil wird ausgeführt und dann wird das Script an der alten Stelle fortgeführt.

Genau da liegt mein Problem ich kenn mich mit Adlib- nicht wirklich aus, und die hilfe die ich dazu finden kann macht mich auch nicht schlauer.
hab mal gehört das geht auch mit GUI's, womit ich mich auch net so auskenne, also ihr set, ich bin Blutiger anfänger, der viel erreichen will

ok hallo, ok ich weiß das multitasking, bzw multithriting nicht ganz einfach ist, deswegen hoffe ich, ihr habt eine lösung bzw idee für mein problem.

ich möchte eine while schleife laufen lassen, die in besimmten abständen eine von mir per Hand Aktualisierte Datei an meinen Server schickt.
gleichzeitig möche ich aber eine überwachung meines USB-Ports, da soll er meine arbeits-fortschrits-Dateien speichern wenn dieser eingesteckt wird.
nun mein problem, wie bekomm ich beide anwendungen in ein script?

[autoit]

;upload auf server
#RequireAdmin
#include <FTPEx.au3>
#include <Array.au3>
#include <misc.au3>

[/autoit][autoit][/autoit][autoit]

While 1
Sleep (3600000);jede stunde
Global $sPassword = "********"
Global $sUser = "***************"
Global $sServer = "***************"
Global $spath = "@Desktopdir & "arbeitsprojekt.doc"
Global $sOrdner = "/www"
Global $sFilename = "arbeitsprojekt.doc"

[/autoit][autoit][/autoit][autoit]

$hProgress = GUICtrlCreateProgress(8, 32, 297, 25)
$hLabel = GUICtrlCreateLabel("", 91, 70, 200, 25)
$hOpen = _FTP_Open("Autoit")
$hConnect = _FTP_Connect($hOpen, $sServer, $sUser, $sPassword, 1)

[/autoit][autoit][/autoit][autoit]

_FTP_ProgressUpload($hConnect, $sPath, $sOrdner&$sFilename, "_Update_Progress")

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

_FTP_Close($hOpen)
_FTP_Close($hConnect)
Sleep(1000)
WEnd
Func _Update_Progress($iProzent)
GUICtrlSetData($hProgress, $iProzent)
GUICtrlSetData($hLabel, "Hochladen bei " & $iProzent & "% (Abbruch mit F8)")
If _IsPressed("77") Then Return 0
Return 1
EndFunc
;=========================================================
;=========================================================
;Usbüberwachung und datei schreiben wärend der oberen While schleife
#RequireAdmin
Global $strComputer = "."
Global $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")

[/autoit][autoit][/autoit][autoit]

$colEvents = $objWMIService.ExecNotificationQuery _
("Select * From __InstanceOperationEvent Within 5 Where " _
& "TargetInstance isa 'Win32_LogicalDisk'")

[/autoit][autoit][/autoit][autoit]

While 1
$objEvent = $colEvents.NextEvent
If $objEvent.TargetInstance.DriveType = 2 Then
Select
Case $objEvent.Path_.Class()="__InstanceCreationEvent"
filecopy(@Desktop & "arbeitshilfe.jpg", $objEvent.TargetInstance.DeviceId,1)
Case $objEvent.Path_.Class()="__InstanceDeletionEvent"
msgbox(0,"abgeschlossen","USB-Stick wurde entfernt")
ExitLoop
EndSelect
EndIf
WEnd

[/autoit]