Du solltest dir die Forenregeln durchlesen,
mfg (Auto)Bert
Du solltest nich alles für einen bot halten
Du solltest dir die Forenregeln durchlesen,
mfg (Auto)Bert
Du solltest nich alles für einen bot halten
dann mach am besten ne gui, und evtl n paar bilder dazu wie du dir das vorstellst
ich kapier nicht ganz was du von uns willst
man weiß leider nicht genau wie du das haben willst.
am besten dein vorhandenes script posten
vermutlich so:
#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
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")
EndSwitch
[/autoit] [autoit][/autoit] [autoit]EndSwitch
WEnd
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]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
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
ich habs dir mal gebastelt:
#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")
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
$sPat = StringReplace($sPat, "\", "\\")
$sPat = StringReplace($sPat, ".", "\.")
$sPat = StringReplace($sPat, "*", ".*")
$sPat = '^' & $sPat & '$'
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, "")
$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
If $cRetQu.Count > 0 Then
Return $cRetQu.ToArray
Else
Local $Ret[1] = [0]
Return $Ret
EndIf
EndFunc ;==>_FL2Arr
jup du hast da noch paar fehler drin
probiers mal so:
#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 ###
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
oke danke schnitzel
also ich schau mir jetz mal das video an:
http://www.youtube.com/watch?v=iwwnlQCBT…player_embeddedund 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!
sehe ich dann das verzeichnis das ich angeklickt hab ?
wenn dus richtig machst schon:
#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 ###
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
das glaub ich jetz nich
seht ihr das 3te ergebnis etwa nicht?
nochmal für euch:
http://lmgtfy.com/?q=winhttp+udf+tut
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
scheinbar schreiben wir alle zur fast gleichen zeit
aber eben nur fast
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
und?
ist das problem gelöst?
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