Sehr gut! Am besten integriest du den ganzen Käse per FileInstall.
Beiträge von SEuBo
-
-
Oh mein Fehler! Natürlich, der Download Funktioniert. Hätte eher einen FileSaveDialog erwartet
Außerdem hab ich mal eine UDF hochgeladen *g* -
Leider kann ich weder "Open Source", noch Download benutzen. Beim Klick auf Download, flackert nur kurz eine Progessbar auf, beim Open Source, erscheint ein graues GUI, das sich auch nach 3 minuten wartezeit nicht geändert hat. Auch ein "Als Admin ausführen" hat nichts gebracht.
Kleiner verbesserungsvorschlag: Gib dem Suchen-Button den Style $BS_DEFPUSHBUTTON damit man ihn auch mit der Enter Taste betätigen kann.
<- Vista x86, UAC ist ausgeschaltet, falls das von interesse ist.
-
Schau mal hier:
HowTo; Create a Trojan with Autoit (incl Process hiding)Spoiler anzeigen
pff, denkste
-
[autoit]
Func _ImageResize($sInImage, $sOutImage, $newW, $newH)
[/autoit]
_GDIPlus_Startup()
Local $oldImage, $GC, $newBmp, $newGC
; Load Image
$oldImage = _GDIPlus_ImageLoadFromFile($sInImage)
;Create New image
$GC = _GDIPlus_ImageGetGraphicsContext($oldImage)
$newBmp = _GDIPlus_BitmapCreateFromGraphics($newW, $newH, $GC)
$newGC = _GDIPlus_ImageGetGraphicsContext($newBmp)
;Draw
_GDIPlus_GraphicsDrawImageRect($newGC, $oldImage, 0, 0, $newW, $newH)
_GDIPlus_ImageSaveToFile($newBmp, $sOutImage)
;Clenaup
_GDIPlus_GraphicsDispose($GC)
_GDIPlus_GraphicsDispose($newGC)
_GDIPlus_BitmapDispose($newBmp)
_GDIPlus_ImageDispose($oldImage)
_GDIPlus_Shutdown()
EndFunc ;==>_ImageResize -
Wenn die Buttons in den weiteren Schleifen auch funktionieren sollen, musst du natürlich das GUIgetMsg() (samt swtich/case/endswitch für die Buttons) auch in diese While - Wend schleifen einbauen.
-
Mediaplayer braucht ca. 3 sekunden - so viel Zeit hab ich noch
Darf ich mal anfangen zu meckern? (Nicht bös' gemeint)
- Verzeichnisse werden nciht rekursiv eingelesen; Wenn ich also D:\Musik wähle, sagt er mir dass keine Dateien gefunden werden. Logisch. Ich hab ja auch ordentlich sortiert.
- im GUI flackern die Lables für aktuelle Zeit und Totale Zeit. Du solltest sie erst aktualisieren, wenn sich der wert auch wirklich geändert hat.
- Hotkeys sind fasch schon zu unglückglich gewählt - Wenn man mit einer hand versucht den nächsten Song auszuwählen, bricht man sich ja fast die Finger
- vielleicht solltest du darüber nachdenken auch unterstützung für Media Keys einzubauen. Also die Tasten auf der Tastatur mit denem man direkt auf start / stop / next usw. drücken kann.
- Keine Lautstärkeanpassung?
- wenn man Random tooglet, bleibt der Tooltip auf dem BildschirmAlso noch ist der WMP mein favorit
Edit: Wie wäre es statt mit Strg+alt+i, die Infos als TrayTip anzuzeigen, sobald man mit der Maus über dem Trayicon ist?
-
Hab das ganze mal in eine funktion gepackt, vielleicht kannst du es ja gebrauchen
_MsgBox("Text","Titel"(optional),X-Koordinate(optional),Y-Koordinate(optional))
Spoiler anzeigen
[autoit]_MsgBox("Hallo ich bin eine MsgBox. Ich möchte gerne an einer bestimmten Stelle umgebrochen werden.", "Hallo",200,300)
[/autoit] [autoit][/autoit] [autoit]Func _MsgBox($__MsgBox_sText, $__MsgBox_sTitle = "", $__MsgBox_x = -1, $__MsgBox_y = -1)
[/autoit] [autoit][/autoit] [autoit]
Local $__MsgBox_sNewText, $__MsgBox_iStart, $__MsgBox_oldhWnd = GUISwitch(""), $__MsgBox_Ltop = 26While StringLen($__MsgBox_sText) > $__MsgBox_iStart + 70
[/autoit] [autoit][/autoit] [autoit]
$__MsgBox_sNewText &= StringStripWS(StringTrimRight(StringTrimLeft($__MsgBox_sText, $__MsgBox_iStart), StringLen($__MsgBox_sText) - $__MsgBox_iStart - 70), 1) & "|"
$__MsgBox_iStart += 70
WEnd
$__MsgBox_sNewText &= StringStripWS(StringTrimLeft($__MsgBox_sText, $__MsgBox_iStart), 1)
$__MsgBox_aNewText = StringSplit($__MsgBox_sNewText, "|")
$__MsgBox_hGUI = GUICreate($__MsgBox_sTitle, 435, 127 + (15 * $__MsgBox_aNewText[0]), $__MsgBox_x, $__MsgBox_y, BitOR(0x00000080, 0x00080000, 0x00400000))
GUISetFont(9.6)
For $i = 1 To $__MsgBox_aNewText[0]
GUICtrlCreateLabel($__MsgBox_aNewText[$i], 12, $__MsgBox_Ltop, 435 - 24, 15)
$__MsgBox_Ltop += 15
Next
GUICtrlCreateLabel(" ", 0, $__MsgBox_Ltop + 30, 435, (127 + (15 * $__MsgBox_aNewText[0])) - ($__MsgBox_Ltop + 30))
GUICtrlSetState(-1, 128)
GUICtrlSetBkColor(-1, 0x00F0F0F0)
GUISetBkColor(0xFFFFFF)
$__MsgBox_btn_Ok = GUICtrlCreateButton("OK", 323, $__MsgBox_Ltop + 43, 100, 25)
GUISetState()
DllCall("user32.dll", "int", "MessageBeep", "int", 0x0)
Do
$__MsgBox_nMsg = GUIGetMsg()
Sleep(10)
Until $__MsgBox_nMsg = -3 Or $__MsgBox_nMsg = $__MsgBox_btn_OkGUIDelete($__MsgBox_hGUI)
[/autoit]
GUISwitch($__MsgBox_oldhWnd)
EndFuncWer mag, kann gerne die automatische Größenanpassung einzubauen
-
Adlibenable muss vor deine While Schleife ( sonst wird es ja erst nach der Endlosschleife ausgeführt - also quasi nie ) .
Wenn du es vor die While Schleife schreibst, wird es über die gesamt Skriptlaufzeit in intervallen von 250ms aufgerufen. Während dieser Zeit pausiert sich übrigens deine Hauptschleife. -
Löung: Dein Script startet eine zweite exe mit Random Namen. Beide Scripte überwachen sich dann gegenseitig.
Wird das Hauptskript geschlossen, wird es vom Überwachungsscript neu gestartet
Wird das Überwachungsscript geschlossen, wird es vom Hauptskript neu gestartet.So einfach ist das.
-
Eigentlich ist das richtig. Ich kann da keinen Fehler sehen (zumindest nicht in dem Stück, das du gesehen hast)
-
Also ich compile es, und rufe dann in der cmd "Winkey.exe 192.168.178.69" auf?
Spoiler anzeigen
Zitat---------------------------
AutoIt Error
---------------------------
Line -1:Error: The requested action with this object has failed.
---------------------------
OK
---------------------------Wenn ich es uncompiled lasse, und MsgBox(0,"",DecodeProductKey("192.168.178.69")) verwende, gibt Scite die folgende Fehlermeldung
Spoiler anzeigen
C:\Users\Shkal\Desktop\AutoIt\12.09\WinKey.au3 (16) : ==> The requested action with this object has failed.:
$objRegService = $objWMILocator.ConnectServer($srv, "\root\default", "", "", "", "", 0x80)
$objRegService = $objWMILocator.ConnectServer($srv, "\root\default", "", "", "", "", 0x80)^ ERROR
->00:45:05 AutoIT3.exe ended.rc:1
+>00:45:06 AutoIt3Wrapper Finished
>Exit code: 1 Time: 2.968Getestet wurde von Vista x86 -> Vista x64 im LAN.
Hoffe das hilft dir weiter -
Nur eine Frage die mich schon von Anfang an interessiert:
Was kann dein Script, was ein minimierter Windows Media Player nicht kann?PS: Schreib die ini lieber auf deutsch, ich habe so das Gefühl, Englisch steht dir nich so
-
Sehr geil find ich übrigens, dass der Link überall zensiert wurde, nur in dem Pic nicht
-
also bei mir brauchen 500 klicks 5,28 sek
MouseClick is ja auch zu langsam. Ich schaff 500 clicks in 0.522027171051069 sekunden
-
... *speechless*
-
Alter... der thread hier IST NICHTMAL EINEN TAG ALT!
Was ist so verdammt schwer daran die SUCHFUNKTION zu benutzen?
Vor allem wenn man dann seinen eigenen Thread sucht o.o
-
StringRegExpReplace muss man wie Suebo schon richtig sagte den Regexp umdrehen
und genau da komm ich nicht weiter.
-
Bentutz bitte den [ autoit] [ /autoit] Tag. (im Post-Editor das vorletzte Zeichen. Zwischen SP (Spoiler) und dieser grauen Mülltonne
Dim $arr[1] ging nicht, weil dein Array dann nur ein Element hat ($arr[0]).
Wenn FileReadToArray fehlschlägt, und dein Array nicht vergrößert wird, veruschst du auf ein Nicht vorhandenes Element ($arr[1] - Wir erinnern uns: es ging nur bis $arr[0]) zuzugreifen.
Wenn du Dim $arr[2] benutzt (was eigentlich ne ziemlich doofe art des workarounds ist) werden $arr[0] und $arr[1] erstellt. Auch wenn FileReadToArray() fehlschlägt, ist $arr[1] schon vorhanden und Scite bricht mit keinem kritischen Fehler ab.Alternativ geht auch:
[autoit]
[/autoit]
#include <file.au3>
Dim $arr
_FileReadToArray("C:\AutoIt\Adressen.txt", $arr)
If Not @Error Then ; <----------
If $arr[1] <> "" Then
;... blabalbalaba
EndIf
Endif -
[autoit]
#include <file.au3>
[/autoit][autoit][/autoit][autoit]
Dim $arr
_FileReadToArray("C:\AutoIt\Adressen.txt", $arr)If IsArray($arr) Then ; <----------
[/autoit]
If $arr[1] <> "" Then
;... blabalbalaba
EndIf
EndIf