Du musst SciTE vorher neu starten. Hab jetzt ne neue Version mit ner MsgBox wenns fertig ist :D.
Beiträge von SEuBo
-
-
etwa urldekodiert
Was heißt denn "etwa url-kodiert"? Könntest du deinen Code posten? Dann könnte man mit Sicherheit besser helfen. -
Wer kennt das nicht? Eine neue UDF gefunden und man möchte was damit basteln.
Aber wie denn bitte, wenn man jeden Befehl noch 20 mal nachschlagen muss?
Hier also ein kurzes Script, welches die CallTips für ein Script ausliest, und in die au3.user.calltips.api schreibt.SciTE muss danach neu gestartet werden.
/Edit 28.08.2014: Das Script muss unter Umständen als Administrator gestartet werden!
[Blockierte Grafik: http://i51.tinypic.com/14o0pl3.png]
Hier gibt es noch eine angepasste Version von Fabian:
Spoiler anzeigen
[autoit];SEuBo - 2010
[/autoit] [autoit][/autoit] [autoit]
;modified by Fabian 07.2010Local $sCallTipPath, $sAu3Path, $aFunc, $sFileRead, $aFuncDesc
[/autoit] [autoit][/autoit] [autoit]
; au3.user.calltips.api
If Not @Compiled Then
If @OSArch = "x86" Then
$sCallTipPath = StringReplace(@AutoItExe, "autoit3.exe", "SciTE\api\au3.user.calltips.api")
Else
$sCallTipPath = StringReplace(@AutoItExe, "autoit3_x64.exe", "SciTE\api\au3.user.calltips.api")
EndIf
Else
If @OSArch = "x86" Then
$sCallTipPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir") & "\SciTE\api\au3.user.calltips.api"
Else
$sCallTipPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\AutoIt v3\AutoIt", "InstallDir") & "\SciTE\api\au3.user.calltips.api"
EndIf
EndIf
_ConsoleWrite(@CRLF)
_ConsoleWrite("-> Vermute au3.user.calltips.api in " & $sCallTipPath & @CRLF)If Not FileExists($sCallTipPath) Then
[/autoit] [autoit][/autoit] [autoit]
_ConsoleWrite("!> au3.user.calltips.api wurde nicht gefunden." & @CRLF)
MsgBox(64, "", "au3.user.calltips.api wurde nicht gefunden.")
$sCallTipPath = FileOpenDialog("Calltips Öffnen", @ProgramFilesDir, "AutoIt Calltips (*.api)", Default, "au3.user.calltips.api")
If @error Then
_ConsoleWrite("!> Abbruch durch Benutzer." & @CRLF)
MsgBox(16, "", "Abbruch durch Benutzer.")
Exit
EndIf
EndIf_ConsoleWrite("+> au3.user.calltips.api in " & $sCallTipPath & " lokalisiert." & @CRLF)
[/autoit] [autoit][/autoit] [autoit]
; the script to extract calltips from
If $CmdLine[0] > 0 Then
$sAu3Path = $CmdLine[1]
_ConsoleWrite("-> Zieldatei per $CmdLine übergeben!" & @CRLF)
Else
$sAu3Path = FileOpenDialog("Datei auswählen.", "", "AutoIt Script (*.au3)")
If @error Then
_ConsoleWrite("!> Abbruch durch Benutzer." & @CRLF)
MsgBox(16, "", "Abbruch durch Benutzer.")
Exit
EndIf
_ConsoleWrite("-> Zieldatei per FileOpenDialog übergeben!" & @CRLF)
EndIf_ConsoleWrite("+> " & $sAu3Path & " ist die Zieldatei" & @CRLF)
[/autoit] [autoit][/autoit] [autoit]
; Gather functions
$sFileRead = FileRead($sAu3Path)
$aFunc = StringRegExp($sFileRead, "Func ((\w+)\([^)]*\))", 3)
If @error Then
_ConsoleWrite("!> Keine Funktionen in " & $sAu3Path & " gefunden!" & @CRLF)
MsgBox(16, "", "Keine Funktionen in " & $sAu3Path & " gefunden!")
Exit
EndIfLocal $iFuncCnt = UBound($aFunc), $aTmp, $sRet
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To $iFuncCnt - 1 Step 2
$sRet &= @CRLF & $aFunc[$i]
$aTmp = StringRegExp($sFileRead, "(?i)(?>\b\Q" & $aFunc[$i + 1] & "\E\b[^:]+(?>description|beschreibung)[^:]+:\S*)([^\v]+)\v", 3)
If Not @error Then $sRet &= $aTmp[0]
Next_ConsoleWrite("Folgende Funktionen wurden hinzugefügt: " & @CRLF & $sRet & @CRLF)
[/autoit] [autoit][/autoit] [autoit]
FileWrite($sCallTipPath, $sRet)
MsgBox(64, "", "Fertig")Func _ConsoleWrite($sText)
[/autoit]
If Not @Compiled Then Return ConsoleWrite($sText)
If @Compiled Then Return FileWrite(@ScriptDir & "\_Calltips_Debug.txt", $sText)
EndFunc ;==>_ConsoleWrite -
Aus der SciTEConfig.au3:
[autoit]Func RunReqAdmin($Autoit3Commands, $prompt = 1)
[/autoit]
Local $temp_Script = _TempFile(@TempDir, "~", ".au3")
Local $temp_check = _TempFile(@TempDir, "~", ".chk")
FileWriteLine($temp_check, 'TempFile')
FileWriteLine($temp_Script, '#NoTrayIcon')
If Not IsAdmin() Then
FileWriteLine($temp_Script, '#RequireAdmin')
If $prompt = 1 Then MsgBox(262144, "Need Admin mode", "Admin mode is needed for this update. Asnwer the following prompts to allow the update.")
EndIf
FileWriteLine($temp_Script, $Autoit3Commands)
FileWriteLine($temp_Script, "FileDelete('" & $temp_check & "')")
RunWait('"' & @ScriptFullPath & '" /AutoIt3ExecuteScript "' & $temp_Script & '"')
While FileExists($temp_check)
Sleep(50)
WEnd
FileDelete($temp_Script)
EndFunc ;==>RunReqAdmin -
Hallo,
Das ist mit StringRegExp realisierbar.
Danach müssen nur noch HTML Tags entfernt werden. Kannst dir das ja noch weiter anpassen, wenn was fehlen sollte.Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "", _ReadPost(170708))Func _ReadPost($iPostID)
[/autoit] [autoit][/autoit] [autoit]
Local $aReplace[2][2] = [["<br />", ""],[""", """"]] ; Hier das was noch gesucht & ersetz werden soll. (wenn etwas nur gelöscht werden soll,
; solltest du das in der vorletzen Zeile beim StringRegExpReplace tunLocal $sHTML, $aRet, $iUB = UBound($aReplace)
[/autoit] [autoit][/autoit] [autoit]
$sHTML = BinaryToString(InetRead("http://autoit.de/index.php?page=Thread&postID=" & $iPostID & "#post" & $iPostID, 1), 4) ; Text aus dem Internet holen
$aRet = StringRegExp($sHTML, 'postText' & $iPostID & '">\s+([\w\W]+?)(?></div>\s+<div class="messageFooterRight)', 3) ; Mit StringRegExp die richtige stelle raussuchen
If @error Then Return SetError(1, 0, "")For $i = 0 To $iUB - 1
[/autoit] [autoit][/autoit] [autoit][/autoit]
$aRet[0] = StringReplace($aRet[0], $aReplace[$i][0], $aReplace[$i][1]) ; In einer Schleife HTML Code "formatieren"
Next
$aRet[0] = StringRegExpReplace($aRet[0], "(?m)^\s*$|<em>|</em>|<br>|\s+</div>$", "") ; Restliche HTML Tags mit RegExp entfernen (mit | kann man sachen die gelöscht werden sollen seperieren
Return $aRet[0]
EndFunc ;==>_ReadPostIn meiner Signatur findest du außerdem ein umfangreiches StringRegExp Tutorial.
Hier noch ein Ansatz um mit Spoiler & AutoIt Code umzugehen:
Spoiler anzeigen
[autoit]MsgBox(0, "", _ReadPost(170714))
[/autoit] [autoit][/autoit] [autoit]Func _ReadPost($iPostID)
[/autoit] [autoit][/autoit] [autoit]
Local $aReplace[4][2] = [["&", "&"],["<", "<"],[">", ">"],[""", """"]] ; Hier das was noch gesucht & ersetz werden soll. (wenn etwas nur gelöscht werden soll,
; solltest du das in der vorletzen Zeile beim StringRegExpReplace tunLocal $sHTML, $aRet, $iUB = UBound($aReplace)
[/autoit] [autoit][/autoit] [autoit]
$sHTML = BinaryToString(InetRead("http://autoit.de/index.php?page=Thread&postID=" & $iPostID & "#post" & $iPostID, 1), 4) ; Text aus dem Internet holen
ClipPut($sHTML)
$aRet = StringRegExp($sHTML, 'postText' & $iPostID & '">\s+([\w\W]+?)(?></div>\s+<div class="(?>messageFooterRight|signature))', 3) ; Mit StringRegExp die richtige stelle raussuchen
If @error Then Return SetError(1, 0, "")For $i = 0 To $iUB - 1
[/autoit] [autoit][/autoit] [autoit]
$aRet[0] = StringReplace($aRet[0], $aReplace[$i][0], $aReplace[$i][1]) ; In einer Schleife HTML Code "formatieren"
Next
$aRet[0] = StringRegExpReplace($aRet[0], "(?m)^\s*$|\s+</div>$|<a style[^>]+>|<span style[^>]+>|(?><blockquote class=""quoteBox spoiler"">)[\w\W]+?codeLines container-4"">\s+<pre>", "") ; Spoiler und AutoIt Code ausfiltern
$aRet[0] = StringRegExpReplace($aRet[0], "</?span>|</?a>|</?td>|</?tr>|</?pre>|</?table>|</?em>|<br />|</?div>|</?blockquote>", "") ; Restliche HTML Tags mit RegExp entfernen (mit | kann man sachen die gelöscht werden sollen seperierenReturn $aRet[0]
[/autoit]
EndFunc ;==>_ReadPost -
Nur mal interessehalber: Kann es sein, dass das Problem dadurch zustande kam, dass durch den MouseClick-Befehl das Event immer wieder aufgerufen wurde?
Nein, Sprenger hat das Event ja schon richtigerweise wieder deregistriert, und nach dem erneuten klick wieder registriert. Es hatte schon alles seine richtigkeit.
Der Fehler kommt (so würde ich vermuten) durch den DLLCallback zustande, der von MouseSetOnEvent verwendet wird. Nur eine Idee. Ich hatte schon damals arge Probleme mit der UDF - und ich glaube nicht, dass das jetzt komplett Narrensicher ist.http://www.autoitscript.com/forum/index.php?showtopic=64738&view=findpost&p=748575
-
Warum nicht auf die einfache Art?
[autoit]#include <Misc.au3>
[/autoit] [autoit][/autoit] [autoit]
Global $x = 0, $hDLL = DllOpen("user32")While Sleep(10)
[/autoit]
If _IsPressed(01, $hDLL) Then
$x += 1
ConsoleWrite($x & @CRLF)
While _IsPressed(01,$hDLL) * Sleep(10)
WEnd
EndIf
WEnd
DllClose($hDLL) -
Du kannst bei OnEvent keine Parameter mit angeben.
Du brauchst also Wrapper-Funktionen.Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetOnEvent(-1,"_ShowInfo_on");....
[/autoit] [autoit][/autoit] [autoit]Func _ShowInfo_on()
[/autoit] [autoit][/autoit] [autoit]
_ShowInfo(1)
EndFuncFunc _ShowInfo_off()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_ShowInfo(0)
EndFuncFunc _ShowInfo($n=0)
[/autoit]
If $n = 1 Then
GUISetState(@SW_SHOW, $Form1_2)
ElseIF $n = 0 Then
GUISetState(@SW_HIDE, $Form1_2)
EndIf
EndFunc -
Sowas in der Art?
Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
_Funktion2("Test")
_Funktionnummer3()
_Funktion1()Func _Funktion1($iSLN = @ScriptLineNumber)
[/autoit] [autoit][/autoit] [autoit]
_Funktion2("Hallo!")
EndFuncFunc _Funktionnummer3($Parameter1="Def",$Param2="Test",$iSLN = @ScriptLineNumber)
[/autoit] [autoit][/autoit] [autoit]
_Funktion2("Testen wir mal!")
EndFuncFunc _Funktion2($iParameter, $iSLN = @ScriptLineNumber)
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"","Aufgerufen von: "&_GetParentFunktion($iSLN))
EndFuncFunc _GetParentFunktion($iSLN)
[/autoit]
If @Compiled Then Return "Unable to retrieve information when Script is compiled"
$aFunc = StringRegExp(FileRead(@ScriptFullPath),'(?m)\A(?>.*\r\n){1,'&$iSLN&'}Func (\w+)\(.*\)',1)
If @error Then Return "MainScript"
Return $aFunc[0]
EndFuncFunktioniert halt nur uncompiled.
-
Ja, die StructureConstants.au3/FileConstants.au3 (von GDI+ included) vertragen sich nicht mit der WinInetConstants.au3
Da hat der Programmierer wohl mist gebaut! Gängigerweise hätte er mit If Not IsDeclared() arbeiten müssen.
Du musst die WinInetConstants.au3 öffnen, und alle Global Const anweisungen löschen. Oder versuch es mal mit der ausm Anhang
-
Schau dir mal das Beispiel zu GUICtrlCreatePic an, und scroll gaaaanz runter (!).
-
_FFFrameEnter() und _FFReadText() sollten dir weiterhelfen.
-
Schon probiert vorher ein {SHIFTDOWN} zu senden?
//EDIT: Meinte eh SHIFTUP
-
Das Problem tritt aber erst in höhren zahlen auf z.b. bei 76561197999700136
Das liegt einfach daran, dass das den Zahlenbereich von AutoIt übersteigt. Google mal nach der BigInt UDF. -
Holt deinen Quelltext aus der Zwischenablage, ersetzt die entsprechenden Stellen und fügt den neuen Code in deine Zwischenablage ein.
[autoit]$sRepl = "Ich wurde eingefügt!"
[/autoit]
ClipPut(StringRegExpReplace(ClipGet(),'(?<=href=("|''))(.+?\1)',$sRepl & "\2"))Viel Spaß
-
Probier mal das
Spoiler anzeigen
[autoit]$sFile = FileOpenDialog("Öffnen","","All (*.*)")
[/autoit]
FileWrite(FileSaveDialog("Speichern","","All (*,*)",Default,StringTrimRight($sFile,4) & "_bearbeitet"&StringRight($sFile,4)),StringRegExpReplace(FileRead($sFile),'(?m)^.*\t(.+?@.+?)\t.*$',"\1"& @CRLF)) -
Was ist denn dein Problem mit Richedit Controls?
Hier mal ein einfaches Beispiel zur Verwendung:Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#AutoIt3Wrapper_Au3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiRichEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>Main()
[/autoit] [autoit][/autoit] [autoit]Func Main()
[/autoit] [autoit][/autoit] [autoit]
Local $hGui, $hRichEdit, $iMsg, $cButton
$hGui = GUICreate("Example (" & StringTrimRight(@ScriptName, 4) & ")", 320, 350, -1, -1)
$hRichEdit = _GUICtrlRichEdit_Create($hGui, "::::::::::::::DEMO::::::::::::::", 10, 10, 300, 220, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL,$ES_NOHIDESEL))
$cButton = GUICtrlCreateButton("Add", 20, 320, 100, 20)
GUISetState()While True
[/autoit] [autoit][/autoit] [autoit]
$iMsg = GUIGetMsg()
Select
Case $iMsg = $GUI_EVENT_CLOSE
GUIDelete()
Exit
Case $iMsg = $cButton
_GUICtrlRichEdit_SetSel($hRichEdit,-1,-1) ; Cursor ans Ende setzen
_RichEdit_AddColoredText($hRichEdit,@CR & "This is some Text",_NewColor())
EndSelect
WEnd
EndFunc ;==>MainFunc _NewColor()
[/autoit] [autoit][/autoit] [autoit]
Local $aHex = StringSplit("0123456789ABCDEF", "", 2), $sRet = "0x"
For $i = 1 To 6
$sRet &= $aHex[Random(0, 15, 1)]
Next
Return $sRet
EndFunc ;==>_NewColorFunc _RichEdit_AddColoredText($hRichEdit, $sText, $nColor)
[/autoit]
;SEuBo
Local $aSel, $aNSel
$aSel = _GUICtrlRichEdit_GetSel($hRichEdit) ; aktuelle Cursorpos.
_GUICtrlRichEdit_AppendText($hRichEdit, $sText) ; Text ahängen
$aNSel = _GUICtrlRichEdit_GetSel($hRichEdit) ; Cursorpos nach dem Text einfügen
_GUICtrlRichEdit_SetSel($hRichEdit, $aSel[0], $aNSel[0], True) ; Geschriebenen Text wählen
_GUICtrlRichEdit_SetCharColor($hRichEdit, $nColor) ; Einfärben
_GUICtrlRichEdit_SetSel($hRichEdit, -1, -1) ; Und cursor ans ende setzen
EndFunc ;==>_RichEdit_AddColoredText -
Benutz dafür ein RichEdit Control
-
Habe dafür letztens was erstellt. musst nur noch die für dich wichtigen Teile raussuchen.
Spoiler anzeigen
[autoit]#include <GDIPlus.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GDIPlusConstants.au3>
#include <WinAPI.au3>
#include <Array.au3>
#include <ScreenCapture.au3>
_GDIPlus_Startup()$hCapture1 = _Capture(1, 1, 77, 55) ; Screencapture machen (Bereich 1,1 -> 77,55)
[/autoit] [autoit][/autoit] [autoit]
$aTest = _GDIPlus_ImageGetColorArray($hCapture1) ; Farbinformationen in Array einlesenMouseMove(10, 10, 0)
[/autoit] [autoit][/autoit] [autoit]$hCapture2 = _Capture(1, 1, 77, 55) ; Neues Bild
[/autoit] [autoit][/autoit] [autoit]
$aTest2 = _GDIPlus_ImageGetColorArray($hCapture2) ; Neues Bild einlesen$aUnterschiede = _GetColorDifferences($aTest, $aTest2) ; Unterschiede finden (Koordinaten)
[/autoit] [autoit][/autoit] [autoit];Ab hier dient es nur noch der Darstellugn.
[/autoit] [autoit][/autoit] [autoit]_Display($aTest, "Vorher") ; Vorher Bild anzeigen
[/autoit] [autoit][/autoit] [autoit]
_Display($aTest2, "Nachher") ; Nachher Bild anzeigen
_Display($aTest2, "Unterschiede", $aUnterschiede) ; Unterschiede anhand der Koordinaten markieren_ArrayDisplay($aUnterschiede, "Alle unterschiede:")
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_Shutdown()
[/autoit] [autoit][/autoit] [autoit]Func _GetColorDifferences($aBefore, $aAfter)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Local $iUB1[2] = [UBound($aBefore), UBound($aBefore, 2)], $iUB2[2] = [UBound($aAfter), UBound($aAfter, 2)]
Local $iDim = $iUB1, $aRet[1][2] = [[0]], $iUB = 0
If $iDim[0] > $iUB2[0] Then $iDim[0] = $iUB2[0]
If $iDim[1] > $iUB2[1] Then $iDim[1] = $iUB2[1]For $i = 0 To $iDim[0] - 1
[/autoit] [autoit][/autoit] [autoit]
For $j = 0 To $iDim[1] - 1
If $aBefore[$i][$j] <> $aAfter[$i][$j] Then
Local $iUB = UBound($aRet)
ReDim $aRet[$iUB + 1][2]
$aRet[$iUB][0] = $i
$aRet[$iUB][1] = $j
EndIf
Next
Next
$aRet[0][0] = $iUB
Return $aRet
EndFunc ;==>_GetColorDifferencesFunc _GDIPlus_ImageGetColorArray($sFile)
[/autoit] [autoit][/autoit] [autoit]
; SEuBo - Thx to Andy for
; https://autoit.de/index.php?page…6673#post126673
Local $iWidth, $iHeight, $iStride
Local $hBitMap, $hBitMapData, $hPixelData
If FileExists($sFile) Then $hBitMap = _GDIPlus_BitmapCreateFromFile($sFile)
If Not FileExists($sFile) Then $hBitMap = _GDIPlus_BitmapCreateFromHBITMAP($sFile)
$hBitMapData = _GDIPlus_BitmapLockBits($hBitMap, 0, 0, _GDIPlus_ImageGetWidth($hBitMap), _GDIPlus_ImageGetHeight($hBitMap), $GDIP_ILMREAD, $GDIP_PXF24RGB)
If @error Then Return SetError(1, 0, 0)
$iWidth = DllStructGetData($hBitMapData, "Width");Image width - Number of pixels in one scan line of the bitmap.
$iHeight = DllStructGetData($hBitMapData, "Height");Image height - Number of scan lines in the bitmap.
$hPixelData = DllStructCreate("ubyte[" & (Abs(DllStructGetData($hBitMapData, "Stride")) * ($iHeight)) & "]", DllStructGetData($hBitMapData, "Scan0"))
_WinAPI_DeleteObject($hBitMap)
_GDIPlus_BitmapUnlockBits($hBitMap, DllStructGetData($hPixelData, 1))Local $aReturn[$iWidth][$iHeight], $i = 1
[/autoit] [autoit][/autoit] [autoit]
For $y = 0 To $iHeight - 1
For $x = 0 To $iWidth - 1
$aReturn[$x][$y] = "0x" & Hex(DllStructGetData($hPixelData, 1, $i + 2), 2) & Hex(DllStructGetData($hPixelData, 1, $i + 1), 2) & Hex(DllStructGetData($hPixelData, 1, $i), 2)
$i += 3
Next
Next
_GDIPlus_ImageDispose($hPixelData) ;destroys the pixeldatastruct, have to be done at end of the script!
Return $aReturn
EndFunc ;==>_GDIPlus_ImageGetColorArrayFunc _Display($aTest, $sTitle = "", $aDiff = 0)
[/autoit] [autoit][/autoit] [autoit]
$hGUI = GUICreate($sTitle, UBound($aTest, 1) * 10, UBound($aTest, 2) * 10)
If IsArray($aDiff) Then
For $i = 1 To UBound($aDiff) - 1
$aTest[$aDiff[$i][0]][$aDiff[$i][1]] = 0xFF0000
Next
EndIfFor $1 = 0 To UBound($aTest) - 1
[/autoit] [autoit][/autoit] [autoit]
For $2 = 0 To UBound($aTest, 2) - 1
GUICtrlCreateGraphic($1 * 10, $2 * 10, 10, 10)
GUICtrlSetBkColor(-1, $aTest[$1][$2])
Next
NextGUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
ExitLoop
EndSwitch
WEnd
GUIDelete($hGUI)
EndFunc ;==>_DisplayFunc _Capture($iLeft, $iTop, $iRight, $iBottom, $sFile = "")
[/autoit]
Local $iWidth = $iRight - $iLeft + 1, $iHeight = $iBottom - $iTop + 1
If Mod($iWidth, 4) Then $iWidth += (4 - Mod($iWidth, 4))
If Mod($iHeight, 4) Then $iHeight += (4 - Mod($iHeight, 4))
$iRight = $iWidth + $iLeft -1
$iBottom = $iHeight + $iTop -1
ConsoleWrite("_ScreenCapture_Capture(" & $sFile & ", " & $iLeft & ", " & $iTop & ", " & $iRight & ", " & $iBottom & ")" & @CRLF)
Return _ScreenCapture_Capture($sFile, $iLeft, $iTop, $iRight, $iBottom)
EndFunc ;==>_Capture//EDIT: Merk grad, dass ich ein bisschen am Thema vorbei geschossen bin. Naja vllt hilft das ja trotzdem nochmal.
-
Hier mein Wetterscript
Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit]
$aWeatherInfo = StringRegExp(BinaryToString(InetRead("http://www.google.de/search?q=wetter%20"&InputBox("PLZ","PLZ oder Stadt eingeben"),1),1),'(?>Wetter</b>[^>]+>([^<]+))(?>.+?<b>(.+?)</b>.+?<b>(.+?)</b><br>(.+?)<br>(.+?)</div>)</div>',3)
_ArrayDisplay($aWeatherInfo)