Probier's doch mal mit
[autoit]MsgBox(0,"",GUICtrlRead($Combo1))
[/autoit]Probier's doch mal mit
[autoit]MsgBox(0,"",GUICtrlRead($Combo1))
[/autoit]Die idee find ich auch hammer^^
Was noch nicht gesagt wurde, aber eine idee ist wäre ein repeater.
MFG Matthias
Die Repeater-Funktion ist meines Wissens auf WEP-Verschlüsselung beschränkt, also nicht unbedingt die Ideal-Variante
Allerdings lasse ich mich gerne eines besseren belehren, da ich bei knapp 1m dicken Sandsteinwänden nicht vom Wohnzimmer (Router-Standort) ins Schlafzimmer komme.
Leider sind meine Nachbarn, deren Netze ich widerum dort empfange, alle WPA2-Verschlüsselt ![]()
Also ich für meinen Teil deklariere die Variablen immer nach den Includes, etwa so:
[autoit]
#region Variablen
Global $Var1, $Var2, $Var3
Global $Var4 = 1
#endregion
Ich würde eine Combo- oder ListBox (evtl. auch ListView) den 43 Buttons vorziehen
Du eröffnest 2x While 1 und 2x Switch, beendest aber nur je 1x
Ich denke, den Bereich von Zeile 32 bis 36 solltest mal weglassen
@Shadow Probier ein Script aus bevor du es postest ;). Das ist nicht ganz korrekt, weil ein Array Index generell mit 0 beginnt. D.h. das erste Resultat von StringRegExp befindet sich in $class[0]. Wenn nur eine Zahl gefunden wird, dann gibt es einen Error weil $class[1] nicht existiert.
Hast Recht... ach verdammt, hätt gestern net so viel saufen sollen...
Beispiel korrigiert
Probier mal so:
[autoit]$class = StringRegExp($html,'<td align="right" bgcolor="#FFFFFF">(\d+\.?\d*) USD</td>' , 1)
MsgBox (0,"",$class[0])
Hab mir gleich ne neue besorgt (DHL Express) :D. Beim auspacken ist sie leider runtergefallen :(.
Du hast aber nen gewaltigen Glaskugel-Verschleiss ![]()
Hab's jetz mal getestet...
FTP-Server erstellt
Daten im Script angepasst (hättest ne kleine GUI dazu machen können)
Script gestartet
Es kommt ein Fenster mit dem Livebild meiner Cam und der Link dazu. Wenn ich jedoch den Link im Browser eingeb komme ich auf eine Seite mit folgender Meldung:
Zitat
Square7.ch Diese Seite ist leider nicht mehr verfügbar, Fehler 404. Sorry, this page is not available any more, error 404.
Edit: Hat sich erledigt, hätte scheinbar noch etwas warten müssen... jetz ist das Bild da ![]()
Hab mal was gebastelt...
Da ich recht wenig Ahnung von GDI+ hab, musste ein Uhr-Script von name22 dran glauben (Danke dafür!)
Nicht schön, aber selten :D:
#NoTrayIcon
#include <GDIP.au3>
#include <GDIPConstants.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
HotKeySet("{ESC}", "_Exit")
[/autoit] [autoit][/autoit] [autoit]Global $Winkel_akt, $Winkel, $DX, $DY, $AK, $GK
$GUIColorBG = 0xFFFFFF00
Global $GUI = GUICreate("", 100, 100, @DesktopWidth / 2 - 50, @DesktopHeight / 2 - 50, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
GUISetState(@SW_SHOW, $GUI)
_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]$hGraphic = _GDIPlus_GraphicsCreateFromHWND($GUI)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics(100, 100, $hGraphic)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)
$Zeiger = _GDIPlus_PenCreate(0xFFFF0000, 3)
Global $MX = @DesktopWidth / 2
Global $MY = @DesktopHeight / 2
Global $pi = 3.14159265358979
Global $RadToDeg = 180 / $pi
While 1
Global $Pos = MouseGetPos()
If $Pos[0] > $MX And $Pos[1] > $MY Then ;Quadrant 2
$DX = $Pos[0] - $MX
$DY = $Pos[1] - $MY
$AK = $DX
$GK = $DY
$QP = 90
ElseIf $Pos[0] < $MX And $Pos[1] > $MY Then ;Quadrant 3
$DX = $MX - $Pos[0]
$DY = $Pos[1] - $MY
$AK = $DY
$GK = $DX
$QP = 180
ElseIf $Pos[0] < $MX And $Pos[1] < $MY Then ;Quadrant 4
$DX = $MX - $Pos[0]
$DY = $MY - $Pos[1]
$AK = $DX
$GK = $DY
$QP = 270
ElseIf $Pos[0] > $MX And $Pos[1] < $MX Then ;Quadrant 1
$DX = $Pos[0] - $MX
$DY = $MY - $Pos[1]
$AK = $DY
$GK = $DX
$QP = 0
EndIf
$Winkel = (ATan($GK / $AK) * $RadToDeg)+$QP
If $Winkel <> $Winkel_akt Then
_GDIPlus_GraphicsClear($hBuffer, $GUIColorBG)
_GDIPlus_GraphicsDrawLineWithAngle($hBuffer, 50, 50, 0, 0, 0, -40, $Winkel, $Zeiger)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, 100, 100)
$Winkel_akt = $Winkel
EndIf
WEnd
Func _GDIPlus_GraphicsDrawLineWithAngle($hGraphics, $iX_Rotate, $iY_Rotate, $iX_Point1, $iY_Point1, $iX_Point2, $iY_Point2, $iAngle, $hPen = 0)
_GDIPlus_GraphicsTranslateTransform($hGraphics, $iX_Rotate, $iY_Rotate)
_GDIPlus_GraphicsRotateTransform($hGraphics, $iAngle)
_GDIPlus_GraphicsDrawLine($hGraphics, $iX_Point1, $iY_Point1, $iX_Point2, $iY_Point2, $hPen)
_GDIPlus_GraphicsResetTransform($hGraphics)
EndFunc ;==>_GDIPlus_GraphicsDrawLineWithAngle
Func _exit()
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_GraphicsDispose($hBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_PenDispose($Zeiger)
_GDIPlus_Shutdown()
Exit
EndFunc ;==>_Exit
GUICtrlSetState($MenuItem1, $GUI_DISABLED)
[/autoit]hast du deine Liste.au3 im Include-Verzeichnis von AutoIt?
Ansonsten mußt du, soweit ich weiß den Pfad angeben.
Wenn also die Main.au3 im gleichen Verzeichnis wie die Liste.au3 liegt dann so:
#include "Liste.au3"
[/autoit]Korrigiert mich, falls ich falsch liege
Edit: Grad nochmal die Hilfe gelesen... Wenn "" verwendet wird, bezieht sich die Pfadangabe relativ auf's Script-Verzeichnis
Beispiel korrigiert, danke an name22
shadow667
Das schau ich mir mal praktisch an, wenn das ganze Script fertig ist. Sieht man denke ich relativ schnell anhand der Laufzeit, was am sinnvollsten ist. Wenn deine Lösung schneller ist, werde ich die selbstverständlich nehmen.
Schneller... möglicherweise
Eleganter und übersichtlicher auf jeden Fall ![]()
Edit: Bei Arrays ist es m.E. sowieso besser diese per For...Next-Schleifen abzuarbeiten. Entweder via ausgegebener Größe im 0-Index oder via UBound($Array)-1
Wenn alle Rechnungen in einem Ordner sind, bin ich immernoch der Meinung, daß du mit _FileListToArray() am besten bedient wärst.
Damit erhältst du ein Array, welches die Anzahl der gefundenen Files ($Array[0]) sowie alle Dateien ($Array[1] bis $Array[n]) beinhaltet.
Dieses kannst du dann ganz einfach in ner For... Next Schleife abarbeiten.
Etwa so:
[autoit]#include <File.au3>
#include <Array.au3>
$FileList = _FileListToArray("C:\DeinPfad\","Rechnung_*.pdf",1) ;1 Gibt nur Dateien zurück
If IsArray($FileList) Then _ArrayDisplay($FileList) ;Hier kannst du dir die Liste der gefundenen Dateien ansehen
For $I = 1 To $FileList[0]
$Nummer = _StringBetween($FileList[$I], "Rechnung_", "#")
.
.
Next
Oder aber verwende das ganze so:
[autoit]$sSource= BinaryToString(inetread("http://www.hunde.de"))
$sSource = StringReplace($sSource,"DOCTYPE","Ilse-Test") ;nur so wird der Inhalt von $sSource auch verändert bzw. neu geschrieben
Msgbox(0,"",$sSource)
ähm, das kann so net funktionieren:
[autoit]If $timer = 1500 Then _refresh()
if $timer < 1500 Then $timer = 0
wenn dann eher so:
[autoit]If $timer >= 1500 Then _refresh()
if $timer > 1500 Then $timer = 0