Beiträge von Tweaky
-
-
Bitte nächstes mal das komplette Script ;-), hier fehlte z. B. das erstellen der GUI
So könnte es aussehen :tongue:
Spoiler anzeigen
[autoit]#include<GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]GUICreate("My GUI")
[/autoit]
$Menu_file = GUICtrlCreateMenu("File")
$Menu_close = GUICtrlCreateMenuItem("Close", $Menu_file)
$MenuItem2 = GUICtrlCreateMenuItem("111", $Menu_file)
GUISetState ()
While 1
$Msg = GUIGetMsg()
Select
Case $Msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Menu_close
MsgBox(0, "Exit", "Exit")
Exit
Case $msg = $MenuItem2
MsgBox(0, "Mitteilung", "Funktion leider noch nicht implementiert")
EndSelect
WEnd -
Hi,
hab zwar noch nie was mit einem Menü gemacht, lasse mal die 1 in der Klammer bei $msg1 = GUIGetMsg(1) weg.Wenns nicht geht poste bitte mal den kompletten Code
-
sodele
hab nun ein bisschen getestet und nehme die Version von gtaHab sie noch erweitert, weil bei dir gaaaaaaanz kurz das Fenster "Standby, Neustart, Beenden" aufgepoppt ist.
[autoit]
Außerdem wird der IE7 nun auch bei mehr als einem Tab geschlossen$wl = WinList()
[/autoit]
For $i = 1 To $wl[0][0]
If Not BitAND(WinGetState($wl[$i][1]), 2) Then ContinueLoop
If Not $wl[$i][0] = StringInStr($wl[$i][0], "Program Manager") Then
WinClose($wl[$i][1])
If WinExists("Internet Explorer", "&Registerkarten schließen") Then ControlClick("Internet Explorer", "&Registerkarten schließen", 6)
EndIf
NextDamit erledigt :tassen:
Danke an alle für die schnelle und präzisen Vorschläge
-
also ich will alle Fenster schließen,
z. B. Explorer, Scite, IE, ...EDIT
@Dustin
du hast 2x Until drin :rofl2:
Leider geht es nicht, da der Programm Manger ja auch existiert, wenn die Fenster noch da sind -
Hi,
ich würde gerne alle Fenster schließen.Wie bekomme ich dies hin.
So hab ichs bereits probiert
[autoit]Do
[/autoit]
WinMinimizeAll()
WinKill("")
Until Not WinExists("")
Problem
also die Fenster gehen weg, dann kommt das Fenster (Standby, Neustart, Beenden), es geht die Taskleiste weg und das ganze von vorne.
Vermute mal, dass er einen (versteckten???) Prozess irgendwie auch als Fenster erkennt und dieses schließen will. Ich kann es nichtmal mit strg+alt+entf beenden sondern muß reset drücken, weil ich aus der Schleife nicht mehr rauskomme -
im Scite Edititor unter "Extras" "Koda(FormDesigner)
-
Hi,
also Koda ist im Scite Editor enthalten
http://www.autoitscript.com/autoit3/downloads.phpDer Scite Editor ist eine bessere Version wie original bei AutoIt enthalten ist
-
danke @huggy
[autoit]
das war der entscheidende Tipp#include<Array.au3>
[/autoit][autoit][/autoit][autoit]
#include<File.au3>
$Pfad = "D:\"
$datei1 = "RegTipps1.reg"
$datei2 = "RegTipps2.reg"Dim $array
[/autoit][autoit][/autoit][autoit]
_FileReadToArray($Pfad & $datei1, $array)
$file = FileOpen($Pfad & $datei2, 1+32)For $i = 1 to UBound($array) -1
[/autoit][autoit][/autoit][autoit]
FileWrite($file, $array[$i] & @CRLF)
NextFileClose($file)
[/autoit]PS: Ist egal was für Unicode ich nehme
Code32 = Use Unicode UTF16 Little Endian mode when writing text with FileWrite and FileWriteLine (default is ANSI) 64 = Use Unicode UTF16 Big Endian mode when writing text with FileWrite and FileWriteLine (default is ANSI) 128 = Use Unicode UTF8 when writing text with FileWrite and FileWriteLine (default is ANSI)
-
aha, kenn mich nicht aus mit Unicode und so.
Was muß ich dann ändern, damit es keine Probleme gibtWeiss das einer
-
Hi,
also wenn ich in den Dateieigenschaften schaue, werden bei mir beide Angaben halbiertGröße
und
Größe auf DatenträgerMir solls recht sein, auch wenn ich dies komisch finde
-
Hi,
ich habe gerade was komisches festgestellt.Wenn ich eine reg-Datei in ein Array schreibe und dann (ohne etwas daran zu ändern) das Array wieder in eine reg-Datei schreibe, dann ist die Dateigröße plötzlich nur noch halb so groß.
Ist das normal
[autoit]#include<File.au3>
[/autoit][autoit][/autoit][autoit]
$Pfad = "D:\"
$datei1 = "RegTipps1.reg"
$datei2 = "RegTipps2.reg"Dim $array
[/autoit]
_FileReadToArray($Pfad & $datei1, $array)
_FileWriteFromArray($Pfad & $datei2, $array, 1) -
nene, geht nicht :weinen:
EDIT:
Hat jemand ne Idee wie ich es ohne Tastendruck löschen könnteBisher: Wenn ich die Strg-Taste gedrückt halte und das Icon (dieses Script) in der Schnellstartleiste starte, soll "Weg 1 genommen werden".
Wenn ich keine Taste drücke, soll "Weg 2 genommen werden"
-
nö geht leider auch nicht,
komisch, echt
jedesmal wird die Tastatur verstellt -
Danke euch beiden.
Aber leder gehts immernoch nichtSpoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_icon=Icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include<Misc.au3>;Durch dieses Script wird die DFÜ-Verbindung gestartet
[/autoit] [autoit][/autoit] [autoit]
;Zusätzlich wird noch der Internet Explorer gestartet
;Wird das Script während einer aktiven Internetverbindung angeklickt, wird die Verbidung getrennt
;Außerdem werden dann noch alle Internet Explorer Fenster geschlossen$titel = "Netzwerkverbindungen"
[/autoit] [autoit][/autoit] [autoit]
$titel2 = "Verbinden mit"Opt("WinTitleMatchMode", 2)
[/autoit] [autoit][/autoit] [autoit]$dll = DllOpen("user32.dll")
[/autoit] [autoit][/autoit] [autoit]If _IsPressed("11", $dll) Then
[/autoit] [autoit][/autoit] [autoit]
$abrufen = 1
Else
$abrufen = 0
EndIfDllClose($dll)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If $abrufen = 1 Then
[/autoit]
ShellExecute("C:\Programme\Outlook Express\msimn.exe")
WinWait("- Outlook Express")
WinActivate("- Outlook Express")
Send("^m down")
Sleep(100)
Send("^m up")
Sleep(100)
WinClose("- Outlook Express")
ShellExecute("C:\Programme\Internet Explorer\iexplore.exe")
ElseIf $abrufen = 0 Then
Run("Rasphone.exe")
WinWait($titel)
If ControlCommand($titel, "&Verbinden...", "Button1", "IsVisible", "") Then
ControlClick($titel, "&Verbinden...", 1449)
WinWaitClose($titel, "&Verbinden...")
ShellExecute("C:\Programme\Internet Explorer\iexplore.exe")
Else
ControlClick($titel, "&Auflegen", 1449)
WinWait($titel, "&Ja")
ControlClick($titel, "&Ja", 6)
WinWait($titel, "Abbrechen")
ControlClick($titel,"Wählen &Sie eine Netzwerkverbi","Button2")
Do
WinClose(" - Microsoft Internet Explorer")
If WinExists("Internet Explorer", "&Registerkarten schließen") Then ControlClick("Internet Explorer", "&Registerkarten schließen", 6)
Until Not WinExists(" - Microsoft Internet Explorer")
EndIf
EndIfOder hab ich euch falsch verstanden und das Script ist falsch geändert
-
Hm, sowas suche,
finde es aber leider nicht,
ist dies ne eigene Funktion -
Ups, hast recht,
die kann ich weglassen.Hatte es ursprünglich anders geplant gehabt.
Dies war noch ein Überbleibsel davon -
hab strg mal eben gedrückt gehalten
genau so hat sich die Tastatur verhalten
Muß ich im Script was ändern, dass strg nicht dauernd gedrückt wird???
-
Hi,
mal überlegenEnter ging nicht mehr
Pfeiltaste nach links oder rechts sprang immer ein ganzes Wort weiter
Tab ging nicht mehr
Buchstaben gingen auch nicht mehrAchso: Die Tastenkombi funktioniert in einem anderen Script einwandfrei.
Nur eben hier nicht, wo ich ispressed zusätzlich verwende -
Hi,
ich will von eBay-Seiten bestimmte Bezeichnungen auslesen.Es soll die Bezeichnung des Artikels und das Datum vom Ende der Auktion ausgelesen werden.
Leider habe ich nicht wirklich ne Ahnung wie ich da anfangen soll.Könnte mir jemand einen Tipp geben
EDIT: Hat sich erledigt.
Hab die Befehle _INetGetSource und Stringbetween genommen.
Denke damit läuft esDanke