Beiträge von Rodny_le_lude

Rodny_le_lude

SEuBo
du
besten Dank für deine schnelle u. competente Hilfe.

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.

Rodny_le_lude

besten Dank SEuBo.
Dein Tut werd ich mir später mal zur gemüte führen.

Rodny_le_lude

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

Rodny_le_lude

hab dein Script etwas Modifiziert

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#include <SliderConstants.au3>
#include <array.au3>
Global $Music_List[1],$music_pointer=0

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Form1", 306, 133, 260, 280, $WS_POPUP)
GUISetBkColor(0xE0FFFF)
$Play = GUICtrlCreateLabel("4", 200, 36, 53, 45)
GUICtrlSetFont(-1, 36, 800, 0, "Webdings")
GUICtrlSetColor(-1, 0xFF0F00)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetTip(-1, "Play")
$For = GUICtrlCreateLabel("8", 243, 44, 31, 34)
GUICtrlSetFont(-1, 20, 400, 0, "Webdings")
GUICtrlSetColor(-1, 0xFF0FF0)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetTip(-1, "Nächter Titel")
$back = GUICtrlCreateLabel("7", 180, 44, 31, 34)
GUICtrlSetFont(-1, 20, 400, 0, "Webdings")
GUICtrlSetColor(-1, 0xFF0FF0)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetTip(-1, "Vorheriger Titel")
$open = GUICtrlCreateLabel("1", 215, 86, 27, 21)
GUICtrlSetFont(-1, 12, 800, 0, "Wingdings")
GUICtrlSetColor(-1, 0xFF0FF0)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetTip(-1, "Öffnen")
$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)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
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])

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $back
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])
EndSelect

[/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit] [autoit][/autoit] [autoit]

Func openClick()
$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])
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func play_this($input)
SoundPlay($input)
EndFunc

[/autoit]

Rodny_le_lude

Spoiler anzeigen

[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)

[/autoit]

Na und, was soll es den sonst machen schliesslich ist es ja so Programmiert

Rodny_le_lude

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

Rodny_le_lude

wie schon gesagt mit shellexecute("Pfad") sollte es keine Probleme geben

Rodny_le_lude

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,.,{,}",",")
$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)

[/autoit]

Rodny_le_lude

du nutzt Windows 7 stimmts

bsp.
Case $tray = $trayThread
Trayitemsetstate($trayThread,4)

du kannst auch $TRAY_UNCHECKED benutzen

Rodny_le_lude

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 ??

Rodny_le_lude

Ich habs (_GDIPlus_GraphicsDrawImageRectRect) ist die Lösung.
Ich werd dazu mal ne kleine UDF bauen.

EDIT:
hier eine Vorabversion

http://freakshare.net/files/veyxuc4k/png_button.rar.html

bitte erschlagt mich nicht gleich wurde jetzt mal auf die schnelle gescriptet

Rodny_le_lude

@Reaker

Erstmal danke für den Link.
Aber das ist nicht wonach ich suche u. ausserdem kommt bei diesem UDF immer eine fehlermeldung.

Rodny_le_lude

guck mal in der Autoit Helpfile
Guictrlcreatepic/Example 2

du musst ein Transparenten Child gui schreiben

Rodny_le_lude

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"
#include "guiconstantsex.au3"
#include "gUiconstants.au3"
Opt("MustDeclareVars", 1)
Global $hGUI, $hImage, $hGraphic, $hMatrix

[/autoit] [autoit][/autoit] [autoit]

$hGUI = GUICreate("TEST", 600, 600)
GUISetState()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_GDIPlus_StartUp()
$hImage = _GDIPlus_ImageLoadFromFile("55.png")
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
$hMatrix = _GDIPlus_MatrixCreate()
_GDIPlus_MatrixTranslate($hMatrix, 10,10,True)
_GDIPlus_GraphicsSetTransform($hGraphic, $hMatrix)

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

do
until GUIGetMsg() = $GUI_EVENT_CLOSE

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_GDIPlus_MatrixDispose($hMatrix)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_ShutDown()

[/autoit]

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.

Rodny_le_lude

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".

Rodny_le_lude

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]

Rodny_le_lude

Tolles Programm beide Daumen hoch

Rodny_le_lude

schreib mal bitte was du überhaupt vorhast.

ps und poste das script

EDIT:

Spoiler anzeigen

[autoit]

#include <misc.au3>
#include <file.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $cm_file=@ScriptDir&"\cm.txt"
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
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If _Singleton("ASSELPUSS",1)= 0 Then Exit

[/autoit]

und dan in der While schleife

Spoiler anzeigen

[autoit]

If FileExists($cm_file)=0 Then ContinueLoop
$process=ProcessList(@ScriptName)
If $process[0][0]> 1 Then ContinueLoop
;cmdline

[/autoit] [autoit][/autoit] [autoit]

Switch _FileCountLines($cm_file)
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)
EndSwitch

[/autoit]

im 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=""

Rodny_le_lude

http://www.autoitscript.com/forum/index.php?showtopic=83481&hl=bass&st=0

_BASS_GetEAXParameters

Beiträge von Rodny_le_lude

StringRegExp die 2

StringRegExp die 2

StringRegExp quelltext auf gif Analysieren

StringRegExp quelltext auf gif Analysieren

Musikplayer

Probleme mit dem Compilieren

Bild in GUI darstellen und Farbe ersetzen

Shortcut starten

String nach 2 stelligen Zahlen durchsuchen...???

Kontextmenü haken

Maple-Desktop <Last Update>

Animierte Button

Animierte Button

transparentes GIF-Bild

Animierte Button

Animierte Button

Animierte Button

Stadtanzeiger

.exe ausführen mit geladener Datei

EAX Soundhardware vorhanden?