Beiträge von Keyle

Keyle

Hm.... kann es sein das es nen fehler in der Schleife gibt bei mir kommt das Einstellungsfenster immer und immer wieder
Hab es auf rund ; 20ms ; und auf umgekehrte Farbe gestellt
isses dein oder mein Fehler??

Keyle

funkey 1. Mein größeres Problem ist das sich beim start vom IE sich 2 statt 1 Fenster öffnen und sich dannach gar nichts mehr tut. Wenn ich den Link in das 1. Fenster kopiert hab sagt der mir was davon das die Website in einer andren Sichheitszone geöffnet werden muss

und 2. hatte ich legendlich um ein Beispiel für das 1. Input gebeten und nich um den ganze Skript

Keyle

Guten Abend zusammen

Also mein 1. Problem ist dei IE.au3
die will einfach nich machen as ich will, entweder die IE.au3 is buggy oder mein Rechner macht mist
z.B. wenn ich _IECreate mache dann macht der ein leeres IE Fenster auf und eins mit der Startseite
ansprechen lässt sich das ding auch nicht mehr
is das normal???

Mein 2. Problem folgert warscheinlich aus dem 1.Problem
Ich wollte ein Anmeldeskript fürdas Browserspiel Desert Blitz basteln da man sich jedes mal wieder neu anmelden muss und nirgendwo was speichern kann
sollteja eig nicht viel Abreit sein oder???
und ein Beispiel für das erste Input wäre echt nett

Edit: ich habe mit Wireshark mal geschaut was gesendet wirdaber bei mir klappts so nich

Code

http://desertblitz.de/login.php?sid=fb8f7d4f389bc77c248cc020d6768c42&server=s2.desertblitz.de&username=NAME&password=PASSWORT&send=einloggen

hier mal der Link zu Desert Blitz Seite: Desertblitz.de

Keyle

Aber keine Bots etc bauen näh

Keyle

Also bei mir funktioniert es hassu keine Schleife drum gemacht???

Spoiler anzeigen

[autoit]

#include <Misc.au3>
$YTaste="59"
$XTaste="58"
$CTaste="43"
While 1
If _Ispressed($XTaste) Then
Send("{y}")
Sleep(20) ; Damit nich 5y auf 1 x gesendet werden was bei spielen aber überflüssig ist:D
EndIf
If _IsPressed($CTaste) Then
MouseClick ( "left")
Sleep(20)
EndIf
WEnd

[/autoit]

Mfg Keyle

Keyle

WOW Danke
echt nice
und ich hab das endlich nen bissl verstanden

Mfg Keyle

Keyle

Ok das is supi

Zitat

Es geht. Man muss die API-Funktion AddFontResourceEx mit Flag $FR_PRIVATE verwenden

und wie ist der Synthax dafür ich blick da noch nich so ganz durch wie das mit API geht

Mfg Keyle

Keyle

Ok schade aber danke für die Antworten

Mfg Keyle

Keyle

Hey Leute,

Kann man bei einem Label eine Schriftart benutzten die nicht im Font-Ordner registriert ist.
Ich möchte die Rechner von anderen nicht mit Schriftarten zumüllen
und bei Vista muss man das kopieren auch noch betätigen also wär es die beste Lösung (denke ich :D)
weis einer wie ich das machen muss?

Mfg Keyle

Keyle

Nen Abend Leute,

Ich würde gerne bestimmte Tage im Kalender(GUICtrlCreateMonthCal) wenns geht irgendwie hervorheben
nur hab ich in der Hilfe nix gefunden.

gehts sowas mit AutoIt überhaupt???

Mfg Keyle

Keyle

huch hab ich bei mir gar nicht gemerkt das mit der CPU

thx @Greenhorn

wenn der jetzt noch den Zustand speicher wenn die Maus da weg geht isses Perfekt

edit: habs selbst einfach das letzte elseif weglassen

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>

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

Global $Button[5][2]

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

$GUI = GUICreate("", 500, 500)

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

$Button[0][0] = GUICtrlCreatePic (".\empty.gif", 50, 100, 50, 50)
$Button[1][0] = GUICtrlCreatePic (".\empty.gif", 100, 100, 50, 50)
$Button[2][0] = GUICtrlCreatePic (".\empty.gif", 150, 100, 50, 50)
$Button[3][0] = GUICtrlCreatePic (".\empty.gif", 200, 100, 50, 50)
$Button[4][0] = GUICtrlCreatePic (".\empty.gif", 250, 100, 50, 50)

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

GUISetState(@SW_SHOW, $GUI)
;############### LOOP ###############
While 1

$Mouseover = GUIGetCursorInfo ($GUI)

For $i = 0 To 4

If $Mouseover[4] == $Button[$i][0] Then

For $ix = 0 To 4

If ($ix <= $i And Not $Button[$ix][1]) Then

GUICtrlSetImage ($Button[$ix][0], ".\full.gif")

$Button[$ix][1] = True
EndIf

If ($ix > $i And $Button[$ix][1]) Then

GUICtrlSetImage ($Button[$ix][0], ".\empty.gif")

$Button[$ix][1] = False
EndIf
Next
EndIf
EndIf
Next

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit]

Mfg Keyle

Keyle

@Canyonnein das war es nicht es flackert ja auch wenn der Mauszeiger nicht über den Sternen ist

@Oscar ich würde das ganze aber lieber über Mauseover machen

hmm... was ich nicht verstehe ist warum der die immer hided wenn die Bedingung gar net erfüllt wird

Keyle

Ich hab irgendwie den Wurm drin,
das flackert jetzt die ganze Zet durch.
keine Ahnung wie ich das machen soll

aber @TrueMu danke für den Tipp hiden ist sinvoller

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>

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

$GUI = GUICreate("", 500, 500)
Dim $Button[6],$ButtonE[6]

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

$ButtonE[1] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 50, 100, 50, 50)
$ButtonE[2] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 100, 100, 50, 50)
$ButtonE[3] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 150, 100, 50, 50)
$ButtonE[4] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 200, 100, 50, 50)
$ButtonE[5] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 250, 100, 50, 50)
$Button[1] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 50, 100, 50, 50)
$Button[2] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 100, 100, 50, 50)
$Button[3] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 150, 100, 50, 50)
$Button[4] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 200, 100, 50, 50)
$Button[5] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 250, 100, 50, 50)

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

GUISetState(@SW_SHOW)
;############### LOOP ###############
While 1
$Mouseover = GUIGetCursorInfo($GUI)
If $Mouseover[4] = $Button[1] or $ButtonE[1] Then
GuiCtrlSetState($Button[2], $GUI_HIDE)
GuiCtrlSetState($Button[3], $GUI_HIDE)
GuiCtrlSetState($Button[4], $GUI_HIDE)
GuiCtrlSetState($Button[5], $GUI_HIDE)
GuiCtrlSetState($ButtonE[5], $GUI_SHOW)
GuiCtrlSetState($ButtonE[2], $GUI_SHOW)
GuiCtrlSetState($ButtonE[3], $GUI_SHOW)
GuiCtrlSetState($ButtonE[4], $GUI_SHOW)
EndIf
If $Mouseover[4] = $Button[2] or $ButtonE[2] Then
GuiCtrlSetState($Button[2], $GUI_SHOW)
GuiCtrlSetState($Button[3], $GUI_HIDE)
GuiCtrlSetState($Button[4], $GUI_HIDE)
GuiCtrlSetState($Button[5], $GUI_HIDE)
GuiCtrlSetState($ButtonE[5], $GUI_HIDE)
GuiCtrlSetState($ButtonE[2], $GUI_SHOW)
GuiCtrlSetState($ButtonE[3], $GUI_SHOW)
GuiCtrlSetState($ButtonE[4], $GUI_SHOW)
EndIf
If $Mouseover[4] = $Button[3] or $ButtonE[3] Then
GuiCtrlSetState($Button[2], $GUI_SHOW)
GuiCtrlSetState($Button[3], $GUI_SHOW)
GuiCtrlSetState($Button[4], $GUI_HIDE)
GuiCtrlSetState($Button[5], $GUI_HIDE)
GuiCtrlSetState($ButtonE[5], $GUI_HIDE)
GuiCtrlSetState($ButtonE[2], $GUI_HIDE)
GuiCtrlSetState($ButtonE[3], $GUI_SHOW)
GuiCtrlSetState($ButtonE[4], $GUI_SHOW)
EndIf
If $Mouseover[4] = $Button[4] or $ButtonE[4] Then
GuiCtrlSetState($Button[2], $GUI_SHOW)
GuiCtrlSetState($Button[3], $GUI_SHOW)
GuiCtrlSetState($Button[4], $GUI_SHOW)
GuiCtrlSetState($Button[5], $GUI_HIDE)
GuiCtrlSetState($ButtonE[5], $GUI_HIDE)
GuiCtrlSetState($ButtonE[2], $GUI_HIDE)
GuiCtrlSetState($ButtonE[3], $GUI_HIDE)
GuiCtrlSetState($ButtonE[4], $GUI_SHOW)
EndIf
If $Mouseover[4] = $ButtonE[5] or $ButtonE[5] Then
GuiCtrlSetState($Button[2], $GUI_SHOW)
GuiCtrlSetState($Button[3], $GUI_SHOW)
GuiCtrlSetState($Button[4], $GUI_SHOW)
GuiCtrlSetState($Button[5], $GUI_SHOW)
GuiCtrlSetState($ButtonE[5], $GUI_HIDE)
GuiCtrlSetState($ButtonE[2], $GUI_HIDE)
GuiCtrlSetState($ButtonE[3], $GUI_HIDE)
GuiCtrlSetState($ButtonE[4], $GUI_HIDE)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit]

Keyle

Keyle

Hi Leute

Ich wollt für mein Program ein Rating mit Sternen machen, nur weis ich nicht wie ich das Flackern weg bekomme weil ich die Bilder jedes mal lösche und wieder einfüge
Wenn es bessere Realisationsvorschlage gibt immer her damit

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>

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

$GUI = GUICreate("", 500, 500)
Dim $Button[6]
$Button[1] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 50, 100, 50, 50)
$Button[2] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 100, 100, 50, 50)
$Button[3] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 150, 100, 50, 50)
$Button[4] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 200, 100, 50, 50)
$Button[5] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 250, 100, 50, 50)

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

GUISetState(@SW_SHOW)
;############### LOOP ###############
While 1
$Mouseover = GUIGetCursorInfo($GUI)
If $Mouseover[4] = $Button[1] Then
GUICtrlDelete($Button[2])
GUICtrlDelete($Button[3])
GUICtrlDelete($Button[4])
GUICtrlDelete($Button[5])
$Button[2] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 100, 100, 50, 50)
$Button[3] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 150, 100, 50, 50)
$Button[4] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 200, 100, 50, 50)
$Button[5] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 250, 100, 50, 50)
$Zahl = 1
EndIf
If $Mouseover[4] = $Button[2] Then
GUICtrlDelete($Button[2])
GUICtrlDelete($Button[3])
GUICtrlDelete($Button[4])
GUICtrlDelete($Button[5])
$Button[2] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 100, 100, 50, 50)
$Button[3] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 150, 100, 50, 50)
$Button[4] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 200, 100, 50, 50)
$Button[5] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 250, 100, 50, 50)
EndIf
If $Mouseover[4] = $Button[3] Then
GUICtrlDelete($Button[2])
GUICtrlDelete($Button[3])
GUICtrlDelete($Button[4])
GUICtrlDelete($Button[5])
$Button[2] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 100, 100, 50, 50)
$Button[3] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 150, 100, 50, 50)
$Button[4] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 200, 100, 50, 50)
$Button[5] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 250, 100, 50, 50)
EndIf
If $Mouseover[4] = $Button[4] Then
GUICtrlDelete($Button[2])
GUICtrlDelete($Button[3])
GUICtrlDelete($Button[4])
GUICtrlDelete($Button[5])
$Button[2] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 100, 100, 50, 50)
$Button[3] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 150, 100, 50, 50)
$Button[4] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 200, 100, 50, 50)
$Button[5] = GUICtrlCreatePic(@ScriptDir & "\empty.gif", 250, 100, 50, 50)
EndIf
If $Mouseover[4] = $Button[5] Then
GUICtrlDelete($Button[2])
GUICtrlDelete($Button[3])
GUICtrlDelete($Button[4])
GUICtrlDelete($Button[5])
$Button[2] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 100, 100, 50, 50)
$Button[3] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 150, 100, 50, 50)
$Button[4] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 200, 100, 50, 50)
$Button[5] = GUICtrlCreatePic(@ScriptDir & "\full.gif", 250, 100, 50, 50)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit]

Danke schon mal im vorraus

Keyle

Keyle

Aso thx naja geholfen hats auch nicht kam das Geiche bei rum sieht genau so aus und lässt sich Resizen.

Ach sry ich hatte vergessen warum es sich größen verändern lässt^^
Ich habe ein _IECreateEmbedded() objekt eingefügt welches größer als die GUI ist
und ich es nicht kleiner machen will weil es sonst nich mehr gut aussieht

trozdem schon mal danke Raupi

Edit: das untere stand aber eben noch nich da es hat gefunzt thx Raupi

Mfg Keyle

Keyle

Hab ich doch

[autoit]

GUICreate("GUI", 787, 676, Default, Default, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

[/autoit]

Was gesagt???

Mfg Keyle

Keyle

Wie schon gesagt ich möchte verhindern das man mein GUI in der Größe veränderbar ist

ich möchte auch nich mit WinMove arbeiten

Mfg Keyle

Keyle

Ok das mit dem Bild im Bild hab ich jetzt

thx @ GTASPIDER

aber jetzt kommt mein 2. Problem.
ich kann wenn ich das Bild speichere es nich als Hintergrund machen , mit anderen Bildern Klappts einwandfrei
Wo ist nur mein Fehler

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>

[/autoit] [autoit][/autoit] [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

If $cmdline[0] > 0 Then
If $cmdline[1] = "/so" Then
_Sign()
EndIf

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

Else
If MsgBox(36, "Metin2 Sign", "Soll das Sign bei jedem Neustart aktualisiert werden?") = 6 Then _
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Metin2Sign", "REG_SZ", '"' & @ScriptFullPath & '" /so')
_Sign()
EndIf

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

Func _Sign()
InetGet("http://metin2-sigcreator.ath.cx/2_Keyle_3_1_4_SpeedCore_sig.png", @DesktopDir & "\sign.png")
_GDIPlus_Startup()
$Bild = _GDIPlus_ImageLoadFromFile(@DesktopDir & "\sign.png")
_GDIPlus_ImageSaveToFile($Bild, @DesktopDir & "\sign.bmp")
_GDIPlus_ImageDispose($Bild)
_GDIPlus_Shutdown()
FileDelete(@DesktopDir & "\sign.png")

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

_GDIPlus_Startup()
$InBild = _GDIPlus_ImageLoadFromFile(@DesktopDir&"\sign.bmp")
$ToBild = _GDIPlus_ImageLoadFromFile(_GetDeskWallpaper())
$ToBild2 = _GDIPlus_ImageGetGraphicsContext ($ToBild)
$iX = _GDIPlus_ImageGetWidth ($InBild)
$iY = _GDIPlus_ImageGetHeight ($InBild)
$iX2 = _GDIPlus_ImageGetWidth ($ToBild)
$iY2 = _GDIPlus_ImageGetHeight ($ToBild)
$a=_GDIPlus_GraphicsDrawImage ($ToBild2,$InBild,$iX2-$iX,$iY2-$iY)
$b=_GDIPlus_ImageSaveToFile($ToBild,@DesktopDir&"\sign2.bmp")
_GDIPlus_ImageDispose($InBild)
_GDIPlus_ImageDispose($ToBild)
_GDIPlus_ImageDispose($ToBild2)
_GDIPlus_Shutdown()
MsgBox(0,"",$b) ;==> Prüft ob geklappt hat
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "TileWallpaper", "REG_SZ", "0")
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "WallpaperStyle", "REG_SZ", "0")
_SetDeskWallpaper( @DesktopDir & "\sign2.bmp" )

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

EndFunc ;==>_Sign
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)

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

Return DllStructGetData($Filename, 1)
EndFunc ;==>_GetDeskWallpaper

[/autoit]

Edit: Ups hab grad gemerkt es gaht ja doch nur das bild is Zentriert und nich gestreckt :P. jetzt muss ich das nur noch gestreckt krigen

Auf den Bildern funktioniert es ja (siehe Anhang)

Mfg. Keyle

Keyle

Moin Leutz

Hab probiert und probiert, es aber nich hingekriegt
wo ist nur mein Fehler

Spoiler anzeigen

[autoit]

_GDIPlus_Startup()
$InBild = _GDIPlus_ImageLoadFromFile(@DesktopCommonDir&"\sign.bmp")
$ToBild = _GDIPlus_ImageLoadFromFile(_GetDeskWallpaper())
$iX = _GDIPlus_ImageGetWidth ($InBild)
$iY = _GDIPlus_ImageGetHeight ($InBild)
$iX2 = _GDIPlus_ImageGetWidth ($ToBild)
$iY2 = _GDIPlus_ImageGetHeight ($ToBild)
$a=_GDIPlus_GraphicsDrawImage ($InBild,$ToBild,$iX-$iX2,$iY-$iY2)
$b=_GDIPlus_ImageSaveToFile($ToBild,@DesktopCommonDir&"\sign2.bmp")
_GDIPlus_ImageDispose($InBild)
_GDIPlus_ImageDispose($ToBild)
_GDIPlus_Shutdown()

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

Func _GetDeskWallpaper() ;==> Findet Pfad zum aktuellen Hintergrundbild
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

[/autoit]

Mfg. Keyle

Keyle

Hi Leutz,

Wie ich in der Themenüberschrift schon gesagt möchte ich ein Bild in einem Bild speichern.
Die Bilder sind beide im BMP Format.

Ich hab mir schon alles was zu GDIPlus in der Hilfe stand durchgelesen aber nix passendes gefunden
und SuFu hab ich auch benutzt, naja hoffe ihr wisst was.

Mfg. Keyle

Beiträge von Keyle

Mauspunkt ! (v1.05)

_IE_Problem

_IE_Problem

Wenn ich ''x'' klicke dann ''y'' klicken?

Wenn ich ''x'' klicke dann ''y'' klicken?

Schriftart

Schriftart

Schriftart

Schriftart

Tage hervorheben

Bilder-Flackern entfernen

Bilder-Flackern entfernen

Bilder-Flackern entfernen

Bilder-Flackern entfernen

Anti Resize

Anti Resize

Anti Resize

Bild in Bild Speichern(+als Hintergrund setzten)

Bild in Bild Speichern(+als Hintergrund setzten)

Bild in Bild Speichern(+als Hintergrund setzten)