Beiträge von akira2012

SetImage bei schon vorhandenem Bild

akira2012

5. August 2007 um 00:10
ok also ich habs mir mal genauer angeschaut aber das ist genau das was ich gemacht habe - nur das ich den style $BS-BITMAP und nicht %BS_ICON benutzt habe. Schaut euch mal den Code an plz
Also hierdrum gehts

Spoiler anzeigen

[autoit]

func schiffe()
$info=GUIGetCursorInfo ()
[/autoit] [autoit][/autoit] [autoit]
_ArrayAdd($Schiffe, $info[4])
$Schiffe[0]=$Schiffe[0]+1
GUICtrlSetStyle($info[4], $BS_BITMAP)
GUICtrlSetImage($info[4], "C:\Scripte\Poker\Karten\Herz Bube.bmp")
GUICtrlSetData($info[4], "Schiff")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;MsgBox(0, "", $position)
[/autoit] [autoit][/autoit] [autoit]
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
func setzen()
$z=0
for $i = 4 to 172
switch $i
case 146 to 170
local $Test = GUICtrlRead($i)
local $test2=Guictrlread($i+1)
local $test3=Guictrlread($i+2)
;MsgBox(0, $i, @ScriptDir&"\grey.bmp")
case 171 to 172
ExitLoop
case 4 to 146
local $Test = GUICtrlRead($i)
local $test2=Guictrlread($i+1)
local $test3=Guictrlread($i+2)
local $test4=Guictrlread($i+13)
local $test5=Guictrlread($i+26)
;MsgBox(0, $i, $test&" "&$test2&" "&$test3&" "&$test4&" "&$test5)
EndSwitch
IF $test="Schiff" AND $test2="Schiff" AND $test3="Schiff" Then
#cs
$position2=ControlGetPos("Schiffe versenken" ,"", $i)
$x=$position2[0]
$y=$position2[1]
$width=$position2[2]
$high=$position2[3]
#ce
GUICtrlSetData($i, "Transporter")
GUICtrlSetStyle($i, $BS_BITMAP)
GUICtrlsetImage($i, @ScriptDir&"\grey.bmp")
GUICtrlsetData($i+1, "Transporter")
GUICtrlSetStyle($i+1, $BS_BITMAP)
GUICtrlSetImage($i+1, @ScriptDir&"\grey.bmp")
GUICtrlSetData($i+2, "Transporter")
GUICtrlSetStyle($i+2, $BS_BITMAP)
GUICtrlSetImage($i+2, @ScriptDir&"\grey.bmp")
ExitLoop

ElseIF $test="Schiff" AND $test4="Schiff" AND $test5="Schiff" Then
GUICtrlSetData($i, "Transporter")
GUICtrlSetStyle($i, -1 )
GUICtrlSetImage($i, "")
GUICtrlSetData($i+13, "Transporter")
GUICtrlSetStyle($i+13, -1 )
GUICtrlSetImage($i+13, @ScriptDir&"\grey.bmp")
GUICtrlSetData($i+26, "Transporter")
GUICtrlSetStyle($i+26, -1 )
GUICtrlSetImage($i+26, @ScriptDir&"\grey.bmp")
exitLoop
endIf
Next

EndFunc
func schiffe()
$info=GUIGetCursorInfo ()
[/autoit] [autoit][/autoit] [autoit]
_ArrayAdd($Schiffe, $info[4])
$Schiffe[0]=$Schiffe[0]+1
GUICtrlSetStyle($info[4], $BS_BITMAP)
GUICtrlSetImage($info[4], "C:\Scripte\Poker\Karten\Herz Bube.bmp")
GUICtrlSetData($info[4], "Schiff")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;MsgBox(0, "", $position)
[/autoit] [autoit][/autoit] [autoit]
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
func setzen()
$z=0
for $i = 4 to 172
switch $i
case 146 to 170
local $Test = GUICtrlRead($i)
local $test2=Guictrlread($i+1)
local $test3=Guictrlread($i+2)
;MsgBox(0, $i, @ScriptDir&"\grey.bmp")
case 171 to 172
ExitLoop
case 4 to 146
local $Test = GUICtrlRead($i)
local $test2=Guictrlread($i+1)
local $test3=Guictrlread($i+2)
local $test4=Guictrlread($i+13)
local $test5=Guictrlread($i+26)
;MsgBox(0, $i, $test&" "&$test2&" "&$test3&" "&$test4&" "&$test5)
EndSwitch
IF $test="Schiff" AND $test2="Schiff" AND $test3="Schiff" Then
#cs
$position2=ControlGetPos("Schiffe versenken" ,"", $i)
$x=$position2[0]
$y=$position2[1]
$width=$position2[2]
$high=$position2[3]
#ce
GUICtrlSetData($i, "Transporter")
GUICtrlSetStyle($i, $BS_BITMAP)
GUICtrlsetImage($i, @ScriptDir&"\grey.bmp")
GUICtrlsetData($i+1, "Transporter")
GUICtrlSetStyle($i+1, $BS_BITMAP)
GUICtrlSetImage($i+1, @ScriptDir&"\grey.bmp")
GUICtrlSetData($i+2, "Transporter")
GUICtrlSetStyle($i+2, $BS_BITMAP)
GUICtrlSetImage($i+2, @ScriptDir&"\grey.bmp")
ExitLoop

ElseIF $test="Schiff" AND $test4="Schiff" AND $test5="Schiff" Then
GUICtrlSetData($i, "Transporter")
GUICtrlSetStyle($i, -1 )
GUICtrlSetImage($i, "")
GUICtrlSetData($i+13, "Transporter")
GUICtrlSetStyle($i+13, -1 )
GUICtrlSetImage($i+13, @ScriptDir&"\grey.bmp")
GUICtrlSetData($i+26, "Transporter")
GUICtrlSetStyle($i+26, -1 )
GUICtrlSetImage($i+26, @ScriptDir&"\grey.bmp")
exitLoop
endIf
Next

EndFunc
[/autoit] [autoit][/autoit] [autoit]
func schiffe()
$info=GUIGetCursorInfo ()
[/autoit] [autoit][/autoit] [autoit]
_ArrayAdd($Schiffe, $info[4])
$Schiffe[0]=$Schiffe[0]+1
GUICtrlSetStyle($info[4], $BS_BITMAP)
GUICtrlSetImage($info[4], "C:\Scripte\Poker\Karten\Herz Bube.bmp")
GUICtrlSetData($info[4], "Schiff")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;MsgBox(0, "", $position)
[/autoit] [autoit][/autoit] [autoit]
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
func setzen()
$z=0
for $i = 4 to 172
switch $i
case 146 to 170
local $Test = GUICtrlRead($i)
local $test2=Guictrlread($i+1)
local $test3=Guictrlread($i+2)
;MsgBox(0, $i, @ScriptDir&"\grey.bmp")
case 171 to 172
ExitLoop
case 4 to 146
local $Test = GUICtrlRead($i)
local $test2=Guictrlread($i+1)
local $test3=Guictrlread($i+2)
local $test4=Guictrlread($i+13)
local $test5=Guictrlread($i+26)
;MsgBox(0, $i, $test&" "&$test2&" "&$test3&" "&$test4&" "&$test5)
EndSwitch
IF $test="Schiff" AND $test2="Schiff" AND $test3="Schiff" Then
#cs
$position2=ControlGetPos("Schiffe versenken" ,"", $i)
$x=$position2[0]
$y=$position2[1]
$width=$position2[2]
$high=$position2[3]
#ce
GUICtrlSetData($i, "Transporter")
GUICtrlSetStyle($i, $BS_BITMAP)
GUICtrlsetImage($i, @ScriptDir&"\grey.bmp")
GUICtrlsetData($i+1, "Transporter")
GUICtrlSetStyle($i+1, $BS_BITMAP)
GUICtrlSetImage($i+1, @ScriptDir&"\grey.bmp")
GUICtrlSetData($i+2, "Transporter")
GUICtrlSetStyle($i+2, $BS_BITMAP)
GUICtrlSetImage($i+2, @ScriptDir&"\grey.bmp")
ExitLoop

ElseIF $test="Schiff" AND $test4="Schiff" AND $test5="Schiff" Then
GUICtrlSetData($i, "Transporter")
GUICtrlSetStyle($i, -1 )
GUICtrlSetImage($i, "")
GUICtrlSetData($i+13, "Transporter")
GUICtrlSetStyle($i+13, -1 )
GUICtrlSetImage($i+13, @ScriptDir&"\grey.bmp")
GUICtrlSetData($i+26, "Transporter")
GUICtrlSetStyle($i+26, -1 )
GUICtrlSetImage($i+26, @ScriptDir&"\grey.bmp")
exitLoop
endIf
Next

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

EDIT: Das ist immer noch aktuell - hat mitlerweile einer eine idee?
SetImage bei schon vorhandenem Bild

akira2012

4. August 2007 um 21:50
Danke erstmal für die Hilfe.
@gta - An neuerstellung habe ich auch gedacht aber ich bekam immer einen Fehler den ich nicht hinbekommen habe.
Ich werde heute abend mal bernds weg testen ansonsten poste ich einfach mal den code.

MfG
akira2012
SetImage bei schon vorhandenem Bild

akira2012

4. August 2007 um 01:10
Hallo,
folgendes Problem:
Ich habe Buttons erstellt und auf diese mit dem $BS_Bitmap Style ein Bild gelegt. Jetzt soll bei einer bestimmten Aktion das vorhandene Bild durch ein neues ersetzt werden. Ich habe versucht das mit guictrlsetimage zu realisieren aber scheinbar wird das neue Bild UNTER dem alten erstellt. Ich hab schon alles mögliche probiert. Hat wer eine Ahnung wie man das hinbekommen kann?

MfG
akira2012
Anti-Idle Script!

akira2012

4. August 2007 um 00:58
öhm ja - sry bin vielleicht zu blöd - aber was habe ich in wow denn davon NICHT idle zu sein? oO
SPAM-MASTER 5600

akira2012

27. Juli 2007 um 22:44
.... also letzteres sehe ich genauso. Nen Spammer brauchen nur idioten >_>
SMS Sender - 100%ig kosteloses SMS Senden!

akira2012

27. Juli 2007 um 22:41
ich weiß zwar nicht wie es vorher war weil ich nie auf https://autoit.de/www.smsgott.de war aber snoopy hat recht. Man muß auf das banner klicken damit die SMS abgeschickt wird.
TAN - Verwaltung

akira2012

24. Juli 2007 um 12:53
Zitat

Original von Xenobiologist
*hust* ich äh arbeite in einem Rechenzentrum für Banken. Welche Bank nutzt denn noch TAN auf Papier?

Die Stadtsparkase -.-*. Ich habe auch so ne tolle Liste die ich andauernd verlege.....
Also ich werds mal testen. Thnx Bugfix

MfG
akira2012
USB-Stick- Legen Sie Datenträger ein??

akira2012

24. Juli 2007 um 12:43
Kann auch an einem Konflikt mit dem Laufwerksbuchstaben liegen - einfach mal einen anderen wählen - das könnt ehelfen. Ansonsten denke ich auch das der einfach defekt ist...
GuiCtrlRead mit For-Schleife

akira2012

23. Juli 2007 um 22:25
ACHSOOOO Und wieder was dazu gelernt (sollte mir die operatoren mal öfter anschaun -.-)
Vielen Dank!

MfG
akira2012
GuiCtrlRead mit For-Schleife

akira2012

23. Juli 2007 um 21:55
nene das lass ich so nicht stehen
Davon das man $high vorher noch definieren muß bin ich ausgegangen
GuiCtrlRead mit For-Schleife

akira2012

23. Juli 2007 um 15:42
oder...
[autoit][/autoit][autoit][/autoit][autoit]
for $i = 1 to 6
$input[$i]=guictrlcreateinput("blablabla", $widht, $heigh)
$heigh=$heigh+50 ;Naja entweder $heigh oder $width erhöhen. Je nachdem wo die Controls hinsollen
NEXT
[/autoit]

Wollte auchmal klugscheißen
Der Shutdown-Timer

akira2012

23. Juli 2007 um 15:38
achso. Ja gerne würde mich interessieren wie das jemand macht der sich auskennt ^^. Wäre dir also sehr verbunden wenn du mich etwas neues lehren könntest.
MfG
akira2012

P.S.: Vergiß die Kommentarzeilen nicht
GuiCtrlRead mit For-Schleife

akira2012

23. Juli 2007 um 13:05
guictrlread $bla & $j?? Ich hoffe du willst mit diesen beiden Variablen nicht die Variable der Inputbox zusammensetzen das funzt nämlich nicht

EDIt: Verdammt Mega war wieder schneller -.- Sollte nebenbei nicht Bundys schaun
CTI Funktionen / Anruf bei Erhalt einer Email mit Bandansage

akira2012

23. Juli 2007 um 12:06
Das wird ja richtig kompliziert Wenn du ein Softphone hättest müsstest du nur die Nummer wählen lassen, dann noch das Problem lösen das du warten musst bis irgendwer abhebt (könnte man auch umgehen wenn man das MP3 im loop abspielt) und wenn du dich jetzt fragst wie das MP3 ins softphone kommst dann wähle einfach für den input nicht das Mikrofon sondern WAV aus. Das ansteuern mehrerer Anwender wäre zwar auch möglich aber nur wenn die nachricht immer an alle gehen soll...
CTI Funktionen / Anruf bei Erhalt einer Email mit Bandansage

akira2012

23. Juli 2007 um 11:25
Wäre es nicht einfach möglich wenn das Telefonieprogramm gestartet ist - es einfach mit AutoIt zu automatisieren - sprich die Nummer zu wählen und dann ein 2. Programm das eine MP3 Datei abspielt zu starten. Das größte Problem was ich sehe ist das irgendwie erkannt werden muß wann der Angerufene abhebt >_>
Der Shutdown-Timer

akira2012

22. Juli 2007 um 19:32
Was genau möchtest du denn umbasteln? oO
Hallo Hallo? Was würden Sie gerne umbasteln - werter Herr?
Festplattenaktivität auslesen

akira2012

22. Juli 2007 um 11:37
achso achso. Hmm - ich bräuchte eigentlich eine Möglichkeit zu testen ob generell eine Festplattenaktivität vorliegt. Werde mir heute abend mal die Objekt-Geschichte durchlesen ob da was bei ist....
Festplattenaktivität auslesen

akira2012

22. Juli 2007 um 00:07
Schaue mir das gerade an aber bekomme nur Nullen raus. Kannst du malö ein wenig dazu erläutern oder mir sagen wo du das her hast und wo es infos dazu gibt?

MfG
akira2012
Festplattenaktivität auslesen

akira2012

21. Juli 2007 um 15:49
WOW O_O*
DANKE DIR!! Damit wird mein neues Tool ein Hit

MfG
akira2012
Festplattenaktivität auslesen

akira2012

21. Juli 2007 um 13:42
Kennt jemand eine möglichkeit um die aktivität der Festplatte auszulesen (Ob die Festplatte arbeitet oder nicht bzw nur gering). In AutoIt habe ich noch keine funktion gefunden die das könnte und google hat mir auch nichts verraten. Aber vielleicht wisst Ihr ja was

In deinem Webbrowser ist JavaScript deaktiviert. Um alle Funktionen dieser Website nutzen zu können, muss JavaScript aktiviert sein.