Warum muss da überhaupt ein Notepad geöffnet werden? mach doch ein eigenes GUI mit GUICtrlCreateEdit drinne. Dann kannste doch den Text dadrin (mit GUICtrlRead auslesen) überall hin speichern wo du willst - nur halt ohne unsichere Send befehle.
Beiträge von SEuBo
-
-
Quick'n'dirty
Spoiler anzeigen
[autoit]#include <EditConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Name", @DesktopWidth, @DesktopHeight, 0, 0)
$Benutzer = GUICtrlCreateInput("Benutzer", 496, 240, 225, 21)
$Passwort = GUICtrlCreateInput("Passwort", 496, 288, 225, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
$Button1 = GUICtrlCreateButton("Login", 552, 336, 129, 41)
Global $iLoginTry, $Dummy = GUICtrlCreateDummy()
GUISetState()While Sleep(10)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Switch GUIGetMsg()
Case -3
Exit
Case $Button1
$iLoginTry += 1
If GUICtrlRead($Benutzer) = "Benutzer" And GUICtrlRead($Passwort) = "Passwort" Then ContinueCase
If $iLoginTry < 3 Then MsgBox(0, "", "Noch " & 3 - $iLoginTry & " Loginversuche übrig!")
If $iLoginTry = 3 Then MsgBox(16, "Achtung!", "Das hier wäre der Shutdown!")
Case $Dummy
MsgBox(0, "", "Login erfolgreich!")
GUIDelete($Form1)
ExitLoop
EndSwitch
WEndMsgBox(0,"","Hier gehts weiter")
[/autoit] -
Einmal heißt der Array ja auch $aNKo2 und einmal $aNko2.
Man beachte das k!
-
Wenn du noch das Leerzeichen vor _SciTEOpen wegmachst, dürfte das die Lösung sein
@PokerFace: wenn du nur ein Script ausführen willst, dann doch lieber so?
Spoiler anzeigen
[autoit]HotKeySet("^A", "RunScript")
[/autoit] [autoit][/autoit] [autoit]While Sleep(10)
[/autoit] [autoit][/autoit] [autoit]
WEndFunc RunScript()
[/autoit]
Local $sPath = @TempDir & "\~tempscript", $iCnt
While FileExists($sPath & $iCnt & ".au3") * Sleep(10)
$iCnt += 1
WEnd
Local $sPath = $sPath & $iCnt & ".au3"
FileWrite($sPath, ClipGet())
RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & $sPath & '"')
Sleep(100)
While FileExists($sPath) * Sleep(10)
FileDelete($sPath)
WEnd
EndFunc ;==>RunScript -
Hallo Monkey,
Habe das Script jetzt noch einmal aktualisiert. Vllt funktioniert es jetzt auch unkompiliert bei dir.
Jedenfalls habe ich das ganze um ein paar Debugzeilen erweitert. Im kompilierten Zustand kommen die Debug Ergebnisse in eine Datei Namens "_Calltips_Debug.txt" im Scriptverzeichniss geschrieben. Im nicht kompilierten Zustand finde die Ausgabe in der SciTE Konsole statt. -
Seubo hast du denn ne ahnung woran das liegen könnte?
Würde mic sehr freuen wenn ich dein programm benutzen könne
Ehrlich gesagt hab ich keine Ahnung. schon probiert das Script zu compilen? (Aber nicht 64Bit, sondern 32) -
Danke dafür. Muss die Tage ein Lizenzsystem AutoIt -> PHP -> MySQL schreiben. Da ich aber 0% PHP kann, ist das schonmal ne riesen Hilfe!
-
achso stehen diese variableen aufgelistet wo das ich die lernen/nachschauen kann?
Wie Mahagon schon gesagt hat. Alle auf einem Haufen gibts nicht. Aber mal abgesehen von den AutoIt Internen constanten gibts ja noch nen haufen anderer. Und die findest du zb hier:
-
Jedoch zeigt er es mir immer an.
[autoit]
Liegt an Zeile 79:GUISetState()
[/autoit]Probiers mal so:
Spoiler anzeigen
[autoit]#region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_icon=..\..\Documents\Freetime\Roller-Coaster-Tycoon-3-icon~2.ico
#AutoIt3Wrapper_outfile=coverwalt.exe
#AutoIt3Wrapper_Res_Fileversion=0.2.0.0
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Run_AU3Check=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
;global setzen
AutoItSetOption("MustDeclareVars", 0)
Global $beenden, $cfrinput, $cfrlabel, $cfropen, $csolabel, $csoopen, $ctrinput, $nMsg, $ctrlabel, $ctropen, $FileName, $FileName2, $FileName3, $Form1_1, $help, $ini1, $ini2, $MenuItem1, $MenuItem10, $MenuItem11, $MenuItem2, $MenuItem3, $MenuItem4, $MenuItem5, $MenuItem6, $MenuItem7, $MenuItem8, $MenuItem9, $msgb, $msgb2, $msgb3, $ordner, $read, $read1
;Startsound
;SoundPlay("data/Welcome.mp3");MsgBox(0,"0","Temp: "&@TempDir)
[/autoit] [autoit][/autoit] [autoit]
Func VerzeichnisBestimmen()
$read = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Atari\RCT3", "InstallLocation")
$ini1 = IniRead("/data/config.ini", "rct3", "pfad")
$ini2 = IniRead("/data/config.ini", "msgbox", "gesetzt", "0")
If $ini2 = 0 Then IniWrite("/data/config.ini", "rct3", "pfad", "$read")EndFunc ;==>VerzeichnisBestimmen
[/autoit] [autoit][/autoit] [autoit]
;Gui
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Zip.au3>
#include <GUIListBox.au3>
#region ### START Koda GUI section ### Form=c:\users\lukiono\documents\csoinstaller.kxf
$Form1_1 = GUICreate("Custom Objects Verwalter ; Willkommen", 625, 329, 192, 124)
$MenuItem1 = GUICtrlCreateMenu("&Allgemein")
$MenuItem4 = GUICtrlCreateMenuItem("Öffnen", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("&Erweitert")
$MenuItem6 = GUICtrlCreateMenuItem("Einstellungen", $MenuItem2)
$MenuItem7 = GUICtrlCreateMenuItem("CSO verwalten", $MenuItem2)
$MenuItem10 = GUICtrlCreateMenuItem("CTR verwalten", $MenuItem2)
$MenuItem11 = GUICtrlCreateMenuItem("CFR verwalten", $MenuItem2)
$MenuItem3 = GUICtrlCreateMenu("&Infos")
$MenuItem8 = GUICtrlCreateMenuItem("Hilfe", $MenuItem3)
$MenuItem9 = GUICtrlCreateMenuItem("Über dieses Programm", $MenuItem3)
$ordner = GUICtrlCreateInput("", 8, 64, 473, 21)
$csoopen = GUICtrlCreateButton("Datei öffnen", 496, 64, 121, 33, $WS_GROUP)
$beenden = GUICtrlCreateButton("Beenden", 208, 264, 161, 33, $WS_GROUP)
$help = GUICtrlCreateButton("?", 576, 264, 33, 33, $WS_GROUP)
$cfrinput = GUICtrlCreateInput("", 8, 200, 473, 21)
$ctrinput = GUICtrlCreateInput("", 8, 136, 473, 21)
$ctropen = GUICtrlCreateButton("Datei öffnen", 496, 136, 121, 33, $WS_GROUP)
$cfropen = GUICtrlCreateButton("Datei öffnen", 496, 200, 121, 33, $WS_GROUP)
$csolabel = GUICtrlCreateLabel("Custom Scenery Objects / CSO", 16, 32, 312, 26)
GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
GUICtrlSetColor(-1, 0x008000)
$ctrlabel = GUICtrlCreateLabel("Custom Tracked Rides / CTR", 16, 104, 290, 26)
GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
GUICtrlSetColor(-1, 0x008000)
$cfrlabel = GUICtrlCreateLabel("Custom Flat Rides / CFR", 16, 176, 257, 26)
GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
GUICtrlSetColor(-1, 0x008000)
GUISetState(@SW_SHOW, $Form1_1)
#endregion ### END Koda GUI section ###;GUI CSO-Verwalter
[/autoit] [autoit][/autoit] [autoit]
#region ### START Koda GUI section ### Form=C:\Users\lukiono\Desktop\misc\coverwalter\csoverwalter.kxf
$csoverwalter = GUICreate("CSO Verwalter", 483, 443, 192, 124)
GUISetState(@SW_HIDE)
$List1 = GUICtrlCreateList("", 16, 24, 233, 383)
$Button1 = GUICtrlCreateButton("CSO löschen", 264, 96, 185, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("CSO zippen", 264, 168, 185, 41, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Duplikate finden", 264, 240, 185, 41, $WS_GROUP)
#endregion ### END Koda GUI section ###
;--------------------------
copzip()Func copzip()
[/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>copzipGUISetHelp("gdheue")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;~ GUISetState()
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
If $nMsg[1] = $Form1_1 Then Exit
GUISetState(@SW_HIDE,$nMsg[1])
Case $MenuItem7
GUISetState(@SW_SHOW,$csoverwalter)
Case $beenden
$msgb = MsgBox(4, "Beenden", "Wollen Sie wirklich beenden?")
If $msgb = 6 Then Exit
Case $MenuItem5
$msgb2 = MsgBox(4, "Beenden", "Wollen Sie wirklich beenden?")
If $msgb2 = 6 Then Exit
Case $csoopen
$FileName = FileOpenDialog("Datei aussuchen", @ScriptDir, "ZIP(*.zip)")
GUICtrlSetData($ordner, $FileName)
$read1 = GUICtrlRead($ordner)
$read2 = _Zip_UnzipAll($read1, @TempDir & "/cso/", 0)
$fileread1 = FileRead("/style.common.ovl")Case $ctropen
[/autoit] [autoit][/autoit] [autoit]
$FileName2 = FileOpenDialog("Datei aussuchen", @ScriptDir, "ZIP(*.zip)")
GUICtrlSetData($ctrinput, $FileName2)Case $cfropen
[/autoit] [autoit][/autoit] [autoit]
$FileName3 = FileOpenDialog("Datei aussuchen", @ScriptDir, "ZIP(*.zip)")
GUICtrlSetData($cfrinput, $FileName3)Case $MenuItem6
[/autoit]
$msgb3 = MsgBox(16 + 0, "Nicht verfügbar", "Diese Funktion steht derzeit nicht zur Verfügung")
Case $MenuItem7
RunWait("csoconf.EXE")
Case $MenuItem10
RunWait("ctrconf.exe")
Case $MenuItem11
RunWait("cfrconf.exe")
Case $MenuItem8
$msgb3 = MsgBox(16 + 0, "Nicht verfügbar", "Diese Funktion steht derzeit nicht zur Verfügung")
Case $MenuItem9
$msgb3 = MsgBox(16 + 0, "Nicht verfügbar", "Diese Funktion steht derzeit nicht zur Verfügung")
EndSwitch
WEnd -
$GUI_EVENT_CLOSE = -3
-
Einen herzlichen Glückwunsch wünsche ich der Dame
-
Hört sich irgendwie nach einem Captcha an?
-
Und da der Pfad Leerzeichen enthalten könnte:
[autoit]Run('mspaint.exe "' & $pfad & '"')
[/autoit] -
Hier wenigstens noch ein Beispiel.
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>$hGUI = GUICreate("Form1", 535, 160)
[/autoit] [autoit][/autoit] [autoit]
$cPath = GUICtrlCreateInput("Input1", 25, 20, 340, 25)
$cFSDialog = GUICtrlCreateButton("...", 375, 20, 30, 25)$cButton2 = GUICtrlCreateButton("Button2", 265, 70, 220, 65)
[/autoit] [autoit][/autoit] [autoit]
$cButton3 = GUICtrlCreateButton("Button3", 25, 70, 220, 65)
GUICtrlSetState($cButton2, $GUI_DISABLE)
GUICtrlSetState($cButton3, $GUI_DISABLE)
GUISetState(@SW_SHOW)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cFSDialog
$sPath = FileSaveDialog("", "", "All (*.*)")
If Not @error Then
GUICtrlSetData($cPath, $sPath)
GUICtrlSetState($cButton2, $GUI_ENABLE)
GUICtrlSetState($cButton3, $GUI_ENABLE)
EndIf
EndSwitch
WEnd -
Auch von mir noch Happy Birthday !
-
"^" heißt ja, dass alle Zeichen gesucht werden, die nicht "/s", also Leerzeichen etc. sind und das "*$" ?
Nein, falscher zusammenhang.
Das ^ hat diese Bedeutung nur, wenn es in eckigen Klammern steht
zum Beispiel. Das wäre aber das gleich wieIn dem Pattern hier
stehen ^ und $ allerdings für Stringanfang und -Ende -
Schau nochmal in Post 4 und überleg dir was du vergessen hast
(Fängt mit Inc and und hört mit lude auf.)
-
-
[autoit]
GUICtrlSetState(-1,$GUI_DISABLE)
[/autoit]
Nach dem GUICtrlCreatePic. Steht aber auch in der Hilfe zu GUICtrlCreatePic. Les mal die Remarks -
Spoiler anzeigen
[autoit]#include <FF.au3>
[/autoit] [autoit][/autoit] [autoit]_FFConnect()
[/autoit]
Local $iOldTab = _FFTabGetSelected(), $iFFLength = _FFGetLength("tabs"), $sURL
For $i = 0 To $iFFLength - 1
_FFTabSetSelected($i)
$sURL &= _FFCmd(".location.href") & @CRLF
Next
_FFTabSetSelected($iOldTab)
FileDelete(@ScriptDir & "\FireFox.txt")
FileWrite(@ScriptDir & "\FireFox.txt",$sURL)
_FFDisConnect()