Ahhh das war also anders mit dem title!!! danke! werde ich gleich ändern!
Beiträge von philipp
-
-
Wie sieht den das 'Fremde Programm' aus? Ist es wirklich 'fremd' oder 'bekannt' also auch eines von autoit?
-
http://www.autoit.de/dokumentation/…lCreateList.htm
[autoit]
oder einfach auf folgendes klicken:GUICtrlCreateList
[/autoit] -
Das kann auch noch funktionieren, aber nicht bei allen avis, und überhaupt- nur bei avis....
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>Do
[/autoit] [autoit][/autoit] [autoit]
$avifile = FileOpenDialog("AVI Datei auswählen:", @UserProfileDir & "\My Videos", "AVI (*.avi)")
Until $avifile <> ""main($avifile)
[/autoit]
Func main($file)
$gui = GUICreate("Video", @DesktopWidth-100, @DesktopHeight-100)
$avi = GUICtrlCreateAvi($file, 0, 0, 0, -1, -1, $ACS_AUTOPLAY)
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
Exit
EndIf
WEnd
EndFunc -
Ok:) naja hauptsache dir taugts;) ich hab des ja nur schnell gescriptet, weil ich auch bock drauf hatte mal zu sehen wie des funktioniert, und auch aussieht, aber ich finde des geht gut:)
-
Auf welche idee?:D
-
Hier ist ein Code für eine Windows 8 GUI, also sie sieht zumindest so aus;) oder fast:D viel spaß damit!
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <Misc.au3>main()
[/autoit]
Func main()
$gui = GUICreate("Windows 8", 600, 400, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetBkColor(0x6BADF7)
GUICtrlCreateGraphic(6, 26, 588, 368)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$exit = GUICtrlCreateLabel("x", 554, 0, 40, 20, BitOR($ES_CENTER, $SS_CENTERIMAGE))
GUICtrlSetBkColor(-1, 0xC84E50)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 11, 600, 1, "Century Gothic")
GUISetState()
While 1
$msg = GUIGetMsg()
$pos = GUIGetCursorInfo($gui)
If $msg = $GUI_EVENT_CLOSE Or $msg = $exit Then
Exit
ElseIf _IsPressed("01") And $pos[1] < 26 And WinGetTitle("") = "Windows 8" Then
While _IsPressed("01")
$mpos = MouseGetPos()
WinMove("Windows 8", "", $mpos[0]-$pos[0], $mpos[1]-$pos[1])
WEnd
EndIf
WEnd
EndFuncNoch ein bisschen verfeinert, aber wirklich nur ein bisschen:D Unten im anhang ist ein kleines example script - ausgefeilter!
-
Danke schnitzel die UDF ist gut funktioniert auch gut! dauert zwar ein kleines bisschen länger aber das ist nicht schlimm.. wenigstens ist jetzt schonmal alles versteckt! kann man bei dieser UDF jetzt auch noch den status wie weit dekomprimiert ist abrufen?
-
ja das dachte ich mir schon:D:D aber ich will eigentlich wissen wie ich das verstecken kann?? kann man das irgendwie verstecken das fenster kopieren...
-
Ich denke das ZIP Programm (unten noch im Spoiler) entpackt es erst in einen Temporären ordner und von da aus wird es dann kopiert, in den Pfad der oben im script angegeben ist.. ganz normales Explorer kopieren halt.. siehe bild.
Spoiler anzeigen
[autoit]_BuildInZIP(@DesktopDir & "\test.zip", @DesktopDir & "\test")
[/autoit] [autoit][/autoit] [autoit]Func _BuildInZIP($sPath, $s_a_ToZip, $fUnZip=True, $iIndexBase=1, $fOverwrite=True)
[/autoit]
Local $fh, $sNul = '', $sZIPHeader, $objShell = ObjCreate("Shell.Application"), $objZipOrdner, $err = 0
$sPath = FileGetLongName($sPath, 1)
If $fUnZip Then
Local $temp, $objZip
If Not FileExists($s_a_ToZip) Then DirCreate($s_a_ToZip)
$temp = $objShell.Namespace($s_a_ToZip)
$objZip = $objShell.Namespace($sPath)
$temp.CopyHere($objZip.Items)
Return 1
EndIf
If (Not $fOverwrite) And FileExists($sPath) Then Return SetError(1,0,0)
If StringRight($sPath, 4) <> '.zip' Then Return SetError(2,0,0)
For $i = 1 To 18
$sNul &= Chr(0)
Next
$sZIPHeader = Chr(80) & Chr(75) & Chr(5) & Chr(6) & $sNul
$fh = FileOpen($sPath, 10)
FileWrite($fh, $sZIPHeader)
FileClose($fh)
$objZipOrdner = $objShell.Namespace($sPath)
If Not IsArray($s_a_ToZip) Then
If Not FileExists($s_a_ToZip) Then Return SetError(3,1,0)
$objZipOrdner.CopyHere($s_a_ToZip)
Sleep(1000)
Return 1
EndIf
For $i = $iIndexBase To UBound($s_a_ToZip) -1
If Not FileExists($s_a_ToZip[$i]) Then
$err += 1
ContinueLoop
EndIf
$objZipOrdner.CopyHere($s_a_ToZip[$i])
Sleep(1000)
Next
If $err Then Return SetError(3,$err,0)
Return 1
EndFunc -
so etwa? oder ein anderes fenster? lol:D
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>main()
[/autoit]
Func main()
Global $ms = 1800000
GUICreate("Timer", 200, 60, @DesktopWidth-200, 0, $WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetBkColor(0x808080)
$temp = GUICtrlCreateLabel("", 10, 10, 180, 40, BitOR($ES_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 25, 400, 1, "Century Gothic")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState()
$start = TimerInit()
While 1
$diff = TimerDiff($start)/1000 - ($ms/1000)
$minutes = Int($diff / 60)
$secondsRem = $diff - ($minutes * 60)
$minutes = $minutes * -1
$secondsRem = $secondsRem * -1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
Exit
ElseIf GUICtrlRead($temp) <> StringFormat("%02d", $minutes) & " : " & StringFormat("%02d", $secondsRem) Then
GUICtrlSetData($temp, StringFormat("%02d", $minutes) & " : " & StringFormat("%02d", $secondsRem))
ElseIf GUICtrlRead($temp) = "00 : 00" Then
Send("{F8}")
$ms = 1800000
$start = TimerInit()
EndIf
WEnd
EndFunc -
Ich hab jetzt die ganze zeit versucht es irgendwie mit 'RunAsWait(...)' hinzubekommen, aber es funktioniert einfach nicht..
normalerweise holt der befehl sich ja adminrechte, durch die parameter, aber es funktioniert nicht?! ich hab keine ahnung wieso!vielleicht kannst du es ja anders machen indem du via aufgabenplanung eine Verknüpfung im autostartmenü anlegst..
Hierzu ein komplett Beispiel:Spoiler anzeigen
- Angehängte Datei 'Netzwerk.bat' irgendwohin kopieren, wo sie nicht stört (Pfad merken:D)
- Start -> Ausführen
- taskschd.msc
- Menü 'Aktion' -> Aufgabe erstellen:
- Name: Netzwerk anaus
- Mit höchsten Privilegien ausführen anhaken
- Ausgeblendet anhaken
- Tab 'Aktionen' -> Neu...
- Durchsuchen
- 'Netzwerk.bat' auswählen, da wo zu Beginn kopiert
- OK
- OK
- Aufgabenplanung schließen
- Start -> Ausführen
- %appdata%\Microsoft\Windows\Startmenü\Programme\Autostart\
- Rechtsklick -> Neu -> Verknüpfung
- C:\Windows\system32\schtasks.exe /RUN /TN "Netzwerk anaus"
- Weiter
- Fertig stellenFertig!
-
danke minx! endlich mal eins was ich noch nicht gefunden habe, ich werde es gleich testen!
*EDIT: Naja gut bei mir erstellt sich ein fenster zum verschieben das ist etwas doof.... kann man das irgendwie hiden?water, ich habe schon einige foren durchsucht und auch vieles gefunden aber es gab immer etwas was mich gestört hat.. sorry:D
-
Hi,
kann mir jemand behilflich sein, ich würde gerne via FileInstall() einen zip ordner installieren, und diesen selbstverständlich dann auch entpacken. gibt es eine möglichkeit den status beim entpacken auszulesen und dann halt anzugeben wie viel prozent das ganze hat?
Lg Phil-IT
-
[autoit]
[/autoit][autoit][/autoit][autoit]
#RequireAdminRunWait("netsh interface set interface WiFi disabled", @WindowsDir & "\system32", @SW_HIDE)
[/autoit]
RunWait("netsh interface set interface WiFi enabled", @WindowsDir & "\system32", @SW_HIDE)
netsh sollte dir weiter helfen:)*EDIT: Oh Friesel war wohl schneller, tdm gleiche Idee:)
Wirklich Friesel geht es bei dir nicht? also bei mir funktioniert es, aber du hast recht zur sicherheit ein RunWait()! Danke!
-
scheint das richtige zu sein:D aber ich komm damit nicht klar. Angenommen meine Datei am Desktop heißt "hd.jpg", (falls es mit jpg Dateien nicht geht dann halt hd.bmp), und ich will von 100, 100 nach 200, 200 - wie muss dann der Befehl heißen?
*EDIT: Ich habe eine andere Lösung gefunden! Danke für den oberen Tip ich hab dadurch nochmal was anderes auf google gefunden - mein code jetzt:
[autoit]
[/autoit]
$pos = GUIGetCursorInfo()
_GDIPlus_GraphicsDrawImageRectRect($g, _GDIPlus_ImageLoadFromFile("hd.jpg"), ($pos[0]*2)-50, ($pos[1]*2)-50, 100, 100, 0, 0, 200, 200) -
Hi,
ich würde gerne wissen, wie ich ein Bild zugeschnitten in einer GUI anzeigen lassen kann.
Also..
Ich habe auf meinem Desktop eine HD Datei und die selbe in nicht HD. Die nicht HD wird in meiner normalen GUI angezeigt - kein Problem ist ja ganz normal. Jetzt will ich dass wenn der User STRG drückt {_IsPressed("11") Then} ein anderes Bild oben links in der GUI erscheint, nämlich, das HD Bild zugeschnitten auf die Aktuelle Maus Position.
Das HD Bild ist genau doppelt so 'scharf' wie das normale, also normal 1000px Breite, HD 2000px. Ist es möglich mit GDI+ einen bestimmten Teil eines Bildes anzuzeigen?
Wenn Fragen auftreten, stellt sie, ich weiß es ist nicht optimal beschrieben, das ist bestimmt auch der grund wieso ich auf Google nichts finde..Lg Phil-IT
-
Mein unbeholfener Versucht sieht aktuell so aus....Ich weiß nicht wo dein Problem ist, es funktioniert doch? Nur spielt google in so fern nicht wirklich mit weil es darauf aufgebaut ist, dass wenn jemand wirklich was eintippt, dass dann etwas passiert. falls der wert aber von außen geändert wird, passiert nichts.. deswegen ist der Button der gedrückt werden muss nicht immer funktionsfähig:D
wahrscheinlich hast du es mit mozilla oder chrome oder was weis ich was versucht. _IEAttach funktioniert selbst verständlich nur bei IE = Internet Explorer Fenstern.
LG Phil-IT -
Ohman...
[autoit]
zB:
[/autoit]
$string = StringMid(FileReadLine("Text.txt", 1), 2, 3)in deiner Datei Test.txt steht in Zeile 1 Hallo.
$string ist dann also 'all' -
2. Wenn die Fehlermeldung auf die WinHTTP.au3 verweist, wie kommst du dann darauf, dass dein Code-Auszug, welcher keinerlei WinHTTP Funktionen enthält und nicht Teil der UDF ist, uns bei der Problemsuche helfen kann?
Ich hab auch oft Verweise auf Fehlerquellen der Includes also in diesem Fall auf die WinHTTP.au3 obwohl nichts in dieser fehlerhaft ist. Kommt also durchaus vor, dass eine falsche Fehlerquelle angezeigt wird. Hilft nur eins, jede Zeile mit überprüfen lassen
