Beiträge von vivus

==> GELÖST !!! <==

hab dir hier mal n script von ner remote camera .. ( web cam über internet )

so ähnlich müste ja dann auch dein plan funktionieren ..

[autoit]

; http://www.autoitscript.com/forum/index.php?showtopic=29904

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

;CAMERA CONST
$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
;CAMERA CONST
#include <GUIConstants.au3>
#include <Inet.au3>
Global $refresh = 10 ;IN SECONDS
Global $session = 1
Global $listen
Global $sock
TCPStartup()
HotKeySet('{ESC}', 'OnAutoItExit')
Global $IP = InputBox( "IP Address", "Enter your IP address", @IPAddress1 )
If @error Then Exit
Global Const $PORT = 6969
Global $recv, $output
$listen = TCPListen($IP, $PORT, 100)
If $listen = -1 Then
mError('Unable to connect.')
Exit
EndIf
$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)
HotKeySet("{INSERT}", "SnapShot"); Press 'Insert' to make a SnapShot !
Run(@ComSpec & ' /c start http://' & $IP & ':' & $PORT, @ScriptDir, @SW_HIDE)
While 1
$sock = TCPAccept($listen)
$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
ElseIf $sock >= 0 Then
$recv = _SockRecv($sock)
SnapShot()
If StringInStr($recv, "GET") Then $recv = _StringBetween($recv, "GET /", " HTTP/1.1")
ConsoleWrite($recv)
If $recv <> "" Then
$file = FileOpen($snapfile, 0)
If $file <> - 1 Then
$output = FileRead($file)
EndIf
FileClose($file)
Else
$output = '<html><meta http-equiv="refresh" content="' & $refresh & '"><center><img src="scrshot.bmp"/><BR>Time Stamp ' & @HOUR & ':' & @MIN & ':' & @SEC & '<BR></center></html>'
EndIf
$send = _SockSend($sock, $output)
TCPCloseSocket($sock)
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 ;==>SnapShot
Func mError($sText, $iFatal = 0, $sTitle = 'Error', $iOpt = 0)
Local $ret = MsgBox(48 + 4096 + 262144 + $iOpt, $sTitle, $sText)
If $iFatal Then Exit
Return $ret
EndFunc ;==>mError
Func _SockRecv($iSocket, $iBytes = 2048)
Local $sData = ''
While $sData = ''
$sData = TCPRecv($iSocket, $iBytes)
WEnd
Return $sData
EndFunc ;==>_SockRecv
Func _SockSend($iSocket, $sData)
Return TCPSend($iSocket, $sData)
EndFunc ;==>_SockSend
Func OnAutoItExit()
TCPCloseSocket($sock)
TCPCloseSocket($listen)
TCPShutdown()
Exit
EndFunc ;==>OnAutoItExit
;==>_StringBetween
;-------------------------------------------------
Func _StringBetween($string, $begin, $end)
Local $_begin, $_end
$_begin = StringSplit($string, $begin, 1)
If Not @error Then
$_end = StringSplit($_begin[2], $end, 1)
If Not @error Then
Return ($_end[1])
EndIf
EndIf
EndFunc ;==>_StringBetween

[/autoit]

WMI ?! noch nie gehört ..

check this out ::

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

$return = _check()
ToolTip($return)

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

Func _check() ; 0 für nicht übereinstimmend ; 1 für übereinstimmend
$size_1 = WinGetPos("titel von fenster 1") ; hier name von fenster 1 eingeben
$size_2 = WinGetPos("titel von fenster 2"); hier name von fenster 2 eingeben

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

If $size_1[0] = $size_2[0] Then ; prüfen ob x pos gleich
If $size_1[1] = $size_2[1] Then Return "1" ; prüfen ob y pos gleich

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

EndIf
Return "0" ; pos nicht gleich

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

EndFunc ;==>_check

[/autoit]

ja versteh schon, was du meinst .. wäre sich für viele ein gefundenes fressen ..

geht nur darum, dass ich bei dem pc prüfen sollte, ob im bios die USB funktionen deaktiviert sind.

Weil ich ein Problem mit USB karten bekommen ( I/o's ) die da angeschlossen sind.

..

hätte ich gerne softwaretechnisch abgefragt ..

naja seis drum .. kommt halt n vermerk in die Install ..

.. macht man ja nur ein mal ..

danke !

schaaade !!

danke !!

HI @ all

habt ihr ne Ahnung, ob man mit AutoIT BIOS informationen auslesen, bzw ändern kann .. ?

danke !

gggrr .. was n des für n code ?!

sag doch gleich, dass du noch keinen ansatz hast , und jemand sucht, der die deinen code schreibt ..

also ::

zu : ;$timerAdd soll dem dll_Event_Code zugeordnet werden um spaeter damit den CountDown zu fuettern
Global $timerAdd1 = 240000

.. ich würde sagen das hört sich nach nem dllcall an .. guck dir mal die hilfe dazu an .. .. weil infos zu der dll kann dir da keiner helfen ..

---
zu : ; Start(); hier wurde start eingeleitet und ab jetzt sollen die events ausgewertet werden

?? hä ? inizialisierungsroutine ?! schrieb sie doch hin , wenn du sie schon hast ..

---
zu : ; While 1 * Sleep(1) ; wird benoetigt wenn Event ausgeloest wird, damit das skript weiter laeuft
WEnd

.. grrr ..

Probiers mal mit

while 1

sleep(50)

wend

...

sleep(1) lahmt dein system .. unglaublich ..

----

.. so und dann reden wir weiter ..

puuu da haste dir aber was hartes vorgenommen ..

also ... dein problem wird wohl sein, wie du das auf dem anderen PC empfängst ..

und wie "zeitgleich" das alles von statten gehen soll ..

schon mal drüber gedanken gemacht !?

echtzeit sprache .. umwandeln .. komprimieren ..

stemaen .. senden .. ==> empfangen auf fehler prüfen

gegebenenfalls erneut senden ..

entpacken .. abspielen ..

.. ppuuu ..

fang doch erst mal klein an ..

siehe mal in der hilfe ..

Rückgabewert
Erfolg: Gibt die Position der Unterzeichenfolge zurück.

probiers mal mit :

While 1
$name = FileFindNextFile("*.*")
$pos = StringInStr($Name, "tag")
If $pos > 0 Then
FileCopy(@ScriptDir & "\" & $name, @scriptdir & "\Alles mit Tag\" & $name,
EndIf
WEnd

DEVICE FAILED ENUMERATION .....

werd noch wahnsinnig ..

der vorteil von adlib ..

GANZ einfach .. .. es ist einfach zu nutzen ..

wenn man mal "schnell" eine "Anwendung" braucht ..

stell dir mal vor du willst ein script debuggen .. ohne großartig drin rum zu pfuschen ..

oder werte oder so überwachen ..

adlib dazu .. mit der sinnvollen func. und feeerddisch ..

.. aber die feine englische art ist es halt nicht ..

@ funkey

DANKE !!

der befehl funktioniert. Alle USB Geräte werden restartet.

ABER windooof bringt dann die Meldung " ein angeschlossenes Gerät funktioniert nicht richtig... bla bla ... " ( USB-Device geht immer noch nicht )

Ich Probier's mal weiter .. DANKE !

BugFix

vielen Dank für den Tip.

devcon ist aber brutal das harte stück Brot.

muss ich mich erst mal durchbeißen .. *g*

irgend wie klappen meine "restart" befehle nicht ..

irgend was mach ich wohl falsch .. .. wir werden sehen .-.

wer alternativen weis, keine scheu "" freu mich über jeden tip ..

ach und noch was .. lass die finger von adlib .. bisher immer nur probleme damit gehabt .-.

lass dein script mal laufen und guck im Windows Task-Manager, ob die Speicherauslasteung langsam aber stätig zu nimmt ......( sehr langsam )
( natürlich bei deinem Skript )

ich befürchte , dass du einen Stack-Overflow produzierst...

hab aber noch nicht gefunden, wo ...

..

bye

check this out !!

Spoiler anzeigen

Global $XYZ
HotKeySet("{F1}", "start")

;ganz viel Text

Global $me = ""
Global $Status = ""

While 1
While $XYZ
$me = MsgBox(4, "Funktion starten?", "Willst du?")

If $me = 6 Then ;ja

For $j = $Status To 1 Step -1

;unwichtig

Next
EndIf
WEnd

WEnd

Func start()
$XYZ = Not $XYZ

If $XYZ = True then ToolTip("läuft",0,0)

If $XYZ = False then ToolTip("",0,0)

EndFunc ;==>ABC

funktioniert nicht ..

installiert zwar die Geräte neu ....

aber funktioniert nicht ..

was hab ich denn da gelöscht ?! kleine erklärung vielleicht ?

danke !

Hi@all

Hab da n Problem, mit ein USB-Gerät.

Wenn ich dieses in den PC einstecke, bevor dieser hochgefahren ist,
wird dieses nicht erkannt.

d.h. mit der Software USB View wird mir angezeigt, ==> DEVICEFailedEnumeration

Gerät funktioniert halt nicht.

-----

Wenn ich es aber einstecke, wenn der PC schon hochgefahren ist, funktioniert es.

..

Hab mal in Google gesucht und erlesen, dass das wohl keine
Seltenheit ist.

Jetzt meine Frage, ist es irgend wie möglich mittels AutoIt
den USB -Device irgend wie neu zu laden ?!

Im Prinzip disconnecten , und dann wieder reconnecten ?

Hat da jemand ne Ahnung ?

Irgend n dllcall o. ä. ?

Oder n Zwangs RESET ?

freu mich auf eure Antworten. DANKE !

hört sich so an, als wäre deine Frage beantwortet ..

könntest du dann vielleicht den Post als gelöst markieren ?

DANKE !