Jump to content

Fleece

Members
  • Posts

    2
  • Joined

  • Last visited

Everything posted by Fleece

  1. yes its work using ' " ' thanks
  2. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Misc.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 610, 438, 262, 143) $Button1 = GUICtrlCreateButton("Button1", 224, 1, 113, 55) $Input1 = GUICtrlCreateInput("Input1", 16, 8, 121, 28) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $Input2 = GUICtrlCreateInput("Input2", 16, 48, 121, 28) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### local $Files = FileOpen("Test.txt",1) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $Button1 Call("Pressed1") Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func Pressed1 () While 1 If _IsPressed("01") Then global $XY1 = MouseGetPos() GUICtrlSetData($Input1, $XY1[0]) GUICtrlSetData($Input2, $XY1[1]) FileWrite($Files,"Mouseclick(") FileWrite($Files,"left") FileWrite($Files,$XY1[0]) FileWrite($Files, ",") FileWrite($Files,$XY1[1]) FileWrite($Files, ",1,0)" & @CRLF) ExitLoop EndIf WEnd EndFunc How to FileWrite " when i do Filewrite ($Files, """) its became error and is there a way to simplified this file write ?
×
×
  • Create New...