SEuBo
du
besten Dank für deine schnelle u. competente Hilfe.
Beiträge von Rodny_le_lude
-
-
hi Leute
ich hab mal wieder ein Problem mit Stringregexp. Und zwar möchte ich gerne komplette http Strings auslesen.Spoiler anzeigen
[Test]
NumberOfEntries=1
File1=http://www.isetta.de:8000/
File2=http://www.Jaguar.de:8000/soweit so gut hab das mit folgendem Code auch hinbekommen
[autoit]"(?i)\b(https?|ftp|file)://[-A-Z0-9+&@#/%?=~_|$!:,.;]*[A-Z0-9+&@#/%=~_|$]"
[/autoit]
in RegexBuddy funktioniert das auch ohne Probleme nur in Autoit bekomm ich einfach nicht das erwünschte Ergebniss. -
besten Dank SEuBo.
Dein Tut werd ich mir später mal zur gemüte führen. -
Hi Leute ich plage mich grad mit StringRegExp rum und habe so gar keinen Ansatz wie ich aus einem Seitenquelltext zb alle gif Links isolieren kann.
wäre sehr dankbar für jede Hilfe -
hab dein Script etwas Modifiziert
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#include <SliderConstants.au3>
#include <array.au3>
Global $Music_List[1],$music_pointer=0$Form1 = GUICreate("Form1", 306, 133, 260, 280, $WS_POPUP)
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0xE0FFFF)
$Play = GUICtrlCreateLabel("4", 200, 36, 53, 45)
GUICtrlSetFont(-1, 36, 800, 0, "Webdings")
GUICtrlSetColor(-1, 0xFF0F00)GUICtrlSetTip(-1, "Play")
[/autoit] [autoit][/autoit] [autoit]
$For = GUICtrlCreateLabel("8", 243, 44, 31, 34)
GUICtrlSetFont(-1, 20, 400, 0, "Webdings")
GUICtrlSetColor(-1, 0xFF0FF0)GUICtrlSetTip(-1, "Nächter Titel")
[/autoit] [autoit][/autoit] [autoit]
$back = GUICtrlCreateLabel("7", 180, 44, 31, 34)
GUICtrlSetFont(-1, 20, 400, 0, "Webdings")
GUICtrlSetColor(-1, 0xFF0FF0)GUICtrlSetTip(-1, "Vorheriger Titel")
[/autoit] [autoit][/autoit] [autoit]
$open = GUICtrlCreateLabel("1", 215, 86, 27, 21)
GUICtrlSetFont(-1, 12, 800, 0, "Wingdings")
GUICtrlSetColor(-1, 0xFF0FF0)GUICtrlSetTip(-1, "Öffnen")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$slider = GUICtrlCreateSlider(16, 112, 137, 19, $TBS_BOTTOM)
GUICtrlSetColor(-1, 0xFF0FF0)
GUICtrlSetData($slider, 100)
GUICtrlSetLimit($slider , 100, 0)
$List1 = GUICtrlCreateListView("Titel|Pfad", 16, 16, 137, 97)
GUISetState(@SW_SHOW)
WinSetTrans("Form1", "", 480)While 1
[/autoit] [autoit][/autoit] [autoit]
SoundSetWaveVolume(GUICtrlRead($slider))
$Msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $open
openClick()
Case $msg>$List1
$split=StringSplit(GUICtrlRead($msg),"|")
play_this($split[2])
Case $msg = $For
If $music_pointer=0 Then ContinueLoop
$music_pointer=$music_pointer+1
If $music_pointer > $Music_List[0] Then $music_pointer=1
play_this($Music_List[$music_pointer])Case $msg = $back
[/autoit] [autoit][/autoit] [autoit]
If $music_pointer=0 Then ContinueLoop
$music_pointer=$music_pointer-1
If $music_pointer = 0 Then $music_pointer=$Music_List[0]
play_this($Music_List[$music_pointer])
EndSelectWEnd
[/autoit] [autoit][/autoit] [autoit]Func openClick()
[/autoit] [autoit][/autoit] [autoit]
$x=0
$laden = FileOpenDialog("Öffnen", @DesktopDir, "(*.mp3)",1+4)
If @error Then Return 0
$split=StringSplit($laden,"|")
If $split[0]=1 Then
$Music_List[0]=UBound($Music_List)
_ArrayAdd($Music_List,$laden)
$split=StringSplit($laden,"\")
$music_pointer=$Music_List[0]
GUICtrlCreateListViewItem($split[$split[0]]&"|"&$laden,$List1)
Else
For $i=2 To $split[0]
$Music_List[0]=UBound($Music_List)
_ArrayAdd($Music_List,$split[1]&"\"&$split[$i])
GUICtrlCreateListViewItem($split[$i]&"|"&$split[1]&"\"&$split[$i],$List1)
If $x=0 Then $music_pointer=$Music_List[0]
$x=1
Next
EndIf
play_this($Music_List[$music_pointer])
EndFuncFunc play_this($input)
[/autoit]
SoundPlay($input)
EndFunc -
Spoiler anzeigen
[autoit]
[/autoit]
If GUICtrlRead($Checkbox2) = 1 Then RunWait("Special Pack 1\AdbeRdr930_de_DE.exe")
If GUICtrlRead($Checkbox3) = 1 Then RunWait("Special Pack 1\Picasa3auto.exe")
If GUICtrlRead($Checkbox4) = 1 Then RunWait("Special Pack 1\OpenOffice.org 3.2 (de) Installation Files\setup.exe")
If GUICtrlRead($Checkbox5) = 1 Then RunWait("Special Pack 1\eDoc.exe")
If GUICtrlRead($Checkbox6) = 1 Then RunWait("Special Pack 1\WinRAR\wrar391d.exe")
If GUICtrlRead($Checkbox7) = 1 Then RunWait("Special Pack 2\Driver Genius\DriverGenius_8_DE_LP.exe")
If GUICtrlRead($Checkbox8) = 1 Then RunWait("Special Pack 2\Nero 7\SetupX.exe")
If GUICtrlRead($Checkbox9) = 1 Then RunWait("Special Pack 2\Nero-9.4.12.3_free.exe")
If GUICtrlRead($Checkbox10) = 1 Then RunWait("Special Pack 2\avira_antivir_personal10_de.exe")
If GUICtrlRead($Checkbox11) = 1 Then RunWait("Special Pack 2\dotnetfx2.exe")
If GUICtrlRead($Checkbox12) = 1 Then RunWait("Special Pack 2\dotnetfx35.exe")
If GUICtrlRead($Checkbox13) = 1 Then RunWait("Special Pack 2\Firefox Setup 3.6.2.exe")
If GUICtrlRead($Checkbox14) = 1 Then RunWait("Special Pack 2\IncrediMailSetup_de.exe")
If GUICtrlRead($Checkbox15) = 1 Then RunWait("Special Pack 2\IE8-WindowsXP-x86-DEU.exe")
If GUICtrlRead($Checkbox16) = 1 Then RunWait("Special Pack 2\TrayBackup.exe")
If GUICtrlRead($Checkbox17) = 1 Then RunWait("Special Pack 2\vlc-1.0.5-win32.exe")
If GUICtrlRead($Checkbox18) = 1 Then RunWait("Special Pack 2\drivermax.exe")
If GUICtrlRead($Checkbox19) = 1 Then RunWait("NormanSecuritySuite_710x86_DEU_R18.msi")
If GUICtrlRead($Checkbox20) = 1 Then RunWait("NormanSecuritySuite_730x64_DEU_R04.msi")
If GUICtrlRead($Checkbox21) = 1 Then RunWait("Special Pack 2\spybotsd162.exe")
If GUICtrlRead($Checkbox1) = 1 Then Shutdown(2)Na und, was soll es den sonst machen schliesslich ist es ja so Programmiert
-
das geht mit _GDIPlus_GraphicsFillPolygon
du musst mit Pixelsearch den gui nach dem zu Löschendem hintergrund absuchen lassen (PINK "FARBCODE") die Positionen
dan in einem Array speichern und Anschliessend mit_GDIPlus_GraphicsFillPolygon diese Positionen im
Gui übermalen lassen -
wie schon gesagt mit shellexecute("Pfad") sollte es keine Probleme geben
-
muss auch mal meinen Senf dazugeben
Spoiler anzeigen
[autoit]$NO=StringSplit("A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,.,{,}",",")
[/autoit]
$file=@ScriptDir&"\stanz.txt"
$op=FileOpen($file,0)
If @error Then Exit
$output=""
While 1
$read=FileReadLine($op)
If @error Then ExitLoop
For $i=1 To $NO[0]
$read=StringReplace($read,$no[$i],"")
Next
$output=$output&$read&@CRLF
WEnd
MsgBox(0,"",$output) -
du nutzt Windows 7 stimmts
bsp.
Case $tray = $trayThread
Trayitemsetstate($trayThread,4)du kannst auch $TRAY_UNCHECKED benutzen
-
Haha wie lustig ist das denn8o
machen die viecher noch was anderes als andauernd von meinem Desktop zu fallen.
Und wie Geisteskranke mit Speed vollgedrönte Zombies hin und her zu Springen ?? -
Ich habs (_GDIPlus_GraphicsDrawImageRectRect) ist die Lösung.
Ich werd dazu mal ne kleine UDF bauen.EDIT:
hier eine Vorabversionhttp://freakshare.net/files/veyxuc4k/png_button.rar.html
bitte erschlagt mich nicht gleich wurde jetzt mal auf die schnelle gescriptet
-
@Reaker
Erstmal danke für den Link.
Aber das ist nicht wonach ich suche u. ausserdem kommt bei diesem UDF immer eine fehlermeldung. -
guck mal in der Autoit Helpfile
Guictrlcreatepic/Example 2du musst ein Transparenten Child gui schreiben
-
So ich habe mich jetzt n bissel mit GdiPlus beschäfdigt und muss leider feststellen
das es so leider net geht.Spoiler anzeigen
[autoit]#include "gdiplus.au3"
[/autoit] [autoit][/autoit] [autoit]
#include "guiconstantsex.au3"
#include "gUiconstants.au3"
Opt("MustDeclareVars", 1)
Global $hGUI, $hImage, $hGraphic, $hMatrix$hGUI = GUICreate("TEST", 600, 600)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetState()_GDIPlus_StartUp()
[/autoit] [autoit][/autoit] [autoit]
$hImage = _GDIPlus_ImageLoadFromFile("55.png")
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
$hMatrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixTranslate($hMatrix, 10,10,True)
_GDIPlus_GraphicsSetTransform($hGraphic, $hMatrix)_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]do
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
until GUIGetMsg() = $GUI_EVENT_CLOSE_GDIPlus_MatrixDispose($hMatrix)
[/autoit]
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_ShutDown()das Problem ist das man bei GDI+ immer erst eine Grundlage schaffen muss (zb "_GDIPlus_GraphicsCreateFromHWND")(so wie ich das Verstanden habe :wacko: )
und dan erst über die Matrix Option Parameter verändern kann die sich dan aber nur auf die bereits erstellte FORM auswirken, allso die komplette Verzerhrung (breite,höhe,x,y) nach sich führt. -
Schade das ich mich noch net so gut im GDIPLUS UDF eingearbeitet habe.
Aber ich hab schon glaub ich zumindesten was passendes gefunden (_GDIPlus_DrawImagePoints).
Falls jemand noch n Tipp hat "bitte posten". -
Hi Leute
gibt es eine Möglichkeit aus einem png file nur einen bestimmten bereich Anzeigen zu lassen, so
das man nicht für jedes Event ein eignes image File Anlegen muss.Orginal png file
[Blockierte Grafik: http://img402.imageshack.us/img402/5691/buttongm.png]
Im Gui:
Normal: [Blockierte Grafik: http://img532.imageshack.us/img532/9444/87349870.png]
über dem Button: [Blockierte Grafik: http://img402.imageshack.us/img402/2834/77599457.png]
klick auf dem Button: [Blockierte Grafik: http://img256.imageshack.us/img256/9356/44788871.png] -
Tolles Programm beide Daumen hoch
-
schreib mal bitte was du überhaupt vorhast.
ps und poste das script
EDIT:
Spoiler anzeigen
[autoit]#include <misc.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <file.au3>Global $cm_file=@ScriptDir&"\cm.txt"
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If FileExists($cm_file)= 0 Then _FileCreate($cm_file)
If @Compiled= 1 Then
If $cmdline[0] <> "" Then
While 1
$op=FileOpen($cm_file,1)
If $op <> -1 Then ExitLoop
FileClose($op)
WEnd
For $i=1 To $cmdline[0]
FileWriteLine($op,$cmdline[$i])
Next
FileClose($op)
EndIf
EndIfIf _Singleton("ASSELPUSS",1)= 0 Then Exit
[/autoit]und dan in der While schleife
Spoiler anzeigen
[autoit]If FileExists($cm_file)=0 Then ContinueLoop
[/autoit] [autoit][/autoit] [autoit]
$process=ProcessList(@ScriptName)
If $process[0][0]> 1 Then ContinueLoop
;cmdlineSwitch _FileCountLines($cm_file)
[/autoit]
Case 0
ContinueLoop
Case 1
$cm_read_pointer=FileReadLine($cm_file,-1)
_FileWriteToLine($cm_file,1,"",1)
FileDelete($cm_file)
Case Else
For $i=1 To _FileCountLines($cm_file)
$read=FileReadLine($cm_file,-1)
If $i=1 Then $cm_read_pointer=_get_file_dir($read)&"|"
$cm_read_pointer=$cm_read_pointer&_get_file_name($read)&"|"
_FileWriteToLine($cm_file,_FileCountLines($cm_file),"",1)
Next
FileDelete($cm_file)
$cm_read_pointer=StringReplace($cm_read_pointer,"|","",-1)
EndSwitchim select oder switch oder if befehl
case $cm_read_pointer > ""
$String1 = "_unaps.exe "
; unfertig $String2 = GUICtrlSetData($Input1, " " & WingetText($aListViews,""))
$String8 = " "
$String3 = $aListViews
Run($String1 & $cm_read_pointre & $String8 & $String3)
$cm_read_pointer="" -