Sleep :O
peethebee
Sleep :O
peethebee
1,6 Sek., um eine Seite zu laden halte ich nicht wirklich für lang. Firefox lädt bei mir selbst google.de in 1,2 Sek...
peethebee
Die IE.au3 kann auch vollständig im Hintergrund arbeiten (siehe _IECreate, englische Hilfe).
Vielleicht reicht für deinen Zweck aber schon _INetGetSource...
peethebee
Bisschen was steht ja in der Hilfe. Mehr könnte man ausprobieren...
Aber von einer Abhängigkeitsliste habe ich noch nichts gehört oder gesehen.
peethebee
Hi!
Fixed.
#include <array.au3>
#include <GUIConstants.au3>
$gui=GUICreate("Settings", 350, 300, 100, 200)
GUICtrlCreateLabel("Bitte wählen sie die Programme aus die sie installieren möchten", 10, 10, 300, 15)
GUICtrlCreateLabel("und klicken sie anschließend auf Ändern und danach auf Exit", 10, 25, 300, 15)
$check1 = GUICtrlCreateCheckbox("Scite", 10, 50)
$check2 = GUICtrlCreateCheckbox("Nero", 10, 70)
$check3 = GUICtrlCreateCheckbox("Office 2003", 10, 90)
$check4 = GUICtrlCreateCheckbox("ZoneAlarm", 10, 110)
$check5 = GUICtrlCreateCheckbox("Steam", 10, 130)
$check6 = GUICtrlCreateCheckbox("IrfanView", 10, 150)
GUISetState()
$exit = GUICtrlCreateButton("Exit", 90, 250, 70, 30)
$change = GUICtrlCreateButton("Ändern", 10, 250, 70, 30)
FileDelete("C:\autoitinstallerfile1.txt")
$gui2 = GUICreate("Scite", 200, 200, 100, 100, $WS_POPUPWINDOW)
GUICtrlCreatePic("C:\scite.jpg", 0, 0, 600, 600)
GUISetState(@SW_HIDE)
Func GetPos()
$a = GUIGetCursorInfo($gui)
;_ArrayDisplay($a)
If not @error and $a[4] = "5" Then
$mouse=MouseGetPos()
WinMove($gui2, "", $mouse[0] + 10, $mouse[1] + 10)
GUISetState(@SW_SHOW, $gui2)
Else
GUISetState(@SW_HIDE, $gui2)
EndIf
EndFunc ;==>GetPos
Do
GetPos()
$msg = GUIGetMsg()
If $msg = $exit Or $msg = $change Then
FileDelete("C:\autoitinstallerfile1.txt")
;----------------------------------------------------------------------
If GUICtrlRead($check1) = $GUI_CHECKED Then
FileWriteLine("C:\autoitinstallerfile1.txt", "1")
Else
FileWriteLine("C:\autoitinstallerfile1.txt", "0")
EndIf
;----------------------------------------------------------------------
If GUICtrlRead($check2) = $GUI_CHECKED Then
FileWriteLine("C:\autoitinstallerfile1.txt", "1")
Else
FileWriteLine("C:\autoitinstallerfile1.txt", "0")
EndIf
;----------------------------------------------------------------------
If GUICtrlRead($check3) = $GUI_CHECKED Then
FileWriteLine("C:\autoitinstallerfile1.txt", "1")
Else
FileWriteLine("C:\autoitinstallerfile1.txt", "0")
EndIf
;----------------------------------------------------------------------
If GUICtrlRead($check4) = $GUI_CHECKED Then
FileWriteLine("C:\autoitinstallerfile1.txt", "1")
Else
FileWriteLine("C:\autoitinstallerfile1.txt", "0")
EndIf
;----------------------------------------------------------------------
If GUICtrlRead($check5) = $GUI_CHECKED Then
FileWriteLine("C:\autoitinstallerfile1.txt", "1")
Else
FileWriteLine("C:\autoitinstallerfile1.txt", "0")
EndIf
;----------------------------------------------------------------------
If GUICtrlRead($check6) = $GUI_CHECKED Then
FileWriteLine("C:\autoitinstallerfile1.txt", "1")
Else
FileWriteLine("C:\autoitinstallerfile1.txt", "0")
EndIf
EndIf
Sleep(100)
Until $msg = $exit Or $msg = $GUI_EVENT_CLOSE
MsgBox(0, "Achtung", "Die Änderungen wurden vorgenommen und gespeichert")
;run( "install2.exe)
Edit: Fenster verschönert.
peethebee
TCP/IP Chat + RSA Verschlüsselung!
PDf erstellen ohne Adobe und Postscript
FileWrite in Word
Zugegebenermaßen nicht ganz leicht zu finden ;).
peethebee
call ("Main") -> return
Sonst mal bisschen über Recursion Level googlen.
Edit: Und bitte mal in der Hilfe nachlesen, wie man Funktionen aufruft (Tipp von mir: nicht mit call ;))
peethebee
Das Skript ist ja nicht an IOM gebunden. Installieren kann man es ja auch ohne IOM mit dem Skript.
peethebee
_FileWriteFromArray(@ScriptDir & "\user.ini", $array, 1)
Naja, wenn du ihn selbst schreibst, ist alles klar. Wenn du eine nicht-standard-UDF benutzt oder eine Funktion von jemand anderem, dann musst du halt eine Genehmigung haben, das zu verwenden und kommerziell vertreiben zu dürfen.
peethebee
Theoretisch PixelChecksum... Gibt aber sicher auch andere Wege.
peethebee
Unter der Voraussetzung, dass du die Rechte an allen (!) Teilen des Quelltextes hast, sehe ich da kein Problem.
peethebee
GUICtrlCreateTabItem("1. &Tab")
GUICtrlCreateTabItem("2. T&ab")
GUICtrlCreateTabItem("3. Ta&b")
Keine Ahnung, ob das schon reicht.
peethebee
Hast du Adminrechte? Könnte hilfreich sein.
Einfach mit:
#RequireAdmin
holen.
peethebee
AutoRuns kann afaik auch Treiber rausnehmen aus dem Startprozess. Aber nur anwenden, wenn du genau weißt, welcher es ist.
peethebee
1 ist ein wahrer Ausdruck (wie True), also Endlosschleife aus der man nur mit Exitloop rauskommt.
peethebee
Was soll passieren? Was passiert?
Keiner hier hat eine Glaskugel...
peethebee
Dim $pw1 = 0, $pw2 = 1
While ($pw1 <> $pw2)
$pw1 = InputBox("Passwort", "PW1", "", "*")
If @error Then Exit
$pw2 = InputBox("Passwort2", "PW2", "", "*")
If @error Then Exit
If ($pw1 <> $pw2) Then
ContinueLoop
EndIf
ExitLoop
WEnd
MsgBox(0, "", "Raus")
peethebee
Edit: Langsamer ;).
:willkommen:
Denke schon, dass du dich hier wohlfühlen wirst :).
peethebee
Herzlich willkommen bei uns :).
Geduld haben wir immer, wenn man sich richtig verhält ;).
peethebee