Beiträge von o2candoo

Hi Ho

Ein kleines Script, Just 4 Fun Last die Fenster hüpfen!

[autoit]

Global $yvar, $X, $Y, $Umschaltung, $Abzug, $fPosition, $geschwindigkeit, $xvar, $richtung
$yvar = 1
$Umschaltung = 0
$Abzug = 0
$geschwindigkeit = 10
$xvar = 1
$fTitel = ""

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

HotKeySet("{UP}","UP")
HotKeySet("{RIGHT}","RIGHT")
HotKeySet("{LEFT}","LEFT")
HotKeySet("{DOWN}","DOWN")
HotKeySet("{ESC}","Escape")

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

While 1
Fenster()
Berechnung()
Neue_Position()
Sleep(1)
WEnd

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

Func Fenster()
$fTitelneu = WinGetTitle("[ACTIVE]")
If $fTitelneu <> $fTitel Then
WinMove($fTitel,"",0,0)
$fTitel = $fTitelneu
$geschwindigkeit = 10
$yVar = 1
$xVar = 1
$Umschaltung = 0
$Abzug = 0
EndIf
$fPosition = WinGetPos($fTitel)
EndFunc

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

Func Berechnung()
$fPosition = WinGetPos($fTitel)
If $fPosition[0] >= (@DesktopWidth - $fPosition[2]) Then
$richtung = 0
ElseIf $fPosition[0] <= 0 Then
$richtung = 1
EndIf

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

If $Umschaltung = 0 Then
$yvar = $yvar + ($yvar/$geschwindigkeit)
$Y = $Y + $yvar

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

If $Y >= (@DesktopHeight - $fPosition[3]) Then
$xvar = $xvar - ($xvar/5)
$Umschaltung = 1
EndIf
ElseIf $Umschaltung = 1 Then
If $Abzug = 0 Then
$yvar = $yvar - ($yvar/5)
$Abzug = 1
EndIf
$yvar = $yvar - ($yvar/$geschwindigkeit)
$Y = $Y - $yvar
If $yvar <= 2 Then

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

$Umschaltung = 0
$Abzug = 0
EndIf
EndIf

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

If $xvar > 1 Then
If $richtung = 1 Then
$X = $X + $xvar
ElseIf $richtung = 0 Then
$X = $X - $xvar
EndIf
EndIf
EndFunc

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

Func Neue_Position()
WinMove($fTitel,"", $X, $Y)
EndFunc

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

Func UP()
$geschwindigkeit = 10
$Umschaltung = 1
$Abzug = 0
$yvar = 55
EndFunc

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

Func RIGHT()
If $richtung = 0 Then
$xvar = 10
$richtung = 1
Else
$xvar = $xvar + 10
$richtung = 1
EndIf
EndFunc

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

Func LEFT()
If $richtung = 1 Then
$xvar = 10
$richtung = 0
Else
$xvar = $xvar + 10
$richtung = 0
EndIf
EndFunc

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

Func DOWN()
$geschwindigkeit = 3
EndFunc

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

Func Escape()
WinMove($fTitel,"",0,0)
Exit
EndFunc

[/autoit]

Ok habs angepasst...

Oke, danke für das schnelle Feedback.

Wie schon gesagt, ich bin nicht sehr erfahren in der Programmierwelt und zu anfang hat das Script und das Userinterface noch anders ausgesehen, daher sind wahrscheinlich noch diese unnötigen Includes vorhanden

Und mit Giffs kenne ich mich au nicht wirklich aus, diese Funktion habe ich aus einem anderen Script rauskopiert. Notwendig ist es ja nicht (Daher verstehe ich die bemerkung vonwegen "Script = nutzlos" nicht).

Hallo zusammen

Ich bin schon seit geraumer Zeit auf diesem Forum unterwegs, habe jedoch selbst noch nie etwas im Rahmen meines noch relativ jungen Accounts online gestellt. Seit ~ 1 jahr ist das Programmieren mit AutoIT mein Hobby und habe schon viele stunden damit verbracht

Hier Präsentiere ich nun ein Programm welches ich gemacht habe, um schnell Daten und vorallem Dateiformate auflisten zu können.

Der Sinn dahinter ist, falls ich z.B. eine Sicherheitskopie von allen Videos machen will die ich besitze und keine lust habe jeden ordner zu durchsuchen, kann ich dies mit meinem Programm machen und anschliessend damit auch die Daten kopieren oder löschen.
(Screenshots sind unten angefügt)

Desweiteren habe ich auch immer viel dazugelernt indem ich Scripts von anderen Personen angeschaut habe und ausprobiert habe. Ich hoffe das mein Script anderen Personen auch z.T. etwas hilfreich sein wird

LG O2

Hi Leute

Hab hier auch mal n Matrix Script erstellt. Hoffe ihr könnt was damit anfangen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\Programme\AutoIt3\Icons\au3.ico
#AutoIt3Wrapper_outfile=C:\Users\mmfeoca\Desktop\Matrix.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
;~ Opt('MustDeclareVars', 1)

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

OnAutoItExitRegister("OnExit")

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

Global $iWidth = @DesktopWidth, $iHeight = @DesktopHeight
Global $aPos[50][3]
Global $hFont, $hFamily, $hFormat, $hBrush, $hGraphic, $hBackBuffer, $sString
Global $Abweichung[UBound($aPos)]
Global $sString[UBound($aPos)]
For $s = 0 To UBound($aPos) - 1
$aPos[$s][0] = (@DesktopWidth/UBound($aPos))*$s
$aPos[0][1] = 10
$Abweichung[$s] = 0
$sString[$s] = Chr(Random(0, 255, 0))
Next
$Schritt = 20

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

_Main()
Func _Main()
Local $hGUI, $hGraphic, $hBrush, $hFormat, $hFamily, $hFont, $tLayout
Local $aInfo

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

$hGUI = GUICreate("GDI+", $iWidth, $iHeight, 0, 0, -2147483648)
GUISetBkColor(0x000000)
GUISetState()

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

_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGUI)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($iWidth,$iHeight,$hGraphic)
$hBackBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsClear($hBackbuffer, 0xFF000000)
$hBrush = _GDIPlus_BrushCreateSolid (0xFF00DF00)
$hFormat = _GDIPlus_StringFormatCreate ()
$hFamily = _GDIPlus_FontFamilyCreate ("Arial")
$hFont = _GDIPlus_FontCreate ($hFamily, 15, 0)
While GUIGetMsg() <> -3
_GDIPlus_GraphicsClear($hBackbuffer, 0x05000000)
For $px = 0 To UBound($aPos) - 1
If $aPos[$px][2] < 10 Then
$aPos[$px][2] = Round(Random(0,10),0)
$Abweichung[$px] = Round(Random(-10,10),0)
ElseIf $aPos[$px][2] = 10 Then
For $py = 0 To 1
$sString[$px] = Chr(Random(0, 255, 0))
$aPos[$px][1] = $aPos[$px][1] - $Schritt
$tLayout = _GDIPlus_RectFCreate ($aPos[$px][0]+$Abweichung[$px], $aPos[$px][1], 0, 0)
$aInfo = _GDIPlus_GraphicsMeasureString ($hGraphic, $sString[$px], $hFont, $tLayout, $hFormat)
_GDIPlus_GraphicsDrawStringEx ($hGraphic, $sString[$px], $hFont, $aInfo[0], $hFormat, $hBrush)
next
$hBrush = _GDIPlus_BrushCreateSolid (0xFF00DF00)
$aPos[$px][1] += 3.5 * $Schritt
$Dunkler = 1280
If $aPos[$px][1] >= @DesktopHeight + 160 Then
$aPos[$px][1] = 0
$aPos[$px][2] = 0
EndIf
EndIf
Next
_GDIPlus_GraphicsDrawImage($hGraphic,$hBitmap,0,0)
WEnd

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

OnExit()

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

EndFunc

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

Func OnExit()
_GDIPlus_FontDispose ($hFont)
_GDIPlus_FontFamilyDispose ($hFamily)
_GDIPlus_StringFormatDispose ($hFormat)
_GDIPlus_BrushDispose ($hBrush)
_GDIPlus_GraphicsDispose ($hGraphic)
_GDIPlus_Shutdown ()
Exit
EndFunc

[/autoit]