Beiträge von Conan10

Conan10

Vielen dank ich komm meistens nicht auf die einfachsten dinge

Conan10

Hi habe hier einen script der nicht funktioniert.Er soll die Zeit, den Namen und einen Geldbetrag anzeigen. Doch bei der Zeit klappt etwas nicht.Und zwar:
1. Der skript sollte immer 10 min. aufrechnen, der rechnet aber erst 20min. dann immer 10min. auf.
2. das einstellen der Zeit mit dem Button Info(Hab ich einfach mal ausprobiert) geht aber nicht mit dem Button +(egal welchen)
Kann mir einer das vielleicht erklären?

Der skript:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstants.au3>
#include <GUIButton.au3>
#Region
$Form = GUICreate("", 578, 391, 193, 125)
$Name1 = GUICtrlCreateInput("", 192, 40, 121, 21)
$del1 = GUICtrlCreateButton("del", 536, 40, 35, 25, 0)
$Stop1 = GUICtrlCreateButton("Stop", 480, 40, 51, 25, 0)
$Start1 = GUICtrlCreateButton("Start", 424, 40, 51, 25, 0)
$Zeitmin1 = GUICtrlCreateInput("00", 128, 40, 41, 21)
$Geld1 = GUICtrlCreateInput("", 328, 40, 81, 21)
$Name2 = GUICtrlCreateInput("", 192, 75, 121, 21)
$del2 = GUICtrlCreateButton("del", 536, 75, 35, 25, 0)
$Stop2 = GUICtrlCreateButton("Stop", 480, 75, 51, 25, 0)
$Start2 = GUICtrlCreateButton("Start", 424, 75, 51, 25, 0)
$Zeitmin2 = GUICtrlCreateInput("00", 128, 75, 41, 21)
$Geld2 = GUICtrlCreateInput("", 328, 75, 81, 21)
$Name3 = GUICtrlCreateInput("", 192, 110, 121, 21)
$del3 = GUICtrlCreateButton("del", 536, 110, 35, 25, 0)
$Stop3 = GUICtrlCreateButton("Stop", 480, 110, 51, 25, 0)
$Start3 = GUICtrlCreateButton("Start", 424, 110, 51, 25, 0)
$Zeitmin3 = GUICtrlCreateInput("00", 128, 110, 41, 21)
$Geld3 = GUICtrlCreateInput("", 328, 110, 81, 21)
$Name4 = GUICtrlCreateInput("", 192, 145, 121, 21)
$del4 = GUICtrlCreateButton("del", 536, 145, 35, 25, 0)
$Stop4 = GUICtrlCreateButton("Stop", 480, 145, 51, 25, 0)
$Start4 = GUICtrlCreateButton("Start", 424, 145, 51, 25, 0)
$Zeitmin4 = GUICtrlCreateInput("00", 128, 145, 41, 21)
$Geld4 = GUICtrlCreateInput("", 328, 145, 81, 21)
$Name5 = GUICtrlCreateInput("", 192, 181, 121, 21)
$del5 = GUICtrlCreateButton("del", 536, 181, 35, 25, 0)
$Stop5 = GUICtrlCreateButton("Stop", 480, 181, 51, 25, 0)
$Start5 = GUICtrlCreateButton("Start", 424, 181, 51, 25, 0)
$Zeitmin5 = GUICtrlCreateInput("00", 128, 181, 41, 21)
$Geld5 = GUICtrlCreateInput("", 328, 181, 81, 21)
$Name6 = GUICtrlCreateInput("", 192, 224, 121, 21)
$del6 = GUICtrlCreateButton("del", 536, 224, 35, 25, 0)
$Stop6 = GUICtrlCreateButton("Stop", 480, 224, 51, 25, 0)
$Start6 = GUICtrlCreateButton("Start", 425, 224, 51, 25, 0)
$Zeitmin6 = GUICtrlCreateInput("00", 128, 224, 41, 21)
$Geld6 = GUICtrlCreateInput("", 328, 224, 81, 21)
$Name7 = GUICtrlCreateInput("", 192, 263, 121, 21)
$del7 = GUICtrlCreateButton("del", 536, 263, 35, 25, 0)
$Stop7 = GUICtrlCreateButton("Stop", 480, 263, 51, 25, 0)
$Start7 = GUICtrlCreateButton("Start", 424, 263, 51, 25, 0)
$Zeitmin7 = GUICtrlCreateInput("00", 128, 263, 41, 21)
$Geld7 = GUICtrlCreateInput("", 328, 263, 81, 21)
$Umsatz = GUICtrlCreateInput("", 328, 304, 81, 21)
$Exit = GUICtrlCreateButton("Exit", 448, 360, 75, 25, 0)
$Info = GUICtrlCreateButton("Info", 528, 368, 43, 17, 0)
GUICtrlCreateLabel("Umsatz:", 280, 304, 42, 17)
$Ausrechnen = GUICtrlCreateButton("Ausrechnen", 328, 328, 83, 25, 0)
GUICtrlCreateLabel(" ", 328, 280, 79, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Zeith1 = GUICtrlCreateInput("00", 56, 40, 41, 21)
$Zeith2 = GUICtrlCreateInput("00", 56, 75, 41, 21)
$Zeith3 = GUICtrlCreateInput("00", 56, 110, 41, 21)
$Zeith4 = GUICtrlCreateInput("00", 56, 144, 41, 21)
$Zeith5 = GUICtrlCreateInput("00", 56, 181, 41, 21)
$Zeith6 = GUICtrlCreateInput("00", 56, 224, 41, 21)
$Zeith7 = GUICtrlCreateInput("00", 56, 264, 41, 21)
GUICtrlCreateLabel(":", 105, 40, 13, 17)
GUICtrlCreateLabel(":", 105, 78, 13, 17)
GUICtrlCreateLabel(":", 105, 114, 13, 17)
GUICtrlCreateLabel(":", 105, 144, 13, 17)
GUICtrlCreateLabel(":", 105, 181, 13, 17)
GUICtrlCreateLabel(":", 105, 226, 13, 17)
GUICtrlCreateLabel(":", 105, 264, 13, 17)
$M1 = GUICtrlCreateButton("-", 32, 40, 19, 25, 0)
$P1 = GUICtrlCreateButton("+", 8, 40, 19, 25, 0)
$M2 = GUICtrlCreateButton("-", 32, 75, 19, 25, 0)
$P2 = GUICtrlCreateButton("+", 8, 75, 19, 25, 0)
$M3 = GUICtrlCreateButton("-", 32, 110, 19, 25, 0)
$P3 = GUICtrlCreateButton("+", 8, 110, 19, 25, 0)
$M4 = GUICtrlCreateButton("-", 32, 144, 19, 25, 0)
$P4 = GUICtrlCreateButton("+", 8, 144, 19, 25, 0)
$M5 = GUICtrlCreateButton("-", 32, 176, 19, 25, 0)
$P5 = GUICtrlCreateButton("+", 8, 176, 19, 25, 0)
$M6 = GUICtrlCreateButton("-", 32, 219, 19, 25, 0)
$P6 = GUICtrlCreateButton("+", 8, 219, 19, 25, 0)
$M7 = GUICtrlCreateButton("-", 32, 264, 19, 25, 0)
$P7 = GUICtrlCreateButton("+", 8, 264, 19, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Ausrechnen
$1 = GUICtrlRead($Geld1)
$2 = GUICtrlRead($Geld2)
$3 = GUICtrlRead($Geld3)
$4 = GUICtrlRead($Geld4)
$5 = GUICtrlRead($Geld5)
$6 = GUICtrlRead($Geld6)
$7 = GUICtrlRead($Geld7)
$gUmsatz = GUICtrlRead($Umsatz)
If $gUmsatz = "" Then
$Ausgerechnet=$1+$2+$3+$4+$5+$6+$7
GUICtrlSetData($Umsatz,$Ausgerechnet)
Else
$Ausgerechnet=$1+$2+$3+$4+$5+$6+$7+$gUmsatz
GUICtrlSetData($Umsatz,$Ausgerechnet)
EndIf
Case $P1,$Info
Plus($Zeitmin1,$Zeith1)
EndSwitch
WEnd

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

Func Plus($HWD,$HWD2)
$P1=GUICtrlRead($HWD)
$P2=GUICtrlRead($HWD2)
$neu = $P1 +10
$neu2 = $P2
If $neu >= 60 Then
$neu2 = $neu2 +1
$neu = 00
GUICtrlSetData($HWD,$neu)
GUICtrlSetData($HWD2,$neu2)
Else
GUICtrlSetData($HWD,$neu)
GUICtrlSetData($HWD2,$neu2)
EndIf
EndFunc

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

Func Minus($HWD,$HWD2)
$P1=GUICtrlRead($HWD)
$P2=GUICtrlRead($HWD2)
$neu = $P1 -10
$neu2 = $P2
If $neu >= 00 Then
$neu2 = $neu2 -1
$neu = 60
GUICtrlSetData($HWD,$neu)
GUICtrlSetData($HWD2,$neu2)
Else
GUICtrlSetData($HWD,$neu)
GUICtrlSetData($HWD2,$neu2)
EndIf
EndFunc

[/autoit]

Conan10

Was du suchst heißt:

[autoit]

GUICtrlSetState(-1,$GUI_DISABLE)

[/autoit]

Halt für -1 die Buttonid angeben oder so lassen wenn du die Funktion sofort nach der GUICtrlCreateButton stellst.

Conan10

Guck dir mal die For-Schleife an. Das ist wahrscheinlich genau das richtige für dich

Conan10

Der Rest ist ja gleichgeblieben ich habe im prinzip ja nur die Kunktion im zweiten Spioiler in meinem ersten post so umgestellt, wie du es gesagt hast halt mit _GUICtrlTab_GetCurSel. Und ich glaube kaum das du dich durch die 600 Zeilen meines Codes wälzen willst. Aber als Beispiel für eine Funktion die die Funktion die ich brauche gebraucht ist z.b. die. Das was ich versuche ist im Prinzip das Herzstück meines Codes.

Spoiler anzeigen

[autoit]

Func _prozessclose()
GUICtrlSetState($Prozessclose, $GUI_DISABLE)
$closepid = Call("_gethwndpid", 1) ;<---------- Hier wird die Funktion benutzt
Switch @error
Case 1
Call("nosel")
Case 3
Call("noproc")
Case Else
$msgbox = MsgBox(0x40024, "Prozess beenden?", "Soll diese Instanz von Silkroad wirklich beendet werden?")
If $msgbox = 6 Then
ProcessClose($closepid)
EndIf
EndSwitch
GUICtrlSetState($Prozessclose, BitOR($GUI_ENABLE, $GUI_FOCUS))
_refresh()
EndFunc ;==>_prozessclose

[/autoit]

die funktionen nosel und noproc sin Fehlermeldungen.

Conan10

Hab die Funktion mal versucht umzustellen doch es geht immer noch nicht. Hier mal der Code:

Spoiler anzeigen

[autoit]

Func _gethwndpid($pid)
$selectedindex = _GUICtrlTab_GetItem($Tab1,0)
If $selectedindex = "" Then
Return SetError(1)
Else
$ret = $infoarray[_GUICtrlTab_GetItemText($Tab1, Int($selectedindex))][$pid]
If $pid = 0 Then
If Not IsHWnd($ret) Then Return SetError(2)
ElseIf Not ProcessExists($ret) Then
Return SetError(3)
EndIf
Return $ret
EndIf
EndFunc

[/autoit]

Conan10

Nabend
Habe folgendes Problem und zwar habe ich mehrere Prozesse.Diese werden in Tab´s dargestellt. Nun möchte ich aber ein Stück weiter im Code aus dem Tabnamen wieder in eine id(prozess) zurückverwandeln.
Hier mal der Script

Spoiler anzeigen

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

;Fenster mit GUICtrlCreateTab. Ruft alle paar sekunden function _refresh auf
Func _refresh()
Dim $infoarray[1][1] = [["0"]]
Local $error = 0
_GUICtrlTab_DeleteAllItems($Tab1)
Sleep(50)
$sro_client = ProcessList("sro_client.exe")
If $sro_client[0][0] <> 0 Then
ReDim $infoarray[$sro_client[0][0] + 1][2]
$infoarray[0][0] = $sro_client[0][0]
EndIf
If $sro_client[0][0]= 0 Then
$TabSheet1 = GUICtrlCreateTabItem("Error")
GUICtrlCreateLabel("Kein Client",28, 42, 75, 25)
GUICtrlCreateTabItem("")
EndIf
For $i = 1 To $sro_client[0][0]
;_GUICtrlTab_InsertItem($Tab1,$i,"sro_client_"&$i)
GUICtrlCreateTabItem($sro_client[$i][0])
$HPbar = GUICtrlCreateProgress(67, 53, 230, 17)
$MPbar = GUICtrlCreateProgress(67, 85, 230, 17)
$Expbar = GUICtrlCreateProgress(67, 117, 230, 17)
GUICtrlCreateLabel("MP:", 35, 85, 23, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateLabel("HP:", 35, 53, 22, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateLabel("Exp:", 35, 117, 25, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$HP = GUICtrlCreateLabel("0%", 171, 53, 19, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$MP = GUICtrlCreateLabel("0%", 171, 85, 20, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Exp = GUICtrlCreateLabel("0%", 171, 117, 22, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateLabel("Position:", 315, 53, 44, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateLabel("X:", 315, 77, 14, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateLabel("Y:", 315, 101, 14, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$X = GUICtrlCreateLabel("X", 347, 77, 11, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Y = GUICtrlCreateLabel("Y", 347, 101, 11, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateTabItem("")
Next
GUICtrlSetState($refresh,$GUI_FOCUS)
EndFunc ;==>refresh

[/autoit]

Dafür bräucht ich also eine Fuction die wieder den Tabnamen in eine id umwandelt. Habe bereits goolge, die SuFu und vieles mehr benutzt, aber komme einfach nicht darauf. Habe nur aus einem anderen programm diese funktion als anhaltspunkt. Allerdings ist es für listview und nicht für tab´s habe versucht es umzustellen aber es ging nicht:

Spoiler anzeigen

[autoit]

Func gethwndpid($pid)
$selectedindex = ControlListView($gui, "", $processlist, "GetSelected")
If $selectedindex = "" Then
Return SetError(1)
Else
$ret = $infoarray[_GUICtrlListView_GetItemText($processlist, Int($selectedindex))][$pid]
If $pid = 0 Then
If Not IsHWnd($ret) Then Return SetError(2)
ElseIf Not ProcessExists($ret) Then
Return SetError(3)
EndIf
Return $ret
EndIf
EndFunc

[/autoit]

Wie immer danke schon mal vorab an alle die helfen.

Conan10

Thx an euch!
An so was hatte ich zwar gedacht, konnte es aber nicht so machen. Aber ich muss sagen ihr habt das richtig geil gemacht nochmals danke!!

Conan10

ja gerne bin für sowas immer offen

Conan10

Hi @ all
Finde bei meinem Skript den Fehler nicht. Normal sollte es bei einem anderen klick das bild wechseln, dies tut es aber nicht. Hier mal der Script:

Spoiler anzeigen

[autoit]

Global $pic1,$pic2,$pic3,$pic4,$pic5,$pic6,$pic7,$pic8,$pic9,$pic10
Opt("PixelCoordMode",0)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 775, 445, 193, 125)
GUISetBkColor(0x99B4D1)
$TreeView1 = GUICtrlCreateTreeView(8, 16, 129, 169)
$TreeView1_0 = GUICtrlCreateTreeViewItem("China", $TreeView1)
$TreeView1_1 = GUICtrlCreateTreeViewItem("West-China", $TreeView1)
$TreeView1_2 = GUICtrlCreateTreeViewItem("Oasis 1.", $TreeView1)
$TreeView1_3 = GUICtrlCreateTreeViewItem("Oasis 2.", $TreeView1)
$TreeView1_4 = GUICtrlCreateTreeViewItem("Taklamakan", $TreeView1)
$TreeView1_5 = GUICtrlCreateTreeViewItem("West-Asien", $TreeView1)
$TreeView1_6 = GUICtrlCreateTreeViewItem("Zentral-Asien", $TreeView1)
$TreeView1_7 = GUICtrlCreateTreeViewItem("Vorder-Asien", $TreeView1)
$TreeView1_8 = GUICtrlCreateTreeViewItem("Europa", $TreeView1)
$TreeView1_9 = GUICtrlCreateTreeViewItem("Downhang-Cave", $TreeView1)
;$Group1 = GUICtrlCreateGroup("Map", 152, 8, 609, 433)
;GUICtrlCreateGroup("", -99, -99, 1, 1)
$Exit = GUICtrlCreateButton("Schließen", 24, 208, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
$1 =PixelGetColor(545,369)
IniWrite("test.ini","","",$1)
Exit
Case $TreeView1_0
If PixelGetColor(545,369) Not = 10073297 Then
$delete = GUICtrlDelete($pic2)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic3)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic4)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic5)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic6)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic7)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic8)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic9)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic10)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic1 = GUICtrlCreatePic(@ScriptDir&"\china.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_1
If PixelGetColor(545,369) Not = 10073297 Then
$delete=GUICtrlDelete($pic3)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic4)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic5)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic6)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic7)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic8)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic9)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic10)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic1)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic2 = GUICtrlCreatePic(@ScriptDir&"\westchina.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_2
If PixelGetColor(545,369) Not = 10073297 Then
$delete=GUICtrlDelete($pic4)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic5)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic6)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic7)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic8)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic9)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic10)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic1)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic2)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic3 = GUICtrlCreatePic(@ScriptDir&"\oasis1.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_3
If PixelGetColor(545,369) Not = 10073297 Then
$delete=GUICtrlDelete($pic5)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic6)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic7)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic8)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic9)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic10)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic1)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic2)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic3)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic4 = GUICtrlCreatePic(@ScriptDir&"\oasis2.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_4
If PixelGetColor(545,369) Not = 010073297 Then
$delete=GUICtrlDelete($pic6)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic7)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic8)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic9)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic10)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic1)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic2)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic3)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic4)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic5 = GUICtrlCreatePic(@ScriptDir&"\taklamakan.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_5
If PixelGetColor(545,369) Not = 10073297 Then
$delete = GUICtrlDelete($pic7)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic8)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic9)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic10)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic1)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic2)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic3)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic4)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic5)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic6 = GUICtrlCreatePic(@ScriptDir&"\westasien.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_6
If PixelGetColor(545,369) Not = 10073297 Then
$delete = GUICtrlDelete($pic8)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic9)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic10)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic1)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic2)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic3)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic4)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic5)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic6)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic7 = GUICtrlCreatePic(@ScriptDir&"\zentralasien.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_7
If PixelGetColor(545,369) Not = 10073297 Then
$delete =GUICtrlDelete($pic9)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic10)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic1)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic2)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic3)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic4)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic5)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic6)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic7)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic8 = GUICtrlCreatePic(@ScriptDir&"\vorderasien.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_8
If PixelGetColor(545,369) Not = 10073297 Then
$delete =GUICtrlDelete($pic10)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic1)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic2)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic3)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic4)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic5)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic6)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic7)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic8)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic9 = GUICtrlCreatePic(@ScriptDir&"\europa.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Case $TreeView1_9
If PixelGetColor(545,369) Not = 10073297 Then
$delete = GUICtrlDelete($pic1)
If $delete = 0 Then
$delete1 = GUICtrlDelete($pic2)
If $delete1 = 0 Then
$delete2 = GUICtrlDelete($pic3)
If $delete2 = 0 Then
$delete3 = GUICtrlDelete($pic4)
If $delete3 = 0 Then
$delete4 = GUICtrlDelete($pic5)
If $delete4 = 0 Then
$delete5 = GUICtrlDelete($pic6)
If $delete5 = 0 Then
$delete6 = GUICtrlDelete($pic7)
If $delete6 = 0 Then
$delete7 = GUICtrlDelete($pic8)
If $delete7 = 0 Then
$delete8 = GUICtrlDelete($pic9)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
$pic10 = GUICtrlCreatePic(@ScriptDir&"\downhangcave.jpg", 160, 24, 540, 405, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
EndSwitch
WEnd

[/autoit]

Im anhang mal die entsprchenden Bilder.
Soll ein Hilfstool werden^^^
Vielen Dank vorab.

Conan10

bist khttp://forum.cp-g.net/developer-gfx-section/coding-allgemein/97862-hp-mp-aus-memory-auslesen/ hier! Wenne da nicht angemeldet bist kann ich dir den inhalt schicken

Edit BugFix: Verschoben nach OT

Conan10

Er hatte aber nach if gefragt

Conan10

Erst If iund dann immer Elseif. Also ca. so:

Spoiler anzeigen

[autoit]

If _IsPressed($sHexKey1,'user32.dll') then
Beep()
ElseIf _IsPressed($sHexKey2, $vDLL = 'user32.dll') then
Beep()
ElseIf _IsPressed($sHexKey3, $vDLL = 'user32.dll') then
Beep()
ElseIf _IsPressed($sHexKey4, $vDLL = 'user32.dll') then
Beep()

[/autoit]

......
Die UDF kannste dir ja mal auch angucken!

Conan10

Ein großes Happy Birthday auch von mir!

Conan10

Nimm mal für den setuppfad: C:\Program Files\Windows Sidebar\Gadgets.

Bei mir kommt im Englischen immer nur der fehler das keine site vorhanden ist. Selbst das wort global hat keine seite.

Conan10

so was ähnliches ja!

Conan10

Weil ich noch etwas komplizierteres mache.Etwas ähnliches wie botmon(stört euch nicht am Namen. Ist was anderes als ein Bot. Heißt nur so ).

Conan10

Vielleicht kannste das so machen:

1. Lies die Daten aus

2. Die aus dem Speicher wandelst du in Prozentzahlen um

3. Du vergleichst die Daten von Slider und Die Prozentzahlen

4. Sind die Prozentzahlen zu niedrig drückt er die tasten(denk auch an die F-Tasten)

P.S.: Könnte ich den Skript wenn er fertig ist vielleicht haben??

Conan10

Bugfix hat recht!

Hier mal der Code dann:

Spoiler anzeigen

[autoit]

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Juli\Desktop\Autoit\Silkroad\eCSro T- Pot\T- Pot GUI 0.kxf
$Form1 = GUICreate("Form1", 206, 233, 193, 125)
$Slider1 = GUICtrlCreateSlider(8, 40, 185, 33)
guictrlsetdata (-1,$readhp)
$Label1 = GUICtrlCreateLabel("Test", 0, 0, 121, 17)
$Label2 = GUICtrlCreateLabel("HP", 8, 24, 19, 17)
$Label3 = GUICtrlCreateLabel("MP", 8, 88, 20, 17)
$Slider2 = GUICtrlCreateSlider(8, 104, 185, 33)
guictrlsetdata (-1,$readmp)
$Label4 = GUICtrlCreateLabel("Pillen", 8, 152, 29, 17)
$Slider3 = GUICtrlCreateSlider(8, 176, 185, 33)
guictrlsetdata (-1,$readpills)
$Label5 = GUICtrlCreateLabel("0", 16, 72, 10, 17)
$Label6 = GUICtrlCreateLabel("50", 96, 72, 16, 17)
$Label7 = GUICtrlCreateLabel("100", 168, 72, 22, 17)
$Label8 = GUICtrlCreateLabel("0", 16, 136, 10, 17)
$Label9 = GUICtrlCreateLabel("50", 96, 136, 16, 17)
$Label10 = GUICtrlCreateLabel("100", 168, 136, 22, 17)
$Label11 = GUICtrlCreateLabel("0", 16, 208, 10, 17)
$Label12 = GUICtrlCreateLabel("50", 96, 208, 16, 17)
$Label13 = GUICtrlCreateLabel("100", 168, 208, 22, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Aktivieren", 48, 24, 81, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Aktivieren", 48, 88, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Aktivieren", 48, 152, 97, 17)
$Button1 = GUICtrlCreateButton("Save ", 136, 8, 57, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
$xy1 = GUICtrlRead($Slider1)
$xy2 = GUICtrlRead($Slider2)
$xy3 = GUICtrlRead($Slider3)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
iniwrite ($ini,"Potsettings","HP",$xy1)
iniwrite ($ini,"Potsettings","MP",$xy2)
iniwrite ($ini,"Potsettings","PILLS",$xy3)

EndSwitch
WEnd

[/autoit]

Conan10

wie meinst du das jetzt? So wie ich das in 16 bei Funktionen gemacht habe?

Beiträge von Conan10

2 Probleme

2 Probleme

GUI Buttons "deaktivieren"?

Problem mit dateispeicherung.

Prozess id in Tabs und zurück

Prozess id in Tabs und zurück

Prozess id in Tabs und zurück

Finde Fehler nicht

Finde Fehler nicht

Finde Fehler nicht

Basepointer / Statische Adressen

Richtig mit If umgehen

Richtig mit If umgehen

Happy Birthday Oscar

AutoIt-Funktionssuche: Sidebar-Gadget

Mit Reglern arbeiten

Mit Reglern arbeiten

Mit Reglern arbeiten

Mit Reglern arbeiten

Tab´s für Prozesse