Beiträge von Eddy_Erpel

Hallo,
wieso hast Du denn keine Rechte in HKCU (Dort solltest Du eigentlich Schreibrechte haben)??? Ich benutze die 3.1.1.126 Beta. Komischerweise findet die Beta das Includeverzeichnis, sobald man den Pfad unter au3.properties anpasst, nur die Prod. macht es etwas schwieriger.
Ich habe nur einmal die Installation vollzogen, alles auf meinen USB-Stick kopiert und bis jetzt läft es an jedem anderen PC ohne Installation.
Tritt bei Dir das Problem bei der Beta wie auch bei der Prod. auf?
eddy_erpel

Hallo

Ich habe das Problem finden können. Da ich eigentlich immer nur die Beta benutze habe ich dieses Problem noch nicht festgestellt, denn die Beta findet das Include-Verzeichnis. Zu laufen bekommst du das indem Du, wie Bernd bereits gepostet hat, den Include-Pfad festlegst:

$handle=FileOpen(@ScriptDir & "\SciTE\au3.properties",0)
$oriFile=FileRead($handle)
$autoitPfad=FileReadLine($handle,7)
FileClose($handle)
$handle=FileOpen(@ScriptDir & "\SciTE\au3.properties",2)
$write=StringReplace($oriFile,$autoitPfad,"autoit3dir=" & @ScriptDir)
FileWrite($handle,$write)
RegWrite("HKEY_CURRENT_USER\SOFTWARE\AutoIt v3\AutoIt", "Include", "REG_SZ", StringTrimLeft($autoitPfad,11) & "\Include")
Run(@ScriptDir & "\SciTE\SciTE.exe")

Dann läuft auch die Prod-Version.
eddy_erpel

Hallo,
hier einmal mein Vorgehen für mein Mobiles-AutoIT.
- Autoit (Stable & Beta) installieren
- SciTE installieren
Das Verzeichnis C:\Programme\Autoit3 auf den USB-Stick kopieren.
Dann folgendes Script

$handle=FileOpen(@ScriptDir & "\SciTE\au3.properties",0)
$test=FileRead($handle)
$test2=FileReadLine($handle,7)
FileClose($handle)
$handle=FileOpen(@ScriptDir & "\SciTE\au3.properties",2)
$write=StringReplace($test,$test2,"autoit3dir=" & @ScriptDir)
FileWrite($handle,$write)
Run(@ScriptDir & "\SciTE\SciTE.exe")

in das Autoit3-Verzeichnis auf dem USB-Stick kompilieren. Dann wird bei jedem Start das Verzeichnis angepasst und anschliessend SciTE aufgerufen. Dies habe ich schon längere Zeit so im Einsatz und soweit ohne Probleme.

@Snake poste doch einmal Dein Vorgehen, dann finden wir vielleicht den Fehler schneller.
eddy_erpel

Hallo,
ich habe das mal etwas erweitert:

;Suchwort wird definiert
$word="FEHLER"


;zu durchsuchende Datei auswaehlen    
$file = FileOpen("test.txt", 0)




;ueberpruefung
If $file = -1 Then
   MsgBox(0, "Error", "Datei konnte nicht gefunden werden oder ist Fehlerhaft!")
       Exit
   EndIf


;Liest Zeile fuer Zeile
$i=0
While 1
$i+=1
	$line = FileReadLine($file)
   If @error = -1 Then ExitLoop
if StringInStr(" "&$line,$word)>0 Then _sendmail("Fehler in Zeile " & $i, $line)
Wend
FileClose($file)




Func _sendmail($subject,$text)
dim $sData[8]
$sData[0]="HELO" & @CRLF
$sData[1]="MAIL FROM:from@domain.com" & @CRLF
$sData[2]="RCPT TO:to@domain.com"& @CRLF
$sData[3]="DATA" & @CRLF
$sData[4]="SUBJECT: " & $subject & @CRLF
$sData[5]=@CRLF
$sData[6]=$text & @CRLF
$sData[7]="." & @CRLF
TCPStartup()
$socket=TCPConnect("xxx.xxx.xxx.xxx","25")
ConsoleWrite($socket)


	for $i=0 to UBound($sData)-1
		TCPSend($socket,$sData[$i])
		ConsoleWrite($sData[$i])
		Sleep(100)
	Next
EndFunc

eddy_erpel

Hallo,
so direkt kenne ich gerade keine Möglichkeit. So sollte es gehen:

$Skriptname=StringTrimRight(@ScriptName,4)

eddy_erpel

Hallo,
in der au3.properties kannst du unter "autoit3dir" den Autoit-Pfad festlegen.
Der IncludePfad ist dann automatisch autoit3dir\Include, bzw. autoit3dir\beta\include.
eddy_erpel

Hallo,
bin eigentlich per Zufall vor etwa einem Jahr auf AutoIT gestossen, da ich auf der Suche nach div Scriptings war. AutoIT hat mich bis heute begeistert, da die Files überall laufen und so bestens geeignet sind für alle möglichen Sachen. Zudem ist es einfach zu erlernen & macht Spass.
eddy_erpel

Hi,
ja, jetzt sieht es gut aus. Irgendwo scheint er sich verschluckt zu haben. Nobody's perfect, nicht einmal der Computer. [Blockierte Grafik: http://autoit.aufwaerts.de/images/icons/icon5.gif]
eddy_erpel

Hi,
seltsam. Bei mir läuft da gar nichts wenn ich nicht nach dem "\" Suche in StringInStr, da bei mir dann immer $sDir="" raus kommt, was ja auch richtig wäre.

eddy_erpel

@th.merger
Danke, genau das habe ich gesucht.[Blockierte Grafik: http://autoit.aufwaerts.de/images/smilies/party_55.gif]
Zeile 64 müsste aber so lauten:

$sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1)))

eddy_erpel

Hallo,

hat jemand eine Idee, wie man die Dateiinfos einer Datei auslesen kann (Titel/Betreff/Autor....) ???

eddy_erpel

Hallo,
dies liegt an der Installationsreihenfolge. Du hast die Beta erst nach dem SciTE installiert. Deshalb einfach SciTE nochmals darüber installieren und es läuft.
eddy_erpel

Hallo,
wenn Du es nur von einem einzigen Punkt wissen willst:

while 1
     if PixelGetColor(x,y)="13947080" then ExitLoop     ;Pixelfarbe in Dezimal
Wend

eddy_erpel

Hallo
cooles Script, aber ein kleiner Fehler ist da noch drin. Denn es funktioniert nur, wenn der Text vom 1. Zeichen an markiert ist. So geht es auch wenn irgendwas aus der Mitte markiert wird:

$EM_GETSEL = 0x00B0
Dim $selected


#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("AForm1", 274, 73, 192, 125)
$Input1 = GUICtrlCreateInput("AInput1", 24, 18, 121, 21)
$Input2 = GUICtrlCreateInput("AInput2", 24, 45, 121, 21)
$Button1 = GUICtrlCreateButton("AButton1", 159, 15, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
	$msg = GuiGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
		Case $msg = $Button1
			_getSelection()
		Case Else
		;;;;;;;
	EndSelect
WEnd
Exit


Func _getSelection()
	$selected = GUICtrlRecvMsg($input1,$EM_GETSEL,0,"")
	if $selected<>0 Then
		if $selected[0]-$selected[1]<>0 Then
			ConsoleWrite($selected[0]&" / "&$selected[1]&@cr)
			$input1_inhalt = guictrlRead($input1)
			GuiCtrlsetData($input2,StringMid($input1_inhalt,$selected[0]+1,$selected[1]-$selected[0]))
		Else
			GuiCtrlsetData($input2,"Error: Nichts markiert")
		EndIf
	Else
		GuiCtrlsetData($input2,"Error: Nichts markiert")
	EndIf
EndFunc

eddy_erpel

Hi,
Es bietet beinahe jeder Codec eine unkomprimierte Ausgabe an.
Probier's doch einmal mit dem "Microsoft RLE Codec", anstelle deines RGB-Bitmap-RAW. Mit diesem ist auch das "Clock.avi" erstellt worden.
eddy_erpel

Hallo,

ich denke das AutoIt mit dem von Dir verwendeten Codec nicht klar kommt. Schau Dir einmal das an:

$ani1 = GUICtrlCreateAvi(@WindowsDir &"\clock.avi",-1, -1,-1)

eddy_erpel

Hallo,

Am einfachsten ist es über die Zugriffsrechte der NTFS-Partition (ACL) zu lösen. Da muss aber beachtet werden, dass ein Administrator immer die Zugriffsrechte wieder erlangen kann. Falls also andere Benutzer auf diesem PC auch Admins sind, fällt diese Lösung ins Wasser. In diesem Fall würde ich Dir ein weiteres Tool empfehlen: http://www.truecrypt.org. Dies erzeugt ein Container-File welches Du dann zu Laufzeiten als neues Laufwerk mounten kannst. Dies kann auch via AutoIt bedient werden.

eddy_erpel

Hallo,

mit der Funktion OnAutoItExit sollte es gehen (Beta-Version notwendig)

eddy_erpel

Hallo,
das wäre vielleicht eine weitere Möglichkeit:

AdlibEnable("myadlib")
SplashTextOn("lol","und?",200,100,10,10)
WinActivate("lol")
While 1
    Sleep(500) 
WEnd

Func myadlib()
    If WinActive("lol","und?") Then
	TrayTip("test","jaaaaa",5)
	;SplashTextOn("test","jaaaaaa",200,100,10,10)
	;Sleep(1000)
	SplashOff()
    EndIf
EndFunc

eddy_erpel

Hallo,
haste ja recht. Habe es nochmals getestet und jetzt läuft es. Hmmmmmmmm....
Da lag der Fehler wohl auf meiner Seite, sorry. Wenn ich mir den Code heute auschaue, muss ich sagen dass alles in Ordnung ist und weiss auch nicht wie ich auf diese Idee kam.

eddy_erpel