Beiträge von Schnitzel

**Schnitzel**

Zitat von AutoBert

Du solltest dir die Forenregeln durchlesen,

mfg (Auto)Bert

Du solltest nich alles für einen bot halten

**Schnitzel**

dann mach am besten ne gui, und evtl n paar bilder dazu wie du dir das vorstellst

**Schnitzel**

ich kapier nicht ganz was du von uns willst

**Schnitzel**

man weiß leider nicht genau wie du das haben willst.

am besten dein vorhandenes script posten

**Schnitzel**

vermutlich so:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Strategiks WaR", 440, 403, -1, -1)
$Label1 = GUICtrlCreateLabel("Strategis War", 112, 0, 161, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Holzfäller", 4, 88, 80, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Gebäude", 64, 48, 90, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Lehmhütte", 4, 120, 90, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Eisenbergwerk", 4, 152, 122, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("Einheiten", 304, 48, 93, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Einheiten = GUICtrlCreateCombo("Einheiten:", 300, 88, 125, 25)
GUICtrlSetData(-1, "Legionäre|Bogenschützen|Axtwerfer|Rammböcke|Katapulte")
$HolzStufeAusbau = GUICtrlCreateLabel("Ausbau Stufe 1", 144, 88, 107, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("Stadt", 72, 192, 50, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("Anzahl: ", 300, 120, 98, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$AnzahlLegionar = 100
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Einheiten
Switch GUICtrlRead($Einheiten)
Case "Legionäre"
MsgBox (0, "", "1")
Case "Bogenschützen"
MsgBox (0, "", "2")
Case "Axtwerfer"
MsgBox (0, "", "3")
Case "Rammböcke"
MsgBox (0, "", "4")
Case "Katapulte"
MsgBox (0, "", "5")

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

EndSwitch

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

EndSwitch
WEnd

[/autoit]

**Schnitzel**

Zitat von shayn

Ist bestimmt ein BOT, denn, ich zitiere: "für ein Game"; "ihn auszuprobieren"

muss man so alte threads echt wieder auskramen?
war doch jetz eh schon vergessen....

**Schnitzel**

er überschreibt sie nicht und fügt einfach die neuen hinzu
(dachte mir das is das sinnvollste )

wenn er sie überschreiben soll dann änder einfach das hier :

[autoit]

FileCopy($arr[$i], $zielpfad)

[/autoit]

in das um:

[autoit]

FileCopy($arr[$i], $zielpfad, 1)

[/autoit]

**Schnitzel**

Zitat von SEuBo

Ich wollte noch erwähnen, dass es ein weiteres, weitaus besseres WinHTTP Tut gibt.
Einfach dem Link von Schnitzel folgen. In der gleichen Section in dem entsprechenden Forum gibt es ein weiteres Tutorial.
"WinHTTP einstieg zu [...]"

*g* ja sowas zu finden is echt schwer.

ich hab Reaker schon (fast) aufgegeben

**Schnitzel**

Zitat von Raupi

Edit: Ausserdem schein es wieder mal um einen Bot zu gehen. Siehe [ offen ] Anfänger frage zu meinem Projekt :).

Also außer dass es sich um wow handelt sehe ich da keinen grund warum das n bot sein sollte.
Könnte genausogut was sein um das styling von wow etwas zu ändern ( auf legale weise mein ich natürlich )
hab sowas auch mal für CS: S gemacht, weil viele zocker einfach nicht wissen wie man ne einfach config erstellt oder wie man den Hintergrund vom CS: S menü ändert
ich seh da kein problem. korrigiert mich wenn ich falsch liege

xamxxl:
bitte bitte
du könntest den thread noch auf gelöst setzten indem du den ersten post bearbeitest, gelöst auswählst und auf senden drückst

**Schnitzel**

ich habs dir mal gebastelt:

Spoiler anzeigen

[autoit]

#include <File.au3>
$quellpfad = FileSelectFolder("Quellpfad Wählen", "")
$zielpfad = FileSelectFolder("Zielpfad Wählen", "") & "\"
$arr = _FL2Arr($quellpfad, "*.jpg")
For $i = 0 To UBound($arr) - 1
FileCopy($arr[$i], $zielpfad)
Next
Msgbox(0,"","Fertig")

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

Func _FL2Arr($sStDir, $sPat = '*', $iFlag = 0)
Local $cSQueue = ObjCreate("System.Collections.Queue")
If @error Then Return SetError(1, 1, -1)
Local $cRetQu = ObjCreate("System.Collections.Queue")
If @error Then Return SetError(1, 2, -1)
Local $FFFF, $FFNF, $sDir

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

$sPat = StringReplace($sPat, "\", "\\")
$sPat = StringReplace($sPat, ".", "\.")
$sPat = StringReplace($sPat, "*", ".*")
$sPat = '^' & $sPat & '$'

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

If StringRight($sStDir, 1) = '\' Then $sStDir = StringTrimRight($sStDir, 1)
If Not FileExists($sStDir) Then Return SetError(2, 0, "")
If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 0, "")

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

$cSQueue.Enqueue($sStDir)

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

While $cSQueue.Count > 0
$sDir = $cSQueue.Dequeue
$FFFF = FileFindFirstFile($sDir & '\*')
If $FFFF <> -1 Then
Do
$FFNF = FileFindNextFile($FFFF)
If @error Then ExitLoop
If @extended Then
$cSQueue.Enqueue($sDir & '\' & $FFNF)
If $iFlag <> 1 And StringRegExp($FFNF, $sPat) Then $cRetQu.Enqueue($sDir & '\' & $FFNF)
Else
If $iFlag < 2 And StringRegExp($FFNF, $sPat) Then $cRetQu.Enqueue($sDir & '\' & $FFNF)
EndIf
Until 0
EndIf
WEnd

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

If $cRetQu.Count > 0 Then
Return $cRetQu.ToArray
Else
Local $Ret[1] = [0]
Return $Ret
EndIf
EndFunc ;==>_FL2Arr

[/autoit]

**Schnitzel**

jup du hast da noch paar fehler drin

probiers mal so:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

#region ### START Koda GUI section ### Form=c:\users\max\desktop\test.kxf
$Form1_1 = GUICreate("Form1", 633, 454, 193, 115)
$Group1 = GUICtrlCreateGroup("Makro-Master", 32, 96, 561, 257)
$Den_Path_zu_deinem_WoW_Char = GUICtrlCreateLabel("Den_Path_zu_deinem_WoW_Char", 104, 128, 171, 17)
$Input1 = GUICtrlCreateInput("Der Pfad ", 360, 128, 225, 21)
$Er_ist_in_Wow_Wtf_Account_DEINACCOUNT_DEINSERVER_DEINCHAR = GUICtrlCreateLabel("Er_ist_in_Wow_Wtf_Account_DEINACCOUNT_DEINSERVER_DEINCHAR", 40, 168, 366, 17)
$Jaeger = GUICtrlCreateRadio("Jaeger", 56, 208, 65, 33)
$Krieger = GUICtrlCreateRadio("Krieger", 152, 208, 65, 33)
$Schami = GUICtrlCreateRadio("Schami", 240, 208, 65, 33)
$Schurke = GUICtrlCreateRadio("Schurke", 328, 208, 65, 33)
$Magier = GUICtrlCreateRadio("Magier", 416, 208, 65, 33)
$Dudu = GUICtrlCreateRadio("Dudu", 56, 248, 65, 25)
$Kriegerr = GUICtrlCreateRadio("Kriegerr", 152, 248, 81, 33)
$Paladin = GUICtrlCreateRadio("Paladin", 240, 248, 73, 33)
$Todesritter = GUICtrlCreateRadio("Todesritter", 328, 248, 73, 33)
$Hexenmeister = GUICtrlCreateRadio("Hexenmeister", 416, 248, 89, 33)
$Bild_anzeigen = GUICtrlCreateButton("Bild_anzeigen", 88, 296, 185, 41, 0)
$Start = GUICtrlCreateButton("Start", 328, 296, 209, 41, 0)
$Pfad = GUICtrlCreateButton("Pfad Wählen", 360, 100)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start ; Beim klick auf den Start Button
If BitAND(GUICtrlRead($Dudu), $GUI_CHECKED) = $GUI_CHECKED Then ; Falls angeklickt
$sZielPfad = GUICtrlRead($Input1) ; Pfad auslesen
$copy = FileCopy("C:\Users\Max\Desktop\Mein Starter\macros-cache.txt", $sZielPfad, 1)
msgbox(0,@error, $copy)
EndIf
Case $Pfad
GUICtrlSetData($Input1, FileSelectFolder("Wähle den Ordner aus", "")& "\")
EndSwitch
WEnd

[/autoit]

**Schnitzel**

Zitat von Reaker

oke danke schnitzel

also ich schau mir jetz mal das video an:
http://www.youtube.com/watch?v=iwwnlQCBT…player_embedded

und les mir das komplette hier durch:
[Link gelöscht]

war ja auch so schwer das bei google einzutippen

Edit Oscar: Bitte keine Links zu Botforen!

**Schnitzel**

Zitat von xamxxl

sehe ich dann das verzeichnis das ich angeklickt hab ?

wenn dus richtig machst schon:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

#region ### START Koda GUI section ### Form=c:\users\max\desktop\test.kxf
$Form1_1 = GUICreate("Form1", 633, 454, 193, 115)
$Group1 = GUICtrlCreateGroup("Makro-Master", 32, 96, 561, 257)
$Den_Path_zu_deinem_WoW_Char = GUICtrlCreateLabel("Den_Path_zu_deinem_WoW_Char", 104, 128, 171, 17)
$Input1 = GUICtrlCreateInput("Der Pfad ", 360, 128, 225, 21)
$Er_ist_in_Wow_Wtf_Account_DEINACCOUNT_DEINSERVER_DEINCHAR = GUICtrlCreateLabel("Er_ist_in_Wow_Wtf_Account_DEINACCOUNT_DEINSERVER_DEINCHAR", 40, 168, 366, 17)
$Jaeger = GUICtrlCreateRadio("Jaeger", 56, 208, 65, 33)
$Krieger = GUICtrlCreateRadio("Krieger", 152, 208, 65, 33)
$Schami = GUICtrlCreateRadio("Schami", 240, 208, 65, 33)
$Schurke = GUICtrlCreateRadio("Schurke", 328, 208, 65, 33)
$Magier = GUICtrlCreateRadio("Magier", 416, 208, 65, 33)
$Dudu = GUICtrlCreateRadio("Dudu", 56, 248, 65, 25)
$Kriegerr = GUICtrlCreateRadio("Kriegerr", 152, 248, 81, 33)
$Paladin = GUICtrlCreateRadio("Paladin", 240, 248, 73, 33)
$Todesritter = GUICtrlCreateRadio("Todesritter", 328, 248, 73, 33)
$Hexenmeister = GUICtrlCreateRadio("Hexenmeister", 416, 248, 89, 33)
$Bild_anzeigen = GUICtrlCreateButton("Bild_anzeigen", 88, 296, 185, 41, 0)
$Start = GUICtrlCreateButton("Start", 328, 296, 209, 41, 0)
$Pfad = GUICtrlCreateButton("Pfad Wählen", 360, 100)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start ; Beim klick auf den Start Button
If BitAND(GUICtrlGetState($Dudu), $GUI_CHECKED) Then ; Falls angeklickt
$sZielPfad = GUICtrlRead($Input1) ; Pfad auslesen
FileCopy("C:\Users\Max\Desktop\Mein Starter\macros-cache.txt", $Input1, 1)
EndIf
Case $Pfad
GUICtrlSetData($Input1, FileSelectFolder("Wähle den Ordner aus", ""))
EndSwitch
WEnd

[/autoit]

**Schnitzel**

das glaub ich jetz nich

seht ihr das 3te ergebnis etwa nicht?

nochmal für euch:
http://lmgtfy.com/?q=winhttp+udf+tut

**Schnitzel**

Zitat von Darter

und noch was anderes, wenn ihr viel bilder in einem Programm benutzt ist es da sinnvoll, diese Bilder in einem Sripkt als Binäri zu speichern und pracktisch das Das Bild direkt aus dem Skript laden

das geht soweit ich weiß nur über umwege

https://autoit.de/index.php?page…ighlight=BugFix

**Schnitzel**

Zitat von gmmg

scheinbar schreiben wir alle zur fast gleichen zeit

aber eben nur fast

**Schnitzel**

http://lmgtfy.com/?q=winhttp+udf

**Schnitzel**

Zitat von Darter

Edit: ach und mit fileinstall kann ich diese gazen dateien aus der intall exe wieder raushlen oder?

genau das.

du lädst die ganzen dateien quasi in eine exe

**Schnitzel**

und?
ist das problem gelöst?

**Schnitzel**

Du hast dein programm in form einer exe und die dateien die du brauchst (dll's, bilder, ...)

alle diese dateien packst du mithilfe von fileinstall in eine instalationsexe. mit der du dann gleichzeitig auch noch die registryeinträge, verzeichnisse und verknüpfungen erstellst die du brauchst

Beiträge von Schnitzel

Warum nicht 2 Sachen gleichzeitig ausbauen ?!?

Hilfe bei Combobox und unendlich Werte in .ini

Warum nicht 2 Sachen gleichzeitig ausbauen ?!?

Hilfe bei Combobox und unendlich Werte in .ini

Swtich problem

Hi Leute!!!Es geht darum ob mir jemand helfen könnte bitte einen Script von meinen Bruder fertig zu stellen!!!

Dateien ohne Ordnerstruktur kopieren

Suche Tutorial für WinHttp UDF

Datein in ein Verzeichnis kopieren mit Autoit klappt nicht

Dateien ohne Ordnerstruktur kopieren

Datein in ein Verzeichnis kopieren mit Autoit klappt nicht

Suche Tutorial für WinHttp UDF

Datein in ein Verzeichnis kopieren mit Autoit klappt nicht

Suche Tutorial für WinHttp UDF

Installations exe erstellen

Installations exe erstellen

Suche Tutorial für WinHttp UDF

Installations exe erstellen

Datein in ein Verzeichnis kopieren mit Autoit klappt nicht

Installations exe erstellen