1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. MaZy

Beiträge von MaZy

  • Schon beim Schreiben eine Veränderung

    • MaZy
    • 4. März 2009 um 15:33
    Zitat von Prajoss

    Hey,

    vom Prinzip her funktioniert das so:

    Spoiler anzeigen
    [autoit]

    $flag = 0

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

    $eingabe = GUICtrlCreateInput()

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

    While

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

    $msg = GUIGetMsg()

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

    $eingabe_alt = GUICtrlRead($eingabe)

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

    If $flag == 1 Then
    Funktion_zum_Berechnen()
    $flag = 0
    EndIf

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

    If $eingabe_alt <> GUICtrlRead($eingabe) Then
    $flag = 1
    EndIf

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

    WEnd

    [/autoit]

    Gruß

    Prajoss

    Alles anzeigen

    geht nicht.. kommt bei mir fehler aber danke. Hast damit mir geholfen mir eine Idee zu entwickeln

    Spoiler anzeigen
    [autoit]

    $bla = GUICtrlRead($np)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    if GUICtrlRead($np) <> $bla Then
    berechnen()
    EndIf
    WEnd

    [/autoit]

    das klappt ganz gut nur irgendwie sieht man ,dass es ganze zeit überschrieben wird. Man sieht wenn man genau betrachtet wie die zahlen verschwinden.. also ganz leicht.. ob es laggen würde.

    außerdem gibs noch ein trick merk ich gerade

    Spoiler anzeigen
    [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Berechnen
    berechnen()
    Case $Reset
    reset()
    EndSwitch
    berechnen()
    WEnd

    [/autoit]


    Schon peinlich das mir das net eingefallen ist :P
    Aber da hab ich das selbe problem :S

  • 2 Rechner gleiche IE-VErsion, doch Skript funktioniert nicht auf beiden

    • MaZy
    • 4. März 2009 um 14:05

    Its only a guess

    Vllt fehlt da eine wichtige Installation wie Framework oder andere Zusatztools bzw updates.

    Ehrlich gesagt finde ich gerade nichts, wo man nachlesen könnte, was man alles für AutoIt benötigt.

  • Schon beim Schreiben eine Veränderung

    • MaZy
    • 4. März 2009 um 13:59

    Hier wie kann ich machen, dass ich ohne auf Berechnenbutton klicke die sachen schon berechnen?
    Also das soll währen dich tippe die Zahlen schon verändern und ins Label reinschreiben.
    Ich denk mal das hat was mit while zu tun aber weiter habe ich keine idee.
    Code:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #Region ### START Koda GUI section ### Form=J:\koda_1.7.0.1\Forms\Form1.kxf
    $Form1 = GUICreate("Form1", 451, 268, 203, 124)
    GUISetBkColor(0x9DB9EB)
    $np = GUICtrlCreateInput("45000", 20, 22, 73, 21)
    $pnoblue = GUICtrlCreateInput("145", 20, 65, 73, 21)
    $pplus = GUICtrlCreateInput("160", 20, 112, 73, 21)
    $pblue = GUICtrlCreateInput("160", 20, 154, 73, 21)
    $pblueplus = GUICtrlCreateInput("180", 20, 200, 73, 21)
    $Label3 = GUICtrlCreateLabel("% with blue", 18, 141, 73, 15)
    GUICtrlSetFont(-1, 10, 400, 0, "Flubber")
    $Label1 = GUICtrlCreateLabel("NPC Price", 18, 8, 63, 12)
    GUICtrlSetFont(-1, 10, 400, 0, "Flubber")
    $Label2 = GUICtrlCreateLabel("% with +", 18, 98, 57, 12)
    GUICtrlSetFont(-1, 10, 400, 0, "Flubber")
    $Label13 = GUICtrlCreateLabel("All Blue Items", 265, 10, 200, 17)
    GUICtrlSetFont(-1, 10, 400, 0, "Flubber")
    $Label8 = GUICtrlCreateLabel("+2", 264, 60, 16, 17)
    $Label9 = GUICtrlCreateLabel("+3", 264, 96, 16, 17)
    $Label10 = GUICtrlCreateLabel("+4", 264, 132, 16, 17)
    $Label11 = GUICtrlCreateLabel("+5", 264, 168, 16, 17)
    $enp = GUICtrlCreateLabel("0", 162, 24, 101, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $eplus = GUICtrlCreateLabel("0", 162, 113, 101, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $eblue = GUICtrlCreateLabel("0", 162, 158, 101, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $eblueplus = GUICtrlCreateLabel("0", 163, 201, 101, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $enoblue = GUICtrlCreateLabel("0", 163, 65, 101, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $e1 = GUICtrlCreateLabel("0", 282, 24, 100, 17)
    $e2 = GUICtrlCreateLabel("0", 282, 60, 100, 17)
    $e3 = GUICtrlCreateLabel("0", 282, 96, 100, 17)
    $e4 = GUICtrlCreateLabel("0", 282, 132, 100, 17)
    $e5 = GUICtrlCreateLabel("0", 282, 168, 100, 17)
    $Label5 = GUICtrlCreateLabel("+1", 264, 24, 16, 17)
    $Label6 = GUICtrlCreateLabel("% with blue and +", 20, 186, 110, 12)
    GUICtrlSetFont(-1, 10, 400, 0, "Flubber")
    $Label12 = GUICtrlCreateLabel("% non blue or +", 20, 50, 98, 15)
    GUICtrlSetFont(-1, 10, 400, 0, "Flubber")
    $Berechnen = GUICtrlCreateButton("Berechnen", 16, 228, 77, 29, 0)
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    $Reset = GUICtrlCreateButton("Reset", 115, 229, 77, 29, 0)
    GUICtrlSetBkColor(-1, 0xA6CAF0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    func berechnen()
    $np2 = GUICtrlRead($np)
    $pnoblue2 = GUICtrlRead($pnoblue)
    $pplus2 = GUICtrlRead($pplus)
    $pblue2 = GUICtrlRead($pblue)
    $pblueplus2 = GUICtrlRead($pblueplus)

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

    GUICtrlSetData($enp, $np2)
    $pnoblue2 = $np2 * $pnoblue2 / 100
    GUICtrlSetData($enoblue, $pnoblue2)
    $pplus2 = $np2 * $pplus2 / 100
    GUICtrlSetData($eplus, $pplus2)
    $pblue2 = $np2 * $pblue2 / 100
    GUICtrlSetData($eblue, $pblue2)
    $pblueplus2 = $np2 * $pblueplus2 / 100
    GUICtrlSetData($eblueplus, $pblueplus2)

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

    $pblueplus3 = GUICtrlRead($pblueplus)
    $e12 = $np2 * $pblueplus3 / 100
    GUICtrlSetData($e1, $e12)
    $e22 = $np2 * $pblueplus3 / 100 * $pblueplus3 / 100
    GUICtrlSetData($e2, $e22)
    $e32 = $np2 * $pblueplus3 / 100 * $pblueplus3 / 100 * $pblueplus3 / 100
    GUICtrlSetData($e3, $e32)
    $e42 = $np2 * $pblueplus3 / 100 * $pblueplus3 / 100 * $pblueplus3 / 100 * $pblueplus3 / 100
    GUICtrlSetData($e4, $e42)
    $e52 = $np2 * $pblueplus3 / 100 * $pblueplus3 / 100 * $pblueplus3 / 100 * $pblueplus3 / 100 * $pblueplus3 / 100
    GUICtrlSetData($e5, $e52)
    EndFunc

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

    Func reset()
    GUICtrlSetData($enp, "0")
    GUICtrlSetData($enoblue, "0")
    GUICtrlSetData($eplus, "0")
    GUICtrlSetData($eblue, "0")
    GUICtrlSetData($eblueplus, "0")

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

    GUICtrlSetData($e1, "0")
    GUICtrlSetData($e2, "0")
    GUICtrlSetData($e3, "0")
    GUICtrlSetData($e4, "0")
    GUICtrlSetData($e5, "0")
    EndFunc

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Berechnen
    berechnen()
    Case $Reset
    reset()
    EndSwitch
    WEnd

    [/autoit]

    EDIT: Topic passend verändert

  • GUICtrlSetData Problem

    • MaZy
    • 4. März 2009 um 11:53

    Wow du hast recht... danke ^^
    hab hinter Variable 2 gesetzt.. nun gehts

  • GUICtrlSetData Problem

    • MaZy
    • 3. März 2009 um 17:11

    Hi,

    ich hab ein Problem.
    Wenn ich auf Berechne Button drücke zeigt bekomme ich die richtigen Ergbnises. Beim nächsten Mal wenn ich drauf drücke kommt immer 0. Ob die variable gelöscht wär. War ist daran falsch?

    [autoit]


    func berechnen()
    $np = GUICtrlRead($np)
    $pnoblue = GUICtrlRead($pnoblue)
    $pplus = GUICtrlRead($pplus)
    $pblue = GUICtrlRead($pblue)
    $pblueplus = GUICtrlRead($pblueplus)
    msgbox(0,"",$pplus)
    GUICtrlSetData($e1, $np)
    $pnoblue = $np * $pnoblue / 100
    GUICtrlSetData($e2, $pnoblue)
    $pplus = $np * $pplus / 100
    GUICtrlSetData($e3, $pplus)
    $pblue = $np * $pblue / 100
    GUICtrlSetData($e4, $pblue)
    $pblueplus = $np * $pblueplus / 100
    GUICtrlSetData($e5, $pblueplus)
    EndFunc

    [/autoit]

    Alle variable sind verknüpft mit GUI

  • String suchen verändern

    • MaZy
    • 25. Februar 2009 um 15:18
    Zitat von Oscar

    Wie bitte?
    Gibt's die Frage auch auf deutsch? ;)

    Entschuldigung^^

    Ich wollte nur wissen ob es möglich wäre Wörter zu verwenden die halt mehr als ein Zeichen sind wie "hier".
    Aber ich habe verstanden. Mann muss nur \ wegnehmen ^^
    Thx.

    Also jetzt ist aufjedenfall gelöst.. hab mehrere sachen getestet das funktioniert super.


    Ich hab ne frage.
    1. Ist meine Function jetzt umsonst was ich da gebaut habe? Gibs schon ein Befehl um ein String herauszufischen?
    2. Wie kann ich in func die vari $string so machen das man sie außerhalb function auch bearbeiten kann?
    Ich hab mit return $string versucht.. ging net :S

  • String suchen verändern

    • MaZy
    • 25. Februar 2009 um 14:53
    Zitat von Padmak


    Wenn du ihn suchst, weißt du ihn doch??
    Hä?

    Padmak ?( ?(

    Mein Fehler sry. Beim scripten habe ich total vergessen was ich genau machen wollte xD

  • String suchen verändern

    • MaZy
    • 25. Februar 2009 um 14:47
    Zitat von Oscar

    Das ist doch aber ein klassisches Beispiel für StringRegExp:

    [autoit]


    #include <Array.au3>
    $sText = "hierstehtirgendwas?undhierauchnochmalwas?123blaeortrijtij?123Jojomennfj"
    $aResult = StringRegExp($sText, '\?.{3}(.{4})', 3)
    #cs
    \? = das Fragezeichen selbst
    .{3} = drei beliebige Zeichen (werden nicht ins Array übernommen)
    (.{4}) = vier beliebige Zeichen, in Klammern gesetzt heißt: diese werden ins Array übernommen
    #ce
    _ArrayDisplay($aResult)

    [/autoit]
    Alles anzeigen

    Ehm geht auch mehrere Zeichen.. ich hab mit \was? getestet.. da kommt mal s? in array raus

  • String suchen verändern

    • MaZy
    • 25. Februar 2009 um 14:43
    Zitat von Padmak

    $text = "hiersteh?tirgendwas?undh?ierauchno?chmalwas" $string = StringSplit($text, "?") For $i = 1 To $string[0] MsgBox(0, "Einzelne Abschnitte", $string[$i]) Next $result = "" For $i = 1 To $string[0] $result &= $string[$i] & @CRLF Next MsgBox(0, "Mit Leerzeichen", $result) $string = StringReplace($text, "?", "") MsgBox(0, "Ohne ?", $string)

    Aber ich will ja die gesuchte String als variable haben. Das wär "?"

    BTW bin fertig

    [autoit]

    $test = "hallo?nochmal"

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

    Func searchstring($string, $search)
    ;Gesamtzeichen
    $sl = StringLen($string)
    ;Zeichen der gesuchten String
    $sis = StringInStr($string, $search)
    ;Zeichen nach der gesuchten String
    $dword = $sl - $sis
    ;Zeichenbeginn vor gesuchten String
    $fl = "1"
    $aword = $sis - $fl
    ;Alles davor löschen
    $string = StringTrimLeft($string, $aword)
    ;Alles danach löschen
    $string = StringTrimRight($string, $dword)
    EndFunc

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

    searchstring($test, "?")

    [/autoit]
  • String suchen verändern

    • MaZy
    • 25. Februar 2009 um 14:16

    klar doch.. ich bin nun viel weiter

    [autoit]

    $result = "hierstehtirgendwas?undhierauchnochmalwas"
    $sword = "?"

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

    ;Gesamtzeichen
    $sl = StringLen($result)
    msgbox(0,"Gesamtzeichen",$sl)

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

    ;Zeichen der gesuchten String
    $sis = StringInStr($result, $sword)
    msgbox(0,"Zeichen der gesuchten String",$sis)

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

    ;Zeichen vor der gesuchten String
    $dword = $sl - $sis
    msgbox(0,"Zeichen vor der gesuchten String",$dword)

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

    ;Zeichenbeginn nach gesuchten String
    $fl = "1"
    $aword = $sis - $fl
    msgbox(0,"Zeichen nach der gesuchten String",$aword)

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

    Jetzt kommt das mit schneiden.. aber ne frage.. was wenn da mehrer gesuchte Strings enthalten sind?

    EDIT: Ubs.. da hab ich ein paar fehler :S
    EDIT2: Nun sind sie aber richtig :P

  • String suchen verändern

    • MaZy
    • 25. Februar 2009 um 14:00

    ihr seid lustig :P
    tue ich schon lange... ich hab immernoch kein logik.. fürs weg gefunden

    ahh StringInStr bringt mich schonmal weiter :P

  • String suchen verändern

    • MaZy
    • 25. Februar 2009 um 13:38

    Hi

    ich möchte ein String nach ein Wort suchen und die als Variable speichern. Die stringsenthalten keine Leerzeichen. Z.B: $result = "hierstehtirgendwas?undhierauchnochmalwas".
    Jetzt das "?" suchen und dann 4 Zeichen nach rechts(also h) und da ist ein wort die 4 zeichen lang sind und das soll es als Variable gespeichert werden.
    Achtung! Wenn Gesuchtstrings mehrmals in einem Wort enthalten sind.. soll es in verschiedene Variable gespeichert werden. Das muss ich wohl dann mit array machen oder?

    Ich würd gern selbst versuchen, aber mir fehlt eine Funktion wie man ein String raussuchen kann ^^

    mfg MaZy

    GELÖST!

    [autoit]

    #include <Array.au3>
    $sText = "hierstehtirgendwas?undhierauchnochmalwas?123blaeortrijtij?123Jojomennfj"
    $aResult = StringRegExp($sText, '\?.{3}(.{4})', 3)
    #cs
    \? = das Fragezeichen selbst
    .{3} = drei beliebige Zeichen (werden nicht ins Array übernommen)
    (.{4}) = vier beliebige Zeichen, in Klammern gesetzt heißt: diese werden ins Array übernommen
    #ce
    _ArrayDisplay($aResult)

    [/autoit]

    Und noch was von mir..

    Spoiler anzeigen
    [autoit]

    $test = "hallo?nochmal"

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

    Func searchstring($string, $search)
    ;Gesamtzeichen
    $sl = StringLen($string)
    ;Zeichen der gesuchten String
    $sis = StringInStr($string, $search)
    ;Zeichen nach der gesuchten String
    $dword = $sl - $sis
    ;Zeichenbeginn vor gesuchten String
    $fl = "1"
    $aword = $sis - $fl
    ;Alles davor löschen
    $string = StringTrimLeft($string, $aword)
    ;Alles danach löschen
    $string = StringTrimRight($string, $dword)
    EndFunc

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

    searchstring($test, "?")

    [/autoit]
  • Firewall meldet was schlimmes :S

    • MaZy
    • 2. Dezember 2008 um 20:32

    Hallo danke erst mal. Das es alt ist war mir klar aber ich fand ihn zu einfach zu bedienen ^^. ZoneAlarm war zum beispiel zu heavy für mich. Besonders das es sehr viel Ramspeicher auffrist.
    Aber werd mal dein FW vorschlag ausprobieren. Grad ist mein Router wieder abgestürzt. Ich hab mal die Logs angesehen und da stand auch oft meine Lan IP irgendwas mit TCP. Naja nun hab ich alles geblockt.. bis auf FireFox und in Logs kommt nichts mehr verdächtiges vor.. naja mal sehen.

  • Firewall meldet was schlimmes :S

    • MaZy
    • 2. Dezember 2008 um 19:48

    Hi, gerade ist mein Router abgestürzt.. dabei und plötzlich meldet mein Firewall Sygate Personal Firewall folgendes:

    Zitat

    Denial of Service "Jolt2 Attack" Angriff entdeckt.
    Beschreibung:
    Jolt2 Angriffe überfluten Ihren Computer mit illegal fragmentierten ICMP oder UDP-Paketen und bewirken das die CPU-Auslastung auf 100% ansteigt.
    Remote Host: ist mein LanIP
    ICMP

    Was allerdings ICMP bedeutet weiß ich nicht.

    Muss ich mir sorgen machen? Denn mein Lanip attacked mich doch net selbst. Ansonsten gabs da oft sowas ähnliches.. nur das da stand das es viele male verindungaufbauen will.. und deswegen geblockt wurde... und da steht dann mein RouterIP .. ich bin jetzt verwirrt :S

  • So kühlt man richtig !!!

    • MaZy
    • 24. August 2008 um 04:33

    Das ist doch bestimmt laut. Also wenn speedfan damit funktioniert hab ich kein prob damit so ein ding zu verwenden ^^

  • Prüfen ob irgendeine Taste gedrückt wird

    • MaZy
    • 30. Juli 2008 um 23:32

    Was genau macht das erste Abschnitt. Ich habe auhc schonmal so eine Frage gestellt aber mir hat keiner geantwortet.
    Was ich machen wollte war zumbeisiel wenn man S drückt dann wird pro sek 10x Mauslinke taste gedrückt.. (wenns natürlich soviel schafft innerhalb ne sekunde). Halt ne Autoklicker. Dann wollte ich eine Menü und Option machen wo jeder seine Eigene Hotkey machen kann. "Bitte Hotkey setzen".

    Ich kapier gar net was ptr oder so heißen soll lol

  • Danke, Admin!

    • MaZy
    • 25. Juli 2008 um 23:46

    Ahh ich schaffs auch noch. Vielen Dank :D

  • Wallpaper im laufenden Betrieb ändern

    • MaZy
    • 25. Juli 2008 um 21:01

    Ahh cool. Danke für die Info. Wusste nicht. Gut das ich das jetzt weiß. Wer weiß, was ich deswegen nicht hingekriegt habe ^^

  • Wallpaper im laufenden Betrieb ändern

    • MaZy
    • 25. Juli 2008 um 20:47
    Zitat von progandy

    Not braucht klammern :)

    [autoit]

    If not ($ext = "bmp") Then

    [/autoit]

    ECht? Aber nicht doch immer oder?? Das ist mir neu.. weil hab if fragen wie z.b. if not isArray(§asd) usw.. oder if not @error. Und das funktioniert alle

    EDIT:
    So hab mal jetzt schnell gemacht. Es ließt aus "meine" Eigene Bilder jpg bilder und wandelt sie ins bmp was in Eigen Dateien gespeichert wird. Und dann wird der als Hintergrund bild gemacht. Vllt mach ich noch weiter, sodass es gif bilder und jpg und bmp usw zs zufällig auswählt.

    Spoiler anzeigen
    [autoit]


    ;--------------------------------------------------------;
    Global Const $SPIF_UPDATEINIFILE = 0x01
    Global Const $SPIF_SENDWININICHANGE = 0x02
    Global Const $SPI_SETSCREENSAVEACTIVE = 0x11
    Global Const $SPI_SETDESKWALLPAPER = 0x14
    Global Const $SPI_GETDESKWALLPAPER = 0x73

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

    $ppic = _FileListToArray("C:\Dokumente und Einstellungen\Nickname\Eigene Dateien\Eigene Bilder", "*.jpg")
    $result = _ArrayMax($ppic)
    $rpic = $ppic[random(0, $result ,0)]

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

    Global $Bitmap = "C:\Dokumente und Einstellungen\Nickname\Eigene Dateien\Eigene Bilder" & "\"& $rpic

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

    RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "TileWallpaper", "REG_SZ", "0")
    RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "WallpaperStyle", "REG_SZ", "0")
    $ext = StringTrimLeft($Bitmap, StringInStr($Bitmap, ".", -1))

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

    If not ($ext = "bmp") then
    _GDIPlus_Startup()
    $Bild = _GDIPlus_ImageLoadFromFile($Bitmap)
    _GDIPlus_ImageSaveToFile($Bild, @MyDocumentsDir & "\wallpaper.bmp")
    _GDIPlus_ImageDispose($Bild)
    _GDIPlus_Shutdown()
    endif

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

    _SetDeskWallpaper(@MyDocumentsDir & "\wallpaper.bmp")

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

    Func _SetDeskWallpaper($Filename)
    DllCall("user32.dll", "long", "SystemParametersInfo" _
    , "long", $SPI_SETDESKWALLPAPER _
    , "long", 0 _
    , "str", $Filename _
    , "long", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDWININICHANGE) _
    )
    EndFunc ;==>_SetDeskWallpaper

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

    Func _GetDeskWallpaper()
    Local $Filename = DllStructCreate("char[256]")
    DllCall("user32.dll", "long", "SystemParametersInfo" _
    , "long", $SPI_GETDESKWALLPAPER _
    , "long", 255 _
    , "ptr", DllStructGetPtr($Filename) _
    , "long", 0 _
    )

    Return DllStructGetData($Filename, 1)
    EndFunc ;==>_GetDeskWallpaper
    MsgBox(0,"",$Bitmap & " Als Hintergrund übernommen")
    ;--------------------------------------------------------;

    [/autoit]


    Leider hab ich keinen Makrobefehl für Eigene Bilder gefunden

  • Wallpaper im laufenden Betrieb ändern

    • MaZy
    • 24. Juli 2008 um 18:30

    danke der ist toll.
    Wieso geht das nicht Oo

    [autoit]


    $ext = StringTrimLeft($Bitmap, StringInStr($Bitmap, ".", -1))
    MsgBox(0,"",$ext) ; Zwischentest
    If not $ext = "bmp" then
    _GDIPlus_Startup()
    $Bild = _GDIPlus_ImageLoadFromFile("C:\Dokumente und Einstellungen\Nickname\Eigene Dateien\Eigene Bilder\schwarz.JPG")
    _GDIPlus_ImageSaveToFile($Bild,"C:\Dokumente und Einstellungen\Nickname\Eigene Dateien\Eigene Bilder\BILD.bmp")
    _GDIPlus_ImageDispose($Bild)
    _GDIPlus_Shutdown()
    endif

    [/autoit]


    Eigentlich sollte es ja das script innerhalb des ifs funktionieren aber macht nicht. MsgBox sagt das es ein jpg ist. Was mach ich falsch Oo

    lol sogar wenn ich "not" auslasse kommt das selbe ergebnis.. aber wenn ihc IF ganz ablasse dann gehts

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™