Beiträge von Conan10

Conan10

Hi @ all

habe mal wieder ein problem und zwar will ich das es für eine Anzahl an Prozesse jeweils ein eigenes Tab ertellt wird. Dies ist auch kein Problem sondern es sollen immer die gleichen Items im Tab stehen also z.b. in jedem Fenster eine prozssbar.

Mein zweites Problem ist wie ich z.b. für jeden einzelnen Tab die (jetzt in diesem beispiel) Prozessbar individuell einstellen kann.

Hoffe ihr könnt mir helfen.

Soweit bin ich:

GUI:

Spoiler anzeigen

[autoit]

$Form2 = GUICreate("Form1", 613, 418, 265, 208)
GUISetBkColor(0x99B4D1)
$Tab1 = GUICtrlCreateTab(8, 8, 377, 201)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUISetState(@SW_SHOW)

[/autoit]

Funktion:

Spoiler anzeigen

[autoit]

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,$sro_client[$i][0],"")
$Hide[$i] = GUICtrlCreateButton("Hide", 28, 42, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Show[$i] = GUICtrlCreateButton("Show", 116, 42, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Name[$i] = GUICtrlCreateButton("Name ändern", 204, 42, 91, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Prozessclose[$i] = GUICtrlCreateButton("Prozess beenden", 204, 74, 91, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Minimieren[$i]= GUICtrlCreateButton("Minimieren", 28, 74, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Uberprufen[$i] = GUICtrlCreateButton("Dc prüfen", 116, 74, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$HPbar[$i] = GUICtrlCreateProgress(84, 111, 230, 17)
$MPbar[$i] = GUICtrlCreateProgress(84, 143, 230, 17)
$Expbar[$i] = GUICtrlCreateProgress(84, 175, 230, 17)
GUICtrlCreateLabel("MP:", 28, 143, 23, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateLabel("HP:", 28, 111, 22, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateLabel("Exp:", 28, 175, 25, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$HP[$i] = GUICtrlCreateLabel("0%", 212, 111, 19, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$MP[$i] = GUICtrlCreateLabel("0%", 212, 143, 20, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Exp[$i] = GUICtrlCreateLabel("0%", 212, 175, 22, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateLabel("Position:", 324, 47, 44, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateLabel("X:", 324, 71, 14, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateLabel("Y:", 324, 95, 14, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$X[$i] = GUICtrlCreateLabel("X", 356, 71, 11, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Y[$i] = GUICtrlCreateLabel("Y", 356, 95, 11, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Next
GUICtrlSetState($refresh,$GUI_FOCUS)
EndFunc

[/autoit]

Damit jetzt keine Beiträge kommen zum Thema "Bot-Coding", will ich euch sagen es ist zwar für ein Spiel, aber es bringt keinen spielerischen Vorteile! Deshalb denke ich das ist ok, oder? Wenn nicht sagt es mir.

Conan10

Du musst nur an die Inputbox das hier dranghängen

Spoiler anzeigen

[autoit]

GUICtrlCreateInput("Hier", 35, 174, 121, 21, BitOR($ES_PASSWORD))

[/autoit]

Das was du hinten anhängst ist BitOr($ES_PASSWORD).

Conan10

Oh !Dann versuch es mal so. Habe jetzt das zweite if als elseif gesetzt und das _IENavigate in die nächste zeile geschoben

Spoiler anzeigen

[autoit]

$4 = GUICtrlRead($CheckAOE)
Case $Start
If $4 = $GUI_Checked Then
_IENavigate($Embedded, $1)
Sleep(1000)
MouseMove(GUICtrlRead($mobx),
GUICtrlRead($moby), 20)
Sleep(500)
MouseMove(GUICtrlRead($fightx),
GUICtrlRead($fighty), 20)
Sleep(500)
ElseIf $4 = $GUI_UNCHECKED Then
_IENavigate($Embedded, $2)
Sleep(1000)
MouseMove(GUICtrlRead($mobx),
GUICtrlRead($moby), 20)
Sleep(500)
MouseMove(GUICtrlRead($fightx),
GUICtrlRead($fighty), 20)
Sleep(500)
EndIf

[/autoit]

Sag mal bescheid wenn es nicht funktioniert

Conan10

Dafür das ich es schnell geändert habe ist es doch gut. Ist halt Menschlich Aber hast recht kannste ja was anderes einsetzen.

Conan10

Versuchs mal so(müsste klappen):

Spoiler anzeigen

[autoit]

$1 = GUICtrlRead($CheckAOE)
Case $Start
If $1 = $GUI_Checked Then _IENavigate($Embedded, $1)
Sleep(1000)
MouseMove(GUICtrlRead($mobx),
GUICtrlRead($moby), 20)
Sleep(500)
MouseMove(GUICtrlRead($fightx),
GUICtrlRead($fighty), 20)
Sleep(500)
EndIf
If $1 = $GUI_UNCHECKED Then _IENavigate($Embedded, $2)
Sleep(1000)
MouseMove(GUICtrlRead($mobx),
GUICtrlRead($moby), 20)
Sleep(500)
MouseMove(GUICtrlRead($fightx),
GUICtrlRead($fighty), 20)
Sleep(500)
EndIf

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

Conan10

Hab´s mal ausprobiert und muss sagen es ist SUPER.

Vielen Dank dafür, Oscar

Conan10

Also so was?

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <IE.au3>
GUICreate("Meine GUI-combo") ; erstellt ein GUI-Fenster welches mittig ausgerichtet wird
$combo = GUICtrlCreateCombo ("Element1", 10,10) ; erstellt das erste Element
GUICtrlSetData(-1,"Element2|Element3","Element3") ; fügt andere Elemente hinzu und setzt "Element3" als neuen vorausgewählten Wert der Listbox
GUISetState () ; die GUI läuft bis sie geschlossen wird
While 1
$msg = GUIGetMsg()
$combo1 = GUICtrlRead($combo)
If $msg = $GUI_EVENT_CLOSE then
If $combo1 = "Element1" then Exit
Elseif $combo1 = "Element2" then _IECreate (http://www.autoitscript.com)
Endif
Wend

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

Conan10

Hier das hab ich mir in den letzten tagen gescriptet. Das funktioniert auch so weit nur musst du noch in Zeile 159 das Verzeichnis angeben.

Pic3.jpeg

Conan10

Hab es mal ein bisschen bearbeitet und ich kriege jetzt keine Fehlermeldung mehr. Leider konnte ich nichts hochladen. Aber egal ändern musst du nur

Spoiler anzeigen

[autoit]

$Ftpp = _FTPPutFile($Open, $input, "", 0, 0)

[/autoit]

Probier das dann nochmal aus

Conan10

Mit der Progressbar kann ich dir jetzt nicht viel weiterhelfen, da ich sie selber nie gebraucht hab aber um deine dritte Frage zu beantworten schau dir mal

Spoiler anzeigen

[autoit]

FileOpenDialog

[/autoit]

in der Hilfe an und binde mal die FTP.au3 als include ein und probiere es dann nochmal die fehlt nämlich

Conan10

und wo genau brauchst du hilfe?

Conan10

Es fehlt wohl die Haupt GUI also

GUICreate("Bild", 0, 0, 0, 0)

Conan10

Mach es doch als Icon und benutzt es wie ein button

Spoiler anzeigen

[autoit]

$fenster = GUICreate("", 231, 172, 414, 226)
$Beispiel = GUICtrlCreateIcon(@ScriptDir&"\Beispielordner\Icon.ico", 0, 0, 0, 0, 0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Beispiel
Das was dann getan werden soll
Wend

[/autoit]

Conan10

Man lernt halt nie aus

Conan10

Ich meine das geht mit

GuiSetState(@SW_MAXIMIZE,$BEISPIELGUI)

Conan10

macht nichts wenn ich mal hilfe brauche helfen auch alle anderen

Conan10

also so weit ich das weiß geht das net

Conan10

Wenn du es z.B. in den Ordner xyz installierst dann kannst du die Datei halt mit

[autoit]

GUICtrlCreatePic(@scriptDir"\xyz\Pic,,,,)

[/autoit]

oder mit einem anderen befehl einbinden

Da FileInstall alles in einen Skript reinmacht und er dann es beim benutzen wieder auspackt.

Conan10

Also wie ich das verstehe suchst du den Befehl

[autoit]

FileInstall ( "source", "dest" [, flag] )

[/autoit]

.

Der bindet dateien in den skript ein.

Edit: Habe es mal aus der Hile übernommen

Conan10

Also hab folgendes Problem:

Brauche/te das Window Info Tool für Mauskoordinaten in mehreren Skripten. In den Scripten steht

[autoit]

Opt('MouseCoordMode', 0)

[/autoit]

. Habe es auch darauf eingestellt. Nun kopiert das Info Tool aber nichts in die Zwischenablage(Laut mehreren Tools unteranderem dem ClipBoardMemoTool von Oscar). Weiß nicht woran das liegen könnte, bitte helft.

Beiträge von Conan10

Tab´s für Prozesse

Problem mit cancel einstellung

Hilfe mit IF Abfragen ;)

Hilfe mit IF Abfragen ;)

Hilfe mit IF Abfragen ;)

Browserstart überwachen

Verwerten von Combobox einträgen.

Daten auf ein FTP Server schiken

Benötige etwas Hilfe!

Benötige etwas Hilfe!

Benötige etwas Hilfe!

Ich versteh die Welt nichtmehr^^

Runder Button

Bilder in eine Exe einbinden

Wie kann man eine Gui in den Vollbildschirm setzen?

Bilder in eine Exe einbinden

Bilder in eine Exe einbinden

Bilder in eine Exe einbinden

Bilder in eine Exe einbinden

Window Info Tool Problem