Beiträge von DaveTDancer

Danke dir mal wieder merkst wahrscheinlich habe selbst mich mit der IE.au3 noch nicht wirklich befasst, werde ich wohl die Hilfe mehr nutzten
dann wäre mir vielleicht die idee mit dem fwait selbst gekommen.
Werde es jetzt so anpassen und denke dann funktioniert es auch.

Tausend dank

Also zwar wird der button gedrückt aber das script läuft dann nicht weiter ?

; Script Start - Add your code below here
#include <Inet.au3>
#include <Array.au3>
#include <String.au3>
#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>

;~ Local $sPublicIP = _GetIP()
;~ MsgBox($MB_SYSTEMMODAL, "", "Your external IP address is: " & $sPublicIP)

$QC = _QuellCode ("http://www.wieistmeineip.de/")
$STRG_IP = _StringBetween ($QC, '<div class="title"><strong>','<')
;~ _ArrayDisplay ($STRG_IP)
Global $IP_1 = $STRG_IP[0]
$WebSite = 'http://192.168.1.1/'

$URL = "http://192.168.1.1/"
$PassWord = "xxx"
$File_QuellTxt = @ScriptDir & "\QT.txt"

;~ AdlibRegister ("_IP_CHK", "1000")
Local $WinRec = GUICreate("My Reconnector", 1200, 500, -1, -1, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_TABSTOP,$WS_HSCROLL,$WS_VSCROLL))
Global $IE = _IECreateEmbedded()
Global $Browser = GUICtrlCreateObj($IE, 10, 10, 1160, 650)
GUISetState(@SW_SHOW)

_winRec ($URL, $PassWord)
Func _winRec ($IP, $PassWord)

Local $Site = _IENavigate($IE, $URL)
_IELoadWait($IE)
$Input = _IEGetObjById($IE, "pcPassword")
_IEFormElementSetValue($Input, "Dragon")

$BTN_LogIn = _IEGetObjByName ($IE, "loginBtn")
_IEAction($BTN_LogIn, "click")
_IELoadWait($IE)
$BTN_Netzwerk = _IEGetObjByName ($IE, "menu_network")
_IEAction($BTN_Netzwerk, "click")
_IELoadWait($IE)
_IENavigate($IE, "javascript:doDisConn(2,[1,2,1,0,0,0]);")
_IENavigate($IE, "javascript:doConn(2, [1,2,1,0,0,0]);")
_IEQuit ($IE)
Exit
EndFunc

also es wird auch nicht geschlossen sondern nach oder im
_IENavigate($IE, "javascript:doDisConn(2,[1,2,1,0,0,0]);")
bleibt das prog einfach stehen
habe schon einiges gelesen und gesucht aber keine lösung bissher

_IEAction hab ich die ganze zeit gebnutz um zu diesem script dieser seite zu kommen aber wie gesagt bei dem button klappt es nicht werde nun mal
_IENavigate($oIE, "javascript:doDisConn(2, [1,2,1,0,0,0]);")
probieren und dann berichten danke vorerst

Also Danke dir alpines das mit java war genau das was hilft.
jetzt sollte ich das programm fertig bekommen.

Ich habe ein script geschrieben in dem ich mittels quellcode auslesen auf der Routerseite 192.168.1.1 mich anmelde usw.
nun ich schaffe es mich automatisch bis zur disconnect seite durchzudrücken aber diesen button (siehe unten) bekomme ich net gedrückt

aus dem QC des Browsers
<input type="button" class="button M T T_disconn" value="Trennen" onclick="doDisConn(2, [1,2,1,0,0,0]);">

der Router ist ein (TP-Link N600-Dualband-Gigabit-ADSL2+-Modemrouter Modellnr. TD-W8980B(DE))
vielleicht kann mir auch jemand hilfreiche infos zum umgang mit curl und diesem router geben da wäre ich genau so dankbar.

Danke schon mal für das Interesse

na dann viel erfolg im neuen lebensabschnitt.
Lass es Rocken man ist ja nur einmal jung 

habe auch mal ein scanner benutzt mein problem war das der code so schnell kam das ich es nicht schaffte in abzufangen ausser wenn das input permanent im vordergrund war. also eine gui die es abfängt müsste
immer mit markierten input arbeiten was das weitere arbeiten am pc erschwert hatte auch die abfang funktion eingebauct weil jeder scanner bevor der code kommt ein signal sendet. allerdings wie geschrieben zu schnell. bin aber gespannt welche ansätze hie noch kommen.

Ich denke das die Idee sich mehr als nur gut anhört und deine kürzliche Situation mit der Servermiete usw. macht es dir ein Stück weit einfacher und für mich auch plausibel vom eigentlichen Grund der Wissensverbreitung ganz abgesehen.
Was die Sache mit dem Finanzamt angeht ist wie mit vielen Behörden, es gibt Gesetzte die sind nicht zu umwandern sind,aber wer dort vor einem Sitzt und wie sehr er geneigt ist jemanden zuzuhören ist oft wie auch bei Bewerbungen usw. eine Frage der Sympatie. Das sind auch nur Menschen und bisher in allen Situationen in denen ich mit dem Finazamt zu tun hatte, ging es positiver aus als erwartet. Sie lassen mit sich reden, ist vielleicht auch ne Art des auftretens oder der Überzeugungskraft. Ich denke vielleicht sollte man sich vorher persöhnlich schlau machen wer dafür zuständig ist und welche Kreterien ein Scheitern verursachen könnten um die richtigen Argumente aufzubringen um die Neigungung der Entscheidenden Person in die Richtige Richtung zu bringen. hat bei mir fast immer geholfen. Bin gerne Breit zu unterstützen allein weil mir die gesammte Community bisher ohne murren bei fast jedem Problem geholfen hat.

ich kann nur sagen.... "I have a dream".

was das lesen von funtionen usw. angeht hab ich soweit keine Problem verstehe aber was du meinst normaler weise
lade ich mir auch immer die Deutsche Hilfe runter aber seit dem neusten Update was ja erst seit kurzen vorhanden ist, denkt die bissherige deutsche Hilfe noch nicht das ganze neue spektrum ab.

mein kenntnissstand ist natürlich beschränkt auf die sachen mit dem ich mich bisher beschäftigt habe und das auslesen von stoudtout war halt bisher nicht benötigt.
nehm dir die Frage aber nicht BÖSE weil sie natürlich berechtigt ist.

ich Frage auch immer nur so genau weil ich es meinem Wissensdrang schuldig bin unbeantwortete Fragen wurmen mich.
Daher ist eine einfache antwort nicht immer Nötig weil manchmal komm ich selbst auf de Lösung aber die kleinen stupser helfen mir doch schneller ans Ziel.  
Das Kreterium meiner Beharlichkeit hier mit DIR zu arbeiten war halt die für mich sichtbar das ergebnis, sonst hätte ich schon lange die Recursive Variant umgesetzt.
Will ja auch nicht undankbar erscheinen, jede Antwort kann hilfreich sei wenn sie mich zu anderen Gedankengängen anregt.

ok Verstehe ich.
ist auch nicht so das ich es nicht einsehen möchte nur Fragen bleiben halt Fragen  
Danke euch


das mit der Datenbank funktioniert ja auch soweit erstmal
kennt ihr gute tutorials über Stout usw.
das macht es mir immer etwas einfacher zu verstehen den die Hilfe ist jetzt gerade bei mir wieder in Englisch wegen der neuen funktionen
das funktioniert immer dann sehr sperrlich in deutsch ist es halt doch einfacher (für mich)
und son Tut sorgt bei miroft dafür das ich die Infos auch im Kopf behalte


ansonsten wie gesagt DANKE an alle
ist echt ein Luxus diese Seite

Danke Schnitzel aber siehst ja das ich das mit "/u" jetzt rausgenommen habe hab das script auch nur Copy and past aus nem anderen script vo mir übernommen ohne zu checken das das /u für Unicode steht
das ist aber hier in dem fall gar nett wichtig da es mir ja nur darum geht das die Datenbank.txt angelegt wird um sie einzulese in meine Gui.
Deine IDEE hat mich auf jeden Fall weiter gebracht
aber selbst wenn ich das /u weglasse erhalte ich keine ausgabe über Stdoutread oder ich mach immer noch was falsch

Also ich habe den Befehl etwas geändert dadurch funktioniert zumindest das einlesen von der Datenbank.txt

_RunDos ('cmd.exe /c dir "' & $Path & '" /a-d /s /b * >"' & $Liste & '"')

trotzdem interessiert mich natürlich die Frage ob man das ganze auch mit Studread auslesen kann?

Ich danke aber schon mal allen die mich unterstüzt haben oder mich in die richtige Richtung verwiesen haben.  
Ich werde noch etwas warten ob noch jemand ne Idee hat ansonsten schließe ich den Thread natürlich.

Danke das ist es ja, Studread hab ich schon angeschaut bei anderen scripts ging es auch aber bei dem cmdbefehl bekomme ich keinen output daher war ja meine frage ob jemand weiß wie ich den obenstehenden Befehl auslesen kann wäre lieb halt mit nem kleinen Beispiel oder einen Verweiß auf einTutorial was mich weiterbring denn so mit meinem aktuellen Wissensstand stehe ich im Wald, warte auf den Bus und verstehe nur Bahnhof

mach doch ein StringSplit und lass die ausgegebene Array überprüfen welches höher ist

func _CHK (Date1, Date2)
local $D1 = Stringsplit (Date1,".:")
local $D2 = Stringsplit (Date2,".:")


if $D1[1] > $D2[1] then
return 1
elseif $D1[2] > $D1[1] then
 return 2
endif


und das halt für alle ArrayStellen
endfunc

so testet es mal bitte, hoffe das ich so mit eurer Hilfe an die Lösung gelange wenn es (nur) die Text-Kodierung ist
habt ihr ne möglichkeit die zu ändern.

und zu der Geschwindigkeit muss ich sagen das es doppellt so lange braucht hab es mit dem script getestet
mit CMD = 17 Sec
recursiv = 37 Sec also schon merklich
nichts desto trotz bin ich natürlich bereit auch diese Variant zu nutzten wenn es nicht anders geht.
Aber vielleicht brauch ich die Txt datei ja auch net von Cmd ausgeben lassen kann mir jemand mal sagen ob ich die list auch per Studout ausgeben (Am besten mit Beispiel dann verstehhe ich es auch gleich) lassen kann
weil ich sie ja dann gleich mit autoit schreiben kann und dann ist auch gut meine bisherigen Versuche gaben keine Ergebniss.

Ich Danke aber schon mal wieder im vorraus für hilfe und Interresse

#include 
#include 
#include 


#cs


#ce
dim $Liste  = @scriptdir & "\Datenbank\DB.txt"
dim $Path = fileselectfolder("","") 
 
Func _DB_ReFreash ()
	Local $Path = FileSelectFolder ("","")
	FileDelete ($Liste)
	_RunDos ('cmd.exe /u /c dir "' & $Path & '" /a-d /s /b * >"' & $Liste & '"')
EndFunc


Func _DB_CHK ()
	If Not FileExists ($Liste) Then _DB_ReFreash ()
Local  $sDrive, $sDir, $sFilename, $sExtension
Local $C = _FileCountLines ($Liste)
Local $STRG_Video_Format = "mp4;avi;Mpeg;flv;mv4;divx;xivd;wmv;mov;qt;m2ts;mts;vob;evo;webm;mkv;mka;asf;mpg;ps;rm;rmvb;dv;3gp"
Local $AR_Video_Format = StringSplit ($STRG_Video_Format, ";")
Local  $AR_Video[1], $AR_DIR[1]
Local $AR_List = FileReadToArray ($Liste)
Local  $AR_List_Out[UBound ($AR_List)][3]
;~ _ArrayDisplay ($AR_List)
Dim $Var = 0
For $1 = 0 to UBound ($AR_List)-1
	For $2 = 1 To $AR_Video_Format[0]
		$PS = _PathSplit ($AR_List[$1], $sDrive, $sDir, $sFilename, $sExtension)
;~ 		_ArrayDisplay ($PS, "PS")
		If $PS[4] = "." & $AR_Video_Format[$2]  Then
			$Var = $Var + 1
			$AR_List_Out[$Var][0] = $AR_List[$1]
			$AR_List_Out[$Var][1] = $PS[1] & $PS[2]
			$AR_List_Out[$Var][2] = $PS[3]
		EndIf
	Next


Next
	_Array_Look ($AR_List_Out, "Video", "FullPath|Dir|Name") ;_Func.au3
EndFunc

[autoit]

[/autoit]

Hast du natürlich recht das es nicht fair den Textdateien gegenüber ist
aber irgendwie muss man ja auf sein Problem hinweisen.
Fileopen fileread usw. Geben die selben infos raus.
Aber wie schon erwähnt die Geschwindigkeit ist für mich das Kriterium es so zu versuchen.

Aber versuche es jetzt mal mit dem cmdbefehl ob ich anders anpassen kann

Danke ersteinmal für dein Interesse und den Versuch mich zu läutern.
Aber bei mir ist es im wesentlichen schneller als die Recursive variante gerade bei großen ordnern merke ich das

Wie geasagt teste mal batch ausgabe als txt ordner mit unterordner das dauert selbst bei sehr großen ordnern nur wenige sec.
wobei es bei der anderen Variante teilweise faste ne minute brauchte.

mir würde es ja auch reichen wenn jemand mir erkläten könnte wie ich den runbefehl als Studread auslesen kann dann könnte ich es ja direkt über Autoit speichern und dann kann ich den text auch lesen.
Aber irgendwie möchte ich schon gern wissen wie ich von CMD ausgegebene Dateien als text benutzten kann.
Denn es gibt ja programme die geben auch per hintergrundBatch txt aus die ich so ja sonst nicht benutzten kann.
entweder ich muss den Text konvertien, aber wie?
oder eine andere variant.

Guten Tag oder Abend je nach dem wann ihr reinschaut

Also wie ihr an dem Script-ausschnitt sehen werdet geht es darum das ich eine Datenbank für videos machen möchte.
Das Problem ist der Abschnitt in dem die Liste erstellt wird
_RunDos ('cmd.exe /u /c dir "' & $Path & '" /a-d /s /b * >"' & $Liste & '"')

denn der Txt der ausgegeben wird lässt sich nicht benutzen
jetzt werden vielleicht einige fragen warum mit _runDos
testet es mal es ist im verhältnis zum recusiven durchsuche der festplatte deutlich schneller daher möchte ich es gerne auf diesen Weg versuchen.
ich glaube das es vielleicht mit der Kodierung der Txt zu tun hat denn ich habe sie mal geöffnet und dann unter Speichern unter mit Datentyp: alle Dateien gespeichert und
so hat es funktioninert nun möchte ich aber ganz gerne es so laufen lassen ohne die txt jedesmal von Hand umzuspeichern

ich bedanke mich schon mal für das Interese und bin für jeden Ratschlag Dankbar der mich weiterbringt.

Func _DB_ReFreash ()
Local $Path = FileSelectFolder ("","") FileDelete ($Liste) _RunDos ('cmd.exe /u /c dir "' & $Path & '" /a-d /s /b * >"' & $Liste & '"')EndFunc
Func _DB_CHK () If Not FileExists ($Liste) Then _DB_ReFreash ()Local $sDrive, $sDir, $sFilename, $sExtensionLocal $C = _FileCountLines ($Liste)Local $STRG_Video_Format = "mp4;avi;Mpeg;flv;mv4;divx;xivd;wmv;mov;qt;m2ts;mts;vob;evo;webm;mkv;mka;asf;mpg;ps;rm;rmvb;dv;3gp"Local $AR_Video_Format = StringSplit ($STRG_Video_Format, ";")Local $AR_Video[1], $AR_DIR[1]Local $AR_List = FileReadToArray ($Liste)Local $AR_List_Out[UBound ($AR_List)][3];~ _ArrayDisplay ($AR_List)Local $Var = 0For $1 = 0 to UBound ($AR_List)-1 For $2 = 1 To $AR_Video_Format[0] $PS = _PathSplit ($AR_List[$1], $sDrive, $sDir, $sFilename, $sExtension);~ _ArrayDisplay ($PS, "PS") If $PS[4] = "." & $AR_Video_Format[$2] Then $Var = $Var + 1 $AR_List_Out[$Var][0] = $AR_List[$1] $AR_List_Out[$Var][1] = $PS[1] & $PS[2] $AR_List_Out[$Var][2] = $PS[3] EndIf Next
Next _Array_Look ($AR_List_Out, "Video", "FullPath|Dir|Name") ;_Func.au3EndFunc

habe glaube ich eine mögliche Lösung gefunden

die zeile mit dem letzten Inhalt wird Kopiert und dann per array zeile löschen und dann per Paste wieder einsetzten

$oRange = _Word_DocRangeSet($oDoc, -1, Default, Default)
$oRangeFound.copy
$oRangeFound.Select

$oRangeFound.delete
$oRangeFound.paste

Danke euch mal wieder für die Unterstützung.

zum verständnis also die suche findet nur statt damit die Position Fix ist, und wie geschreiben kan das Array unterschiedlich viele Zeilen Schreiben.
Die Zeilen die Gelöscht werden sollen sind genau die um die der Txt erweitert werden soll.

BS. Array hat 5 zeilen heißt das der Txt um 4 zeilen läger wird dadurch rutscht alles was vorher in der letzten Zeile auf diese Seite war natürlich auf die nächste Seite.
das soll verhindert werden.

die stelle an der das Array eingesetzt wird ist natürlich durch eine Variable definiert ich muss also nur wissen wie ich eine Zeile direkt löschen kann, also nich leer machen sonder sie soll entfernt werden so das der darunterliegend txt um eine zeile hochrutscht. und das halt genau eine zeile unter der zeile die ich gerade beschrieben habe.

wer mir hier die richtige Info oder einen weiterführenden Tip liefert, dem wäre ich sehr dankbar.  

So liebe Gemeinde.

ich habe eine Word datei in dieser wird txt ersetzt, das funktioniert auch.
der txt der eingesetzt wird kommt aus einer Array und um so größer das Array um so mehr zeilen werden benötigt nun ist der Ort an dem die
Txt eingepflegt werden in der mitte der Datei und somit verruscht der folgende txt natürlich nun möchte ich dies verhindern.
ich brache also die Möglichkeit eine Zeile nach dem einzusetztenden Txt zu löschen.

damit die TxtAbstände des fortlaufenden txt erhlten bleibt.

Beispiel:

Func _DokumentenWrite ($MtgNr)
Local $oWord = _Word_Create(Default,1)
Local $oDoc = _Word_DocOpen($oWord, $Doc_Vertrag_Neu, Default, Default, True)

Local $Strg_Anrede = IniRead ($Ini_DB, $MtgNr, "Anrede", "")
Local $Strg_Titel = IniRead ($Ini_DB, $MtgNr, "Titel", "")
Local $Strg_V_Name = IniRead ($Ini_DB, $MtgNr, "Vorname", "")
Local $Strg_N_Name = IniRead ($Ini_DB, $MtgNr, "Name", "")
Local $Strg_GebDate = IniRead ($Ini_DB, $MtgNr, "Geburtsdatum", "")
Local $Strg_Str_Nr = IniRead ($Ini_DB, $MtgNr, "StrasseHsNr", "")
Local $Strg_Plz = IniRead ($Ini_DB, $MtgNr, "Plz", "")
Local $Strg_Ort = IniRead ($Ini_DB, $MtgNr, "Ort", "")
Local $Strg_Telefon = IniRead ($Ini_DB, $MtgNr, "Telefon", "")
Local $Strg_eMail = IniRead ($Ini_DB, $MtgNr, "eMail", "")
Local $Strg_MtgSeit = IniRead ($Ini_DB, $MtgNr, "Eintrittam", "")

_Word_DocFindReplace ($oDoc, "%Anrede%", $Strg_Anrede)
_Word_DocFindReplace ($oDoc, "%Titel%", $Strg_Titel)
_Word_DocFindReplace ($oDoc, "%NAME%", $Strg_N_Name)
_Word_DocFindReplace ($oDoc, "%V_NAME%", $Strg_V_Name)
_Word_DocFindReplace ($oDoc, "%STRASSE%", $Strg_Str_Nr)
_Word_DocFindReplace ($oDoc, "%PLZ%", $Strg_Plz)
_Word_DocFindReplace ($oDoc, "%ORT%", $Strg_Ort)
_Word_DocFindReplace ($oDoc, "%Geb_Date%", $Strg_GebDate)
_Word_DocFindReplace ($oDoc, "%Tel%", $Strg_Telefon)
_Word_DocFindReplace ($oDoc, "%EMAIL%", $Strg_eMail)
_Word_DocFindReplace ($oDoc, "%Mtg_NR%", $MtgNr)
_Word_DocFindReplace ($oDoc, "%Mtg_SEIT%", $Strg_MtgSeit)

### KursInfos
Local $Strg_Kurse = IniRead ($Ini_DB, $MtgNr, "Kurse", "")
Local $AR_Kurse = StringSplit ($Strg_Kurse, $TR_Var, 1)
;~ _ArrayDisplay ($AR_Kurse)
;~ _Word_DocTableWrite($oRange, $asArray, 0)
Local $Kurse_2_Doc = ""
If $AR_Kurse[0] = 1 And $AR_Kurse[1] = "Flatrate" Then
$Kurse_2_Doc = $AR_Kurse[1]
Else
For $1 = 1 to $AR_Kurse[0]
If StringLeft ($AR_Kurse[$1],1) = " " Then $AR_Kurse[$1] = StringTrimLeft ($AR_Kurse[$1],1)
Local $SP_STRG_Kurs = StringSplit ($AR_Kurse[$1], $Tr)
;~ _ArrayDisplay ($SP_STRG_Kurs)
Local $Zeile_Kurs = $SP_STRG_Kurs[3]
Local $Len = StringLen ($Zeile_Kurs)
If $Len < 24 Then
;~ MsgBox (0,$Len,"kleiner")
$Kurse_2_Doc = $Kurse_2_Doc & @TAB & $SP_STRG_Kurs[3] & @TAB & @TAB & @TAB & $SP_STRG_Kurs[4] & " " & $SP_STRG_Kurs[5] & @TAB & @CRLF
Else
;~ MsgBox (0,$Len,"Größer")
$Kurse_2_Doc = $Kurse_2_Doc & @TAB & $SP_STRG_Kurs[3] & @TAB & @TAB & $SP_STRG_Kurs[4] & " " & $SP_STRG_Kurs[5] & @TAB & @CRLF
EndIf
Next
EndIf

_Word_DocFindReplace ($oDoc, "%Kurse%", $Kurse_2_Doc)

#### VertragsInfo
Local $Strg_LaufZeit = IniRead ($Ini_DB, $MtgNr, "LaufZeit", "")
_Word_DocFindReplace ($oDoc, "%M_Preis%", "")
_Word_DocFindReplace ($oDoc, "%12% ", $Strg_LaufZeit)

### Datum
_Word_DocFindReplace ($oDoc, "%ERSTELL_DATE%", @MDAY & "." & @MON & "." & @YEAR)
_Word_DocSaveAs ($oDoc, @ScriptDir & "" & $MtgNr & ".doc", "doc")
;~ _Word_DocClose ($oDoc)

EndFunc