Beiträge von Kijan

Kijan

ich finds auch recht gut gelungen
wenn du es ncoh erweitern willst währe toll wenn die Controls gleich einer Variablen zugewiesen werden

Bei mir kommen keine warnungen...

noch eine Frage:
was macht der Inspector? der macht bei mir nix^^

Kijan

ah stimmt^^ ich bin heute nicht auf der höhe :wacko:
krank sein zerrt auch an dem denkvermögen^^

Kijan

Das hab ich auch shcon oft festgestellt.
Wofür is denn FileOpen?^^
Gibt es bestimmte Stellen wo man FileOpen rein tun sollte bzw muss?

Kijan

So zb?

Spoiler anzeigen

[autoit]

#include <Array.au3>
$string = "</Unit>" & @CRLF & _
"<Unit filename=""..\..\..\..\version\v04_03\eeprom.h"" />" & @CRLF & _
"<Unit filename=""..\..\..\..\version\v04_03\eeprom_config.h"" />" & @CRLF & _
"<Unit filename=""..\..\..\..\version\v04_03\eeprom_x.h"" />" & @CRLF & _
"<Unit filename=""..\..\..\..\version\v04_03\fahroben.c"">" & @CRLF & _
"<Option compilerVar=""CC"" />" & @CRLF & _
"</Unit>" & @CRLF & _
"<Unit filename=""..\..\..\..\version\v04_03\fahroben.h"" />" & @CRLF & _
"<Unit filename=""..\..\..\..\version\v04_03\fehler.c"">" & @CRLF & _
"<Option compilerVar=""CC"" />" & @CRLF & _
"</Unit>"
MsgBox(0,"",$string)

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

$test = StringRegExp($string,"(?<=<Unit filename=)(.*)eeprom_config.h"" />",3)
_ArrayDisplay($test)

[/autoit]

Kijan

schau dir mal Roboform an das is glaub sowas wie du es willst^^
zumindest in sachen ausfüllen
wenn du natürlich noch die seiten öffnen lassen willst, kannst du dir das ja mal runterladen und dann nen script damit aufbauen
ist vllt leichter als das mit den ganzen daten selbst zu machen
also dein script öffnet nen InetExplorer und drückt den button für ausfüllen bei Roboform so ungefähr

Kijan

ach du willst die controls IN der Gruppe verschieben nicht die Gruppe selbst?
Verschieb mal bei meinem letzten post die gruppe unter das label? da sind die dann auch nicht mehr zusehen teilweise.. da durch ein label verdeckt

Kijan

ahh ich bin blind -.-

Kijan

Huhu ich habe nen Script gebastelt und dann wollten meine Buttons nicht.
Ich hab alles so gemacht wie im Bsp...
Das komische ist, dass wenn ich Buttons reinkopiere dann gehen die neuen Buttons...

hier das Script von mir...
Button 1 und 3 gehen nicht und 2 und 4 gehen...

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
Global $Gui
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

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

$Gui = GUICreate("ProgrammViewer", 1020, 768 )
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents")

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

$ok1 = GUICtrlCreateButton("1", 10, 30, 100)
GUISetOnEvent(-1, "ButtonClicked")

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

$bAutoCMX = GUICtrlCreateButton("2", 150, 30, 100)
GUICtrlSetOnEvent(-1, "ButtonClicked")

$ok2 = GUICtrlCreateButton("3", 10, 70, 100)
GUISetOnEvent(-1, "ButtonClicked")

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

$bAutoCMX2 = GUICtrlCreateButton("4", 150, 70, 100)
GUICtrlSetOnEvent(-1, "ButtonClicked")

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

GUISetState(@SW_SHOW)

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

While 1
Sleep(10)
WEnd

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

Func ButtonClicked()
MsgBox(0,"",@GUI_CtrlId)
EndFunc

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

Func SpecialEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
;~ MsgBox(0, "Schliessen gedrückt", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle)
Exit

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

Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE
;~ MsgBox(0, "Fenster minimiert", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle)

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

Case @GUI_CtrlId = $GUI_EVENT_RESTORE
;~ MsgBox(0, "Fenster wiederhergestellt", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle)
Case Else
MsgBox(0,"", "NÜX")
EndSelect

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

EndFunc ;==>SpecialEvents

[/autoit]

Kijan

also ich hab dein script unverändert getestet und es geht nur ein fenster auf und er sucht nach youtube... also das was du wolltest oder?^^
in deinem Beispiel kannste aber auch gleich enter senden nach Youtube weil du nciht extra auf den button klicken musst

also ich hab hier auf arbeit win xp mit iexplorer 8

Kijan

stimmt MsgBox hab ich überlesen^^
da geht das natürlich nicht x)
naja hast ja 2 Möglichkeiten jetzt

Kijan

Sowas in etwa?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

Global $control[4], $mousedown = False, $mousepos[2]
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

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

$gui = GUICreate("Meine GUI", 500, 200) ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird
GUISetOnEvent($GUI_EVENT_CLOSE, "Ende")

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

$control[0] = GUICtrlCreateGroup("Gruppe 1", 10, 10, 200, 100)
$control[1] = GUICtrlCreateButton("EINS", 20, 40, 50)
GUICtrlSetOnEvent($control[1], "EINS")
$control[2] = GUICtrlCreateButton("ZWEI", 80, 40, 50)
GUICtrlSetOnEvent($control[2], "ZWEI")
$control[3] = GUICtrlCreateButton("DREI", 140, 40, 50)
GUICtrlSetOnEvent($control[3], "DREI")
GUICtrlCreateGroup("", -99, -99, 1, 1) ; Gruppe schliessen

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

$label = GUICtrlCreateLabel("Hier ist ein Label", 250, 10, 200, 100)
GUISetState(@SW_SHOW) ; Zeigt das leere GUI-Fenster

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

While 1
$cursor = GUIGetCursorInfo($gui)
If Not IsArray($cursor) Then ContinueLoop
If $cursor[4] == $control[0] And $mousedown == False And $cursor[2] == 1 Then ; Maus über Group und gedrückt, erstes mal
$mousepos[0] = $cursor[0]
$mousepos[1] = $cursor[1]
$mousedown = True
EndIf

$diffx = $cursor[0] - $mousepos[0]
$diffy = $cursor[1] - $mousepos[1]

If $mousedown == True And $diffx <> 0 Then
Bewegen($control, $gui, $diffx, $diffy)
$mousedown = False
EndIf

WEnd

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

Func EINS()
Bewegen($control, $gui, 10, 10)
EndFunc

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

Func ZWEI()
Bewegen($control, $gui, -10)
EndFunc

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

Func DREI()
Bewegen($control, $gui, -20, 10)
EndFunc

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

Func Bewegen($hWnd_Array,$hGUI,$x = 0, $y = 0)
For $i = 0 To UBound($hWnd_Array) - 1 Step 1
$pos = ControlGetPos($hGUI, "", $hWnd_Array[$i])
$L = $pos[0] + $x
$W = $pos[2]
$T = $pos[1] + $y
$H = $pos[3]
$guiPos = WinGetPos($gui)
If $hWnd_Array[$i] <> $hWnd_Array[0] Then
If ($L + $W) >= ($guiPos[2]) Or $L <= 0 Then
GUICtrlSetState($hWnd_Array[$i], $GUI_HIDE)
Else
GUICtrlSetState($hWnd_Array[$i], $GUI_SHOW)
EndIf
EndIf
GUICtrlSetPos($hWnd_Array[$i], $L, $T , $W , $H)
Next
EndFunc

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

;####################################################
Func Ende()
Exit
EndFunc

[/autoit]

nur als Test damit ich weis ob ihc dich richtig verstanden habe...verbessern kann man es immer noch^^

Kijan

sollen sie dann auch wieder erscheinen wenn du die gruppe wieder rein schiebst?

Kijan

nen Button mit folgenden Code vllt?

[autoit]

_INetMail ( $s_MailTo, $s_MailSubject, $s_MailBody )

[/autoit]

Oder halt nen anklickbares Label oder so^^

Kijan

hmm das wundert mich^^
ich hab win 7 64 bit und hatte am anfang das gleiche problem
hab dann den haken reingemacht (also alle 3 dateien einmal per hand geöffnet) und es ging alles wunderbar...

naja bei dir gehts dann ignorieren wir mich einfach mal^^

Kijan

ich habs leider erst jetzt gesehn^^
du hättest einfach nur in deinem 2. schritt wenn du auf öffnen klickst den haken aus "vor dem öffnen dieser datei immer fragen"
wegmachen bruachen dann währe alles gut gewesen^^
das mit dem öffnen hab ich im mom auch... aber das sollte nicht so schlimm sein da es einfach nru nen script öffnet wo das drinn steht was im beispiel zu sehen ist.
also einfach nur alles makieren und kopieren dann in neue datei zum testen einfügen

Kijan

also ich hab meine funktion noch ma der einfachheitshalber ien wenig abgespeckt und nen beispiel geschrieben

kommt das so ungefähr hin mit dem was du meinst?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

Global $control[4], $mousedown = False, $mousepos[2]
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

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

$gui = GUICreate("Meine GUI", 300, 300) ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird
GUISetOnEvent($GUI_EVENT_CLOSE, "Ende")

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

$control[0] = GUICtrlCreateGroup("Gruppe 1", 10, 10, 200, 100)
$control[1] = GUICtrlCreateButton("EINS", 20, 40, 50)
GUICtrlSetOnEvent($control[1], "EINS")
$control[2] = GUICtrlCreateButton("ZWEI", 80, 40, 50)
GUICtrlSetOnEvent($control[2], "ZWEI")
$control[3] = GUICtrlCreateButton("DREI", 140, 40, 50)
GUICtrlSetOnEvent($control[3], "DREI")
GUICtrlCreateGroup("", -99, -99, 1, 1) ; Gruppe schliessen

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

GUISetState(@SW_SHOW) ; Zeigt das leere GUI-Fenster

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

While 1
$cursor = GUIGetCursorInfo($gui)
If Not IsArray($cursor) Then ContinueLoop
If $cursor[4] == $control[0] And $mousedown == False And $cursor[2] == 1 Then ; Maus über Group und gedrückt, erstes mal
$mousepos[0] = $cursor[0]
$mousepos[1] = $cursor[1]
$mousedown = True
EndIf

$diffx = $cursor[0] - $mousepos[0]
$diffy = $cursor[1] - $mousepos[1]

If $mousedown == True And $diffx <> 0 Then
Bewegen($control, $gui, $diffx, $diffy)
$mousedown = False
EndIf

WEnd

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

Func EINS()
Bewegen($control, $gui, 10, 10)
EndFunc

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

Func ZWEI()
Bewegen($control, $gui, -10)
EndFunc

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

Func DREI()
Bewegen($control, $gui, -20, 10)
EndFunc

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

Func Bewegen($hWnd_Array,$hGUI,$x = 0, $y = 0)
For $i = 0 To UBound($hWnd_Array) - 1 Step 1
$pos = ControlGetPos($hGUI, "", $hWnd_Array[$i])
$L = $pos[0] + $x
$W = $pos[2]
$T = $pos[1] + $y
$H = $pos[3]
GUICtrlSetPos($hWnd_Array[$i], $L, $T , $W , $H)
Next
EndFunc

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

;####################################################
Func Ende()
Exit
EndFunc

[/autoit]

Kijan

nein es verschiebt sich ja auch was dabei^^

Kijan

ich hab auf arbeit ne funktion mit der ich controls in einem array dann verschieben kann ... ich kanns dir am montag mal posten
ich benutzte die weil ich wenn das programm startet nur nen teil brauche und wenn dan netwas angeklickt wird zusätzliche sachen angezeigt werden

Kijan

ne nich wirklich
das wandelt ja auch nur um und das klappt ja bei mir^^
es geht mir halt im mom darum AutoIt zu sagen das es keine Dec zahl is sondern eine Bin...
ich kann ja auch ne Variable so definieren:

[autoit]

$var = 10
oder halt
$var = 0xA

[/autoit]

jetzt war halt meine frage ob man AutoIt sagen kann diese Variable bekommst du als Bin...
ich mein ihc kann ja einfach meine Funktion nehmen und die Binärzahl als String übergeben..
aber gesetz des falles das ich jemals die Binärzahl als Variable bekomme würd das bei höheren Zahlen halt nicht mehr mitspielen weil die ja als Dec interpretiert werden

Kijan

ja das meint ich ja :P^^
meine frage war eher ob es sowas gibt das man ne zahl als binär beschreiben kann.. ich kann ja auch ne hexzahl definieren ... aber keine binärezahl im normalfall.. geht das iwie? so war das gemeint

Beiträge von Kijan

Mein Guicreator...

Anfänger Frage

Anfänger Frage

Pfad eines geöffneten Projects auslesen

Formulare ausfüllen Tipps

Gruppen

OnEventMode

OnEventMode

IE Form Probleme

mailto Link in MsgBox

Gruppen

Gruppen

mailto Link in MsgBox

Deutsche Hilfsdatei funktioniert nicht!

Deutsche Hilfsdatei funktioniert nicht!

Gruppen

Gruppen

Gruppen

Frage bezüglich String/Zahl und die Umwandlung von Bin in Hex oder Dec

Frage bezüglich String/Zahl und die Umwandlung von Bin in Hex oder Dec