welchen Fehler bekommst Du denn zurück?
Beiträge von Schnuffel
-
-
in Scite:
Alt+F6 -
ersetze mal diese Zeile und siehe was passiert
[autoit]$License_GUI = GUICreate("", 0, 0, 100, 100, $WS_CHILD, -1, $MainGUI)
[/autoit]
mit:
$License_GUI = GUICreate("", 498, 316, 0, 0, $WS_CHILD, -1, $MainGUI) -
ich denke du solltest dich erstmal mit den Grundzügen von AutoIt / Programmierung im Allgemeinen vertraut machen.
Das mit dem OnEventMode kommt dann später
-
versuch mal den Ansatz, ist aber keine Parade-Lösung.
Wie Oscar schon schreibt ist das eigentlich was für den OnEventMode...Spoiler anzeigen
[autoit]#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>
#include <IE.au3>
#include <INet.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <EditConstants.au3>
DirCreate ( @ScriptDir & "\Files")
FileInstall ("C:\Users\Franz\Desktop\lizens.txt", @ScriptDir & "\Files\lizens.DATA")
$file = FileRead ( @ScriptDir & "\Files\lizens.DATA");meine Änderungen... Anfang
[/autoit] [autoit][/autoit] [autoit]
Global $Button1, $Button2, $Button3, $Button4, $Button5, $Button6, $Button7, $Button8, $Button9, $Button10
Global $Checkbox1, $Checkbox2, $Checkbox3, $Checkbox4, $Checkbox5, $Checkbox6, $Checkbox7, $Checkbox8
;meine Änderungen... Ende#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$hGUI1 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
$edit = GUICtrlCreateEdit ( $file, 165, 20, 350, 200,$ES_READONLY)
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Checkbox1 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen Nicht einverstanden", 168, 224, 270, 17)
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen einverstanden", 168, 264, 270, 17)
$Button1 = GUICtrlCreateButton("Schließen", 440, 264, 75, 25, 0)
GUICtrlSetState($Button1,$GUI_CHECKED)
$Button2 = GUICtrlCreateButton("Weiter", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
GUICtrlDelete ($Checkbox1)
GUICtrlDelete ($Checkbox2)
GUICtrlDelete ($Button1)
GUICtrlDelete ($Button2)
GUICtrlDelete ($edit)
ExitLoop
Case $Checkbox1
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox1,-1)
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox1,1)
Case $Checkbox2
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button1
ExitEndSwitch
[/autoit] [autoit][/autoit] [autoit]
WEnd$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
[/autoit] [autoit][/autoit] [autoit]
$Group1 = GUICtrlCreateGroup("Optionen", 145, 8, 450, 121)
$Label1 = GUICtrlCreateLabel("Installationspfad angeben", 160, 32, 125, 17)
$Checkbox3 = GUICtrlCreateRadio("Standart wählen", 160, 96, 113, 17)
GUICtrlSetState($Checkbox3, $GUI_CHECKED)
$Checkbox4 = GUICtrlCreateRadio("Pfad selber wählen", 300, 96, 113, 17)
$Input1 = GUICtrlCreateInput(@ScriptDir,160, 64, 345, 21)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Durchsuchen", 515, 64, 75, 25, 0)
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Status",145, 136, 450, 73)
$Progress1 = GUICtrlCreateProgress(160, 160, 350, 25)
$Button6 = GUICtrlCreateButton("Installieren", 515, 160, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Zurrück", 440, 264, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Abbrechen", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
Case $Button8
If MsgBox(32 + 4, "Beenden", "Wollen sie wirklich Installation beenden?") = 6 Then _End()
Case $Checkbox3
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlSetData($Input1, "C:\Programme")
GUICtrlSetState($Button5, $GUI_DISABLE)
Guictrlsetstate($Checkbox3,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox3,1)
Case $Checkbox4
GUICtrlSetState($Button5, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button5, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
GUICtrlSetState($Input1, $GUI_ENABLE)
Case $Button5
GUICtrlSetData($Input1, FileSelectFolder("Bitte Installationspfad wählen","", 1))
$PH = GUICtrlRead($Input1, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
EndIf
Case $Button6
$PH1 = GUICtrlRead($Input1, 1)
If $PH1 < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
DirCreate($PH1)
do
FileInstall ( "C:\Users\Franz\Desktop\Hotkey\hotkey.exe", GUICtrlRead($Input1) & '\hotkey.exe')
$PH1 = $PH1 + 50
sleep(1000)
guictrlsetdata($Progress1 , $PH1)
until $PH1 = 100
sleep(1000)
GUICtrlSetState($Button6, $GUI_DISABLE)
GUICtrlSetData($Button6, 'Fertig!')
;_sound()EndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndSwitch
WEndFunc _End()
[/autoit]
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui1, "int", 500, "long", 0x00050004)
Exit
EndFunc -
guckst Du erste Seite erster Thread...
-
Hallo franjob,
bitte in Zukunft den Spoiler (SP) und den AutoIt-Quellcode Button für Deinen Code verwenden.Spoiler anzeigen
[autoit]#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>
#include <IE.au3>
#include <INet.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <EditConstants.au3>
$file = FileRead ( "lizens.txt")#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$hGUI1 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
GUICtrlCreateEdit ( $file, 165, 20, 350, 200,$ES_READONLY)
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Checkbox1 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen Nicht einverstanden", 168, 224, 270, 17)
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen einverstanden", 168, 264, 270, 17)
$Button1 = GUICtrlCreateButton("Schließen", 440, 264, 75, 25, 0)
GUICtrlSetState($Button1,$GUI_CHECKED)
$Button2 = GUICtrlCreateButton("Weiter", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ####Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$hGUI2 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("Optionen", 145, 8, 450, 121)
$Label1 = GUICtrlCreateLabel("Installationspfad angeben", 160, 32, 125, 17)
$Checkbox3 = GUICtrlCreateRadio("Standart wählen", 160, 96, 113, 17)
GUICtrlSetState($Checkbox3, $GUI_CHECKED)
$Checkbox4 = GUICtrlCreateRadio("Pfad selber wählen", 300, 96, 113, 17)
$Input1 = GUICtrlCreateInput("C:\Programme",160, 64, 345, 21)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Durchsuchen", 515, 64, 75, 25, 0)
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Status",145, 136, 450, 73)
$Progress1 = GUICtrlCreateProgress(160, 160, 350, 25)
$Button6 = GUICtrlCreateButton("Installieren", 515, 160, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Zurrück", 440, 264, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Abbrechen", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox1,-1)
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox1,1)
Case $Checkbox2
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button1
Exit
Case $Button8
If MsgBox(32 + 4, "Beenden", "Wollen sie wirklich Installation beenden?") = 6 Then _End()
Case $Button2
GUISetState ( @SW_HIDE, $hGUI1)
GUISetState ( @SW_SHOW, $hGUI2)
Case $Checkbox3
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlSetData($Input1, "C:\Programme")
GUICtrlSetState($Button5, $GUI_DISABLE)
Guictrlsetstate($Checkbox3,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox3,1)
Case $Checkbox4
GUICtrlSetState($Button5, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button5, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button5
GUICtrlSetData($Input1, FileSelectFolder("Bitte Installationspfad wählen","", 1))
$PH = GUICtrlRead($Input1, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
EndIf
Case $Button6
$PH1 = GUICtrlRead($Input1, 1)
If $PH1 < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
DirCreate($PH1)
FileInstall ( "C:\Users\Franz\Desktop\Hotkey\hotkey.exe", GUICtrlRead($Input1) & '\hotkey.exe')
GuiCtrlSetState($Button6,$GUI_DISABLE)
do
$PH1 = $PH1 + 10
sleep(1000)
guictrlsetdata($Progress1 , $PH1)
until $PH1 = 100
GUICtrlSetData($Button6,"Fertig")
sleep(1000)
;_sound()
EndIfEndSwitch
[/autoit]
WEnd
Func _End()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui1, "int", 500, "long", 0x00050004)
Exit
EndFunc -
dann vielleicht so:
Spoiler anzeigen
[autoit]$file=FileOpen(@ScriptDir&"\test.exe",16)
[/autoit]
$read=FileRead($file)
FileClose($file)
$copy = FileOpen(@ScriptDir&"\test222.exe",25)
Filewrite($copy,$read)
FileClose($copy) -
ach BugFix,
ich mag Deine Akrebie.Ich hätte gesagt partial ist "Teil eines Begriffes". Unabhängig davon, ob am Anfang oder nicht.
Wenn es denn nur der partielle Teil am Anfang sein soll, kannst Du ja noch ein Flag 5 einfügen.
(Halte ich aber für übertrieben)Natürlich muß das Eukalyptus entscheiden...
-
selbe Antwort + Flag 2 (alleinstehend Ja/Nein/)
ich kann Dein Problem nicht nachvollziehen.
Gibt es denn eine Konstellation die über die Flags nicht abgegriffen wird?Edit: Ich glaube, ich mache doch mit...
-
BugFix ,
das beantwortet sich doch eigentlich von selbst, da es ja ein Flag "Case sensitiv" gibtPS: ich traue mich gar nicht mitmachen,
wenn hier die "Größen" antreten und sogar schon fertig sind ... -
Spoiler anzeigen
[autoit]$file = FileOpen("123.txt", 0)
[/autoit] [autoit][/autoit] [autoit]for $i = 1 to 2 step 1
[/autoit]
sleep(3000)
$line = FileReadLine($file,$i)
MouseClick("left",458,$line,1)
Next -
-
-
wenn ich fragen darf...
Wofür braucht man sowas?
-
-
auch von mir Glückwunsch.
@progandy: wenn Du in der Spiegelung den Bindestrich weglässt, den es oben nicht gibt
dann passt der Begriff "Übersetzung" auch kantenbündig rechts wie links unter "Translation". -
nein muß sie nicht.
mit FileInstall wird eine beliebige Datei in das Script compiliert.
Beim Aufruf der Compilierten .exe wird die Datei dann beim Start an die angegebenen Stelle extrahiert.
Dort kann diese dann aufgerufen werden.
D.h. Du gibst eine Datei weiter und in dieser ist die zweite enthalten.
Solange Du dein Script nicht compilierst wird die angegebenen Datei "nur" kopiert, um trotzdem testen zu können.
Aber so wie du antwortest, ist es damit nicht weit her...Zitatich les die sogar aber da ich net wusste was ich such...
-
Hallo Jeka und willkommen,
ohne Dein bisheriges Script oder einem Beispiel Deines Problems könne wir nur raten oder auf die Hilfe zu TrayMenu verweisen.
Vielleicht kannst Du Dein Script posten, dann können wir bestimmt helfen. -
Zitat
wie sollte ich sowas verwirklichen?
was ist aus Deinem eigenen Interesse geworden... ?Am Besten wir übernehmen auch noch das verschicken der Daten,
damit Dein Rechner nicht belastet wird.