waltv7

opps I did misread that file my appologies

It get alittle more now but it's missing about 2/3 of the file full file example http://api.eve-online.com/eve/SkillTree.xml.aspx

ok I am haveing troubles getting all the data off the server. the code is messy from me experamenting trying to get things to work. #include "WinHTTP.au3" #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form4 = GUICreate("Form1", 405, 482, 302, 218) $Edit1 = GUICtrlCreateEdit("", 8, 8, 385, 465) GUICtrlSetData(-1, "Edit1") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $apikey = "wD8TLIF9ATuNxxm6iD67QpM8JbmVRnkDgVKxjKzo6I7O1AM3JseNkesCAyrbKNN6" $userid = "3084871" $charid = "1753893327" $address = "api.eve-online.com" While 1 $nMsg = GUIGetMsg() Dim $output $hw_open = _WinHttpOpen() $hw_connect = _WinHttpConnect($hw_open, $address) $h_openRequest = _WinHttpOpenRequest($hw_connect, "POST ", "/eve/SkillTree.xml.aspx?"&"apiKey="&$apikey&"&userID="&$userid&"&characterID="&$charid) _WinHttpSendRequest($h_openRequest) _WinHttpReceiveResponse($h_openRequest) If _WinHttpQueryDataAvailable($h_openRequest) Then $header = _WinHttpQueryHeaders($h_openRequest) $header = _WinHttpReadData($h_openRequest,1000000) FileWrite("Skills.xml", @CRLF&$header) GUICtrlSetData($Edit1, $header) EndIf _WinHttpCloseHandle($h_openRequest) _WinHttpCloseHandle($hw_connect) _WinHttpCloseHandle($hw_open) Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd this is supposed to download an XML documents contents off the API server for EVE-online. I am only recieveing mayby a 1/20th of the file can someone help me to be able to get the whole file?

I modified this script a bit and added my own API key and I can only get http error 400 return

Mine is a huge work in progress that is still at the very beginning. Once I have most of it done up to some propriatary stuff for my server I plan on posting opensource code for people to run their own mud server off of.

Just tested this and I didn't get the message from welcome.txt on the client.

It appears the site that is sending your script the packets is useing SSL encryption. without knowing keycode to unencrypt this it will be almost impossable to do.

Please post your source code.

How do I detect a computer connecting to my server(code below) and then TCPSend the contents of welcome.txt file to the person that connected. The person connecting will be useing a standard tellnet or MUD client to connect to the server. Global $Recvm Global $CurrentSocket = 0 Global $ListenSocket ;#include <GUIConstantsEx.au3> ; Create a GUI for messages ;============================================== ;$GOOEY = GUICreate("My Server (IP: " & $szIPADDRESS & ")", 300, 200) ;$edit = GUICtrlCreateEdit("", 10, 10, 280, 180) $TCP = TCPStartup() If $TCP = 0 Then MsgBox(0, "Error", "Unable to startup TCP Services!") Exit EndIf $ListenSocket = TCPListen(@IPAddress1,1777,16) If $ListenSocket = -1 Then MsgBox(0, "ERROR", "Unable to start listening on port 1777") Exit EndIf While 1 $ConnectedSocket[$CurrentSocket] = TCPAccept($ListenSocket) If $ConnectedSocket[$CurrentSocket] <> -1 Then $CurrentSocket = $CurrentSocket + 1 EndIf For $INDEX = 0 To 15 If $ConnectedSocket[$INDEX] <> -1 Or $ConnectedSocket[$INDEX] <> "" Then $Recv = TCPRecv($ConnectedSocket[$INDEX],1024) If $Recv <> "" Then MsgBox(0,"CON#" & $INDEX,$Recv) EndIf EndIf Next Sleep(20) WEnd

I am working on a server for a MUD that has to send to multiple computers at the same time I have found for a chat program makeing a while loop the doesn't end untill it reaches a certain # my first problem with this was it then shut down the server after that I nested it in another loop and then made the variable equal back to 0 it wored great for sending out messages like chat input to multiple computers instantly. If you have questions about my codeing on this send me a private message.

Well you said exactly what I want all the text in each input displayed in $EditField

Ok here is my messy code forgive me I am new and I had to borrow some code to. But most was writen by me. I am wanting this to send all the info in the input fields to the edit box after I have opened a file into the edit box. ;Mud Wold editing program round 2 #include <GUIConstants.au3> #include <Misc.au3> #include <String.au3> #include <EditConstants.au3> #include <WindowsConstants.au3> #include <File.au3> ;$openfile = "" ;#include <GUIConstants.au3> ;Global $textout, $file ;$file = FileOpen("C:\15.wld", 0) ;$textread = FileRead($file) #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("MUD World Room Creator", 1070, 449, 5, 123) $roomnum = GUICtrlCreateInput("", 24, 32, 57, 21) $roomname = GUICtrlCreateInput("", 104, 32, 225, 21) $roomdesc = GUICtrlCreateEdit("", 24, 72, 305, 105) $Label1 = GUICtrlCreateLabel("Room Number", 24, 8, 72, 17) $Label2 = GUICtrlCreateLabel("Room Name", 104, 8, 63, 17) $Label3 = GUICtrlCreateLabel("Room Description", 24, 56, 88, 17) $Label4 = GUICtrlCreateLabel("Zone Number", 24, 184, 69, 17) $zonenum = GUICtrlCreateInput("", 24, 208, 65, 21) $bitvector = GUICtrlCreateCombo("", 104, 208, 97, 25) GUICtrlSetData(-1, "a DARK|b DEATH|c NO MOB|d INDOORS|e PEACEFUL|f SOUNDPROOF|g NOTRACK|h NOMAGIC|i TUNNEL|j PRIVATE|k GODROOM", "d INDOORS") $Label5 = GUICtrlCreateLabel("Bit Vector", 104, 184, 50, 17) $morevec = GUICtrlCreateInput("", 208, 208, 89, 21) $Label17 = GUICtrlCreateLabel("Aditional Bit Vector", 208, 184, 93, 17) $roomter = GUICtrlCreateCombo(" ", 304, 208, 89, 25) GUICtrlSetData(-1, "0 INSIDE|1 CITY|2 FIELD|3 FOREST|4 HILLS|5 MOUNTAIN|6 WATER_SWIM|7 WATER_NOSWIM|8 FLYING|9 UNDERWATER", "0 INSIDE") $Label6 = GUICtrlCreateLabel("Room Terrain", 304, 184, 68, 17) $northc = GUICtrlCreateCheckbox("Checkbox1", 24, 256, 17, 17) $eastc = GUICtrlCreateCheckbox("Checkbox2", 24, 288, 17, 17) $southc = GUICtrlCreateCheckbox("Checkbox3", 24, 320, 17, 17) $westc = GUICtrlCreateCheckbox("Checkbox4", 24, 352, 17, 17) $upc = GUICtrlCreateCheckbox("Checkbox5", 24, 384, 17, 17) $downc = GUICtrlCreateCheckbox("Checkbox6", 24, 416, 17, 17) $Label7 = GUICtrlCreateLabel("Exits", 24, 232, 26, 17) $Label8 = GUICtrlCreateLabel("North", 40, 256, 30, 17) $Label9 = GUICtrlCreateLabel("East", 40, 288, 25, 17) $Label10 = GUICtrlCreateLabel("South", 40, 320, 32, 17) $Label11 = GUICtrlCreateLabel("West", 40, 352, 29, 17) $Label12 = GUICtrlCreateLabel("Up", 40, 384, 18, 17) $Label13 = GUICtrlCreateLabel("Down", 40, 416, 32, 17) $doorn = GUICtrlCreateCombo("", 80, 248, 81, 25) GUICtrlSetData(-1, "0 No Door|1 Door|2 PP Door", "") $doore = GUICtrlCreateCombo("", 80, 280, 81, 25) GUICtrlSetData(-1, "0 No Door|1 Door|2 PP Door", "") $doors = GUICtrlCreateCombo("", 80, 312, 81, 25) GUICtrlSetData(-1, "0 No Door|1 Door|2 PP Door", "") $doorw = GUICtrlCreateCombo("", 80, 344, 81, 25) GUICtrlSetData(-1, "0 No Door|1 Door|2 PP Door", "") $dooru = GUICtrlCreateCombo("", 80, 376, 81, 25) GUICtrlSetData(-1, "0 No Door|1 Door|2 PP Door", "") $doord = GUICtrlCreateCombo("", 80, 408, 81, 25) GUICtrlSetData(-1, "0 No Door|1 Door|2 PP Door", "") $keynumn = GUICtrlCreateInput("", 176, 248, 73, 21) $keynume = GUICtrlCreateInput("", 176, 280, 73, 21) $keynums = GUICtrlCreateInput("", 176, 312, 73, 21) $keynumw = GUICtrlCreateInput("", 176, 344, 73, 21) $keynumu = GUICtrlCreateInput("", 176, 376, 73, 21) $keynumd = GUICtrlCreateInput("", 176, 408, 73, 21) $lookn = GUICtrlCreateInput("", 272, 248, 241, 21) $looke = GUICtrlCreateInput("", 272, 280, 241, 21) $looks = GUICtrlCreateInput("", 272, 312, 241, 21) $lookw = GUICtrlCreateInput("", 272, 344, 241, 21) $looku = GUICtrlCreateInput("", 272, 376, 241, 21) $lookd = GUICtrlCreateInput("", 272, 408, 241, 21) $makecode = GUICtrlCreateButton("Generate Code", 368, 24, 217, 33, 0) $exit = GUICtrlCreateButton("Exit", 368, 72, 217, 33, 0) $Label14 = GUICtrlCreateLabel("Door Options", 80, 232, 66, 17) $Label15 = GUICtrlCreateLabel("Door Key #", 176, 232, 58, 17) $Label16 = GUICtrlCreateLabel("Direction Look", 272, 232, 73, 17) $nout = GUICtrlCreateInput("", 528, 248, 89, 21) $eout = GUICtrlCreateInput("", 528, 280, 89, 21) $sout = GUICtrlCreateInput("", 528, 312, 89, 21) $wout = GUICtrlCreateInput("", 528, 344, 89, 21) $uout = GUICtrlCreateInput("", 528, 376, 89, 21) $dout = GUICtrlCreateInput("", 528, 408, 89, 21) $File = GUICtrlCreateMenu("File") $New = GUICtrlCreateMenuItem("New", $File) $Open = GUICtrlCreateMenuItem("Open...", $File) $Save = GUICtrlCreateMenuItem("Save", $File) $SaveAs = GUICtrlCreateMenuItem("Save As...", $File) GUICtrlCreateMenuItem("", $File) $Print = GUICtrlCreateMenuItem("Print...", $File) GUICtrlCreateMenuItem("", $File) $Exit = GUICtrlCreateMenuItem("Exit", $File) $Edit = GUICtrlCreateMenu("Edit") $Undo = GUICtrlCreateMenuItem("Undo", $Edit) GUICtrlCreateMenuItem("", $Edit) $Cut = GUICtrlCreateMenuItem("Cut", $Edit) $Copy = GUICtrlCreateMenuItem("Copy", $Edit) $Paste = GUICtrlCreateMenuItem("Paste", $Edit) $Delete = GUICtrlCreateMenuItem("Delete", $Edit) GUICtrlCreateMenuItem("", $Edit) $SelectAll = GUICtrlCreateMenuItem("Select All", $Edit) $Time = GUICtrlCreateMenuItem("Time/Date", $Edit) $Show = GUICtrlCreateMenu("Show") $Font = GUICtrlCreateMenuItem("Font...", $Show) $Help = GUICtrlCreateMenu("Help") $About = GUICtrlCreateMenuItem("About", $Help) $Extra = GUICtrlCreateMenu("Extra") $Count = GUICtrlCreateMenuItem("Count...", $Extra) $Reverse = GUICtrlCreateMenuItem("Reverse Text", $Extra) $Hex = GUICtrlCreateMenuItem("Hex Text", $Extra) $UnHex = GUICtrlCreateMenuItem("UnHex Text", $Extra) $Encrypt = GUICtrlCreateMenuItem("Encrypt Text...", $Extra) $EditField = GUICtrlCreateEdit("", 632, 24, 433, 409) Global $GUI, $fod_save ;GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ;GUICtrlSetData($textout, "") $exitcheck = 1 GUISetState() While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE _Exit() Case $nMsg = $New _New() Case $nMsg = $Open _Open() Case $nMsg = $Save _Save() Case $nMsg = $SaveAs _SaveAs() Case $nMsg = $Print _Print() Case $nMsg = $Exit _Exit() Case $nMsg = $Undo Sleep(100) Send("^z") Case $nMsg = $Cut Sleep(100) Send("^x") Case $nMsg = $Copy Sleep(100) Send("^c") Case $nmsg = $Paste Sleep(100) Send("^v") Case $nMsg = $Delete Sleep(100) Send("{DELETE}") Case $nMsg = $SelectAll Sleep(100) Send("{TAB}") Case $nMsg = $Time $TimeDate = @HOUR & ":" & @MIN & " " & @MDAY & "-" & @MON & "-" & @YEAR Sleep(100) Send($TimeDate) Case $nMsg = $Font $aFont = _ChooseFont("", "", "", "", "", "", "", $GUI) If $aFont <> -1 Then GUICtrlSetFont($EditField, $aFont[3], $aFont[4], $aFont[1], $aFont[2]) GUICtrlSetColor($EditField, $aFont[7]) EndIf Case $nMsg = $About MsgBox(64, "About", "Notepad Example made by" & @CRLF & "AlmarM") Case $nMsg = $Count _Count() Case $nMsg = $Reverse _Reverse() Case $nMsg = $Hex _Hex() Case $nMsg = $UnHex _UnHex() Case $nMsg = $Encrypt _Encrypt(GUICtrlRead($EditField)) EndSelect WEnd Func _New() If GUICtrlRead($EditField) <> "" Then $MsgBox = MsgBox(51, "", "Save text first?") If $MsgBox = 6 Then $read_text = GUICtrlRead($EditField) $fod_new_save = FileSaveDialog("Save...", @DesktopDir, "World Files (*.wld)", 18, "", $GUI) FileWrite($fod_new_save & ".wld", $read_text) GUICtrlSetData($EditField, "") ElseIf $MsgBox = 7 Then GUICtrlSetData($EditField, "") Else EndIf Else GUICtrlSetData($EditField, "") EndIf EndFunc Func _Open() If GUICtrlRead($EditField) <> "" Then $MsgBox = MsgBox(51, "", "Save text first?") If $MsgBox = 6 Then $read_text = GUICtrlRead($EditField) $fod_open_save = FileSaveDialog("Save...", @DesktopDir, "World Files (*.wld)", 18, "", $GUI) FileWrite($fod_open_save & ".wld", $read_text) $fod_open = FileOpenDialog("Open...", @DesktopDir, "World Files (*.wld)", 11, "", $GUI) $read = FileRead($fod_open) GUICtrlSetData($EditField, $read) ElseIf $MsgBox = 7 Then $fod_open = FileOpenDialog("Open...", @DesktopDir, "World Files (*.wld)", 11, "", $GUI) $read = FileRead($fod_open) $gettitle = WinGetTitle("[CLASS:AutoIt v3 GUI]") WinSetTitle($gettitle, "", $fod_open) GUICtrlSetData($EditField, $read) Else EndIf Else $fod_open = FileOpenDialog("Open...", @DesktopDir, "World Files (*.wld)", 11, "", $GUI) $read = FileRead($fod_open) $gettitle = WinGetTitle("[CLASS:AutoIt v3 GUI]") WinSetTitle($gettitle, "", $fod_open) GUICtrlSetData($EditField, $read) EndIf EndFunc Func _Save() If WinGetTitle("[CLASS:AutoIt v3 GUI]") <> "Notepad Example" Then $gettitle = WinGetTitle("[CLASS:AutoIt v3 GUI]") FileWrite($gettitle, GUICtrlRead($EditField)) Else $fod_save = FileSaveDialog("Save...", @DesktopDir, "World Files (*.wld)", 18, "", $GUI) If $fod_save <> "" Then $read = GUICtrlRead($EditField) FileWrite($fod_save & ".wld", $read) WinSetTitle(WinGetTitle("[CLASS:AutoIt v3 GUI]"), "", $fod_save) EndIf EndIf EndFunc Func _SaveAs() $fod_saveas = FileSaveDialog("Save As...", @DesktopDir, "World Files (*.wld)", 18, "", $GUI) If $fod_saveas <> "" Then $read = GUICtrlRead($EditField) FileWrite($fod_save & ".wld", $read) EndIf EndFunc Func _Print() $Read = GUICtrlRead($EditField) $Random = Random(000000, 999999, 1) $x = FileWrite(@TempDir & "\$~" & $Random & ".wld", $Read) $File = @TempDir & "\$~" & $Random & ".wld" _FilePrint($File) Sleep(1000) FileDelete($File) EndFunc Func _Count() $Words = StringSplit(GUICtrlRead($EditField), " ") $xWords = $Words[0] MsgBox(0, "", "Total: " & StringLen(GUICtrlRead($EditField)) & @CRLF & "Total Words: " & $xWords & @CRLF & "10 Most Left: " & StringLeft(GUICtrlRead($EditField), 10) & @CRLF & "10 Most Right: " & _ StringRight(GUICtrlRead($EditField), 10)) EndFunc Func _Reverse() $read = GUICtrlRead($EditField) $rev = _StringReverse($read) GUICtrlSetData($EditField, $rev) EndFunc Func _Hex() $Read = GUICtrlRead($EditField) $x = _StringToHex($Read) GUICtrlSetData($EditField, $x) EndFunc Func _UnHex() $Read = GUICtrlRead($EditField) $x = _HexToString($Read) GUICtrlSetData($EditField, $x) EndFunc Func _Encrypt($nText) $Main = GUICreate("Encrypt", 400, 400, -1, -1) $EditText = GUICtrlCreateEdit("", 5, 5, 390, 350) GUICtrlSetData($EditText, $nText) $InputPass = GUICtrlCreateInput("", 5, 360, 100, 20, BitOR($ES_PASSWORD, $ES_CENTER)) $InputLevel = GUICtrlCreateInput("1", 110, 360, 50, 20, $SM_REMOTECONTROL) $UpDown = GUICtrlCreateUpDown($InputLevel) GUICtrlSetLimit($UpDown, 10, 1) $EncryptButton = GUICtrlCreateButton("Encrypt", 170, 360, 105, 35) $DecryptButton = GUICtrlCreateButton("Decrypt", 285, 360, 105, 35) GUISetState() While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE GUIDelete($Main) ExitLoop Case $nMsg = $EncryptButton $Read_Text = GUICtrlRead($EditText) $Read_Level = GUICtrlRead($InputPass) $Read_Pass = GUICtrlRead($InputPass) GUICtrlSetData($EditText, "Encrypting...") $x = _StringEncrypt(1, $Read_Text, $Read_Pass, $Read_Level) GUICtrlSetData($EditText, $x) Case $nmsg = $DecryptButton $Read_Text = GUICtrlRead($EditText) $Read_Level = GUICtrlRead($InputPass) $Read_Pass = GUICtrlRead($InputPass) GUICtrlSetData($EditText, "Decrypting...") $x = _StringEncrypt(0, $Read_Text, $Read_Pass, $Read_Level) GUICtrlSetData($EditText, $x) EndSelect WEnd EndFunc Func _Exit() If GUICtrlRead($EditField) <> "" Then $MsgBox = MsgBox(51, "", "Save text first?") If $MsgBox = 6 Then $read_text = GUICtrlRead($EditField) $fod_new_save = FileSaveDialog("Save...", @DesktopDir, "Text Files (*.wld)", 18, "", $GUI) FileWrite($fod_new_save & ".wld", $read_text) GUICtrlSetData($EditField, "") ElseIf $MsgBox = 7 Then Exit Else EndIf Else Exit EndIf EndFunc While $exitcheck = 1 Select Case $nMsg = $GUI_EVENT_CLOSE ExitLoop Case $nMsg = $makecode If GUICtrlRead($bitvector) = "a DARK" Then $bitvec = "a" ElseIf GUICtrlRead($bitvector) = "b DEATH" Then $bitvec = "b" ElseIf GUICtrlRead($bitvector) = "c NO MOB" Then $bitvec = "c" ElseIf GUICtrlRead($bitvector) = "d INDOORS" Then $bitvec = "d" ElseIf GUICtrlRead($bitvector) = "e PEACFUL" Then $bitvec = "e" ElseIf GUICtrlRead($bitvector) = "f SOUNDPROOF" Then $bitvec = "f" ElseIf GUICtrlRead($bitvector) = "g NOTRACK" Then $bitvec = "g" ElseIf GUICtrlRead($bitvector) = "h NOMAGIC" Then $bitvec = "h" ElseIf GUICtrlRead($bitvector) = "i TUNNEL" Then $bitvec = "i" ElseIf GUICtrlRead($bitvector) = "j PRIVATE" Then $bitvec = "j" ElseIf GUICtrlRead($bitvector) = "k GODROOM" Then $bitvec = "k" EndIf If GUICtrlRead($roomter) = "0 INSIDE" Then $tertype = "0" ElseIf GUICtrlRead($roomter) = "1 CITY" Then $tertype = "1" ElseIf GUICtrlRead($roomter) = "2 FIELD" Then $tertype = "2" ElseIf GUICtrlRead($roomter) = "3 FOREST" Then $tertype = "3" ElseIf GUICtrlRead($roomter) = "4 HILLS" Then $tertype = "4" ElseIf GUICtrlRead($roomter) = "5 MOUNTAIN" Then $tertype = "5" ElseIf GUICtrlRead($roomter) = "6 WATER_SWIM" Then $tertype = "6" ElseIf GUICtrlRead($roomter) = "7 WATER_NOSWIM" Then $tertype = "7" ElseIf GUICtrlRead($roomter) = "8 FLYING" Then $tertype = "8" ElseIf GUICtrlRead($roomter) = "9 UNDERWATER" Then $tertype = "9" EndIf GUISetState($northc) If GUICtrlRead($northc) = "1" Then $dirn = "D0" If GUICtrlRead($doorn) = "0 No Door" Then $ndoor = "0" $nkey = "-1" ElseIf GUICtrlRead($doorn) = "1 Door" Then $ndoor = "1" $nkey = GUICtrlRead($keynumn) Else $ndoor = "2" $nkey = GUICtrlRead($keynumn) EndIf EndIf GUISetState($eastc) If GUICtrlRead($eastc) = "1" Then $dire = "D1" If GUICtrlRead($doore) = "0 No Door" Then $edoor = "0" $ekey = "-1" ElseIf GUICtrlRead($doore) = "1 Door" Then $edoor = "1" $ekey = GUICtrlRead($keynume) Else $edoor = "2" $ekey = GUICtrlRead($keynume) EndIf EndIf GUISetState($southc) If GUICtrlRead($southc) = "1" Then $dirs = "D2" If GUICtrlRead($doors) = "0 No Door" Then $sdoor = "0" $skey = "-1" ElseIf GUICtrlRead($doors) = "1 Door" Then $sdoor = "1" $skey = GUICtrlRead($keynums) Else $sdoor = "2" $skey = GUICtrlRead($keynums) EndIf EndIf GUISetState($westc) If GUICtrlRead($westc) = "1" Then $dirw = "D3" If GUICtrlRead($doorw) = "0 No Door" Then $wdoor = "0" $wkey = "-1" ElseIf GUICtrlRead($doorw) = "1 Door" Then $wdoor = "1" $wkey = GUICtrlRead($keynumw) Else $wdoor = "2" $wkey = GUICtrlRead($keynumw) EndIf EndIf GUISetState($upc) If GUICtrlRead($upc) = "1" Then $diru = "D4" If GUICtrlRead($dooru) = "0 No Door" Then $udoor = "0" $ukey = "-1" ElseIf GUICtrlRead($dooru) = "1 Door" Then $udoor = "1" $ukey = GUICtrlRead($keynumu) Else $udoor = "2" $ukey = GUICtrlRead($keynumu) EndIf EndIf GUISetState($downc) If GUICtrlRead($downc) = "1" Then $dird = "D5" If GUICtrlRead($doord) = "0 No Door" Then $ddoor = "0" $dkey = "-1" ElseIf GUICtrlRead($doord) = "1 Door" Then $ddoor = "1" $dkey = GUICtrlRead($keynumd) Else $ddoor = "2" $dkey = GUICtrlRead($keynumd) EndIf EndIf ; FileWrite($file, "S" & @CRLF) Case $nMsg = $exit ExitLoop EndSelect GUICtrlSetData($EditField, GUICtrlRead($roomnum) & @CRLF & GUICtrlRead($roomname) & @CRLF & GUICtrlRead($roomdesc) & @CRLF) GUICtrlSetData($EditField, "~" & @CRLF & GUICtrlRead($zonenum) & " " & $bitvec & GUICtrlRead($morevec) & " " & $tertype & @CRLF) GUICtrlSetData($EditField, $dirn & @CRLF & GUICtrlRead($lookn) & @CRLF & "~" & @CRLF & "~" & @CRLF) GUICtrlSetData($EditField, $ndoor & " " & $nkey & " " & GUICtrlRead($nout) & @CRLF & $dire & @CRLF & GUICtrlRead($looke) & @CRLF) GUICtrlSetData($EditField, "~" & @CRLF & "~" & @CRLF & $edoor & " " & $ekey & " " & GUICtrlRead($eout) & @CRLF & $dirs & @CRLF) GUICtrlSetData($EditField, GUICtrlRead($looks) & @CRLF & "~" & @CRLF & "~" & @CRLF & $sdoor & " " & $skey & " " & GUICtrlRead($sout) & @CRLF) GUICtrlSetData($EditField, $dirw & @CRLF & GUICtrlRead($lookw) & @CRLF & "~" & @CRLF & "~" & @CRLF) GUICtrlSetData($EditField, $wdoor & " " & $wkey & " " & GUICtrlRead($wout) & @CRLF & $diru & @CRLF & GUICtrlRead($looku) & @CRLF) GUICtrlSetData($EditField, "~" & @CRLF & "~" & @CRLF & $udoor & " " & $ukey & " " & GUICtrlRead($uout) & @CRLF & $dird & @CRLF) GUICtrlSetData($EditField, GUICtrlRead($lookd) & @CRLF & "~" & @CRLF & "~" & @CRLF & $ddoor & " " & $dkey & " " & GUICtrlRead($dout) & @CRLF) WEnd

Hello again. I need to make the curson in the editbox move to the end of the text is there a way to do this and if so how? Thanks in advance Walt

back to another question regarding this. I am now trying to get the file to display with menuitem and fileopen and I can't get it to display when I use the variable $file. I have tried everything in the help and i can only see the leters flash in the edit box before disapearing.

Thanksfor the fast reply it seams to only work if I input the path seems I can't preload the file and use the variable from FileOpen. thats why the help files confused me

Hi everyone can somene please point me in the right direction on getting contents of a text file dispayed for editing in an edit box please?

your sugestion on the OpenFile(), WriteFile() worked great. Thanks a bunch!!!!!! Walt

ok I'll check that out thanks

At each input window it needs to output to a textfile what the user inputs. This will be used to automate makeing MUD room files. First input will take a # the user inputs, second would be the room name and third would be a room description output in a text file should look like this. 1234 room name here usually a very long room description here ~ then more to continue after this output problem is solved.

Ok updated the codeing and I don't get any errors but I also don't get any output. ;Author Flix AKA Walt ; ;Script function is to automate the creation of world file for MUDS. ; ; Prompt the user to run the script - use a Yes/No prompt $answer = MsgBox(4, "MUD World Creator", "This program will create your world files for you. Run?") ; Check the user's answer to the prompt (see the help file for MsgBox return values) ; If "No" was clicked (7) then exit the script If $answer = 7 Then MsgBox(4096, "Thanks", "Bye!") Exit EndIf $answer2 = MsgBox(1, "File Check", "Open a new or existing world file in wordpad then click ok.") ;WinWaitActive("WordPad") $aloop = 1 While $aloop = 1 $roomnum = InputBox("Room Number", "Please enter the room #") If @error = 1 Then MsgBox(4096, "Error", "You must enter a room number!") Else If $roomnum = "" Then MsgBox(4096, "Error", "You must enter a room number!") Else Send ($roomnum & "{Enter}") $aloop = 0 ; Exit the loop - ExitLoop would have been an alternative too :) EndIf EndIf WEnd $bloop = 1 While $bloop = 1 $roomname = InputBox("Room Name", "Please enter the room name") If @error = 1 Then MsgBox(4096, "Error", "You must enter a room name!") Else If $roomname = "" Then MsgBox(4096, "Error", "You must enter a room name!") Else Send ($roomname & "{Enter}") $bloop = 0 ; Exit the loop - ExitLoop would have been an alternative too :) EndIf EndIf WEnd $cloop = 1 While $cloop = 1 $roomdesc = InputBox("Room Name", "Please enter the room description") If @error = 1 Then MsgBox(4096, "Error", "You must enter a room description!") Else If $roomdesc = "" Then MsgBox(4096, "Error", "You must enter a room name!") Else Send ($roomdesc & "{Enter}") $cloop = 0 ; Exit the loop - ExitLoop would have been an alternative too :) EndIf EndIf WEnd Send ("~{Enter}")

Hello everyone I am about a 3 hour beginner here so please bear with me on this. ;Author Flix AKA Walt ; ;Script function is to automate the creation of world file for MUDS. ; ; Prompt the user to run the script - use a Yes/No prompt (4 - see help file) $answer = MsgBox(4, "MUD World Creator", "This program will create your world files for you. Run?") ; Check the user's answer to the prompt (see the help file for MsgBox return values) ; If "No" was clicked (7) then exit the script If $answer = 7 Then MsgBox(4096, "Thanks", "Bye!") Exit EndIf $answer2 = MsgBox(1, "File Check", "Open a new or existing world file in wordpad then click ok.") ;WinWaitActive("WordPad") $aloop = 1 While $aloop = 1 $roomnum = InputBox("Room Number", "Please enter the room #") If @error = 1 Then MsgBox(4096, "Error", "You must enter a room number!") Else If $roomnum = "" Then MsgBox(4096, "Error", "You must enter a room number!") Else Send ($roomnum"{Enter}") $aloop = 0 ; Exit the loop - ExitLoop would have been an alternative too :) EndIf EndIf WEnd $bloop = 1 While $bloop = 1 $roomname = InputBox("Room Name", "Please enter the room name") If @error = 1 Then MsgBox(4096, "Error", "You must enter a room name!") Else If $roomname = "" Then MsgBox(4096, "Error", "You must enter a room name!") Else Send ($roomname"{Enter}") $bloop = 0 ; Exit the loop - ExitLoop would have been an alternative too :) EndIf EndIf WEnd $cloop = 1 While $cloop = 1 $roomdesc = InputBox("Room Name", "Please enter the room description") If @error = 1 Then MsgBox(4096, "Error", "You must enter a room description!") Else If $roomdesc = "" Then MsgBox(4096, "Error", "You must enter a room name!") Else Send ($roomdesc"{Enter}") $cloop = 0 ; Exit the loop - ExitLoop would have been an alternative too :) EndIf EndIf WEnd Send ("~{Enter}") I am sure this is sloppy but my problem is on sending the different variable $roomnum, $roomname, and $roomdesc I can only get the first letter to send from the variables. what am i doing wrong and how can I fix it? and this isn't fully compleated code I am testing it as i go along. Thanks in advance Walt