Beiträge von Eistee

Eistee

lol... wo isn jetzt schon wieder das problem ? der mekkert jetzt wegerm button rum...
heuel

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

Const $szIniName = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"
Const $szIniNam = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"
Const $szIniNa = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"
Const $szIniN = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"
Const $szIni = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"
Const $szIn = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\administrator\desktop\shoptool.kxf
$Shoptool = GUICreate("Shop Tool", 1141, 949, 78, 173)
GUISetBkColor(0x000000)
$Name = GUICtrlCreateLabel("KalOnline Shop NPC Tool", 0, -16, 1147, 136)
GUICtrlSetFont(-1, 71, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x808000)
GUICtrlSetBkColor(-1, 0x000000)
$Label1 = GUICtrlCreateLabel("Wie Soll Er Heissen ?", 8, 192, 145, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("Welche Items Soll er Verkaufen ?", 8, 216, 225, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Label3 = GUICtrlCreateLabel("Welche Nummer Hatt Er dann ?", 8, 264, 211, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Label5 = GUICtrlCreateLabel("Wo Soll Der Shop Denn Seien ?", 8, 240, 209, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Input1 = GUICtrlCreateInput(IniRead($szIniName, "config", "defaul", "Gib Einen Namen Für den NPC an"), 368, 192, 385, 21)
$Input2 = GUICtrlCreateInput(IniRead($szIniNam, "config", "defau", "Gib hier ein Welche Items ER verticken soll Getrennt durch ein leerzeichen"), 368, 216, 385, 21)
$Input3 = GUICtrlCreateInput(IniRead($szIniNa, "config", "defa", "Gebt Hier Die Coordinaten Ein Wo der Shop Sein Soll getrennt durch Leerzeichen"), 368, 240, 257, 21)
$Input4 = GUICtrlCreateInput(IniRead($szIniN, "config", "def", "Gebt Hier Eine Nummer Über 70 Ein keine Nummer darf Doppelt Sein"), 368, 264, 385, 21)
$Button1 = GUICtrlCreateButton("Start NPC Create"), 1032, 192, 99, 105, 0)
$Label6 = GUICtrlCreateLabel("WICHTIG : Benutzt Ab dem Moment Ab dem Ihr Auf Start Geklickt Habt Eure Maus Nicht Mehr!!!", 16, 328, 1101, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000)
$Label7 = GUICtrlCreateLabel("Auch Eure Tastatur Könnte fehler Verursachen!!! Also davon Auch finger Weg", 144, 360, 895, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000)
$Label9 = GUICtrlCreateLabel("WoW-Unit", 1072, 928, 54, 17)
GUICtrlSetFont(-1, 8, 400, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Label8 = GUICtrlCreateLabel("Copyright By ", 1008, 928, 66, 17)
GUICtrlSetFont(-1, 8, 400, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\notice2.bmp", 256, 184, 100, 124, BitOR($SS_NOTIFY, $WS_GROUP))
$Pic2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\notice2.bmp", 760, 184, 100, 124, BitOR($SS_NOTIFY, $WS_GROUP))
$Label4 = GUICtrlCreateLabel("Der WIe Vielte NPC ist Das ?", 8, 288, 203, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Input5 = GUICtrlCreateInput(IniRead($szIni, "config", "de", "Schreibt Hier Eine Zahl Über 4000 Rein Bedenkt Keine Zahl Darf Doppelt Sein"), 368, 288, 385, 21)
$Label10 = GUICtrlCreateLabel(" dir :", 624, 240, 30, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Input6 = GUICtrlCreateInput(IniRead($szIn, "config", "d", "Gebt die Dir Daten"), 656, 240, 97, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_blubb()
EndSwitch
WEnd

Func _blubb()
Run("notepad.exe", '', @SW_MAXIMIZE)
Sleep(900)
Send("Hallo Leute Ich Wünsche Euch Viel Spass Mit Diesem Tool Das Ich Selber Geschrieben Habe Um Euch Die Arbeit An{enter}")
Send("KalOnline Servern{enter}Einfacher Zu Machen Viel Spass MFG WoW-Unit {enter} {enter} {enter} {enter}")
Sleep(50)
Send("{Enter}")
Send("{Enter}")
Send("Schreibt das Hier In die Macro.dat in eurer Config.pk {enter} {enter} {enter} {enter}")
Send("( store ( key " & GUICtrlRead($Input4) & ") ( index " & GUICtrlRead($Input2) & ")) {enter}")
Send("_______________________________________________________________________{Enter}")
Send("Schreibt Das Hier In eure InitNPC In eurer Server Config {enter} {enter} {enter} {enter}")
Send("(gennpc (index " & GUICtrlRead($Input5) & " ) (country 2) (kind 0) (shape 3) (html " & GUICtrlRead($Input5) & ") (map 0) {enter}(xy " & GUICtrlRead($Input3) & ") (dir " & GUICtrlRead($Input6) & ")){enter}")
Send("_______________________________________________________________________{Enter}")
Send("Schreibt das Hier in die Message-e.dat in euren config.pk {enter} {enter} {enter} {enter}")
Send('(npcname ' & GUICtrlRead($Input5) & ' ' & '"' & GUICtrlRead($Input1) & '"' & '){Enter}')
Send("_______________________________________________________________________{Enter}")
Send("{Enter}")
Send("Schreibt das Hier in Eine Neue Txt datei Nennt Diese s00" & GUICtrlRead($Input5) & " Und Zieht sie Anschliesend auf Convert{Enter}{Enter}{Enter}{Enter}")
Send("(filechk file_ver (country_type ENG) (filename s00" & GUICtrlRead($Input5) & ")){Enter}")
Send("(background{Enter}")
Send("(font 12){Enter}")
Send("(wrap 270){Enter}")
Send('(link system ( param ( width 270) ( height 255) ( style title edge system vscroll) ( caption "Caption") ( layout script) )){Enter}')
Send("){Enter}")
Send("( frame ( font 12){Enter}")
Send('( line "Willkommen In Diesem Laden"){Enter}')
Send('( link ( text "[Enter Store] Ja Ich Will Einkaufen") ( param load "store" " & GUICtrlRead($Input4) & ")){Enter}')
Send('( link close ( text "[End Talking] Cu ")){Enter}')
Send("){Enter}")
Send("_______________________________________________________________________{Enter}{Enter}{Enter}{Enter}")
Send(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< {Enter}")
Send(" >ww ww ooooooo WW WW UU UU NNN NN IIII TTTTTTTT< {Enter}")
Send(" >ww ww ooooooo WW WW UU UU NN N NN II TT < {Enter}")
Send(" >ww wW oo oo WW WW /--------\ UU UU NN N NN II TT < {Enter}")
Send(" >ww ww ww oo oo WW WW WW \--------/ UU UU NN N NN II TT < {Enter}")
Send(" >ww ww ww ww ooooooo WW WW WW WW UU UU NN NNN II TT < {Enter}")
Send(" >wwwww wwwww ooooooo WWWWW WWWWW UUUUUUUUUU NN NN IIII TT < {Enter}")
Send(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< {Enter}")

ShellExecute(GUICtrlRead($i1))
IniWrite($szIniName,"config","default",GUICtrlRead($Input1))
IniWrite($szIniNam,"config","defaul",GUICtrlRead($Input2))
IniWrite($szIniNa,"config","defau",GUICtrlRead($Input3))
IniWrite($szIniN,"config","defa",GUICtrlRead($Input4))
IniWrite($szIni,"config","de",GUICtrlRead($Input5))
IniWrite($szIn,"config","d",GUICtrlRead($Input6))
EndFunc

[/autoit]

Weis einer weiter ? ich habe bur Ini datei Eingefügt aber er mekkert beim button was sollen des ?
hoffe ihr wisst weiter^^

Eistee

Nice Thx Für die Ganzen Antworten Nur noch ne litle Bit frage wie starte ich das notepad maximiert ?

Eistee

kk das mache ich morgen mal habe jetzt eon anderes prob o_O

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\administrator\desktop\shoptool.kxf
$Shoptool = GUICreate("Shop Tool", 1141, 949, 78, 173)
GUISetBkColor(0x000000)
$Name = GUICtrlCreateLabel("KalOnline Shop NPC Tool", 0, -16, 1147, 136)
GUICtrlSetFont(-1, 71, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x808000)
GUICtrlSetBkColor(-1, 0x000000)
$Label1 = GUICtrlCreateLabel("Wie Soll Er Heissen ?", 8, 192, 145, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("Welche Items Soll er Verkaufen ?", 8, 216, 225, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Label3 = GUICtrlCreateLabel("Welche Nummer Hatt Er dann ?", 8, 264, 211, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Label5 = GUICtrlCreateLabel("Wo Soll Der Shop Denn Seien ?", 8, 240, 209, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Input1 = GUICtrlCreateInput("Gib Einen Namen Für den NPC an", 368, 192, 385, 21)
$Input2 = GUICtrlCreateInput("Gib hier ein Welche Items ER verticken soll Getrennt durch ein leerzeichen", 368, 216, 385, 21)
$Input3 = GUICtrlCreateInput("Gebt Hier Die Coordinaten Ein Wo der Shop Sein Soll getrennt durch Leerzeichen", 368, 240, 257, 21)
$Input4 = GUICtrlCreateInput("Gebt Hier Eine Nummer Über 70 Ein keine Nummer darf Doppelt Sein", 368, 264, 385, 21)
$Button1 = GUICtrlCreateButton("Start NPC Create", 1032, 192, 99, 105, 0)
$Label6 = GUICtrlCreateLabel("WICHTIG : Benutzt Ab dem Moment Ab dem Ihr Auf Start Geklickt Habt Eure Maus Nicht Mehr!!!", 16, 328, 1101, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000)
$Label7 = GUICtrlCreateLabel("Auch Eure Tastatur Könnte fehler Verursachen!!! Also davon Auch finger Weg", 144, 360, 895, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000)
$Label9 = GUICtrlCreateLabel("WoW-Unit", 1072, 928, 54, 17)
GUICtrlSetFont(-1, 8, 400, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Label8 = GUICtrlCreateLabel("Copyright By ", 1008, 928, 66, 17)
GUICtrlSetFont(-1, 8, 400, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\notice2.bmp", 256, 184, 100, 124, BitOR($SS_NOTIFY,$WS_GROUP))
$Pic2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\notice2.bmp", 760, 184, 100, 124, BitOR($SS_NOTIFY,$WS_GROUP))
$Label4 = GUICtrlCreateLabel("Der WIe Vielte NPC ist Das ?", 8, 288, 203, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Input5 = GUICtrlCreateInput("Schreibt Hier Eine Zahl Über 4000 Rein Bedenkt Keine Zahl Darf Doppelt Sein", 368, 288, 385, 21)
$Label10 = GUICtrlCreateLabel(" dir :", 624, 240, 30, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
$Input6 = GUICtrlCreateInput("Gebt die Dir Daten", 656, 240, 97, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_blubb()
EndSwitch
WEnd

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

Func _blubb()
Run("notepad")
Sleep(900)
Send("Hallo Leute Ich Wünsche Euch Viel Spass Mit Diesem Tool Das Ich Selber Geschrieben Habe Um Euch Die Arbeit An{enter}")
Send("KalOnline Servern{enter}Einfacher Zu Machen Viel Spass MFG WoW-Unit {enter} {enter} {enter} {enter}")
Sleep(50)
Send("{Enter}")
Send("{Enter}")
Send("Schreibt das Hier In die Macro.dat in eurer Config.pk {enter} {enter} {enter} {enter}")
Send("( store ( key " & GUICtrlRead($Input4) &") ( index " & GUICtrlRead($Input2) &")) {enter}")
Send("_______________________________________________________________________{Enter}")
Send("Schreibt Das Hier In eure InitNPC In eurer Server Config {enter} {enter} {enter} {enter}")
Send("(gennpc (index " & GUICtrlRead($Input5) &" ) (country 2) (kind 0) (shape 3) (html 1000) (map 0) {enter}(xy " & GUICtrlRead($Input3) &") (dir " & GUICtrlRead($Input6) &")){enter}")
Send("_______________________________________________________________________{Enter}")
Send("Schreibt das Hier in die Message-e.dat in euren config.pk {enter} {enter} {enter} {enter}")
Send('(npcname ' & GUICtrlRead($Input5) &' ' & '"' & GUICtrlRead($Input1) & '"' &')')
Send("{Enter}")
Send("Schreibt das Hier in Eine Neue Txt datei Nennt Diese s00" & GUICtrlRead($Input5) &" Und Zieht sie Anschliesend auf Convert{Enter}{Enter}{Enter}{Enter}")
Send("(filechk file_ver (country_type ENG) (filename s00" & GUICtrlRead($Input5) &"))")
Send("(background")
Send("(font 12)")
Send("(wrap 270)")
Send("(link system ( param ( width 270) ( height 255) ( style title edge system vscroll) ( caption "Caption") ( layout script) ))")
Send(")")
Send("( frame ( font 12)")
Send("( line "Willkommen in Diesem Laden")")
Send("( link ( text "[Enter Store] Ja Ich Will Einkaufen") ( param load "store" " & GUICtrlRead($Input4) &"))")
Send("( link close ( text "[End Talking] Cu "))")
Send(")")
Send("_______________________________________________________________________{Enter}{Enter}{Enter}{Enter}")
Send(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< {Enter}")
Send(" >ww ww ooooooo WW WW UU UU NNN NN IIII TTTTTTTT< {Enter}")
Send(" >ww ww ooooooo WW WW UU UU NN N NN II TT < {Enter}")
Send(" >ww wW oo oo WW WW /--------\ UU UU NN N NN II TT < {Enter}")
Send(" >ww ww ww oo oo WW WW WW \--------/ UU UU NN N NN II TT < {Enter}")
Send(" >ww ww ww ww ooooooo WW WW WW WW UU UU NN NNN II TT < {Enter}")
Send(" >wwwww wwwww ooooooo WWWWW WWWWW UUUUUUUUUU NN NN IIII TT < {Enter}")
Send(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< {Enter}")
EndFunc

[/autoit]

und zwar kommt in meinem Script das wort capation vor und der script denkt ich meine ein komando
weil er was sagt von wege nicht gefütterter befehl^^
und da wird immer diese zeile angezeigt in der capation vorkommt^^
wie kann ich das ändern ?

@Snoopy thx Für den script aber wofür sind die x ?

Eistee

Jo meger das is mir schon klar also meine frage is nur wie ordne ich nem radio button ne zahl zu und wie füge ich die dan in nen script^^

Eistee

HalloLeute (hoffe dieser Thread Name Is Besser^^)
ICH HABE MIR GEDACHT WIR KÖNNNTEN
einen Thread Machen In dem Man ALLe fragen Zu GUIS stellen könnte^^
und ich habe auch schon die erste xD

wenn man jetzt bei ner Oberfläche radio Buttons einfügt(diese dinger wo man nen punkt setzen kann)
wie kann man das dan machen das ein jeweiliger punkt eine jeweilige zahl ausgibt also z.b.
der punkt ist bei dem Radiobutton style1
dann soll er im script die zahl 234 ausgeben (jetzt mal rein Theoretisch)

Sorry Jungs Habe grade nix besseres zu tun als mich ein bissel zu informieren da ich auf arbeit bin und hier kein Autoit haben darf...
ich hoffe ihr versteht was ich meine und könnt mir ne kurze antwort geben meine zukünftigen gui probs werde ich dann immer hier posten^^

MFG WoW-Unit

Eistee

danke an euch beide aber ich muss euch enttäuschen...
bei levis script bleibt alles beim alten nu das ein leerzeichen fehlt
und bei dem von bugfix werden fehler ausgegeben
von wegen statement doppelt odeer sowas.. naja danke

EDIT!!!: Nein Sorry Falsche info der von bugfix geht habe nur ne zeile mehr gelöscht gehabt sorry^^

Eistee

ok werde ich mir merken jetzt habe ich aber schon wieder ein noob problem...

Spoiler anzeigen

[autoit]

Send("(npcname " & GUICtrlRead($Input5) &" " & GUICtrlRead($Input1) &")")

[/autoit]

So geht der script Aber für mein Prog isses Zwingend Notwendig das ich den Hinteren Input nochmal in "" setze Aber so entstehen nur fehler
wie könnte ich das lösen ? weil das prob is halt das "" Progzeichen bei autoit sind bitte hilfe...

Also in etwa so...

Spoiler anzeigen

[autoit]

Send("(npcname " & GUICtrlRead($Input5) &" "" & GUICtrlRead($Input1) &"")")

[/autoit]

aber auf diesem wege kommen nur fehler naja ich hoffe das geht^^

Eistee

Joa thy bugfix echt jetzt vielen dank^^

Eistee

Hallo Leute ich Habe zwar vorher meine Ganzen BEISPIEL SCRIPTE durchgelesen
aber habe so etwas nicht gefunden
ich hoffe ihr könnt mir helfen
wie kriege ich diesen code in den darunter ?

(GUICtrlRead($Input5))

Spoiler anzeigen

[autoit]

Send("(gennpc (index 1000 ) (country 2) (kind 0) (shape 3) (html 1000) (map 0) {enter}(xy 215368 296999 42352) (dir 215632 296621))")

[/autoit]

Das Was in den Input geschrieben Wird Soll an der Stelle von Der 1000 Stehen
ich weis ich bin zu blöd aber bitte nicht lachen ich versuche schon seit 3 Stunden Die Tausen Durch Den input zu ersetze bekomme es aber nicht hin...
ich zähle auf Euch MFG WoW-Unit

Eistee

ne Momentan Gibbet es Keine Fragen ... Die Gibt es Erst Wieder Wenn Ich nicht Weiter komme^^
Würde dafür dann aber einen Neuen Thread öffnen Du kannst Diesen Hier ALSO Closen Oder Löschen Thx WoW-Unit

Eistee

kk is gebongt ich dachte nur auffäligge überschriften sind besser naja jetzt weis ich es besser^^

Eistee

Naja Vielleicht bin ich dumm... aber um was geht es mit keiner was anfangen kann ? ich komm nit mit^^

Eistee

Hallo Leute eine Frage wo is hier bitte der Fehler ? ich habe die oberfäche mit koda gemacht aber da kommt immer eine fehlermeldung mit 0xFFFFFF
wo ist hier das problem ? das ist rein nur die oberfläche
aber es gibt schon fehler weis hier einer weiter ?

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Shop = GUICreate("Kal Shop Npc Tool ", 636, 271, 192, 118)
GUISetColor(0xFFFFFF)
GUISetBkColor(0xFFFFFF)
$L1 = GUICtrlCreateLabel("Welche Items Soll er verkaufen ? :", 8, 16, 167, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$L2 = GUICtrlCreateLabel("Wie Soll er Aussehen ? :", 8, 40, 165, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$L3 = GUICtrlCreateLabel("Wo Soll Er Stehen ? :", 8, 64, 160, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Input1 = GUICtrlCreateInput("Schreibt die IID´s Hier rein getrennt durch ein Leerzeichen", 184, 16, 433, 21)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input2 = GUICtrlCreateInput("Schreibt Hier rein Wie er Aussehen Soll", 184, 40, 433, 21)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input3 = GUICtrlCreateInput("Schreibt Hier Rein Wo er stehen Soll", 184, 64, 433, 21)
GUICtrlSetColor(-1, 0xFFFFFF)
$B1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\Notice1.bmp", 8, 88, 620, 180, BitOR($SS_NOTIFY,$WS_GROUP))
$Button1 = GUICtrlCreateButton("Start", 8, 104, 35, 145, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

Eistee

tjoa da kommt dann das problem mit meinen englisch kenntnissen in die quere deshalb konnte ich da nur raten...

Eistee

soweit ich weis macht man die include um die ftp.au3 direkt in den script einzu binden und es sind auch folgende befehöe dabei:

Spoiler anzeigen

_FTPOpen()
_FTPClose()
_FTPDelDir()
_FTPMakeDir()
_FTPRenameFile()
_FTPDelFile()
_FTPPutFile()
_FTPConnect()
_FTPOpen()

nur wie es geht habe ich noch nicht raus...

Eistee

danke bugfix aber wenn du an den thread homepage backup denkst..
wird dir sicher auffallen das dieser schon ca. 1 woche alt ist und seit diesem thread versuche ich es fast tag und nacht also kann ich mir nicht vorwwerfen lassen ich würde autoit in erin paar std´s lernen wollen...
nochdazu habe ich alle seiten die ich fand welche mit ftp zu tun haben durchgelesen...
und nix gefunden also i9ch selber weise alle schuld bzw. faulheit von mir...

Eistee

@Zen jo da demkste richtig weil ich will es ja lernen aber ich kan nicht mehr machen als mir alle 93 seiten dieses forums zu durchsuchen und um hilfe bitten oder die hilfe dateien lesen aber man bekommt keine gute antwort...
klar ich muss sagen das hier ist das schnellste und freundlichste forum das ich kennne aber lieber warte ich ne stunde maehr und verstehe dann wenigstens was in der antwor steht
aber naja is warscheinlich nur meine meinung...

EDIT : habe ich schon gelesen nur nicht verstanden ...

Eistee

hallo war das jetzt sarkastisch oder ernst gemeint ?

Eistee

sorry aber ich lasse es zu komplieziert danke trotzdem....

Eistee

ok danke für deine mühe aber ehrlich gesagt ich wies weder was ne schleife beim proggeb ist noch weis ich wie ich so etwas erzeuge und dein code is mia au zu hoch trotzdem danke ich versuchs einfach weiter vielleicht schaff ich es ja irgendwann so in 3-4 jahren...

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <IE.au3>
#include <ftp.au3>

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

AutoItSetOption("WinTitleMatchMode", 2)

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

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\administrator\desktop\backuptool.kxf
$BackUpTool = GUICreate("Back Up Tool", 481, 178, 253, 123)
GUISetBkColor(0xFFFFFF)
$l3 = GUICtrlCreateLabel("Benutzername :", 0, 80, 78, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$l2 = GUICtrlCreateLabel("Passwort :", 0, 48, 53, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$l1 = GUICtrlCreateLabel("Link :", 0, 16, 30, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$i1 = GUICtrlCreateInput("", 32, 8, 289, 21)
$i2 = GUICtrlCreateInput("", 56, 40, 265, 21)
$i3 = GUICtrlCreateInput("", 80, 72, 241, 21)
$l5 = GUICtrlCreateLabel("Back Up Download Pfad :", 0, 160, 128, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$i5 = GUICtrlCreateInput("", 136, 152, 185, 21)
$b1 = GUICtrlCreateButton("Start Back Up Tool", 344, 16, 115, 97, 0)
$l4 = GUICtrlCreateLabel("Backup Pflichtige Datei :", 0, 112, 121, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$i4 = GUICtrlCreateInput("", 128, 104, 193, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $b1
_blubb()
EndSwitch
WEnd

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

Func _blubb()
$server = GUICtrlRead($i3)
$username = GUICtrlRead($i2)
$pass = GUICtrlRead($i1)

$Open = _FTPOpen("MyFTP Control")
$Conn = _FTPConnect($Open, $server, $username, $pass)
$ftp = _FTPGetFolder($Conn, "Downloads" , "C:\Dokumente und Einstellungen\Administrator\Desktop\KalOnlineEng", 2, 0, 0, 0)
$Ftpc = _FTPClose($Open)
EndFunc

[/autoit]

naja so siehts bisher aus aber es spuckt nur nen fehler aus naj wie schon gesagt irgendwann^^

Beiträge von Eistee

Generelle Gui Fragen Die Man Braucht

Generelle Gui Fragen Die Man Braucht

Generelle Gui Fragen Die Man Braucht

Generelle Gui Fragen Die Man Braucht

Generelle Gui Fragen Die Man Braucht

NoobFrage ich bin zu dumm

NoobFrage ich bin zu dumm

NoobFrage ich bin zu dumm

NoobFrage ich bin zu dumm

???

???

???

???

Denkfejler ?

Denkfejler ?

Denkfejler ?

Denkfejler ?

Denkfejler ?

Denkfejler ?

Denkfejler ?