Beiträge von vivus

warum dann n zweites script ..

.. wenn du sowieso jedes mal n namen eingeben must .. dan kannst du des doch gleich in einem script machen ...

ansonsten denk isch schon, dass du mit filewrite in eine *.au3 rein schrieben kannst ..

nur das mit dem compilieren .. wird glaube ich heikel ..

aber warum umgehst du dann nicht einfach das...

lager doch einfach die "namen's" variable aus ...

z.B. *.ini ..

das script kannst du ja dann schon fertig erstellt, als exe irgend wo hin legen ..

und mit script 1 nur noch in die *.ini den namen schreiben ..

dann mit run.. die *.exe ( dein zweites script) starten.. dieses läd sich .. den "NaMeN " auf der *.ini ..

und alles isch gut ...

???

oder ??

würde dir gerne helfen ..

aber willst du wirklich auf einer "alarmstelle" die "führung" einem AUTOIT-TOOL in die hand geben ?!

bist du dir da sicher ?! hängen da nicht menschen laben drann ?!

... müsste ja dann schon doppelt und dreifach gesichert werden ..

so tool überwacht tool .. alarmmeldung, wenn ..... bla bla ..

was kann ich den mit dem 7zip machen ?!

was willst du denn genau sorteiern ?! ..

habe ein Programm geschrieben, welches nach einem wert in der kompletten *.ini sucht .. also in jeder section .. in jedem key..

die vorkommenden stellen dann in einer anderen "log.ini" abspeichert ..

dann kannst du wiederrum diesen wert änder.. und ihn mit hilfe dieser log.ini in der "original.ini " auf einen anderen wert abändern ..

müst ich haber nochmal suchen .. wenn du's brauchen kannst .. meld dich noch mal ..

bye

sorry .. ich versteh die frage nicht ..

du willst ein script .. das was machen soll ?

und dann soll es ein zweites öffnen ?! und dich nach einem namen fragen =?!

und das zweite tut was ?!

warum dann 2 skripte ?

grund ```! ?

bye

Hi Hi

also das mikro auslesen geht mit sicherheit...

nur was für daten du daraus machst.. .. müste man sich mal anschauen ..

also es gibt def. programme , die diese arbeit für dich schon erledigen..

haben was mit automatischer lautstärke zu tun, für die leutle, die mit m rechner TV gucken.. und sich über die
immer lautere Werbung im verhältniss zum Film aufregen ..

hab da mal irgend wo was gefunden .. auto_volume_controlle .. irgend wie sowas ..

must's mal googl'n ..

aber wäre ja total interessant das mit auto it hin zu bekommen ..

..

denke aber auch, dass du dich da zwischen die soundkarte fplanzen musch..

hab auch mal sowas probiert, um die "windows" lautstärke softwaretechnisch zu erhöhen.. also über 100 % ...

hat aber irgend wie nicht geklappt *g*

also wenn du ansätze hast.. helf ich gerne mit ..

bye

du weist nicht rein zufällig, wie ich ein VIDEO drehen kann .. ( welches von einer WEBCAM aufgenommen wird ) ???

... hab da so kleine umsetzungsprobleme...

thx !! bye

hab hier n kleines skript, mit dem man ein bild in gui gedreht darstellen kann ..

aber mit dem live video von der webcam krieg ich das irgend wie nicht hin ... ????? !!!!

.. need assistence ... !!! PLEASE !!

wird in dem script jetzt das webcam bild mit dem desctop hintergrund verglichen ?!

oder wie soll ich das verstehen ...

thx

neuste version war drauf ...

Scite4Autoit hab ich jetzt dazu installiert .. jetzt geht's ?! ABER WARUM ?!

wozu brauch ich denn Scite4Autoit ?? hör ich jetzt das erste mal ...

THX !!

hy @ all

wollt mir das ganze hier mal anschaun, jetzt gibt's bei mir nirgend's die funktionen

_GDIPlus_MatrixTranslate ; _GDIPlus_ImageGetVerticalResolution($hImage) ; _GDIPlus_ImageGetHorizontalResolution($hImage)

alle anderen werden erkannt .. und auch somit nicht von auto it bemängelt ..

kann mit bitte einer die funktionen aus der GDIPlus.au3 posten ?!

hab in nem anderen beitrag gelesen, dass die bei der aktuellen auto it version halt fehlt.. ??

danke BYE !!

hi hi !!

also hab auch schon von anfang an immer versucht autoIT mit der WELT zu verbinden ..

angefangen von GP über LPT bis RS232 ..

jetz bin ich bei USB hängengeblieben ..

gibt von der firma vellemann ein USB EXPERIMENT INTERFACE BOARD

kann man komplett über dll call ansprechen ..

kostet im conrad.de versand nur 25€ als bausatz ..

hat 5 DI und 8 DO ... 2 AI und 2 AO

..

hab auch mal n udf im netz gefunden .. weis aber nicht mehr woher. war aber bei einem befehl mit fehlern behaftet ..

hier meine überarbeitete version

hier der link auf die herstellerhomepage http://www.velleman.be/ot/en/product/view/?id=351346

und die artikelnummer für conrad.de : Artikel-Nr.: 191003 - RT

funktioniert echt klasse ..

bis zu 4 dieser board's kann man gleichzeitig betreiben ..

die dll gibt's beim hersteller .. oder im lieferumfang, wenn man's im conrad kauft ...

beispielcode

viel spaß !!

bye

Hy @ all

hab da n problem, muss in einem gui ein webcam video ( live ) anzeigen, aber um 90 ° drehen.

bisheriges tool läuft super .. anbinden der webcam und einblenden des standbildes .. ( zum vergleichen)

nur das drehen klappt nicht, weis auch nicht wie ich das hin kriegen soll

hat jemand n tip ?

; credits -- http://www.autoitscript.com/forum/index.ph…opic=88917&st=0

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Array.au3>
#Include <Color.au3>

Opt("GUIOnEventMode",1)
Opt("PixelCoordMode",2)

;************************************************
; Variables
;************************************************

$mypic = "C:\Dokumente und Einstellungen\user\Desktop\refbild1.jpg"

;----- Open DLLs -----
$dAviCap32 = DllOpen("avicap32.dll")
$dUser32 = DllOpen("user32.dll")

;************************************************
; GUI
;************************************************

$height = @DesktopHeight - (@DesktopHeight/8)
$width = @DesktopWidth - (@DesktopWidth/8)

$GUI = GUICreate("",$width,$height) ; wide, hide
GUISetOnEvent($GUI_EVENT_CLOSE,"_Close")

;************************************************
; WebCam
;************************************************

$dWebCam = DllCall($dAviCap32,"int","capCreateCaptureWindow","str","cap","int", _
BitOR($WS_CHILD,$WS_VISIBLE),"int",($width/20),"int",($height/20),"int",($width/2)-(2*($width/20)),"int",(1.3*($width/2)-(2*($width/20))),"hwnd",$GUI,"int",1)

DllCall($dUser32,"int","SendMessage","hWnd",$dWebCam[0],"int",0x400 + 10,"int",0,"int",0)
DllCall($dUser32,"int","SendMessage","hWnd",$dWebCam[0],"int",0x400 + 50,"int",1,"int",0)
DllCall($dUser32,"int","SendMessage","hWnd",$dWebCam[0],"int",0x400 + 52,"int",1,"int",0)

;************************************************
; WebCam
;************************************************

GUICtrlCreatePic ($mypic, ($width/2)+($width/20), ($height/20),($width/2)-(2*($width/20)),(1.3*($width/2)-(2*($width/20))) ) ; 960 breit zu 1280 hoch sind 1,3 verhältniss

GUISetState(@SW_SHOW)
;################################################################
; LOOP
;################################################################
While 1
Sleep(100)
Wend
;################################################################
; END LOOP
;################################################################

Func _Close()
;************************************************
; Exit
;************************************************
DllCall($dUser32,"int","SendMessage","hWnd",$dWebCam[0],"int",0x400 + 181,"int",0,"int",0)
DllCall($dUser32,"int","SendMessage","hWnd",$dWebCam[0],"int",0x400 + 11,"int",0,"int",0)
DllClose($dUser32)
DllClose($dAviCap32)

Exit

EndFunc

DANKE !!

aach noch was, hat jemand irgend was zur ansteuerung einer WEB-CAM ?!

hab nur das

$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

gefunden ... und tu mir wahnsinnig schwer damit.

BYE

hab's geschafft ... mein ansatz hat nicht gestimmt !!

----------------

$p = DllStructCreate("dword 1;dword 2;dword 3;dword 4;dword 5;dword 6")

;think of this as p->dwOSVersionInfoSize = sizeof(OSVERSIONINFO)
DllStructSetData($p, "dwOSVersionInfoSize", DllStructGetSize($p))

;make the DllCall
$ret = DllCall("C:\WINDOWS\system32\K8047D.dll","short","ReadData","ptr",DllStructGetPtr($p))

;get the returned values
$1 = DllStructGetData($p,"1")
$2 = DllStructGetData($p,"2")
$3 = DllStructGetData($p,"3")
$4 = DllStructGetData($p,"4")
$5 = DllStructGetData($p,"5")
$6 = DllStructGetData($p,"6")

;free the struct
$p =0

MsgBox(0,"dllcall", "pos1 = " & $1 & @CRLF & _
"pos2 = " & $2 & @CRLF & _
"pos3 = " & $3 & @CRLF & _
"pos4 = " & $4 & @CRLF & _
"pos5 = " & $5 & @CRLF & _
"pos6 = " & $6)

------------------

GEIL !!

wen's interessiert .. beim Velleman Versandhandelt .. gibt es einen

USB logger .. mit 4 analog in .. 0-30 V

für nur 30€

den kann man jetzt mit der obigen Funktion auslesen .. via DLL

BYE !

Hy@ALL

Hab da n Problemchen.

Versuche ein Delphi Programm in Auto It umzusetzen.

und hab bei ein paar zeilchen gewisse probleme..

wenn mir jemand helfen könnte ?! Wäre echt SUPER !!

---------------------------------------------------------------------

hier ein Auszug aus der DLL Description ::

Syntax
PROCEDURE ReadData(Buffer: Pointer);

Parameter
Buffer: A pointer to the data array of 8 integers where the data will be read.

Description
Reads the timer counter status and the A/D data from the K8047 to a buffer in the application program.
The timer counter is incremented every 10ms. The new data from the A/D converter channels 1...4 is updated every time the timer counter is incremented.
Data structure:

Timer data A/D converter data Reserved
LSB MSB CH1 CH2 CH3 CH4 0 0

Example

var // global variables
DataBuffer: ARRAY[0..7] OF Integer;

procedure TForm1.Button1Click(Sender: TObject);
var p:pointer;
i:integer;
s:string;
begin
p:=@DataBuffer; // Address of the data buffer
ReadData(p); // Read the data from K8047
memo1.clear;
s:='';
for i:=0 to 7 do s:=s +inttostr(DataBuffer[i]+chr(9);
memo1.lines.add(s); // Display the data
end;

--------------------------------------------------------------------------------
--------------------------------------------------------------------------------

meine bisherige lösung ::

Dim $DataBuffer[8]

$result = DllCall("C:\WINDOWS\system32\K8047D.dll","char","StartDevice")
$result = DllCall("C:\WINDOWS\system32\K8047D.dll","char","LEDon")

While 1
sleep(200)
$point = InputBox("start","bitte pointer eingeben","0")
$DataBuffer[0] = DllCall("C:\WINDOWS\system32\K8047D.dll","char","ReadData","char",$point);,"int","0")
;DllCall(" dll","return type","function"[,"type1",param1[,"type n",param n]] )
MsgBox(4096,"",$point & " / " & $DataBuffer[0] & " / " & $DataBuffer[1] & " / " & $DataBuffer[2] & " / " & $DataBuffer[3] & " / " & $DataBuffer[4] & " / " & $DataBuffer[5] & " / " & $DataBuffer[6] & " / " & $DataBuffer[7])

WEnd

-----------------------------------------------------------------------

tut sich aber nix ... WARUM ?!

jemand ne idee ??

DANKE !

hy hy !!

schau dir mal des an ...

$MsComm1 = ObjCreate("MSCOMMLib.MsComm.1")												; überprüfung ob sich objekt com generieren lässt
if not IsObj($MsComm1) then																; wenn nicht dann 
MsgBox(0,"Fehler"," Kann datei : mscomm32.ocx : nicht im system finden. Installation läuft")
FileInstall("MSCOMM32.OCX", EnvGet("SystemRoot") & "\System32\MSCOMM32.OCX")			; installation der mscomm32.ocx
Run(@ComSpec & " /c C:\WINDOWS\SYSTEM32\REGSVR32.EXE C:\WINDOWS\SYSTEM32\MSCOMM32.OCX")	; ausführung
RegWrite("HKEY_CLASSES_ROOT\Licenses\DB4C0D00-400B-101B-A3C9-08002B2F49FB", "", "REG_SZ", "mgkgtgnnmnmninigthkgogggvmkhinjggnvm")	; registration
RegWrite("HKEY_CLASSES_ROOT\Licenses\7BC20EDC-4A42-101B-A3C9-08002B2F49FB", "", "REG_SZ", "gifblihbhiiihbciocfbkifbqcfcdiebbiqh")	; registration
$MsComm1 = ObjCreate("MSCOMMLib.MsComm.1")												; erneute überprüfung ob sich objekt com generieren lässt
endif

bye

DANKE !!

Hat mir sehr weitergeholfen

INFO ::

$varges = InputBox("test","Bitte TEXT eingeben.")

MsgBox(4096,"INFO","eingegebener TEXT ist "&$varges)

$var1 = StringSplit($varges,"")

MsgBox(0,"","string ist "&$var1[0]&" zeichen lang")
MsgBox(0,"","Zeichen 1 = "&$var1[1])
MsgBox(0,"","Zeichen 2 = "&$var1[2])
MsgBox(0,"","Zeichen 3 = "&$var1[3])
MsgBox(0,"","Zeichen 4 = "&$var1[4])
MsgBox(0,"","Zeichen 5 = "&$var1[5])
MsgBox(0,"","Zeichen 6 = "&$var1[6])
MsgBox(0,"","Zeichen 7 = "&$var1[7])
MsgBox(0,"","Zeichen 8 = "&$var1[8])
MsgBox(0,"","Zeichen 9 = "&$var1[9])
MsgBox(0,"","Zeichen 10 = "&$var1[10])
MsgBox(0,"","Zeichen 11 = "&$var1[11])

Hi @ all

Ich hab da mal eine Frage:

Wie kann ich Variablen aufteilen ?

z.B.

$Varges = 1030-337-123

wird dann aufgeteilt in

$Var1 = 1030

$var2 = -

$var3 = 337

$var4 = -

$var5= 123

kann mir jemand weiterhelfen ? oder einen kleinen Tip geben unter was man da suchen kann ?!

Finde weder in der autoIT Hilfe noch auf den HP was ...

Vielen DANKT schon mal im voraus

VIVUS

so besser ?!

OK ...

gut zu wissen..

ABER ??!!

Wie schreibe ich des dann richtig ?!

While schleife ok ....

aber wie kann ich springen ?

und warum darf man aus einem unterprogramm nicht das unterprogramm aufrufen ?!

ging doch früher mit goto auch?...