Beiträge von Tweaky

**Tweaky**

Hi,
ja dies ist das alte ListView.
Ob man mit Koda die alten ListView erzeugen kann weiss ich nicht

**Tweaky**

Hm,
habe es auch nicht hinbekommen mit dem löschen.
Ich finde die "neuen" Listviews eh nicht so toll, eben wegen diesen "Problemen".

Ich nehme daher immernoch die "alten" Listviews. (GUICtrlCreateListView)
Damit funktioniert alles, außer du brauchst Sachen wie Icons, Checkboxen usw.

**Tweaky**

Hi,
habe dein Script mal ausprobiert.
Habe voher noch Spalten einfügen lassen.
Es wird nur die erste Spalte ausgefüllt, da du $i2 immer wieder auf 0 zurückgesetzt hast
Auf jeden Fall geht es so:

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$file = @ScriptDir & "\" & "test.txt"
$i2 = 0

[/autoit] [autoit][/autoit] [autoit]

$GUI = GUICreate("(UDF Created) ListView Create", 400, 300)
$lst_overview = _GUICtrlListView_Create($GUI, "", 10, 10, 300, 100)

[/autoit] [autoit][/autoit] [autoit]

;Spalten einfügen
_GUICtrlListView_InsertColumn($lst_overview, 0, "Column 1", 30)
_GUICtrlListView_InsertColumn($lst_overview, 1, "Column 2", 30)
_GUICtrlListView_InsertColumn($lst_overview, 2, "Column 3", 30)
_GUICtrlListView_InsertColumn($lst_overview, 3, "Column 3", 30)
_GUICtrlListView_InsertColumn($lst_overview, 4, "Column 3", 30)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

_func()
Sleep(1000)
_func()

[/autoit] [autoit][/autoit] [autoit]

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _func()
$count = _FileCountLines($file)
For $i = 1 To $count
$line = FileReadLine($file, $i)
$line = StringSplit($line, "|")
_GUICtrlListView_AddItem($lst_overview, $line[1], $i) ; datum
_GUICtrlListView_AddSubItem($lst_overview, $i2, $line[2], 1) ; start
_GUICtrlListView_AddSubItem($lst_overview, $i2, $line[3], 2) ; pause
_GUICtrlListView_AddSubItem($lst_overview, $i2, $line[4], 3) ; end
_GUICtrlListView_AddSubItem($lst_overview, $i2, $line[5], 4) ; kommentar
$i2 += 1
Next

$text = _GUICtrlListView_GetItemText($lst_overview, 3, 2) ;um den Text eines Items auszulesen
MsgBox(0, "", $text)
EndFunc ;==>_func

[/autoit]

Am Ende steht auch wie man den Text eines Items auslesen kann

Die txt-Datei mit der ich es getestet habe sieht so aus

Code

1|2|3|4|5
6|7|8|9|10
1|2|3|4|5
6|7|8|9|10
1|2|3|4|5

PS: Nächstes Mal bitte ein Script mit der GUI, damit man es sofort testen kann

**Tweaky**

Hi,
also du kannst entweder den "alten" Button verstecken und den "neuen" Button einblenden
oder
eine zweite GUI erstellen und die "alte" GUI ausblenden und die "neue" GUI einblenden (sinnvoll, falls es viele Steuerelemente sind)

**Tweaky**

Hi,
es geht meineme Kollegen nur darum das Adressbuch zu sichern.
Ob mit AutoIt oder irgendwas anderem ist egal.
Bist du sicher, dass Fritz!BoxMonitor funktioniert?
Mein Kollege meinte dies klappt nicht weil mehrere Telefonnummern pro Person eingetragen werden können.
(Dies wird auch in mehreren Foren bestätigt)

**Tweaky**

Hi,
die $tag... Dateien sind als txt-Dateien hochgeladen.
Du kannst einfach hier die Quelldateien der Hilfe downloaden und hast sie dann einzeln als txt-Dateien (sind die gleichen wie ich hochgeladen habe)
Dieses Datei mußt du unter dem angegeben Link herunterladen "autoit-docs-v3.2.10.0-src.exe "

PS: Danke für das Kompliment
Tweaky

**Tweaky**

Gutes Tool,
kannste sowas auch für die CPU-Temp und die Lüfter schreiben

**Tweaky**

Hi,
es geht um das Adressbuch.
Ich habe mal was geschrieben.

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <Date.au3>
#include <File.au3>
#include <IE.au3>
#include <String.au3>
#include <ButtonConstants.au3>
#include <eigen_version.au3>
#include <ExcelCOM_UDF.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Description=FritzBox Adressbuch
#AutoIt3Wrapper_Res_Fileversion=1.0.0.1
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%
#AutoIt3Wrapper_Res_Field=Autor|Tweaky
#AutoIt3Wrapper_Icon=zusatz\Icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

[/autoit] [autoit][/autoit] [autoit]

Opt("WinTitleMatchMode", 2)
Dim $array_quelltext[1]
Dim $array_telefonbuch[1000][4]
Dim $artikel_name_neu_io

[/autoit] [autoit][/autoit] [autoit]

$txt_tmp = "C:\temp.txt"
$ini = @ScriptDir & "\" & "FritzBox 7270 Adressbuch.ini"
$excel_datei = @ScriptDir & "\" & "Adressbuch.xls"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;------------------------------------------------------------------------------------------------------------------------------------
;Mit Hilfe dieses Scriptes kann das Adressbuch der AVM FritzBox 7270 ins Excel exportiert werden
;------------------------------------------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

;Deklarierung für _skriptinfos()
Dim $tool_version, $tool_titel

[/autoit] [autoit][/autoit] [autoit]

;AutoItSetOption
Opt("GUICloseOnESC", 0) ;1=ESC beendet, 0=ESC schließt nicht

[/autoit] [autoit][/autoit] [autoit]

;Tooltitel und Toolversion
_skriptinfos()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;****************************
; GUI *
;****************************

[/autoit] [autoit][/autoit] [autoit]

;~ _versionsnummer($tool_version)

[/autoit] [autoit][/autoit] [autoit]

$GUI_titel = $tool_titel & " " & $version
$GUI = GUICreate($GUI_titel, 140, 120)

[/autoit] [autoit][/autoit] [autoit]

;Buttons
$button_auslesen = GUICtrlCreateButton("aus Fritzbox auslesen", 10, 10)
$button_excel = GUICtrlCreateButton("in Excel schreiben", 10, 40)
$button_beenden = GUICtrlCreateButton("beenden", 10, 70)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;****************************
; Tray *
;****************************

[/autoit] [autoit][/autoit] [autoit]

Opt("TrayMenuMode", 1) ;Zeigt das Standard Tray Menü nicht an (Script Paused / Exit)
$versionitem = TrayCreateItem("Version")
TrayCreateItem("")
$aboutitem = TrayCreateItem("Über")
TrayCreateItem("")
$exititem = TrayCreateItem("Beenden")

[/autoit] [autoit][/autoit] [autoit]

;ToolTip auf das TrayIcon
TraySetToolTip($tool_titel)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW, $GUI)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
$msg_tray = TrayGetMsg()
Select
;------------------------------------------------------------ Buttons ------------------------------------------------------
Case $msg = $button_auslesen
_auslesen()

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $button_excel
_excel()

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $button_beenden Or $msg = $GUI_EVENT_CLOSE Or $msg_tray = $exititem
Exit

;------------------------------------------------------------ Tray Befehle ----------------------------------------
Case $msg_tray = $versionitem
MsgBox(0, "Version", $version)

[/autoit] [autoit][/autoit] [autoit]

Case $msg_tray = $aboutitem
MsgBox(0, "Über", $tool_titel & @CRLF & @CRLF & " made by Tweaky")
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;************************************************
; Daten aus der FritzBox auslesen *
;************************************************

[/autoit] [autoit][/autoit] [autoit]

Func _auslesen()
Dim $array_quelltext[1]
Dim $array_telefonbuch[1000][4]

SplashTextOn("Bitte warten", "", 150, 50, @DesktopWidth / 2, @DesktopHeight / 2 - 100)
FileDelete($ini)
FileDelete($txt_tmp)

$internet_adresse = "http://fritz.box"

[/autoit] [autoit][/autoit] [autoit]

$oIE = _IECreate($internet_adresse, 0, 1, 1, 0)

[/autoit] [autoit][/autoit] [autoit]

$datum = _NowCalcDate()
$split = StringSplit($datum, "/")
$jahr = $split[1]
$monat = $split[2]
$tag = $split[3]
$titel = "FRITZ!Box"
$internet_adresse = "fritz.box"
$fritz_passwort = "andreas07"

[/autoit] [autoit][/autoit] [autoit]

If @error > 0 Then Exit

[/autoit] [autoit][/autoit] [autoit]

WinSetState("Microsoft Internet Explorer", "", @SW_MAXIMIZE) ;maximieren
_IELoadWait($oIE, 2000)

[/autoit] [autoit][/autoit] [autoit]

$oFrame = _IEFrameGetObjByName($oIE, "frame_content")
$oForm = _IEFormGetObjByName($oFrame, "uiViewForm")

[/autoit] [autoit][/autoit] [autoit]

; Passwort einsetzen
$Password = _IEFormElementGetObjByName($oForm, "pass")
_IEFormElementSetValue($Password, $fritz_passwort)

[/autoit] [autoit][/autoit] [autoit]

; Anmelden-Button drücken
$LoginBtn = _IEFormElementGetObjByName($oForm, "btnLogin")
_IEAction($LoginBtn, "click")
_IELoadWait($oIE, 2000)

[/autoit] [autoit][/autoit] [autoit]

; Zur Anrufliste wechseln
_IELinkClickByText($oFrame, "Telefonbuch")
_IELoadWait($oIE, 2000)

[/autoit] [autoit][/autoit] [autoit]

;generierten Quelltext auslesen, öffnen und speichern
MouseClick("right", 100, 900)
Sleep(10)
MouseClick("left", 130, 785)
WinWait(" - Editor", "")
WinActivate(" - Editor", "")
Send("!D")
Send("u")
Sleep(1000)
Send($txt_tmp)
Sleep(100)
Send("{ENTER}")
Sleep(2000)

[/autoit] [autoit][/autoit] [autoit]

_FileReadToArray($txt_tmp, $array_quelltext)

[/autoit] [autoit][/autoit] [autoit]

$zaehler = 0

[/autoit] [autoit][/autoit] [autoit]

$array_telefonbuch[0][0] = "Name"
$array_telefonbuch[0][1] = "privat"
$array_telefonbuch[0][2] = "mobil"
$array_telefonbuch[0][3] = "geschäftlich"

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To UBound($array_quelltext) - 1
$name = _StringBetween($array_quelltext[$i], '<SCRIPT type=text/javascript>TrFonName("', '", "");</SCRIPT>')
$nr_home = _StringBetween($array_quelltext[$i], '<SCRIPT type=text/javascript>TrFonNr("home', '", "");</SCRIPT>')
$nr_mobile = _StringBetween($array_quelltext[$i], '<SCRIPT type=text/javascript>TrFonNr("mobile', '", "");</SCRIPT>')
$nr_work = _StringBetween($array_quelltext[$i], '<SCRIPT type=text/javascript>TrFonNr("work', '", "");</SCRIPT>')

[/autoit] [autoit][/autoit] [autoit]

If IsArray($name) Then
$zaehler += 1
$split = StringSplit($name[0], '", "', 1)
_name_korrigieren($split[2])
$array_telefonbuch[$zaehler][0] = $artikel_name_neu_io
EndIf

If IsArray($nr_home) Then
$split = StringSplit($nr_home[0], '", "', 1)
$array_telefonbuch[$zaehler][1] = $split[2]
EndIf

If IsArray($nr_mobile) Then
$split = StringSplit($nr_mobile[0], '", "', 1)
$array_telefonbuch[$zaehler][2] = $split[2]
EndIf

If IsArray($nr_work) Then
$split = StringSplit($nr_work[0], '", "', 1)
$array_telefonbuch[$zaehler][3] = $split[2]
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

ReDim $array_telefonbuch[$zaehler + 1][4]

[/autoit] [autoit][/autoit] [autoit]

;~ _ArrayDisplay($array_telefonbuch)

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To UBound($array_telefonbuch) - 1
IniWrite($ini, $array_telefonbuch[$i][0], $array_telefonbuch[0][1], $array_telefonbuch[$i][1])
IniWrite($ini, $array_telefonbuch[$i][0], $array_telefonbuch[0][2], $array_telefonbuch[$i][2])
IniWrite($ini, $array_telefonbuch[$i][0], $array_telefonbuch[0][3], $array_telefonbuch[$i][3])
Next

SplashOff()
EndFunc ;==>_auslesen

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;********************************************************
; ö, ä, usw. aus dem Artikelnamen korrigieren *
;********************************************************

[/autoit] [autoit][/autoit] [autoit]

Func _name_korrigieren(ByRef $artikel_name_neu)
$artikel_name_neu = StringReplace($artikel_name_neu, "Ö", "Ö", 0, 1)
$artikel_name_neu = StringReplace($artikel_name_neu, "ö", "ö", 0, 1)
$artikel_name_neu = StringReplace($artikel_name_neu, "Ä", "Ä", 0, 1)
$artikel_name_neu = StringReplace($artikel_name_neu, "ä", "ä", 0, 1)
$artikel_name_neu = StringReplace($artikel_name_neu, "Ü", "Ü", 0, 1)
$artikel_name_neu = StringReplace($artikel_name_neu, "ü", "ü", 0, 1)
$artikel_name_neu = StringReplace($artikel_name_neu, "ß", "ß", 0, 1)
$artikel_name_neu = StringReplace($artikel_name_neu, "Ã¤", "ä", 0, 1)
$artikel_name_neu = StringReplace($artikel_name_neu, "Ã¼", "ü", 0, 1)
$artikel_name_neu = StringReplace($artikel_name_neu, "½ ", " in ", 0, 1)
$artikel_name_neu = StringReplace($artikel_name_neu, "®", "", 0, 1)
$artikel_name_neu_io = $artikel_name_neu
EndFunc ;==>_name_korrigieren

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;********************************************
; Daten ins Excel schreiben *
;********************************************

[/autoit] [autoit][/autoit] [autoit]

Func _excel()
$oExcel = _ExcelBookOpen($excel_datei, 1, False, "", "")
$ini_sektion_names = IniReadSectionNames($ini)
;~ _ArrayDisplay($ini_sektion_names)
For $i = 1 To UBound($ini_sektion_names) - 1
$ini_sektion_privat = IniRead($ini, $ini_sektion_names[$i], "privat", "")
$ini_sektion_mobil = IniRead($ini, $ini_sektion_names[$i], "mobil", "")
$ini_sektion_geschaeftlich = IniRead($ini, $ini_sektion_names[$i], "geschäftlich", "")
_ExcelWriteCell($oExcel, $ini_sektion_names[$i], $i, 1)
_ExcelWriteCell($oExcel, $ini_sektion_privat, $i, 2)
_ExcelWriteCell($oExcel, $ini_sektion_mobil, $i, 3)
_ExcelWriteCell($oExcel, $ini_sektion_geschaeftlich, $i, 4)
Next
EndFunc ;==>_excel

[/autoit]

Dies funktioniert auch, jedoch würde ich es gerne noch verbessern.
Ich kann mit meinem Browser den "generierten Quelltext" von der Seite mit dem Adressbuch einsehen.
Jedoch weiss ich nicht, wie ich diesen mit AutoIt anzeigen kann.
Bei all meinen Methoden wurde nur der "normale" Quelltext angezeigt, wo leider die Daten aus dem Adressbuch nicht enthalten sind.
Weiß einer wie dies geht?

**Tweaky**

Hi,
dummer Fehler

[autoit]

Until $hour1 = @HOUR And $min1 = @MIN

[/autoit]

**Tweaky**

Hallo,
ein Kollege von mir hat eine AVM FritzBox 7270.
Davon möchste er sein Adressbuch sichern.
Leider funktioniert dies mit keinem Programm.

Für die 7050 gibt es ein Programm welches damit klarkommt.

Hat jemand zufällig sowas für sich programmiert und könnte es mir zur Verfügung stellen?
Oder muß ich mich selber ans Werk machen

**Tweaky**

Bei mir klappts auch.
Dann solltest du mal das komplette Script posten

**Tweaky**

Hi Raupi,
doch doch dies steht auch in der deutschen Hilfe drin.
Oder hast du noch die uralte deutsche Hilfe von 3.1.0???

Auf der linken Seite gibt es einen Downloadlink zur deutschen Hilfe vom 27.08.08

**Tweaky**

Jop ist nicht so schön zum reviewen.
Wie Tom99 schon gesagt hat einfach rauskopieren.
Dann könnt ihr auch schnell ne htm Seite speichern und sehen, ob das Format passt

**Tweaky**

Hi,
mittlerweile haben wir die htm-Seiten der Hilfe hochgeladen.
Vielleicht liegt dies euch besser zum übersetzen.
Wir hoffen auf eure Untersützung

Danke

**Tweaky**

Hi,
kurz und knapp

[autoit]

_GUICtrlListView_DeleteItem

[/autoit]

**Tweaky**

So,
hab mal ein Fehler entdeckt.
Wenn dies:

[autoit]

_WinAPI_MessageBeep(0)

[/autoit]

in der ersten Zeile steht, zeigt er mir NICHT an, dass Winapi.au3 includet werden soll.

Steht es in der zweiten Zeile klappt es.

EDIT: Habe gerade gemerkt, dass jeder Befehl der in der ersten Zeile steht nicht erkannt wird

**Tweaky**

Auch alles Gute von mir und Danke dass du so viel Zeit in das Board investiert und den Laden hier am Laufen hälst

**Tweaky**

Nö geht noch nicht.

Wenn ich eine Func ändere und einen Kommentar ergänze, erscheint dieser nicht wenn ich das nächste Mal die Funktion anklicke

**Tweaky**

Mensch Alina

[autoit]

$input9 = 0.0004
$input10 = 100000
$input11 = $input9 * $input10
MsgBox(0, "Test", Round($input11, 3))

[/autoit][autoit][/autoit][autoit]

If $input11 >= 50.000 Then
$input12 = 0.000
Else
$input12 = ($input11 / 6 * 7) + 9
EndIf
MsgBox(0, "Test", Round($input12, 3))

[/autoit]

Dürfte denke ich selbterklärend sein
Wenn nicht du weiß ja wo die Hilfe zu finden ist

Ob es eine Mathe Include gibt weiss nicht da ich sowas noch nicht gebraucht habe, schaue einfach mal im engl. Forum

**Tweaky**

... so wie pee es geschrieben hat

[autoit]

$zahl = "24"
$zahl = StringFormat("%.3f", $zahl)
ConsoleWrite($zahl & @CRLF)

[/autoit]

Beiträge von Tweaky

GUICtrlCreateListView aktualisieren / oder Inhalt löschen

GUICtrlCreateListView aktualisieren / oder Inhalt löschen

GUICtrlCreateListView aktualisieren / oder Inhalt löschen

Frage zur GUI

FritzBox 7270 Adressbuch sichern

htm Seiten der Hilfe zum übersetzen

nVidia Grafikkraten Temperatur Check

FritzBox 7270 Adressbuch sichern

problem mit wecker

FritzBox 7270 Adressbuch sichern

probleme mit if anweisung

Wie ändert man die Menüleiste der Gui zur Laufzeit

htm Seiten der Hilfe zum übersetzen

htm Seiten der Hilfe zum übersetzen

ListView Item Löschen

Organize Includes

Alles Gute zum Geburtstag Server-Admin

Plattform-Entwicklung

If Fehler

Mathematikproblem