Vielleicht erstmal FileClose, dann ein kurzer Sleep und dann ShellExecute.
Beiträge von PrideRage
-
-
Sehr schönes Script.
-
GUICtrlSetState($List2, $GUI_DISABLE) ; List2 = Passive liste
-
Aber es war eher ein ganzes Script, da ein GUI usw. dabei waren, und ein Download
-
Hallo.
Probiers mal so:Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
Global $links
_FileReadToArray(@DesktopDir & "\links.txt", $links) ; Bitte anpassen
$Form1 = GUICreate("Form1", 414, 494, 191, 124)
$Label1 = GUICtrlCreateLabel("Links Aktive", 8, 24, 62, 17)
$List1 = GUICtrlCreateList("", 8, 48, 177, 383)
$Label2 = GUICtrlCreateLabel("Links Passive", 200, 24, 69, 17)
$List2 = GUICtrlCreateList("", 200, 48, 177, 383)
;GUICtrlSetState(-1, $GUI_DISABLE)
$Label3 = GUICtrlCreateLabel("momentan Aktive.:", 8, 440, 92, 17)
;$Label4 = GUICtrlCreateLabel("http://www.DEMO.de", 112, 440, 109, 17)
;GUICtrlSetColor(-1, 0x00FF00)
$Button1 = GUICtrlCreateButton("Aktiver Link Öffnen", 8, 464, 139, 25)
$Button2 = GUICtrlCreateButton("Aktiver Link eintragen", 152, 464, 123, 25)
$Button3 = GUICtrlCreateButton("Beenden", 280, 464, 75, 25)
For $i = 1 To UBound($links) - 1
GUICtrlSetData($List1, $links[$i])
Next
GUISetState(@SW_SHOW)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$txt = _GUICtrlListBox_GetText($List1, _GUICtrlListBox_GetCurSel($List1))
ShellExecuteWait($txt)
_GUICtrlListBox_AddString($List2, $txt)
_GUICtrlListBox_DeleteString($List1, _GUICtrlListBox_GetCurSel($List1))
Case $Button2
$inpt = InputBox("Neuer Link", "Gebe den neuen Link ein!")
_GUICtrlListBox_AddString($List1, $inpt)
EndSwitch
WEnd -
Hallo peethebee
Habe dein Script mal getestet, und habe ein paar Fehler
Also ganz normal reinstellen funzt, Aber!
Wenn ich vor _GUICtrlCreateCheckbox GUICtrlCreatePic(@MyDocumentsDir & "\Eigene Bilder\avatar1.jpg", 0, 0, 700, 700) schreibe,
kann man die Checkbox nicht mehr klicken, und wenn ich GUICtrlCreatePic(@MyDocumentsDir & "\Eigene Bilder\avatar1.jpg", 0, 0, 700, 700) nach _GUICtrlCreateCheckbox schreibe, wird das Label unsichtbar, aber die Checkbox kann geklickt werden.
Irgendwie strange
MfG. PrideRage -
Könnte natürlich noch erweitert werden, aber es gibt ja schon _FileWriteToLine()
-
Wie wärs denn ganz simpel mal so:
Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
Main()
Func Main()If Not ProcessExists("Firefox.exe") Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "Fehler", "Firefox ist nicht geöffnet.")
Exit
EndIf$hFile = FileOpen('myLinks.txt', 128)
[/autoit] [autoit][/autoit] [autoit]
$sFile = FileRead($hFile)
FileClose($hFile)
$array = StringSplit($sFile, @CRLF, 1)For $i = 1 to UBound($array) - 1 Step +1
[/autoit] [autoit][/autoit] [autoit]
ShellExecute($array[$i])
NextEndFunc
[/autoit]
MfG. PrideRage -
Die beste Siggi imo.
Zitat"Jetzt, wo ich weiß wie es geht, versteh ich auch die Gebrauchsanleitung"
-
Hallo
[autoit]
Habe jetzt rausgefunden, wie man den Klick aufs GUI abfangen kann (kann verbessert werden)
Einfach Folgendes in die While Schleife einfügen: _CheckClick()
Funktion:Func _CheckClick()
[/autoit]
Local $mpos = GUIGetCursorInfo()
If $mpos[2] = 1 Then MsgBox(0, "Das ist ein Test", "Test")
EndFuncEdit: Wenn man nicht aufs GUI Klickt, dann beendet das Script sich, wegen eines Errors
ich suche noch nach der Lösung. -
Schönes Script.
Noch ne Hotkey auswahl wäre auch super. -
Es sollte wohl eher Source-Code Raten heißen
Du hast den Source-Code vergessen -
Hallo.
Der Pfad denn auch leer ?
Ich würd einfach mal die Dateien löschen, und dann DirRemove.
MfG. PrideRage -
Schönes Programm.
-
Hi.
[autoit]
Also ich weiss nicht wie es aufs GUI geht, aber auf einen Button._GUICtrlListView_SetItemFocused($ListView1, _GUICtrlListView_GetSelectedColumn($ListView1), False)
[/autoit] -
Stimmt.
Aber trotzdem, bei 2-3 Send befehlen würd ich ja nix sagen, aber das Script hat ja 38 Send befehle hintereinander. -
Sehr schönes GDI+ Script.
Ich verstehe zwar die Funktion nicht ganz, aber trotzdem mal wieder gut mit GDI+ gearbeitet -
AutoIt neueste Stabile Version: Klick
AutoIt neueste Beta Version Nochmal klick^^ -
Ok, ich wollte nur drauf aufmerksam machen, dass hier bald so ne Art Bot-Hysterie ausbricht
Nun gut, das hättest du ihm ja sagen können... Ich finds einfach nur ein bisschen hart, wenn er eine Frage stell und man ihn direkt mit den Forenregeln zurückweist, obwohl da nichts dazu drinsteht...Aha, ok. Auszug aus den Forumregeln
Folgende Inhalte sind nicht erwünscht oder gar komplett verboten.[...]
- Tools, um Nachrichten unerwünscht oft zu versenden (Spamming-Tools)
[...]
*hust* -
Beispiel Code aus meiner Expand UDF: (Bsp. 1)
Spoiler anzeigen
[autoit]Func _GUI_Expand($hGui, $iSizeX, $iSizeY, $iMode = "")
[/autoit]
Local $OrigSize = WinGetClientSize($hGui)
Local $OrigPos = WinGetPos($hGui)
Local $i = $OrigSize[0]Und dann mach ich es halt so: (Bsp. 2)
Spoiler anzeigen
[autoit]
[/autoit]
Func _GUI_Expand($hGui, $iSizeX, $iSizeY, $iMode = "")
Local $OrigSize = WinGetClientSize($hGui)
Local $OrigPos = WinGetPos($hGui)
Local $i = $OrigSize[0]Tidy korrigiert ja die Tabs.
Nachdem Tidy drüber lief, sieht der Code immer noch aus wie in Bsp. 2
Aber wenn ich SciTE schließe, und dann den Code wieder in SciTE öffne,
ist der Code wieder normal, wie in bsp. 1
