Hallo Detroit49,
also an das zertifikat komme ich nicht ran leider das ist abgeschirmt
nein das ist nicht der ganze code aber der rest hat nen paar infos über meinen server
wieso ist dein eigener Server gegn dich abgeschirmt. Zu WinGetText: einfach ausprobieren,
Edit: muss aber funktionieren siehe Online-Hilfe
mfg (Auto)Bert
Hallo slash,
wie bereits gepostet: wenn ich eine LIED. MP3 manuell erstelle wird die LIED.FLV gelöscht, kannst du die EXE zum umwandeln bzw. den Link dazu hier einstellen, damit ich das Programm vollständig testen kann,
PS.: die Ziel.MP3 hat bei mir immer 0 KB (Inetstörungen bei mobilem Download???)
mfg (Auto)Bert
Hallo slash,
die FLV wird bei mir gelöscht, nur die Ausgabe in der Console ist falsch (siehe meinen vorhegehenden Post).
@Rubberducky die Variable wird in Zeile 48 deklariert, die Fehlermeldung mit der MsgBox resultiert wohl daraus, dass die Func _Start ausgeführt wird, du kannst aber trotzdem eine URL eingeben und danach die MsgBox wegklicken.
Edit: Zeile 29
[autoit]$dl_AND = GUICtrlCreatePic(@TempDir & "\ytbtn.jpg", 0, 62, 398, 41)
[/autoit]löst den automatischen Start aus, wenn das JPG-File nicht existiert
mfg (Auto)Bert
Hallo slash,
das löschen der Datei funktioniert bei mir (musste zwar manuell eine Datei mit mp3 Endung erzeugen da ich die ytflv.exe nicht habe) aber die Anzeige ist verkehrt. Du musst die Zeilen 102 und 103 umtauschen, da immer die Meldung erfolgreich gelöscht kommt. Ausserdem wiederholt sich die Func _Start fortwährend, hierzu habe ich noch keine Lösung,
mfg (Auto)Bert
Hallo TinkyWinky,
Gibt´s noch 'ne andere Möglichkeit, den Inhalt der Meldung auszulesen?
Hilft mir eigentlich die HandleID oder wird die auf verschiedenen Rechnern unterschiedlich von Windows vergeben
Mir ist keine andere Möglichkeit bekannt. Die Handles können sich von Programmstart zu Programmstart unterscheiden,
mfg (Auto)Bert
Hallo slash,
schau dir die Hilfe zu fileexists an,
mfg (Auto)Bert
Hallo slin,
auf deine Frage perf PN zu
Einfach ein Edit-Control zur Eingabe und einen Button zum Bestätigen, das ganze am besten in einer eigenen Gui vor dem eigentlichen Programmstart. Wenn der Code X-mal falsch eingeben wurde einfach Programm mit exit beenden, ansonsten bei richtiger Eingabe Programm starten.
Hierbei hatte ich an eine Lösung wie diese gedacht:
#include <GuiConstantsEx.au3>
#include <EditConstants.au3>
#include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Opt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit]If _LicencePlease("TEST",5) = 1 Then _Main()
[/autoit] [autoit][/autoit] [autoit]Func _LicencePlease($sLic = "",$iTimes =0)
Local $hfrmGui, $coords[4], $hedtLic, $hlblLic, $bLoop, $text, $btnOK, $msg, $sRet = 0
$hfrmGui = GUICreate("Zugriff Verweigert!!!", 200, 140)
;GUISetBkColor(0xff5001, $hfrmGui)
$hlblLic = GUICtrlCreateLabel("Zuerst den Lizenz-Code eingeben.", 10, 10, 180, 30)
$hedtLic = GUICtrlCreateEdit("", 10, 80, 180, 20, BitOR($ES_UPPERCASE, $ES_PASSWORD))
$btnOK = GUICtrlCreateButton("an&melden", 10, 110, 70)
$bLoop = 0
GUISetState()
$coords = WinGetPos($hfrmGui)
_MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
While $bLoop < $iTimes
$msg = GUIGetMsg()
Switch $msg
Case $Gui_EVENT_CLOSE
Exit
Case $btnOK
$bLoop += 1
If $sLic = GUICtrlRead($hedtLic) Then;Fragt die eingegebene Lizenz ab
ConsoleWrite($sLic & " = " & GUICtrlRead($hedtLic) & " ?" & @CRLF)
MsgBox(4096, "Congratulation", "You typed in the Licence-Key word!")
$sRet = 1
ExitLoop
Else
If $bLoop = $iTimes Then
MsgBox(4096, "Error", "You typed in the wrong Licence-Key for " & $iTimes & " Times =>EXIT!")
;Exit
Else
MsgBox(4096, "Error", "You typed in the wrong Licence-Key - try again!")
EndIf
EndIf
EndSwitch
WEnd
_MouseTrap()
GUIDelete($hfrmGui)
Return $sRet
EndFunc ;==>_LicencePlease
Func _main()
Local $hIE, $Form1, $Pic1, $Pic2, $Label1, $nMsg
$hIE = _IECreateEmbedded()
$Form1 = GUICreate("Updater/Programme", 987, 696, 108, 6)
GUISetIcon("C:\Users\********\Documents\Dokumente\icons\Component.ico")
$Pic1 = GUICtrlCreateObj($hIE, 0, 24, 985, 665)
$Label1 = GUICtrlCreateLabel("Du weisst nicht welche Version du von ein bestimmten Programm hast? Links oben bei den Programm steht es!", 8, 0, 525, 17)
$Pic2 = GUICtrlCreatePic("C:\Users\********\Videos\version.jpg", 552, 0, 129, 25, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_IENavigate($hIE, "http://**********.bplaced.net/")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Gui_EVENT_CLOSE
Exit
EndSwitch
WEnd
EndFunc ;==>_main
mfg (Auto)Bert
Hallo slin,
Hallo, wie mache ich es das ein bestimmter Lizenzcode [Den ich vorher bestimmt habe] eingegeben werden muss damit das Programm startet?
Einfach ein Edit-Control zur Eingabe und einen Button zum Bestätigen, das ganze am besten in einer eigenen Gui vor dem eigentlichen Programmstart. Wenn der Code X-mal falsch eingeben wurde einfach Programm mit exit beenden, ansonsten bei richtiger Eingabe Programm starten.
mfg (Auto)Bert
Hallo slin,
schau dir einmal dieses kleine Skript an, vielleicht hilft es dir ja weiter:
#INCLUDE <WINDOWSCONSTANTS.AU3>
#INCLUDE <SENDMESSAGE.AU3>
#INCLUDE <GUICONSTANTSEX.AU3>
#INCLUDE <PROGRESSCONSTANTS.AU3>
OPT("GUIONEVENTMODE", 1)
[/autoit] [autoit][/autoit] [autoit]$FORM1 = GUICREATE("FORM1", 545, 125,5,5);, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW)
GUISETONEVENT($GUI_EVENT_CLOSE, "FORM1CLOSE")
$BUTTON1 = GUICTRLCREATEBUTTON('STOP MARQUEE',5,5)
GUISETONEVENT(-1, "STOPMARQUEE")
$PROGRESS1 = GUICTRLCREATEPROGRESS(0, 95, 545, 25, $PBS_MARQUEE)
$HPROGRESS = GUICTRLGETHANDLE($PROGRESS1)
_SENDMESSAGE($HPROGRESS, $PBM_SETMARQUEE, TRUE, 10)
GUISETSTATE(@SW_SHOW)
WHILE 1
SLEEP(100)
WEND
FUNC STOPMARQUEE()
_SENDMESSAGE($HPROGRESS, $PBM_SETMARQUEE, FALSE, 10)
ENDFUNC
FUNC FORM1CLOSE()
EXIT
ENDFUNC ;==>FORM1CLOSE
mfg (Auto)Bert
Hallo slin,
benutze halt einfach einmal die SUchFUnktion (fast ganz rechts oben auf der Seite) mit dem Stichwort Update, dann bekommst du ca. 1000 Treffer. AFAIK hat Sen in Hastynotes eine eingebaut, die gut funktioniert,
mfg (Auto)Bert
Hallo MiluBarakus,
Die codes funktionieren zwar, aber eigentlich hatte ich geplant, das die maus nicht aus dem manager bewegt werden kann wie hier :
na dann so:
#include <GuiConstantsEx.au3>
#include <Misc.au3>
Opt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
Local $GUI, $coords[4], $input1, $label2, $bLoop, $text, $btnOK, $msg
$GUI = GUICreate("Zugriff Verweigert!!!", 630, 451, 407, 267)
GUISetBkColor(0xff5001, $GUI)
$label2 = GUICtrlCreateLabel("Wenn du nicht MiluBarakus bist solltest du hier schnell verschwinden.", 39, 50, 350, 40)
$input1 = GUICtrlCreateInput("", 39, 80, 350, 20)
$btnOK = GUICtrlCreateButton("an&melden", 39, 110, 70)
$bLoop = 0
GUISetState()
While $bLoop < 3
$coords = WinGetPos($GUI)
_MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
$msg = GUIGetMsg()
Switch $msg
case $GUI_EVENT_CLOSE
Exit
case $btnOK
$bLoop += 1
$text = GUICtrlRead($input1) ;Fragt das eingegebene Password ab
If $text <> "test" Then
If $bLoop = 3 Then
;WinWaitActive("Zugriff Verweigert!!!")
MsgBox(4096, "Error", "You typed in the wrong thing for 3 Times =>EXIT!")
ExitLoop
Else
MsgBox(4096, "Error", "You typed in the wrong thing - try again!")
EndIf
Else
MsgBox(4096, "AutoIt Example", "You typed in the correct word! Congrats.")
ExitLoop
EndIf
;Sleep(10) ist beim Einsatz von GuiGetMsg nicht notwendig
EndSwitch
_MouseTrap()
WEnd
EndFunc ;==>_Main
mfg (Auto)Bert
Hallo MiluBarakus,
abgeändertes Skript:
#include <GuiConstantsEx.au3>
#include <Misc.au3>
Opt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit]Global $GUI, $coords[4], $input1, $label2, $bLoop, $text, $btnOK, $msg
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
Local $input1, $label2, $bLoop, $text, $btnOK, $msg
$GUI = GUICreate("Zugriff Verweigert!!!", 630, 451, 407, 267)
GUISetBkColor(0xff5001, $GUI)
$label2 = GUICtrlCreateLabel("Wenn du nicht MiluBarakus bist solltest du hier schnell verschwinden.", 39, 50, 350, 40)
$input1 = GUICtrlCreateInput("", 39, 80, 350, 20)
$btnOK = GUICtrlCreateButton("an&melden", 39, 110, 70)
$bLoop = 0
GUISetState()
While $bLoop < 3
$msg = GUIGetMsg()
Switch $msg
case $GUI_EVENT_CLOSE
Exit
case $btnOK
$bLoop += 1
$text = GUICtrlRead($input1) ;Fragt das eingegebene Password ab
If $text <> "test" Then
If $bLoop = 3 Then
;WinWaitActive("Zugriff Verweigert!!!")
MsgBox(4096, "Error", "You typed in the wrong thing for 3 Times =>EXIT!")
Exit
Else
MsgBox(4096, "Error", "You typed in the wrong thing - try again!")
EndIf
Else
_success()
EndIf
;Sleep(10) ist beim Einsatz von GuiGetMsg nicht notwendig
EndSwitch
WEnd
EndFunc ;==>_Main
Func _success()
Local $coords[4]
; Print the success message
MsgBox(4096, "AutoIt Example", "You typed in the correct word! Congrats.")
While 1
$coords = WinGetPos($GUI)
_MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case Else
;;;
EndSwitch
WEnd
_MouseTrap()
Exit
EndFunc ;==>_success
mfg (Auto)Bert
Hallo mille86,
Im ersten Beispiel bleibt der Splashtext dauerhaft, statt nach 2 Sek. zu verschwinden
mit adlib lässt sich auch dieses Problem lösen:
Global $hotkey_ende
HotKeySet("{ESC}", "HotKey_Ende")
While 1
Sleep(125)
WEnd
Func HotKey_Ende()
Local $time = TimerInit()
if $hotkey_ende> 0 then SplashOff()
If Mod($hotkey_ende, 2) = 0 Then
SplashTextOn("Ausschalten", "Rechner wird anschließend heruntergefahren", 110, 70, Default, Default, 1, "", 9)
Else
SplashTextOn("Programm Beenden", "Rechner bleibt anschließend im Betrieb", 110, 70, Default, Default, 1, "", 9)
EndIf
$hotkey_ende += 1
AdlibEnable('_SplashOFF',2000)
EndFunc ;==>HotKey_Ende
func _SplashOFF()
SplashOff()
AdlibDisable()
EndFunc
Func OnAutoItExit ( )
HotKeySet("{Esc}")
EndFunc
Hallo mille86,
hier das Skript:
[autoit]Global $hotkey_ende
HotKeySet("{ESC}", "HotKey_Ende")
While 1
Sleep(125)
WEnd
Func HotKey_Ende()
if $hotkey_ende> 0 then SplashOff()
If Mod($hotkey_ende, 2) = 0 Then
SplashTextOn("Ausschalten", "Rechner wird anschließend heruntergefahren", 110, 70, Default, Default, 1, "", 9)
Else
SplashTextOn("Programm Beenden", "Rechner bleibt anschließend im Betrieb", 110, 70, Default, Default, 1, "", 9)
EndIf
; Sleep(2000)
; SplashOff()
$hotkey_ende += 1
EndFunc ;==>HotKey_Ende
viel Spaß damit 
,
mfg (Auto)Bert
Hallo RayRayatTorrex,
mach es doch einfach so:
#include <Misc.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]$sElect = "Bitte ein Laufwerk auswählen: "
#Region ### START Koda GUI section ### Form=
$Form4 = GUICreate("Select Driver", 250, 55, 208, 136)
$Combo = GUICtrlCreateCombo($sElect, 8, 16, 145, 25)
For $i = 65 To 90
GUICtrlSetData($Combo, Chr($i))
Next
;$Combo = GUICtrlSetData(-1, , "a")
$go = GUICtrlCreateButton("Los!", 160, 16, 75, 17, $WS_GROUP)
GUICtrlSetState($go, $GUI_DISABLE)
GUISetState(@SW_SHOW, $Form4)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Combo
If GUICtrlRead($Combo) = $sElect Then
GUICtrlSetState($go, $GUI_DISABLE)
Else
GUICtrlSetState($go, $GUI_ENABLE)
EndIf
Case $go
_comboread()
EndSwitch
WEnd
Func _comboread()
$read = GUICtrlRead($Combo)
If StringLen($read) = 1 Then
$read = $read & ":\Log\"
ConsoleWrite("COMBOREad " & $read & " " & @CRLF)
FileCopy("C:\*.html", $read, 9)
EndIf
EndFunc ;==>_comboread
mfg (Auto)Bert
Hallo ePole.
ok...danke erstmal...ich mache dann im anderen post weiter, sonst werd ich total irre
dachtest du an soetwas?
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>
#Include <Timers.au3>
HotKeySet("{ESC}","Kill")
Global Const $WS_EX_COMPOSITED = 0x02000000
;$gui = GUICreate("",300,300,0,0, BitOR($WS_SIZEBOX, $WS_POPUPWINDOW, $WS_CLIPCHILDREN), BitOR($WS_EX_TOOLWINDOW, $WS_EX_COMPOSITED));Erstellt ein GUI
$gui = GUICreate("",300,300,0,0, BitOR($WS_SIZEBOX,$WS_CAPTION,$WS_MINIMIZEBOX,$WS_MAXIMIZE,$WS_SYSMENU));Erstellt ein GUI
GUISetState();Macht es sichtbar
#cs
$GUISize = WinGetPos($gui) ;fragt pos. und grösse deines Fensters ab
;~ $GUISize[0] wäre x-position
;~ $GUISize[1] wäre y-position
;~ $GUISize[2] wäre breite
;~ $GUISize[3] wäre höhe
$eIE = _IECreateEmbedded()
GUICtrlCreateObj($eIE, $GUISize[0], $GUISize[1], $GUISize[2], $GUISize[3])
#ce
$GUISize = WinGetClientSize($gui) ;fragt grösse deines Fensters ab
;~ $GUISize[0] wäre breite
;~ $GUISize[1] wäre höhe
$eIE = _IECreateEmbedded()
GUICtrlCreateObj($eIE, 0,0,$GUISize[0], $GUISize[1])
_IENavigate($eIE,"www.google.de")
$maxIdle_min = IniRead(@ScriptDir & "\shutdown.ini", "Tireconfig", "Time", "1" )
$prog = IniRead(@ScriptDir & "\shutdown.ini", "Tireconfig", "Path", "calc.exe" )
$pid = Run($prog)
Do
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_Close
Kill()
EndSwitch
$IdleTime = _Timer_GetIdleTime()
ConsoleWrite($maxIdle_min & " " & $IdleTime & @CRLF)
Until $IdleTime > $maxIdle_min*60*1000
Kill()
Func Kill()
ProcessClose ($pid)
Exit
EndFunc
mfg (Auto)Bert
Hallo mongobongo,
hier noch die Lösung mit Schleife (wenn man die Zinseszinsformel nicht kennt):
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Effektivzinsrechner | Lizenz: 4lph4", 346, 262, 284, 213)
$Label1 = GUICtrlCreateLabel("Leihbetrag", 24, 24, 117, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Verdana")
$Label2 = GUICtrlCreateLabel("Leihdauer", 24, 64, 109, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Verdana")
$Label3 = GUICtrlCreateLabel("Prozentsatz", 24, 104, 127, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Verdana")
$hKapital = GUICtrlCreateInput("", 184, 32, 129, 21)
$hZeit = GUICtrlCreateInput("", 184, 64, 129, 21)
$hZinssatz = GUICtrlCreateInput("", 184, 104, 129, 21)
$Button1 = GUICtrlCreateButton("Endsumme berechnen", 24, 136, 289, 33, 0)
$Group1 = GUICtrlCreateGroup("", 8, 8, 329, 241)
$Label4 = GUICtrlCreateLabel("Endsumme", 112, 176, 120, 29)
GUICtrlSetFont(-1, 16, 400, 0, "Verdana")
$hErgebnis = GUICtrlCreateInput("", 56, 208, 225, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
;GUICtrlSetData($i, 0)
$i = 0
$Kapital = GUICtrlRead($hKapital)
$Zinssatz = GUICtrlRead($hZinssatz)
$Zeit = GUICtrlRead($hZeit)
#cs
While $i < $Zeit ;Lösung mit While Wend
$Zins = $Kapital * $Zinssatz / 100
ConsoleWrite(" nach " & $i & "Jahren: " & $Kapital & " " & $Zins & @CRLF)
$Kapital = $Kapital + $Zins
$i = $i + 1
WEnd
#ce
For $i = 1 To $Zeit ;bessere Lösung mit For next
$Zins = $Kapital * $Zinssatz / 100
ConsoleWrite(" nach " & $i & "Jahren: " & $Kapital & " + Zins für Jahr " & $i & ": " & $Zins & @CRLF)
$Kapital = $Kapital + $Zins
Next
GUICtrlSetData($hErgebnis, round($Kapital,2))
#cs
GUICtrlSetData($hKapital,"")
GUICtrlSetData($Zeit,"")
GUICtrlSetData($hZinssatz,"")
#ce
EndSwitch
WEnd
gleiches Ergebnis, nur mehr Rechenaufwand
mfg (Auto)Bert
Hallo Rubberducky,
schau dir in der Hilfe GuiCtrlSetData und GuiCtrlRead an, hier das Skript
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;HotKeySet("{ESC}", "_schliessen") ; <=========================
Opt('GUICloseOnESC',1) ; <=========================
#Region ### START Koda GUI section ### Form=
$Ausgabe = ""
$Title = GUICreate("Taschenrechner", 210, 228, 200, 100)
$menu1 = GUICtrlCreateMenu("Main")
$menu11 = GUICtrlCreateMenuItem("About", $menu1)
$menu12 = GUICtrlCreateMenuItem("Exit", $menu1)
$Label1 = GUICtrlCreateLabel($Ausgabe, 8, 10, 193, 21)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT + $GUI_DOCKHEIGHT)
$zahl1 = GUICtrlCreateButton("1", 8, 120, 33, 33, $WS_GROUP)
$zahl2 = GUICtrlCreateButton("2", 48, 120, 33, 33, $WS_GROUP)
$zahl3 = GUICtrlCreateButton("3", 88, 120, 33, 33, $WS_GROUP)
$zahl4 = GUICtrlCreateButton("4", 8, 80, 33, 33, $WS_GROUP)
$zahl5 = GUICtrlCreateButton("5", 48, 80, 33, 33, $WS_GROUP)
$zahl6 = GUICtrlCreateButton("6", 88, 80, 33, 33, $WS_GROUP)
$zahl7 = GUICtrlCreateButton("7", 8, 40, 33, 33, $WS_GROUP)
$zahl8 = GUICtrlCreateButton("8", 48, 40, 33, 33, $WS_GROUP)
$zahl9 = GUICtrlCreateButton("9", 88, 40, 33, 33, $WS_GROUP)
$Zahl0 = GUICtrlCreateButton("0", 8, 160, 73, 33, $WS_GROUP)
$komma = GUICtrlCreateButton(",", 88, 160, 33, 33, $WS_GROUP)
$plus = GUICtrlCreateButton("+", 128, 160, 33, 33, $WS_GROUP)
$minus = GUICtrlCreateButton("-", 128, 120, 33, 33, $WS_GROUP)
$mal = GUICtrlCreateButton("*", 128, 80, 33, 33, $WS_GROUP)
$durch = GUICtrlCreateButton("/", 128, 40, 33, 33, $WS_GROUP)
$gleich = GUICtrlCreateButton("=", 168, 120, 33, 73, $WS_GROUP)
$Pi = GUICtrlCreateButton("Pi", 168, 80, 33, 33, $WS_GROUP)
$clear = GUICtrlCreateButton("Clear", 168, 40, 33, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg() ; <================
Switch $nMsg ; <================
Case $menu11
MsgBox(1, "About", "")
Case $menu12, $GUI_EVENT_CLOSE ; <================
MsgBox(1, "Exit", "Danke, dass sie den Taschenrechner benutzt haben.")
Exit
Case $clear
$Ausgabe = "0"
Case $Zahl0
$Ausgabe = "0"
Case $zahl1
$Ausgabe = "1"
Case $zahl2
$Ausgabe = "2"
Case $zahl3
$Ausgabe = "3"
Case $zahl4
$Ausgabe = "4"
Case $zahl5
$Ausgabe = "5"
Case $zahl6
$Ausgabe = "6"
Case $zahl7
$Ausgabe = "7"
Case $zahl8
$Ausgabe = "8"
Case $zahl9
$Ausgabe = "9"
Case $durch
$Ausgabe = "/"
Case $mal
$Ausgabe = "*"
Case $Pi
$Ausgabe = "3,1415926535897932384626433832795"
EndSwitch
if GuiCtrlRead($Label1) <> $Ausgabe Then GUICtrlSetData($Label1, $Ausgabe) ; < ===============
WEnd
;Func _schliessen()
; Exit
;EndFunc ;==>_schliessen
Hallo xanicel,
Zeile 10 muss so aussehen
[autoit]If Not _FileReadToArray($dateiname, $aRecords) Then
[/autoit]da in $dateiname ja bereits der komplette Pfad (siehe Zeile 7)
mfg (Auto)Bert
Hallo LoVeOrHaTeMe,
hier ein abgeändertes Beispiel aus der Hilfe zu _GUICtrlEdit_GetSel:
#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiEdit.au3>
#include <GuiStatusBar.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]$Debug_Ed = False ; Check ClassName being passed to Edit functions, set to True and use a handle to another control to see it work
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
Local $StatusBar, $hEdit, $hGUI, $Text
Local $sFile = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir") & "\include\changelog.txt"
Local $aPartRightSide[3] = [190, 378, -1], $aSel
; Create GUI
$hGUI = GUICreate("Edit Get Sel", 400, 300)
$hEdit = GUICtrlCreateEdit("", 2, 2, 394, 268, BitOR($ES_WANTRETURN, $WS_VSCROLL))
$StatusBar = _GUICtrlStatusBar_Create($hGUI, $aPartRightSide)
_GUICtrlStatusBar_SetIcon($StatusBar, 2, 97, "shell32.dll")
GUISetState()
; Set Margins
_GUICtrlEdit_SetMargins($hEdit, BitOR($EC_LEFTMARGIN, $EC_RIGHTMARGIN), 10, 10)
; Set Text
_GUICtrlEdit_SetText($hEdit, FileRead($sFile))
; Set Sel
_GUICtrlEdit_SetSel($hEdit, 15, 20)
; Get Sel
$aSel = _GUICtrlEdit_GetSel($hEdit)
_GUICtrlStatusBar_SetText($StatusBar, "Start: " & $aSel[0])
_GUICtrlStatusBar_SetText($StatusBar, "End: " & $aSel[1], 1)
$Text = StringMid(GUICtrlRead($hEdit),$aSel[0]+1,$aSel[1]-$aSel[0])
ConsoleWrite($Text & @CRLF)
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main
mfg (Auto)Bert
