achso..
das ist natürlich dumm, da ich an den Quellcode kommen muss, um den Link für das Bild zu bekommen.
Eine andere Möglichkeit, an den Quellcode zu kommen gibt es nicht oder?
Jetzt mal ganz doof gefragt 
Über die inet.au3 ???
$quelltext = _InetGetSource('http://www.autoit.de')
[/autoit]
Am besten du postest mal die seite...
MFG chris 
Servus...
erstmal .... SUUUUPPPPPPPEEERRR
Also in der Mittagspause auf der Arbeit gibbet nichts besseres
Bei mir zu Hause habe ich win7 da läuft es leider nicht....
hänge heute abend mal noch den fehlerCode an ....
Aber ansosnten TOOOPPPPP !!! 
MFG chris
Das weiß ich auch, aber die basiert auf der WinINet.dll und die is mir einfach zu kompliziert, was das auswerten angeht, bzw hab ich das noch garnicht hinbekommen
Hey... weiß nicht ob du noch an dem Theme dran bist... aber vieleicht hilft dir der Post hier das läuft direkt über TCP.. glaube nicht das es schneller geht
MFG chris
Hey...
guck dir mal in der UDF Hilfe die Fuktionen _IEFormSubmit() an...
darunter ist eine Bsp Script... da ist in etwas das drinne was du suchst.
MFG chris
Servus...
wollte es nur mal gerade als Nachtrag einreichen, dass ein Ico mit transparenz doch über einem Bild geht ohne die Hintergrundfarbe des Guis anzunehmen
Damit ist diese Thema gelöst
[Blockierte Grafik: http://img27.imageshack.us/img27/8288/aufzeichnenc.png]
Dateien aus dem 1 Beitrag laden....
#include <WinAPI.au3>
[/autoit] [autoit][/autoit] [autoit]$hgui = GUICreate ( "test", 500 , 500 )
GUISetBkColor (0x00ff00)
GUICtrlCreatePic ( 'hg.jpg',0,0 )
$hPic = GUICtrlCreatePic ('',40,40,48,48 )
__SetIconAlpha($hPic, 'test.ico',0, 48, 48)
GUISetState()
While 1
Switch GUIGetMsg()
Case -3
Exit
EndSwitch
WEnd
Func __SetIconAlpha($hWnd, $sIcon, $iIndex, $iWidth, $iHeight)
If Not IsHWnd($hWnd) Then
$hWnd = GUICtrlGetHandle($hWnd)
If $hWnd = 0 Then
Return SetError(1, 0, 0)
EndIf
EndIf
Local $hIcon = __WinAPI_ShellExtractIcons($sIcon, $iIndex, $iWidth, $iHeight)
If $hIcon = 0 Then
Return SetError(1, 0, 0)
EndIf
Local $hBitmap, $hObj, $hDC, $hMem, $hSv
$hDC = _WinAPI_GetDC($hWnd)
$hMem = _WinAPI_CreateCompatibleDC($hDC)
$hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $iWidth, $iHeight)
$hSv = _WinAPI_SelectObject($hMem, $hBitmap)
_WinAPI_DrawIconEx($hMem, 0, 0, $hIcon, $iWidth, $iHeight, 0, 0, 2)
_WinAPI_ReleaseDC($hWnd, $hDC)
_WinAPI_SelectObject($hMem, $hSv)
_WinAPI_DeleteDC($hMem)
_WinAPI_DestroyIcon($hIcon)
_WinAPI_DeleteObject(_SendMessage($hWnd, 0x0172, 0, 0))
_SendMessage($hWnd, 0x0172, 0, $hBitmap)
$hObj = _SendMessage($hWnd, 0x0173)
If $hObj <> $hBitmap Then
_WinAPI_DeleteObject($hBitmap)
EndIf
Return 1
EndFunc ;==>_SetIconAlpha
Func __WinAPI_ShellExtractIcons($sIcon, $iIndex, $iWidth, $iHeight)
Local $Ret = DllCall('shell32.dll', 'int', 'SHExtractIconsW', 'wstr', $sIcon, 'int', $iIndex, 'int', $iWidth, 'int', $iHeight, 'ptr*', 0, 'ptr*', 0, 'int', 1, 'int', 0)
If (@error) Or ($Ret[0] = 0) Or ($Ret[5] = Ptr(0)) Then
Return SetError(1, 0, 0)
EndIf
Return $Ret[5]
EndFunc ;==>_WinAPI_ShellExtractIcons
MFG chris
hi...
Also die Idee ist super ... ich wollte schon lange mal mit sowas anfangen aber ich musste mir letztes echt mal überlegen wieviele sachen ich noch anfangen will und nicht zu Ende machen will... naja auf jeden fall würde ich dir mal empfehlen AllwaySync dir anzugucken... kann ich nur empfehlen und steckt voll mit Ideen die man gut übernehmen kann... leider sperrt das Tool sich irgendwann selbst weil es meint das man es zu viel benutzt und man doch ne Pro Version kaufen soll
Kannst ja mal gucken ob du nen paar sinnvolle Ideen übermehmen kannst
MFG chris
servus...
Also unter Win7 öffnet sich kein Traymenü und bei Win+V passiert auch nichts...
MFG chris
Hey...
ich glaube ich stehe gerade auf nem rieeeeeeeeeeeßen Schlauch...
Warum kommt die MsgBox() ?
[autoit]If 3 > 7 Or 7 < 2 Or 27 > 54 Then
MsgBox (0,"","")
EndIf
MFG Chris
EDIT Fehler in der Version gefunden... < verdreht aber in meinem Script will es noch nicht...
hi...
Bots werden in diesem Forum nicht unterstützt... Reglen lesen !!
MFG chris
hi...
GuictrlcreateIcon....
Und mit Resshacker bekommste die Bilder in die DLL
MFG chris
hi...
also in Win7 klappt leider nichts...
MFG chris
hey...
glaube das gibt es nicht ....das ist aber schnell selbst gebastelt...
guck dir FileOpen() an FileWrite() u FileClose()
dann musst du natürlich die html befehle wissen wie man ne Tabelle erstellt...
das ganze dann in ne Tabelle.html geschrieben und fertig...
MFg chris
servus...
[autoit]MsgBox(0,"",@DesktopDir) ; ohne die "" bei @DesktopDir
bei mir kommt da das richtige raus... C:\Users\k-10\Desktop
MFG chris
Servus...
Bots werden in diesem Forum nicht unterstützt ( Regeln lesen)...
Mod wirds bestimmt gleich closen
MFg chris
servus...
also ich habe das ganze mal bei wkw getestet...
vieleicht hilft dir der Code..
#include <string.au3>
[/autoit] [autoit][/autoit] [autoit]$SID = _wkw_login('mustermann%40web.de','passwort') ; Achtung @ = %40
$quelltext = _INetGetSourcePostCookie('http://www.wer-kennt-wen.de/people/online',' ',$SID) ; wenn du nicht Posten willst muss ein Leerzeichen drinne sein..
ConsoleWrite ( $quelltext[0]&@CRLF )
ClipPut ( $quelltext[1] )
;#################################################################################
;
; _wkw_Login(BENUTZER,PASSWORT)
; Einloggen in WKW und cookie mit $SID speichern
;
;################################################################################
Func _wkw_login($_WKW_Name,$_WKW_PW)
$quelltext = _INetGetSourcePostCookie('http://www.wer-kennt-wen.de/logout/success/',' ','')
;~ ConsoleWrite ( $quelltext[0]&@CRLF )
$cookie = _StringBetween($quelltext[0],'Set-Cookie: ',';')
;~ ConsoleWrite ( $cookie[1]&@CRLF )
$quelltext = _INetGetSourcePostCookie('http://www.wer-kennt-wen.de/start.php','loginName='&$_WKW_Name&'&pass='&$_WKW_PW&'&logIn=1',$cookie[1] )
$cookie = _StringBetween($quelltext[0],'Set-Cookie: ',';')
$_SID = $cookie[1]
;~ ConsoleWrite ( $quelltext[0]&@CRLF
Return $_SID
EndFunc
;#################################################################################
;
; _INetGetSourcePostCookie
; Funktion um eine Post Methode zu versenden und ein Cookie zu speichern/benutzen
;
;################################################################################
Func _INetGetSourcePostCookie($sURL, $sPost ,$cookie )
Local $iSocket, $sHeader, $sRecv, $iIP, $sHost, $aRegExp, $sHttp1,$iErr,$iSend,$aReturn[2]
If $sURL = '' Or $sPost = '' Then Return SetError(1, 0, 0)
If StringLeft($sURL, 7) <> 'http://' And StringLeft($sURL, 
<> 'https://' Then $sURL = "http://" & $sURL
$aRegExp = StringRegExp($sURL, "http?://(.*?)/", 3)
If @error Then Return SetError(2, 0, 0)
$sHost = $aRegExp[0]
If $sHost = '' Then Return SetError(3, 0, 0)
$sHttp1 = StringTrimLeft($sURL,StringInStr($sURL,"/",-1,3)-1)
If $sHttp1 = '' Then Return SetError(3, 0, 0)
$sHeader = "POST " & $sHttp1 & " HTTP/1.1" & @CRLF & _
"Host: " & $sHost & @CRLF & _
"User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.4) Gecko/2008111317 Ubuntu/8.04 (hardy) Firefox/3.0.4" & @CRLF & _
"Connection:close" & @CRLF & _
"Cookie:"& $cookie& @CRLF & _
"Content-type: application/x-www-form-urlencoded" & @CRLF & _
"Content-Length: " & StringLen($sPost) & @CRLF & @CRLF & $sPost
TCPStartup() ;If not already done
$iIP = TCPNameToIP($sHost)
If $iIP = '' Or StringInStr($iIP, ".") = 0 Then Return SetError(4, 0, 0)
$iSocket = TCPConnect($iIP, 80)
If @error Or $iSocket < 0 Then Return SetError(5, 0, 0)
$iSend = TCPSend($iSocket, $sHeader)
If @error Or $iSend < 1 Then Return SetError(6, 0, 0)
While 1
$sRecv = TCPRecv($iSocket, 1024)
$iErr = @error
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($iSocket, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
If $iErr Then Return SetError(7,0,0)
WEnd
$aReturn[0] = StringLeft($sRecv,StringInStr($sRecv,@CRLF&@CRLF)-1)
$aReturn[1] = StringTrimLeft($sRecv,StringLen($aReturn[0])+4)
Return $aReturn
EndFunc ;==>_INetGetSourcePost
MFG chris
Hey...
Hab nen kleines Problem unzwar möchte ich gerne mit Function _GDIPlus_GraphicsDrawString den Text Vertikal geschrieben und von rechts aus lesbar haben.
Mit dem $Format = 0x0002 ist er zwar Vertikal aber von links aus lesbar...
jemand ne Idee ?
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
Opt('MustDeclareVars', 1)
[/autoit][autoit][/autoit][autoit]_Main()
[/autoit][autoit][/autoit][autoit]Func _Main()
Local $hGUI, $hWnd, $hGraphic
; Create GUI
$hGUI = GUICreate("GDI+", 400, 300)
$hWnd = WinGetHandle("GDI+")
GUISetState()
; Draw a string
_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
_GDIPlus_GraphicsDrawString ($hGraphic, "Hello world", 140, 110, "Arial", 7, 0x0002)
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
; Clean up resources
_GDIPlus_GraphicsDispose ($hGraphic)
_GDIPlus_Shutdown ()
EndFunc ;==>_Main
[/autoit]MFG chris
Hallo irgendwie klappt das nicht
[autoit]
habe jetzt auch mal das Beispiel getestet
ausgabe ist nichts[/autoit]
#include <string.au3>
$string = "<html><body> Hello world! </body> </html>"
$abda = "<html><body>"
$bisda = " </body> </html>"
$between = _StringBetween($string, $abda, $bisda)
Msgbox(0,"",$between)
hey...
falls dur fragst warum array...
Wenn du was suchst das mehrmals vorhanden ist in einem String bekommt man mehrere Ergebnisse...
MFG chris
hey...
ist wegen dem ganzen aktualisieren dann nicht die GDI die bessere Lösung?
MFG chris
Servus...
Ich hatte mal für die RMCHART ne Smart UDF gemacht mit der sollte es super einfach sein...
[ gelöst ] RMC_Smart UDF ( Säulendiagramme )
MFG chris
Servus...
hatte ganz am Anfang auch mal sowas angefangen... ist aber nie ganz fertig geworden..
vieleicht kannst du es gebrauchen...
Quelltext u Daten in der 7z
MFG chris
