Beiträge von autoBert
-
-
Hallo Bandito1,
versuchs mal damit:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <INet.au3>$size = InetGetSize("http://www.autoit.de/index.php?page=Attachment&attachmentID=4318&h=973977700e03f30dc8cec3b5bd14090956c5f876")
[/autoit] [autoit][/autoit] [autoit]
$data=InetGet("http://www.autoit.de/index.php?page=Attachment&attachmentID=4318&h=973977700e03f30dc8cec3b5bd14090956c5f876", "C:\mydownload.zip", 1,1)
GUICreate(" Fortschritt",350,100,100,200)
$progressbar1 = GUICtrlCreateProgress(25, 25, 300, 20)While @InetGetActive
[/autoit] [autoit][/autoit] [autoit][/autoit]
GUICtrlSetData($progressbar1, INT(@InetGetBytesRead/$size * 100))
GUISetState()
WEndDen Download den ich eingetragen habe ist aus Tutorial-Engine - mein Beitrag zur Hilfe von MatthiasG (irgendwas muss ich ja zum Test downloaden).
mfg (Auto)Bert
-
Hallo team2way,
dieses Beispiel hab ich in der deutschen Hilfe gefunden,
Spoiler anzeigen
[autoit]
[/autoit]
; *******************************************************
; Example 1 - Create an empty word window and open an existing document
; *******************************************************
;
#include <Word.au3>
$oWordApp = _WordCreate ("")
$oDoc = _WordDocOpen ($oWordApp, @ScriptDir & "\Test.doc")es geht also Worddokumente zu öffnen, ich hab mich aber selbst noch nicht damit beschäftigt. Must halt die Hilfe durcharbeiten
mfg (Auto)Bet
-
Hallo PokerFace,
wenn ich nach ffmpeg google bekomme ich über 2,8 Mio Treffer. Hab zwar nicht jeden einzelnen gesichtet würde dir aber trotzdem diesen empfehlen
Edit: Link geändert
mfg (Auto)Bert
-
Verketten funktioniert
Spoiler anzeigen
[autoit]
[/autoit]
$systemzeit = @YEAR & "/" &@MON &"/" & @MDAY & @HOUR & ":" &@MIN & ":" &@SEC
MsgBox(0,"",$systemzeit)und das Beispiel aus der Hilfe auch:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <Date.au3>; Berechnet die Anzahl der Sekunden seit EPOCH (1970/01/01 00:00:00)
[/autoit] [autoit][/autoit] [autoit]
$iDateCalc = _DateDiff('s', "1970/01/01 00:00:00", _NowCalc())
MsgBox(4096, "", "Anzahl der Sekunden seit EPOCH: " & $iDateCalc); Berechnet die Anzahl der Stunden des Jahres
[/autoit]
MsgBox(4096, "", "Anzahl der Stunden dieses Jahres: " & $iDateCalc)ich denke damit ist dein Problem gelöst
mfg (Auto)Bert
-
Ich denke mit ProcessGetStats kannst es lösen
mfg (Auto)Bert
-
willst du dir deine Videos per Zufall raussuchen oder selber auswählen
mfg (Auto)Bert
-
wie bist du den zu diesem Header gekommen
mfg (Auto)Bert
-
Bei den Links die auf You-Tube Videos verweisen, kannst du die direkte Downloadadresse über Rechstklick auf den Link und danach Eigenschaften erfahren
autoit.de/wcf/attachment/4298/
Auf der Downloadseite selbst ist er auch vermerkt:
autoit.de/wcf/attachment/4299/
mfg (Auto)Bert
-
du mußt die Hochkommas entfernen, also
Spoiler anzeigen
[autoit]
[/autoit]
$title = wingettitle ("- Chat")
FileWrite ( "chat.txt",$title)mfg (Auto)Bert
-
habe kurz vor dem Einfügen von _Singleton und WinActivate den Fenster-Titel in einer Varibalen abgelegt und dann dummerweise die Variable innerhalb der Anführungszeichen hineinkopiert. Kleiner Fehler, maximale Wirkung.
funkey Danke für die Tipps, jetzt klappt alles wunderbar .Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
; *** Start added by AutoIt3Wrapper ***
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
; *** End added by AutoIt3Wrapper ***
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <Misc.au3>Opt('GUIOnEventMode', 1)
[/autoit] [autoit][/autoit] [autoit]
Opt('MUSTDECLAREVARS' ,1)Global $sTitel = 'Test AutoAdress Version 0.8.1'
[/autoit] [autoit][/autoit] [autoit]
If _Singleton($sTitel, 1) = 0 Then
MsgBox(64, $sTitel, $sTitel & ' ist bereits gestartet')
;WinSetState($sTitel, "", @SW_SHOW)
WinActivate($sTitel) ;dies Zeile funktioniert nicht obwohl AutoAdress gestartet
;WinActivate("Unbenannt -") ;diese Zeile funktioniert wenn Notepad.exe gestartet
Exit
EndIfGlobal $hfrmMain ;HauptFenster
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
[/autoit] [autoit][/autoit] [autoit]
Local $hmnuitmFile, $hmnuitmExit
$hfrmMain = GUICreate($sTitel, 800, 540, -1, -1, $WS_SIZEBOX + $WS_SYSMENU +$WS_MAXIMIZEBOX +$WS_MINIMIZEBOX)
GUISetOnEvent($GUI_EVENT_CLOSE, '_exitMain')
$hmnuitmFile = GUICtrlCreateMenu("&Datei")
$hmnuitmExit = GUICtrlCreateMenuItem("Be&enden", $hmnuitmFile)
GUICtrlSetOnEvent(-1, '_exitMain')
GUISetState(@SW_SHOW,$hfrmMain)
While 1
Sleep(1000)
WEnd
EndFuncFunc _exitMain()
[/autoit]
Switch @GUI_WINHANDLE
Case $hfrmMain
Exit
EndSwitch
EndFunc -
Hallo Mehmex,
wie schau dir das Listview-Datenbank-Beispiel an, auf das dich Nuts bereits hingewiesen hat
mfg (Auto)Bert
-
funkey die neue GUI wird erst nach der _Singletonabfrage erstellt, der neue Codeauszug im Spoiler beginnt in Zeile 1 (sind jetzt halt viele unnötige Sachen für das Beispiel enthalten)
mfg AutoBert
-
funkey Danke, hab ich probiert _Singleton klappt prima aber der Versuch mit WinActivate zur 1. Instanz zu wechseln leider nicht.
hab im 1 ein Spoiler eingebaut mit dem derzeitigen Code -
Hallo,
ich möchte nur eine Instanz meines Programmes zulassen und wenn der Anwender es noch einmal zu starten versucht automatisch zur 1. Instanz gewechselt wird.
Edit1:
Dies versuche ich mit folgendem Code zu erreichenEdit2: größeren Auszug aus Code in Spoiler
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Adressenverwaltung.exe
#AutoIt3Wrapper_Res_LegalCopyright=autoBert
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; *** Start added by AutoIt3Wrapper ***
#include <EditConstants.au3>
; *** End added by AutoIt3Wrapper ***
; *** Start added by AutoIt3Wrapper ***
#include <StaticConstants.au3>
; *** End added by AutoIt3Wrapper ***
#include<ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiTreeView.au3>
#include <GuiListView.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiStatusBar.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#Include <Misc.au3>Opt('GUIOnEventMode', 1)
[/autoit] [autoit][/autoit] [autoit]
Opt('MUSTDECLAREVARS' ,1)Global $sTitel = 'AutoAdress Version 0.8.1'
[/autoit] [autoit][/autoit] [autoit][/autoit]
If _Singleton($sTitel, 1) = 0 Then
MsgBox(64, $sTitel, $sTitel & ' ist bereits gestartet')
WinSetState($sTitel, "", @SW_SHOW)
WinActivate($sTitel) ;dies Zeile funktioniert nicht obwohl AutoAdress gestartet
;WinActivate("Unbenannt -") ;diese Zeile funktioniert wenn Notepad.exe gestartet
Exit
EndIfDas Verhindern einer 2. Instanz klappt, aber er wechselt nicht zur bereits gestarteten EXE, kommischer weise kann ich aber ohne Probleme zu Notepad wechseln.
Wäre toll wenn jemanden eine Lösung zu dem Problem einfällt
mfg (Auto)Bert
-
Hallo Macrostop,
genau das hab ich gemeint
mfg (Auto)Bert
-
Hallo Der_Noob,
um Daten aus einer Textdatei zu lesen benutzt man FileRead
um Daten zu schreiben benutzt man FileWrite
um Daten zu manipulieren verschiedene String-Funktionen z.B. _StringBetween, StringInStr, StringTrimLeft, StringLeft
eigentlich sollte _StringBetween schon ausreichen, damit habe ich aber in diesem Fall keine Lösung zustande gebrachtStringSplit kann mann nehmen um die eingelesenen Daten in ein Array zu lesen
Wenn du dir die Beispiele zu den Stichwörtern anschaust, kommst du auf die Lösung,
wenn du es selbst lösen möchtest den Spoiler nicht aufmachen
Hier ist mein Lösungsansatz (geht sicher noch schöner, kürzer und flexibler) funktioniert nur mit dem Text Datei-Schema wie eine von dir hochgeladen wurde
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ListBoxConstants.au3>
#Include <GuiListBox.au3>
#include <String.au3>
#include<Array.au3>$hGUI = GUICreate("Test", 639, 440, 202, 127)
[/autoit] [autoit][/autoit] [autoit]
$hList = GUICtrlCreateList("", 16, 16, 624, 424)
GUISetState(@SW_SHOW)$FileRead = FileRead (@ScriptDir & "\Neu Textdokument (2).txt")
[/autoit] [autoit][/autoit] [autoit]
If $FileRead = -1 Then ;<---------- nur vorsichtshalber
MsgBox(24, "Fehler", "Datei kann nicht geöffnet werden.")
Else
$Split = StringSplit ($FileRead, @CR)
;_ArrayDisplay($Split) damit kann man sich das Original anschauen
For $i = 1 to UBound($Split,1) -1 Step 2 ;Step 2 kann auch weggelassen werden da Zeile 25 auf YouTube prüft
;mit 1 anfangen (=2.Zeile bei 0 basiertem Index)
;Step 2 weil in jeder 2 Zeile am Anfang der YouTube-Link steht
$tZeile=$Split[$i]
$j = StringInStr($tZeile,'http://de.youtube.com')
if $j<>0 then
;$tZeile = _Stringbetween($tZeile,'http://','" ADD_DATE="') müsste auch funktionieren
$tZeile=StringTrimLeft($tZeile,StringInStr($tZeile,'http://')+6) ;alles was vor dem eigentlichen Link steht wegschmeissen
$tZeile=StringLeft($tZeile,StringInStr($tZeile,'" ADD_DATE=')-1) ;alles was danach steht auch wegschmeissen
if $tZeile <> "" then GUICtrlSetData($hList,$tZeile)
EndIf
Next
FileClose($FileRead)
EndIf$File=FileOpen (@ScriptDir & "\YouTube.TXT", 2)
[/autoit] [autoit][/autoit] [autoit]
If $File = -1 Then ;<---------------------nur vorsichtshalber
MsgBox(24, "Fehler", "Datei kann nicht geöffnet werden.")
Else
$List1Count = _GUICtrlListBox_GetCount ($hList)
For $i = 0 To $List1Count-1 ;0-basierter Index hat 1. Zeile = Zeile[0]
FileWrite ($File, _GUICtrlListBox_GetText ($hList, $i) & @CRLF)
Next
FileClose($File)
EndIfWhile 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEndin der Hoffnung, das du nicht nur auf die schnelle ein Script abstauben wolltest wünsche ich dir viel Spass mi AuotoIT und verbleibe
mfg (Auto)Bert
-
Hallo Der_Noob,
lade mal deine .txt datei hoch, dann wirds einfacher. Kannst ja vorher die anderen Einträge verändern.
mfg (Auto)Bert
-
Hallo moritz1243,
dein Programm löst bei mir diesen Effekt aus:
autoit.de/wcf/attachment/4259/
Edit: so funktionierst bei mir kein Flackern und Scite wird auch nicht verschoben
Spoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; *** Start added by AutoIt3Wrapper ***
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
; *** End added by AutoIt3Wrapper ***
Local $mGUI, $Button[2], $move_in
Local $hGUI ;<------------------------------------------------------------------------------------------|
; |
$Titel = "sollte man schon definieren" ;<---------------------
;$mGUI = GUICreate($Titel, 640, 375,0,25,$WS_POPUP, $WS_EX_TOPMOST + $WS_EX_MDICHILD + $WS_EX_LAYERED,$hGUI) ;<---------
$hGUI = GUICreate($Titel, 640, 375,0,25) ;,$WS_POPUP, $WS_EX_TOPMOST + $WS_EX_MDICHILD + $WS_EX_LAYERED,$mGUI)
GUISetBkColor (0xFFFFFF)
GUICtrlCreatePic("BK.gif", 0, 0, 640, 400)
GUICtrlSetState(-1, $GUI_DISABLE)$Button[0] = GUICtrlCreateButton ("1 Spieler",250,100,140,50)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor (-1,0xFF0000)
GUICtrlSetFont(-1, 18, 400, 0, "Ellis")
;GUICtrlSetOnEvent (-1,"_info_button")
$Button[1] = GUICtrlCreateButton ("2 Spieler",250,170,140,50)
GUICtrlSetColor (-1,0xFF0000)
GUICtrlSetFont(-1, 18, 400, 0, "Ellis")
;GUICtrlSetOnEvent (-1,"_info_button")GUISetState (@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]For $move_in = 0 To 400 ;Step 20 <------------ damit die buttons nicht so rasen
[/autoit] [autoit][/autoit] [autoit]ControlMove("","",$Button[0], -150 + $move_in, 100)
[/autoit] [autoit][/autoit] [autoit]
ControlMove("","",$Button[1], 650 - $move_in, 170)Sleep (10)
[/autoit] [autoit][/autoit] [autoit]Next
[/autoit] [autoit][/autoit] [autoit]While 1 ;<---------- damit die GUI nicht sofort wieder geschlossen wird
[/autoit]
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnddie Stellen an denen ich Änderungen vorgenommen habe
mfg (Auto)Bert
-
Hallo MacroStop,
nach deinem letzten Post bin ich der Überzeugung, das deine Programmidee so nicht zu verwirklichen ist. Wenn die Platzersparnis so stark differiert (15% und 50%) kannst du dir ja nie sicher sein, ob wirklich alles abgearbeitet wurde.
Google mal nach CT Offline Update und lade es dir herunter ist ein nützliches Tool einerseits und andererseits arbeitet da ein Vollprofi mit AutoIT, VBS und CMD-Programmierung und MKSiofs.
Ich hoffe du findest in den Skripten Anregungen für einen möglichen Lösungsweg.
mfg (Auto)Bert