Moin veronesi,
geht auch einfacher. Für einen Slash brauchst Du kein Escape-Zeichen voransetzen, bei einem Backslash schon. 
$sPattern = '(src="http://www.url.ch/uploads/.+\.jpg)'
$aResult = StringRegExp ($sSearchString, $sPattern, 3)
[/autoit]Gruß
Greenhorn
Glückwunsch, mein Gutster ! 
Du bist nicht im Kreissaal umgekippt ?
Grüße
Greenhorn
Habe es jetzt einfach mal so gemacht ...
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <StaticConstants.au3>
#include <ListBoxConstants.au3>
#include <Array.au3>
#include <IE.au3>
#Include <GuiTab.au3>
; Global control identifiers
Global $idIE
Global $idList
Global $idTab
Global $idTabItem [1]
;-- Run the Script...
Exit (AutoItScriptMain ( ))
Func AutoItScriptMain ( )
[/autoit] [autoit][/autoit] [autoit]Local $hwndMain
Local $hwndChild
Local $sCaption
Local $oIE [1]
$sCaption = StringFormat ("%s", StringTrimRight (@ScriptName, 4))
[/autoit] [autoit][/autoit] [autoit]; Create an embedded Internet Explorer Object
$oIE[0] = _IECreateEmbedded ( )
If (not IsObj ($oIE[0])) Then
ErrorMsg ("Internet Explorer konnte nicht eingebettet werden.\n\nProgramm wird beendet.")
Return (-1)
EndIf
; Create the main window
$hwndMain = GUICreate ($sCaption, 800, 600, (@DesktopWidth - 800) / 2, (@DesktopHeight - 600) /2, _
BitOR($WS_CLIPCHILDREN, $WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
; Create the child windows
[/autoit] [autoit][/autoit] [autoit]$idTab = GUICtrlCreateTab (20, 60, 760, 520)
[/autoit] [autoit][/autoit] [autoit]$idTabItem[0] = GUICtrlCreateTabItem ("Tab")
$idIE = GUICtrlCreateObj ($oIE[0], 40, 100, 700, 460)
$hwndChild = GUICreate ("", 185, 376, 80, 80, _
BitOR($WS_POPUP, $WS_VISIBLE), $WS_EX_MDICHILD, _
GUICtrlGetHandle ($idTab))
$idList = GUICtrlCreateList ("", 0, 0, 185, 406, BitOR($LBS_SORT, $WS_BORDER, $WS_VSCROLL));, $WS_EX_TOPMOST)
GUICtrlSetData ($idList, "Tiere|Hilfe")
GUICtrlSetFont ($idList, 24, 400, 0, "MS Sans Serif")
GUICtrlCreateTabItem ("") ; end tabitem definition
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; Show the main window
GUISetState (@SW_SHOW, $hwndMain)
; Navigate to homepage
_IENavigate ($oIE[0], "http://www.hunde.de", 1)
; Set then main window's caption
$sCaption = StringFormat ("%s - %s", StringTrimRight (@ScriptName, 4), _IEPropertyGet($oIE[0],"locationname"))
WinSetTitle ($hwndMain, "", $sCaption)
; Message loop
While (TRUE)
Switch (GUIGetMsg ( ))
[/autoit] [autoit][/autoit] [autoit]Case $GUI_EVENT_CLOSE
GUIDelete ($hwndMain)
ExitLoop
Case $idTab
$selected = GUICtrlRead ($idTab)
ConsoleWrite (StringFormat ("%s\n", $selected))
WinSetTitle ($hwndMain,"",_IEPropertyGet($oIE[$selected],"locationname"))
EndSwitch
WEnd
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func ErrorMsg ($sText)
[/autoit] [autoit][/autoit] [autoit]MsgBox (BitOr($MB_OK, $MB_ICONHAND), StringTrimRight (@ScriptName, 4), StringFormat ("%s\n", $sText))
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit]
EDIT: Ich habe mal ein wenig damit herumgespielt und festgestellt dass es eigentlich auch ohne Containerfenster für die ListBox geht.
Allerdings verschwindet diese immer wieder, wenn der eingebettete IE den Fokus bekommt ...
Grüße
Greenhorn
Hallo,
also zuerst einmal meine besten Genesungswünsche.
Mit einer echten Grippe ist nicht zu spaßen.
Zu Deinem Skript: Du möchtest den eingebetteten IE und die Liste zusammen in dem Tab haben ?
Grüße
Greenhorn
Hi,
keine Ahnung was genau Du jetzt meinst, aber hast Du schon einmal hier nachgesehen ?
Gruß
Greenhorn
Bin gerade etwas verwirrt...
Ich meine, daß die kpl. Gui mit Liste (und eingestellter Größe)
z.B. Links und z.B. von oben 80 Pixel erschent.
Sorry, habe vielleicht eine etwas lange Leitung ...
Meinst Du die Position beim Start des Skriptes ?
Kannst Du es evtl. etwas genauer definieren (Skriptausschnitt mit Kommentaren) ?
LG
Greenhorn
Hallo ihr beiden,
schön zu hören, daß es nun so klappt, wie Du möchtest, Ilse.
Allerdings ist noch ein kleiner Fehler in der _OnResize-Funktion enthalten.
Der Rückgabewert sollte
Return $GUI_RUNDEFMSG
[/autoit]sein.
Was das Verstehen der Funktion angeht: WM_SIZE message
Gruß
Greenhorn
So habe ich es hinbekommen, wenn es das ist was Du möchtest ...
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$oIE = _IECreateEmbedded()
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Form1", 1000, 800, 239, 155, BitOR($WS_CLIPCHILDREN, $WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS), $WS_EX_COMPOSITED)
$Browser = GUICtrlCreateObj($oIE, 16, 16, 900, 700)
$hChild = GUICreate("", 185, 376, 432, 16, BitOR($WS_POPUP, $WS_VISIBLE), $WS_EX_MDICHILD, $Form1)
$List1 = GUICtrlCreateList("", 0, 0, 185, 376)
GUICtrlSetData(-1, "Tiere|Hilfe")
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW, $Form1)
[/autoit] [autoit][/autoit] [autoit]_Start()
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete ($Form1)
ExitLoop
EndSwitch
WEnd
Func _Start()
$Web = "http://www.hunde.de"
_IENavigate($oIE, $Web, 1)
;~ _IELoadWait($oIE)
EndFunc ;==>_Start
Das Flackern des eingebundenen Internet Explorers bei Größenveränderung des Hauptfensters bekomme ich leider nicht ganz weg ...
Gruß
Greenhorn
Ich bin auch eher für das alte Farbschema.
Das Knallrot für Zeichenketten ist einfach eine Zumutung für die Augen.
Gruß
Hi Ilse,
füge den Style-Flags des Hauptfensters $WS_CLIPCHILDREN hinzu, und dem Kindfenster $WS_CHILD.
$WS_EX_MDICHILD und $WS_EX_TOOLWINDOW entfernen ...
Dann sollte es eigentlich gehen ...
Gruß
Greenhorn
... mit welcher WinAPI-Funktion man sich das Handle dann holt.
GetDlgItem, bzw. GetDlgCtrlID ...
Ich werde lieber zurückkehren direkt zu den _SendMessage - Funktionen (eigentlich sollte die Listview-UDF ja eine komfortable Behandlung dieser Funktion darstellen).
U.a. deshalb nutze ich diese "UDFs" so gut wie nie. Ich mache es lieber alles selber wie beim Wichsen. Da weiß ich wenigstens was dabei herauskommt. 
Gruß
Greenhorn
Ein "richtiger" Button ist also im Prinzip nur ein Bild was bemerkt, ob man es anklickt.
Das ist so nicht ganz richtig.
Ein "Button" ist, wie jedes andere Steuerelement auch, ein Fenster.
Gruß
Greenhorn
Ich interpretiere Deine Antwort mal als "funktioniert nicht".
Also bei mir funktioniert es (ein Sub-Schlüssel ist dort bei mir existent).
Gruß
Ich denke mal dafür fehlen dem Skript die benötigten Rechte.
Ein #RequireAdmin am Anfang des Skriptes löst dieses Problem.
Gruß
Hi,
bei mir keine Probleme.
[autoit]For $i = 1 To 10
Local $var = RegEnumKey("HKEY_CLASSES_ROOT\CLSID", $i)
If @error <> 0 Then ExitLoop
MsgBox(4096, "SubKey #" & $i & " under HKCR\CLSID: ", $var)
Next
Gruß
Greenhorn
Oder liegt das am BMP?? muß ich das für XP auf jpg oder png ändern?
Um Gottes willen, nein. Bloß keine Pengs, Pongs usw., damit machst Du Dir das Leben nur unnötig schwer.
Das hat mit XP zu tun. XP unterstützt Bilder in Schaltflächen nicht wirklich. Da musst Du i.d.R. auf Ownerdraw umschalten.
Ist das denn so wichtig ? In zwei Jahren ist eh der Zug für XP abgefahren. Funktionalität geht vor Klicki-Bunti.
Gruß
Greenhorn
Moin,
Microsoft empfiehlt ausdrücklich die 32bit-Versionen für den produktiven Einsatz, da viele Add-ons nicht unter 64bit laufen. Außerdem gibt es Kompatibilitätsprobleme zwischen 32bit und 64bit Dokumenten (Makros, Add-ons).
Gruß
Greenhorn
Hallo Slider99,
das mag sehr nett von Dir gemeint sein, aber wie die anderen es schon erwähnt haben ist die Hilfe von User2User hier freiwillig.
Besser wäre es dann schon direkt für das Forum zu spenden, um Gun-Food bei den Serverkosten zu unterstützen. Da haben wir dann alle etwas davon.
Und ein ehrlich gemeintes "Danke schön" von Herzen ist mehr wert.
Lieben Gruß
Greenhorn
... oder es findet sich jemand der mir die tieferen dahinterliegenden API-Aufrufe in 2 Worten einfach erklärt...
Moin,
es reicht eigentlich LoadImage, GetModuleHandle und SendMessage mit BM_SETIMAGE für das was Du vorhast ...
#include <Constants.au3>
#include <ButtonConstants.au3>
Global $g_hInstance = GetModuleHandle (0)
...
$Btn_1 = GUICtrlCreateButton('', 10, 10, 25, 25, $BS_BITMAP)
$hBmp = LoadImage ($g_hInstance, "BUTTON_BMP_1", $IMAGE_BITMAP, 0, 0, $LR_SHARED)
GUICtrlSendMsg ($Btn_1, $BM_SETIMAGE, $IMAGE_BITMAP, $hBmp)
...
...
Func _Switch($_ID) ; Status ändern und gleichzeitig Bild wechseln
[/autoit] [autoit][/autoit] [autoit]Local $hBmp
[/autoit] [autoit][/autoit] [autoit]If BitAND(GUICtrlGetState($_ID), $GUI_DISABLE) Then
GUICtrlSetState($_ID, $GUI_ENABLE)
$hBmp = LoadImage ($g_hInstance, "BUTTON_BMP_1", $IMAGE_BITMAP, 0, 0, $LR_SHARED)
GUICtrlSendMsg ($_ID, $BM_SETIMAGE, $IMAGE_BITMAP, $hBmp)
Else
GUICtrlSetState($_ID, $GUI_DISABLE)
$hBmp = LoadImage ($g_hInstance, "BUTTON_BMP_2", $IMAGE_BITMAP, 0, 0, $LR_SHARED)
GUICtrlSendMsg ($_ID, $BM_SETIMAGE, $IMAGE_BITMAP, $hBmp)
EndIf
EndFunc
;...
[/autoit] [autoit][/autoit] [autoit]Func GetModuleHandle ($lpModuleName)
[/autoit] [autoit][/autoit] [autoit]Local $aRes = DllCall ("kernel32.dll", "HANDLE", "GetModuleHandleW", "ptr", $lpModuleName)
If @error Then _
Return @error
Return $aRes[0]
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit]Func LoadImage ($hinst, $lpszName, $uType, $cxDesired, $cyDesired, $fuLoad)
[/autoit] [autoit][/autoit] [autoit]Local $type = "ptr"
[/autoit] [autoit][/autoit] [autoit]If (IsString ($lpszName)) Then $type = "wstr"
[/autoit] [autoit][/autoit] [autoit]Local $aRes = DllCall ("user32.dll", 'HANDLE', 'LoadImageW', _
'HANDLE' , $hinst, _
$type , $lpszName, _
'UINT', $uType, _
'int' , $cxDesired, _
'int' , $cyDesired, _
'UINT', $fuLoad)
If @error Then _
Return @error
Return $aRes[0]
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit]Gruß
Greenhorn
In dem Funktionsaufruf von GetWindowPlacement ?
Jein.
Mal wieder ein Flüchtigkeitsfehler von mir ...
Habe den Code in vorigem Post ergänzt.
Also rufst Du die Funktion SaveSettings mit dem entsprechenden Fensterhandle auf.
Gruß
