Beiträge von Fliwatt

Fliwatt

Zitat von GtaSpider

Hey,

Viel simpler, das mit dem tilde ist ein sogennanter short name oder short path, das Komplement dazu ist dem entsprechend ein long name und da gibts sogar ne Funktion in AutoIt für: (Hätte dir aber bestimmt auch google verraten )
[autoit]
FileGetLongName("C:\PROGRA~2\DIGITA~1\SIEGEO~1")
[/autoit]
Gruß,
Spider

Vielen,vielen Dank,
klappt perfekt
Fliwatt

Fliwatt

Zitat von Blubkuh

so?

Spoiler anzeigen

[autoit]
$pfad= "C:\test~"
$pfad2 = StringReplace($pfad,"~","")
MsgBox(0,"",$pfad2)
[/autoit]

Edit: Ich glaub ich versteh jetzt was du meinst.
Werden Die Pfadnamen durch ~ ersetzt und du möchtest aber den kompletten Pfad auslesen?
also z.B.: "c:\progra~1\" hast du aber du brauchst: "c:\program files\"?

Da muss ich auch mal 5 Minuten drüber nachdenken

Ja genau, ich hab hier mal nen Beispielpfad:
C:\PROGRA~2\DIGITA~1\SIEGEO~1
Und der Richtige Pfad dazu wäre:
C:\Program Files (x86)\Digital Tome\Siege Of Avalon

Ich hab schon versucht das mit _PathFull zu machen und hab auch schon versucht das in einer .bat zu öffnen und dann das %cd% auszulesen,
das blöde ist, dass der auch das Tilde dann mit reinpackt
Fliwatt

Fliwatt

Hallo,
ich hab in letzter Zeit Probleme damit, einen Pfad der aus der Registry gelesen wurde in AutoIt zu benutzen, das Problem ist, dass der Pfad das ~(Tilde) Zeichen enthält und in der Form so nicht in meinem Programm läuft.
Ich hab schon lange gegoogelt, hab aber keine gute Möglichkeit gefunden den Pfad zu expandieren.
Hat hier jemand ne Idee, wie man das machen könnte?
Fliwatt

Fliwatt

Haha, genau das selbe hat unser Mathelehrer am Freitag in GeoGebra konstruiert.

Fliwatt

Schnitzel,
Danke, ich nehme erstmal nur deine Version und baue die andere Variante von Oscar erstmal nicht mit ein.
Die Nummerierungsmethode bleibt jetzt erstmal so, wir haben schon die "Bots" für das System programmiert,
wenn ich das noch mal ändern würde dann wäre das zu viel Programmierarbeit.

Problem gelöst,
vielen Dank an alle Helfenden

Fliwatt

Fliwatt

Das Problem ist, dass ich auch noch das Kästchen brauche, denn wie will man zum Beispiel mit Floor diese Linie (im Anhang) bestimmen?
Wie soll ich das machen ohne die Kästchen Angabe?

Fliwatt

Hallo Leute,
ich denke schon seit langem über ein Problem nach, komme aber nicht auf die Lösung.
Ich habe ein 10x10 Raster und will darin erkennen, welche Linien angeklickt wurden, dabei
sollte das Programm jedoch nicht allzu penibel sein, d.h. ein bischen Toleranz beim Linienanklicken muss drin sein,
sonst ist es nicht sonderlich benutzerfreundlich.
Ich habe mir für das Raster eine Nummerierung ausgedacht:
Die Kästchen sind von 0 beginnend durchnummeriert:
0 1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18 19
etc,

Damit man unterscheiden kann, welche Linie gedrückt wurde gibt es sogenannte "Orientierungszahlen". Diese sind im Uhrzeigersinn nummeriert dh. 0 = obere Linie im Kästchen 1 = rechte Linie im Kästchen 2 = untere Linie im Kästchen und 3 = linke Linie im Kästchen. Das Problem bei dieser Variante ist jedoch, dass die Felder doppelt belegt sind zb. Kästchen 0 Orientierung 1 ist das selbe wie Kästchen 1 Orientierung 2.
Das lässt sich jedoch mit ein bischen rechnen ausgleichen.
Mein Problem ist jetzt jedoch, das ich erkennen will welche Linie geklickt wurde, ich habe schon einmal so angefangen:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Array.au3>
#include <Misc.au3>
$iButtonMainMenuFontSize = 20
$iButtonTransparency = 250
$hEditGameMainGui = GUICreate("Käsekästchen",420,510,-1,-1,$WS_POPUP)
;$hEditGameBackground = GUICtrlCreatePic($oBackgroundImage,0,0,420,510)
$hEditGameTransparentBackgroundGuiSaveuAbortButtonGUI = GUICreate("",420,99,0,415,$WS_POPUP,$WS_EX_MDICHILD,$hEditGameMainGui)
WinSetTrans($hEditGameTransparentBackgroundGuiSaveuAbortButtonGUI,"",$iButtonTransparency)
$hEditGameSaveButton = GUICtrlCreateButton("Speichern",0,0,420,49)
GUICtrlSetFont(-1,$iButtonMainMenuFontSize,400,2)
$hEditGameAbortButton = GUICtrlCreateButton("Abbrechen",0,50,420,49)
GUICtrlSetFont(-1,$iButtonMainMenuFontSize,400,2)
Global $pi_ziel = @TempDir & '\picasso.ini'
_GDIPlus_Startup()
Global $pi_iWidth = 401, $pi_iHeight = 401
$pi_hGUI = GUICreate("",$pi_iWidth, $pi_iHeight,10,5,$WS_POPUP,$WS_EX_MDICHILD,$hEditGameMainGui)
$pi_hGraphic = _GDIPlus_GraphicsCreateFromHWND($pi_hGUI)
Global $pi_hBrush = _GDIPlus_BrushCreateSolid(0xFFFF0000)
WinSetTrans($pi_hGUI,"",200)
GUISetState(@SW_SHOW,$hEditGameMainGui)
GUISetState(@SW_SHOW,$hEditGameTransparentBackgroundGuiSaveuAbortButtonGUI)
GUISetState(@SW_SHOW,$pi_hGUI)
pi_Plan($pi_hGraphic)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_PRIMARYDOWN
$aEditGameCoursorInfo = GUIGetCursorInfo($pi_hGUI)
ConsoleWrite($aEditGameCoursorInfo[0] & @CRLF & $aEditGameCoursorInfo[1] & @CRLF)
Local $iLinieNummer = ''
Local $iSpalteNummer = ''
Local $iKaestchenNummer = ''
Select
Case $aEditGameCoursorInfo[1] > 1 and $aEditGameCoursorInfo[1] < 10
$iLinieNummer = '0'
Case $aEditGameCoursorInfo[1] > 36 and $aEditGameCoursorInfo[1] < 44
$iLinieNummer = 1
Case $aEditGameCoursorInfo[1] > 73 and $aEditGameCoursorInfo[1] < 85
$iLinieNummer = 2
Case $aEditGameCoursorInfo[1] > 113 and $aEditGameCoursorInfo[1] < 125
$iLinieNummer = 3
Case $aEditGameCoursorInfo[1] > 151 and $aEditGameCoursorInfo[1] < 163
$iLinieNummer = 4
Case $aEditGameCoursorInfo[1] > 193 and $aEditGameCoursorInfo[1] < 205
$iLinieNummer = 5
Case $aEditGameCoursorInfo[1] > 232 and $aEditGameCoursorInfo[1] < 244
$iLinieNummer = 6
Case $aEditGameCoursorInfo[1] > 274 and $aEditGameCoursorInfo[1] < 285
$iLinieNummer = 7
Case $aEditGameCoursorInfo[1] > 313 and $aEditGameCoursorInfo[1] < 326
$iLinieNummer = 8
Case $aEditGameCoursorInfo[1] > 353 and $aEditGameCoursorInfo[1] < 362
$iLinieNummer = 9
Case $aEditGameCoursorInfo[1] > 393 and $aEditGameCoursorInfo[1] < 401
$iLinieNummer = 10
EndSelect
ConsoleWrite($iLinieNummer & @CRLF)
Select
Case $aEditGameCoursorInfo[0] > 1 and $aEditGameCoursorInfo[0] < 7
$iSpalteNummer = '0'
Case $aEditGameCoursorInfo[0] > 37 and $aEditGameCoursorInfo[0] < 44
$iSpalteNummer = 1
Case $aEditGameCoursorInfo[0] > 76 and $aEditGameCoursorInfo[0] < 85
$iSpalteNummer = 2
Case $aEditGameCoursorInfo[0] > 118 and $aEditGameCoursorInfo[0] < 125
$iSpalteNummer = 3
Case $aEditGameCoursorInfo[0] > 158 and $aEditGameCoursorInfo[0] < 165
$iSpalteNummer = 4
Case $aEditGameCoursorInfo[0] > 198 and $aEditGameCoursorInfo[0] < 205
$iSpalteNummer = 5
Case $aEditGameCoursorInfo[0] > 235 and $aEditGameCoursorInfo[0] < 244
$iSpalteNummer = 6
Case $aEditGameCoursorInfo[0] > 277 and $aEditGameCoursorInfo[0] < 284
$iSpalteNummer = 7
Case $aEditGameCoursorInfo[0] > 313 and $aEditGameCoursorInfo[0] < 328
$iSpalteNummer = 8
Case $aEditGameCoursorInfo[0] > 355 and $aEditGameCoursorInfo[0] < 367
$iSpalteNummer = 9
Case $aEditGameCoursorInfo[0] > 391 and $aEditGameCoursorInfo[0] < 401
$iSpalteNummer = 10
EndSelect
ConsoleWrite($iSpalteNummer & @CRLF)

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

Case $GUI_EVENT_ClOSE
Close()
Case $hEditGameAbortButton
Exit
EndSwitch
WEnd
Func pi_Plan($pi_hWindowHandle)
For $pi_u = 0 To 390 Step 40
_GDIPlus_GraphicsdrawRect($pi_hWindowHandle,$pi_u,0,40,400)
Next
For $pi_a = 0 To 390 Step 40
_GDIPlus_GraphicsdrawRect($pi_hWindowHandle,0,$pi_a,400,40)
Next
EndFunc

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

Func pi_DrawLine($pi_iField,$pi_iDirection,$pi_hWindowHandle)
Local $pi_y2cord = 0
Local $pi_ycord = 0
Local $pi_x2cord = 0
Local $pi_xcord = 0
Local $pi_xcord = 40 * StringRight($pi_iField,1)
If StringLen($pi_iField) = 1 Then
$pi_ycord = 0
Else
$pi_ycord = 40 * StringLeft($pi_iField,1)
EndIf
If $pi_iDirection = 0 Then
$pi_x2cord = 40
$pi_ycord = $pi_ycord - 3
$pi_y2cord = 6
ElseIf $pi_iDirection = 1 Then
$pi_xcord = $pi_xcord + 37
$pi_x2cord = 6
$pi_y2cord = 40
ElseIf $pi_iDirection = 2 Then
$pi_ycord = $pi_ycord + 37
$pi_x2cord = 40
$pi_y2cord = 6
Else
$pi_xcord = $pi_xcord - 3
$pi_x2cord = 6
$pi_y2cord = 40
EndIf
_GDIPlus_GraphicsFillRect($pi_hWindowHandle,$pi_xcord,$pi_ycord,$pi_x2cord,$pi_y2cord,$pi_hBrush)
EndFunc

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

FUnc Close()
Exit
EndFunc

[/autoit]

Ich kann schon einmal erkennen welche Linie und welche Spalte geklickt wurde, jedoch müsste ich jetzt noch das Kästchen ermitteln, wie mache ich dies jedoch,
ohne 100 Selects schreiben zu müssen?
Oder gibt es eine andere, simplere Lösung das zu erkennen?
Fliwatt

Fliwatt

http://www.hse24.de/Thema/ServiceHilfe/AGB.html
Soweit ich es entschlüsseln kann verbieten sie es nicht in ihren AGB

Fliwatt

Das war die beste POP3 UDF die ich finden konnte und etwas altes ist noch lange nicht schlecht. Mit dieser UDF hat garantiert auch jemand nachher noch gearbeitet.
Ich muss mir die Frage doch nicht von dem Autor der UDF beantworten lassen.
Eine neuer Thread für einen Post, den ich auch einfach unten dransetzen wäre unnötig gewesen
@Topic
Die E-Mails dürfen noch nicht von einem E-Mail Client (T-Online Email) abgeholt sein, sonst werden sie nicht mehr angezeigt.
Wie bekomme ich es jedoch hin, dass nur die Nachricht angezeigt wird und nicht
solche Sachen wie zb. die DKM Signatur,
einfach nur die Nachricht als Text

Fliwatt

Ich habe ein Problem mit dieser UDF und T-Online Email,
Über diesen Script

Spoiler anzeigen

[autoit]

_POP3Connect("gehtdichnixandusauundjetztwischdentisch@t-online.de", "##########","popmail.t-online.de",110)
_POP3Noop()
$a = _POP3List()
If Not IsArray($a) Then MsgBox(0,"","$a ist keine Array")
_ArrayDisplay($a)
_POP3Noop()
$a_mails = _POP3Info()
If Not IsArray($a_mails) Then MsgBox(0,"","$a_mails ist keine Array")
_ArrayDisplay($a_mails)

[/autoit]

Ich bekomme zwar eine Verbindung, jedoch werden keine E-Mails angezeigt, obwohl welche in der Inbox sind,
oder müssen sie noch nicht abgeholt sein?
Rückgabe:

Spoiler anzeigen

Code

<: +OK T-Online POP3 Server fpopd popmail.t-online.de ready <20460.0.1374610967.833915@fwd01.t-online.de>
>: USER gehtdichnixandusauundjetztwischdentisch@t-online.de
<: +OK Ok
>: PASS #########
<: +OK Logged in.
>: NOOP
<: +OK
>: LIST
<: +OK 0 messages:
.
>: NOOP
<: +OK
>: STAT
<: +OK 0 0
+>22:22:55 AutoIt3.exe ended.rc:0

Alles anzeigen

Fliwatt

Fliwatt

Oder probier es mal mit der UDF von Bugfix:

Spoiler anzeigen

[autoit]

#include-once
;===============================================================================
; Function Name: _DirRename($sSourcePath, $sNewFolderName, $sComputer='.')
; Description:: Ordner auf lokalem oder Remote-PC umbenennen
; Parameter(s): $sSourcePath der volle Pfad des umzubenennenden Ordners
; $sNewFolderName der neue Ordnername (Name oder Pfad möglich)
; wenn Pfad mit angegeben, wird dieser autom. entfernt
; [optional] $sComputer Computername, Standard: der lokale PC
; Return Value(s): Erfolg 1
; Fehler 0 @error 1 Ordner existiert nicht
; 2 Zielordner existiert bereits
; 3 Umbenennen fehlgeschlagen
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;===============================================================================
Func _DirRename($sSourcePath, $sNewFolderName, $sComputer='.')
If Not FileExists($sSourcePath) Then Return SetError(1,0,0)
$sSourcePath = StringRegExpReplace($sSourcePath, '\\+\z', '')
Local $sParent = StringLeft($sSourcePath, StringInStr($sSourcePath, '\', 1, -1))
$sSourcePath = StringRegExpReplace($sSourcePath, '\\', '\\\\')
$sNewFolderName = StringRegExpReplace($sNewFolderName, '\\+\z', '')
Local $ret = StringRegExp($sNewFolderName, '(?:\\)(\w+\z)|\w+', 3)
$sNewFolderName = $ret[UBound($ret)-1]
Local $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $sComputer & "\root\cimv2")
Local $colFolders = $objWMIService.ExecQuery ("Select * from Win32_Directory where name = '" & $sSourcePath & "'")
Local $err
For $objFolder In $colFolders
$err = $objFolder.Rename($sParent & $sNewFolderName)
If $err = 0 Then
Return 1
ElseIf $err = 10 Then
Return SetError(2,0,0)
Else
Return SetError(3,0,0)
EndIf
Next
EndFunc

[/autoit]

Fliwatt

Fliwatt

Thema kann gelöscht werden, Problem behoben, ich habe ein ElseIf vergessen

Fliwatt

Es gibt einmal ein Hauptmenü, von da aus gehts in die Untermenüs, im Moment funktioniert nur das linke Menü.
Das Problem ist, dass er das Menü auswählt und dann sofort den ersten Eintrag im Menü auswählt.
$Menu = 0 ist das Hauptmenü, wenn man von da aus auf das linkeste Bild oben klickt kommt man in das Untermenü $Menu = 1
Fliwatt

Fliwatt

In Ordnung, jetzt nur mit einem einzigen Bild, einfach in die Variable den Pfad hauen

Spoiler anzeigen

[autoit]

Global $bild =
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $SleepDelay = 1000
Global $DLSMode = 0
Global $Version = '01 Beta'
Global $Menu = 0
$ImagePath = @TempDir & "\"
#cs
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Background.jpg",$ImagePath & "Background.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Startup.jpg",$ImagePath & "Startup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Startover.jpg",$ImagePath & "Startover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Optionsup.jpg",$ImagePath & "Optionsup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Optionsover.jpg",$ImagePath & "Optionsover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Exitup.jpg",$ImagePath & "Exitup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Exitover.jpg",$ImagePath & "Exitover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\NormalModeup.jpg",$ImagePath & "NormalModeup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\NormalModeover.jpg",$ImagePath & "NormalModeover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\SilentModeup.jpg",$ImagePath & "SilentModeup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\SilentModeover.jpg",$ImagePath & "SilentModeover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Backover.jpg",$ImagePath & "Backover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Backup.jpg",$ImagePath & "Backup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\DLSOptionsover.jpg",$ImagePath & "DLSOptionsover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\DLSOptionsup.jpg",$ImagePath & "DLSOptionsup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\SleepDelayover.jpg",$ImagePath & "SleepDelayover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\SleepDelayup.jpg",$ImagePath & "SleepDelayup.jpg")
#ce
$Form1 = GUICreate("Ikarus Launcher", 506, 318, 192, 124)
$Pic1 = GUICtrlCreatePic($bild, -7, 22, 512, 294)
$Pic2 = GUICtrlCreatePic($bild, 0, 0, 138, 22)
$Pic3 = GUICtrlCreatePic($bild, 139, 0, 138, 22)
$Pic4 = GUICtrlCreatePic($bild, 278, 0, 138, 22)
$Label1 = GUICtrlCreateLabel(" V. "&$Version, 416, 0, 79, 20)
GUICtrlSetFont(-1, 0, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_EVENT_MOUSEMOVE
_Check_Hover()
Case $Label1
MsgBox(0,"Info","Ikarus v. "&$Version& " © 2013 Fliwatt" & @CRLF & "fliwatt@gmail.com")
Case $Pic2
If $Menu = 0 Then
GUICtrlSetImage($Pic2,$bild)
GUICtrlSetImage($Pic3,$bild)
GUICtrlSetImage($Pic4,$bild)
$Menu = 1
sleep(500)
Endif
If $Menu = 1 Then
MsgBox(0,"","")
Endif
Case $Pic3
If $Menu = 0 Then
GUICtrlSetImage($Pic2,$bild)
GUICtrlSetImage($Pic3,$bild)
GUICtrlSetImage($Pic4,$bild")
$Menu = 2
sleep(500)
Endif
If $Menu = 1 Then
MsgBox(0,"","")
Endif
Case $Pic4
If $Menu = 0 Then Exit
If $Menu = 1 or $Menu = 2 Then
GUICtrlSetImage($Pic2,$bild)
GUICtrlSetImage($Pic3,$bild)
GUICtrlSetImage($Pic4,$bild)
$Menu = 0
sleep(500)
Endif
EndSwitch
WEnd

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

Func _Check_Hover()
Static $Hovered = False
Local $aCursorInfo = GUIGetCursorInfo()
If $Hovered And $Hovered <> $aCursorInfo[4] Then
Switch $Hovered
Case $Pic2
If $Menu = 0 Then GUICtrlSetImage($Pic2,$bild)
If $Menu = 1 Then GUICtrlSetImage($Pic2,$bild)
If $Menu = 2 Then GUICtrlSetImage($Pic2,$bild)
Case $Pic3
If $Menu = 0 Then GUICtrlSetImage($Pic3,$bild)
If $Menu = 1 Then GUICtrlSetImage($Pic3,$bild)
If $Menu = 2 Then GUICtrlSetImage($Pic3,$bild)
Case $Pic4
If $Menu = 0 Then GUICtrlSetImage($Pic4,$bild)
If $Menu = 1 or $Menu = 2 Then GUICtrlSetImage($Pic4,$bild)
EndSwitch
$Hovered = False
EndIf
If Not $Hovered Then
Switch $aCursorInfo[4]
Case $Pic2
If $Menu = 0 Then GUICtrlSetImage($Pic2,$bild)
If $Menu = 1 Then GUICtrlSetImage($Pic2,$bild)
If $Menu = 2 Then GUICtrlSetImage($Pic2,$bild)
$Hovered = $Pic2
Case $Pic3
If $Menu = 0 Then GUICtrlSetImage($Pic3,$bild)
If $Menu = 1 Then GUICtrlSetImage($Pic3,$bild)
If $Menu = 2 Then GUICtrlSetImage($Pic3,$bild)
$Hovered = $Pic3
Case $Pic4
If $Menu = 0 Then GUICtrlSetImage($Pic4,$bild)
If $Menu = 1 or $Menu = 2 Then GUICtrlSetImage($Pic4,$bild)
$Hovered = $Pic4
EndSwitch
EndIf
EndFunc

[/autoit]

Fliwatt

Sind unwichtig, man kann da etwas beliebiges einfügen

Fliwatt

Hi Leute,
ich bastele gerade an einer kleinen GUI für ein Programm,
ich will dort ein Menü bestehend aus doppelt belegbaren Bildern haben.
Jedoch ist AutoIT in diesem Falle mal ausnahmsweise zu schnell und es klickt von dem Untermenü schon gleich den nächsten Eintrag an.
Es ist etwas schwierig zu erklären, am Besten probiert ihr es selber mit nur einem Bild aus.
Wie kann ich es verhindern, dass er kurz wartet bevor er Eingaben wieder erlaubt?
Mit Sleep habe ich es schon probiert, BlockInput wäre auch noch eine Möglichkeit aber das muss doch auch noch anders gehen.
Hoffentlich habt ihr eine Idee.
Mein Script:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $SleepDelay = 1000
Global $DLSMode = 0
Global $Version = '01 Beta'
Global $Menu = 0
$ImagePath = @TempDir & "\"
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Background.jpg",$ImagePath & "Background.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Startup.jpg",$ImagePath & "Startup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Startover.jpg",$ImagePath & "Startover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Optionsup.jpg",$ImagePath & "Optionsup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Optionsover.jpg",$ImagePath & "Optionsover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Exitup.jpg",$ImagePath & "Exitup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Exitover.jpg",$ImagePath & "Exitover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\NormalModeup.jpg",$ImagePath & "NormalModeup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\NormalModeover.jpg",$ImagePath & "NormalModeover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\SilentModeup.jpg",$ImagePath & "SilentModeup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\SilentModeover.jpg",$ImagePath & "SilentModeover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Backover.jpg",$ImagePath & "Backover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\Backup.jpg",$ImagePath & "Backup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\DLSOptionsover.jpg",$ImagePath & "DLSOptionsover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\DLSOptionsup.jpg",$ImagePath & "DLSOptionsup.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\SleepDelayover.jpg",$ImagePath & "SleepDelayover.jpg")
FileInstall("D:\Extras\Programmieren\AUTOIT\kaesekaestchenbot\player1bot\Ikarus Launcher\Bilder\untermenus\SleepDelayup.jpg",$ImagePath & "SleepDelayup.jpg")
$Form1 = GUICreate("Ikarus Launcher", 506, 318, 192, 124)
$Pic1 = GUICtrlCreatePic($ImagePath & "Background.jpg", -7, 22, 512, 294)
$Pic2 = GUICtrlCreatePic($ImagePath & "Startup.jpg", 0, 0, 138, 22)
$Pic3 = GUICtrlCreatePic($ImagePath & "Optionsup.jpg", 139, 0, 138, 22)
$Pic4 = GUICtrlCreatePic($ImagePath & "Exitup.jpg", 278, 0, 138, 22)
$Label1 = GUICtrlCreateLabel(" V. "&$Version, 416, 0, 79, 20)
GUICtrlSetFont(-1, 0, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_EVENT_MOUSEMOVE
_Check_Hover()
Case $Label1
MsgBox(0,"Info","Ikarus v. "&$Version& " © 2013 Fliwatt" & @CRLF & "xxxxxxx@gmail.com")
Case $Pic2
If $Menu = 0 Then
GUICtrlSetImage($Pic2,$ImagePath & "NormalModeup.jpg")
GUICtrlSetImage($Pic3,$ImagePath & "SilentModeup.jpg")
GUICtrlSetImage($Pic4,$ImagePath & "Backup.jpg")
$Menu = 1
sleep(500)
Endif
If $Menu = 1 Then
MsgBox(0,"","")
Endif
Case $Pic3
If $Menu = 0 Then
GUICtrlSetImage($Pic2,$ImagePath & "DLSOptionsup.jpg")
GUICtrlSetImage($Pic3,$ImagePath & "SleepDelayup.jpg")
GUICtrlSetImage($Pic4,$ImagePath & "Backup.jpg")
$Menu = 2
sleep(500)
Endif
If $Menu = 1 Then
MsgBox(0,"","")
Exit
Endif
Case $Pic4
If $Menu = 0 Then Exit
If $Menu = 1 or $Menu = 2 Then
GUICtrlSetImage($Pic2,$ImagePath & "Startup.jpg")
GUICtrlSetImage($Pic3,$ImagePath & "Optionsup.jpg")
GUICtrlSetImage($Pic4,$ImagePath & "Exitup.jpg")
$Menu = 0
sleep(500)
Endif
EndSwitch
WEnd

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

Func _Check_Hover()
Static $Hovered = False
Local $aCursorInfo = GUIGetCursorInfo()
If $Hovered And $Hovered <> $aCursorInfo[4] Then
Switch $Hovered
Case $Pic2
If $Menu = 0 Then GUICtrlSetImage($Pic2,$ImagePath & "Startup.jpg")
If $Menu = 1 Then GUICtrlSetImage($Pic2,$ImagePath & "NormalModeup.jpg")
If $Menu = 2 Then GUICtrlSetImage($Pic2,$ImagePath & "DLSOptionsup.jpg")
Case $Pic3
If $Menu = 0 Then GUICtrlSetImage($Pic3,$ImagePath & "Optionsup.jpg")
If $Menu = 1 Then GUICtrlSetImage($Pic3,$ImagePath & "SilentModeup.jpg")
If $Menu = 2 Then GUICtrlSetImage($Pic3,$ImagePath & "SleepDelayup.jpg")
Case $Pic4
If $Menu = 0 Then GUICtrlSetImage($Pic4,$ImagePath & "Exitup.jpg")
If $Menu = 1 or $Menu = 2 Then GUICtrlSetImage($Pic4,$ImagePath & "Backup.jpg")
EndSwitch
$Hovered = False
EndIf
If Not $Hovered Then
Switch $aCursorInfo[4]
Case $Pic2
If $Menu = 0 Then GUICtrlSetImage($Pic2,$ImagePath & "Startover.jpg")
If $Menu = 1 Then GUICtrlSetImage($Pic2,$ImagePath & "NormalModeover.jpg")
If $Menu = 2 Then GUICtrlSetImage($Pic2,$ImagePath & "DLSOptionsover.jpg")
$Hovered = $Pic2
Case $Pic3
If $Menu = 0 Then GUICtrlSetImage($Pic3,$ImagePath & "Optionsover.jpg")
If $Menu = 1 Then GUICtrlSetImage($Pic3,$ImagePath & "SilentModeover.jpg")
If $Menu = 2 Then GUICtrlSetImage($Pic3,$ImagePath & "SleepDelayover.jpg")
$Hovered = $Pic3
Case $Pic4
If $Menu = 0 Then GUICtrlSetImage($Pic4,$ImagePath & "Exitover.jpg")
If $Menu = 1 or $Menu = 2 Then GUICtrlSetImage($Pic4,$ImagePath & "Backover.jpg")
$Hovered = $Pic4
EndSwitch
EndIf
EndFunc

[/autoit]

Fliwatt

Fliwatt

Danke, aber ich muss .doc Dateien öffnen können und die dann auch als .doc wieder abspeichern können

Fliwatt

Progandy hat da mal was gemacht, das Script schmiert jedoch ab, Quelle :http://progandy.de/downloads/summary/3-autoit-udfs/5-richedit-udfs.html</a>

Spoiler anzeigen

Code

ERROR: >"D:\###\install\SciTe\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Dokumente und Einstellungen\###\Lokale Einstellungen\Temp\Rar$DI04.563\GuiRichEdit.au3" /UserParams 
+>22:35:53 Starting AutoIt3Wrapper v.2.1.0.33 Environment(Language:0407 Keyboard:00000407 OS:WIN_XP/Service Pack 2 CPU:X64 OS:X86)
>Running AU3Check (1.54.22.0) from:D:\d\install
C:\Dokumente und Einstellungen\###\Lokale Einstellungen\Temp\Rar$DI04.563\GuiRichEdit.au3(340,82) : ERROR: $WM_LBUTTONDBLCLK previously declared as a 'Const'.
If Not IsDeclared("WM_LBUTTONDBLCLK") Then Global Const $WM_LBUTTONDBLCLK = 0x203
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\###\Lokale Einstellungen\Temp\Rar$DI04.563\GuiRichEdit.au3(341,78) : ERROR: $WM_LBUTTONDOWN previously declared as a 'Const'.
If Not IsDeclared("WM_LBUTTONDOWN") Then Global Const $WM_LBUTTONDOWN = 0x201
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\###\Lokale Einstellungen\Temp\Rar$DI04.563\GuiRichEdit.au3(344,82) : ERROR: $WM_RBUTTONDBLCLK previously declared as a 'Const'.
If Not IsDeclared("WM_RBUTTONDBLCLK") Then Global Const $WM_RBUTTONDBLCLK = 0x206
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\###\Lokale Einstellungen\Temp\Rar$DI04.563\GuiRichEdit.au3(345,78) : ERROR: $WM_RBUTTONDOWN previously declared as a 'Const'.
If Not IsDeclared("WM_RBUTTONDOWN") Then Global Const $WM_RBUTTONDOWN = 0x204
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\###\Lokale Einstellungen\Temp\Rar$DI04.563\GuiRichEdit.au3(346,74) : ERROR: $WM_RBUTTONUP previously declared as a 'Const'.
If Not IsDeclared("WM_RBUTTONUP") Then Global Const $WM_RBUTTONUP = 0x205
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\####\Lokale Einstellungen\Temp\Rar$DI04.563\GuiRichEdit.au3 - 5 error(s), 0 warning(s)
!>22:35:54 AU3Check ended. Press F4 to jump to next error.rc:2
>Exit code: 0 Time: 2.196

Alles anzeigen

Fliwatt

Hi Leute,
ich suche eine Möglicheit Word 2003 so in eine GUI einzubinden, dass alle Menüs verschwinden und nur das Textfenster zur Verfügung steht. Es wäre gut, wenn ein Steuern des Programmes möglich ist, dass man speichern kann und dass man das Programm mit einem vorgegebenen Dokument starten kann. Ich habe schon überall gesucht, jedoch habe ich nur das hier gefunde: Das hilft mir jedoch nicht ganz weiter https://autoit.de/index.php?page…7321#post257321 da ich dort nicht das Dokument auswählen kann und die Menüs immer noch da sind, zur Not würde es auch reichen, wenn man nur das Dokument auswählen kann.
Ich habe schon überall gesucht, aber nichts entsprechendes gefunden, vielleicht ist das auch etwas zu speziell.
Wenn ihr etwas wisst, dann schreibt es bitte rein.
Fliwatt

Fliwatt

Ich hab es dir jetzt mal mit Sektionen umgeschrieben, jede Sektion ist ein LoL Spiel, in der Sektion Main ist die Anzahl der bereits gespielten Spiele drin und somit kann auch erfasst werden, wie die nächste Sektion heisst.

Spoiler anzeigen

[autoit]

Func eintragen()
$count = IniRead("lol.ini","main","count",0) + 1 ;Liest den vorherigen Count aus und addiert +1
IniWrite("lol.ini",$count,"Kills",GUICtrlRead($Input1))
Iniwrite("lol.ini",$count,"Deaths",GUICtrlRead($Tote))
Iniwrite("lol.ini",$count,"Assists",GUICtrlRead($Assits))
Iniwrite("lol.ini",$count,"Result",GUICtrlRead($Gewonnen))
Iniwrite("lol.ini",$count,"Champion",GUICtrlRead($Champions))
IniWrite("lol.ini","main","count",$count) ;Fügt den neuen Count ein(also der alte count +1)
EndFunc

[/autoit]

Macht es doch nicht immer so kompliziert mit MySQL und CSV, mit einer ini geht es doch auch sehr gut.
Mfg Fliwatt

Beiträge von Fliwatt

~(Tilde) Zeichen aus Pfad entfernen

~(Tilde) Zeichen aus Pfad entfernen

~(Tilde) Zeichen aus Pfad entfernen

[GDI+] Sinus im Einheitskreis

Geklickte Linie in einem Raster erkennen

Geklickte Linie in einem Raster erkennen

Geklickte Linie in einem Raster erkennen

_FFClick ab FireFox 22.0

_Pop3-Udf (V1.03)

_Pop3-Udf (V1.03)

Ordner umbenennen mit DirMove funktioniert nicht

Überschnelles Reagieren auf Eingaben verhindern

Überschnelles Reagieren auf Eingaben verhindern

Überschnelles Reagieren auf Eingaben verhindern

Überschnelles Reagieren auf Eingaben verhindern

Überschnelles Reagieren auf Eingaben verhindern

Modifiziertes Word in GUI

Modifiziertes Word in GUI

Modifiziertes Word in GUI

Fortlaufende ini?