editfeld nicht mittextdatei füttern?

[autoit][/autoit] [autoit][/autoit] [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", 1153, 700, 61, 74)
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", 1048, 192, 99, 105, 0)
$Label6 = GUICtrlCreateLabel("WICHTIG : Benutzt Ab dem Moment Ab dem Ihr Auf Start Geklickt Habt Eure Maus Nicht Mehr!!!", 0, 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", 128, 360, 895, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000)
$Label9 = GUICtrlCreateLabel("WoW-Unit", 1088, 680, 54, 17)
GUICtrlSetFont(-1, 8, 400, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Label8 = GUICtrlCreateLabel("Copyright By ", 1024, 680, 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)
$feld1 = GUICtrlCreateEdit(FileRead("notice.txt"), 8, 392, 1137, 281)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

Func _blubb()
Run("notepad.exe", '', @SW_MAXIMIZE)
Sleep(900)
Send(" Hallo Leute Herzlich wilkommen Beim Shop Tool{Enter}{Enter}{Enter}")
Send(" Ich Möchte Euch Bitten Während Der Nächsten Sekunden Weder Maus Noch Tatatur Zu Verwenden Erst wenn Mein Name Lesbar Ist Könnt ihr das tun 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 Ganz Unten Nach Store {Enter}{Enter}{Enter}{Enter}")
Send("( store ( key " & GUICtrlRead($Input4) & ") ( index " & GUICtrlRead($Input2) & ")) {enter}")
Send("__________________________________________________________________________{Enter}")
Send("Schreibt Das Hier Ganz Unten In eure InitNPC In eurer Server Config {Enter}{Enter}{Enter}{Enter}")
Send("(gennpc (index " & GUICtrlRead($Input5) & " ) (country 0) (kind 0) (shape 3) (html " & GUICtrlRead($Input5) & " ) (map 0) (xy " & GUICtrlRead($Input3) & ") (dir " & GUICtrlRead($Input6) & ")){Enter}")
Send("__________________________________________________________________________{Enter}")
Send("Schreibt das Hier Unter Die NPC Namen in die Message-e.dat in eurer config.pk {Enter}{Enter}{Enter}{Enter}")
Send('(npcname ' & GUICtrlRead($Input5) & ' ' & '"' & GUICtrlRead($Input1) & '"' & '){Enter}')
Send("__________________________________________________________________________{Enter}")
Send("Schreibt das Hier in Eine Neue Textdatei Und Nennt Diese s00" & GUICtrlRead($Input5) & " ,Jetzt Zieht die Textdatei auf die Konvert Verknüpfung, Jetzt habt ihr eine .dat{Enter}")
Send("Diese Tut Ihr Dann In eure e.pk{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}{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(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<{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}")
Send(" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<{Enter}")
Send(" Jetzt Könnt Ihr Maus Und Tastatur Wieder Verwenden Und die Jeweiligen Sachen Richtig Einfügen")
IniWrite($szIniName,"config","defaul",GUICtrlRead($Input1))
IniWrite($szIniNam,"config","defau",GUICtrlRead($Input2))
IniWrite($szIniNa,"config","defa",GUICtrlRead($Input3))
IniWrite($szIniN,"config","def",GUICtrlRead($Input4))
IniWrite($szIni,"config","de",GUICtrlRead($Input5))
IniWrite($szIn,"config","d",GUICtrlRead($Input6))
EndFunc

[/autoit]