Hola.. Ayuda
Publicado: 12 Nov 2009, 10:16
Hola espero que se encuentre bien hoy me encuentro aqui en este foro porque soy totalmente nuevo en esto de code pues me he motivado a querer aprender
un poco sobre ello ya que con ellos se pueden lograr muchas cosas.
Bueno yo ando utilizando AutoIt Form Designer ya con esto hago el Script. lo que no se es donde colocar exactamente lo code presisamente porque es primera vez y no tengo ni remota idea donde van y quisiera saber si alguno de ustedes que ya tienen mucho mas conocimiento me apoya.
Fijense este es mi caso esto es una prueba que quiero hacer con un juego que se llama SIlkroad. mi intencion es Activar El autopick up En lo que se Active Quedara funcionando la Letra G Pero que esa letra G tenga Delay
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=c:\trabajo\form1.kxf
$Form1_1 = GUICreate("Item", 169, 220, 332, 183)
GUISetIcon("C:\Users\Natanael\Downloads\137-300-iconos\300-iconos-varios\277.ico")
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1_1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1_1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1_1Restore")
$Checkbox1 = GUICtrlCreateCheckbox("Pick Up", 40, 48, 65, 33)
GUICtrlSetOnEvent(-1, "Checkbox1Click")
GUICtrlCreateLabel("Auto Pick Up Item", 24, 16, 107, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent(-1, "Label1Click")
$Input1 = GUICtrlCreateInput("1000", 40, 96, 65, 21)
GUICtrlSetOnEvent(-1, "Input1Change")
$Label1 = GUICtrlCreateLabel("Delay", 120, 96, 31, 17)
GUICtrlSetOnEvent(-1, "Label1Click")
$Label2 = GUICtrlCreateLabel("Silkroad Online", 24, 160, 125, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent(-1, "Label2Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func Checkbox1Click()
EndFunc
Func Form1_1Close()
EndFunc
Func Form1_1Maximize()
EndFunc
Func Form1_1Minimize()
EndFunc
Func Form1_1Restore()
EndFunc
Func Input1Change()
EndFunc
Func Label1Click()
EndFunc
Func Label2Click()
EndFunc
un poco sobre ello ya que con ellos se pueden lograr muchas cosas.
Bueno yo ando utilizando AutoIt Form Designer ya con esto hago el Script. lo que no se es donde colocar exactamente lo code presisamente porque es primera vez y no tengo ni remota idea donde van y quisiera saber si alguno de ustedes que ya tienen mucho mas conocimiento me apoya.
Fijense este es mi caso esto es una prueba que quiero hacer con un juego que se llama SIlkroad. mi intencion es Activar El autopick up En lo que se Active Quedara funcionando la Letra G Pero que esa letra G tenga Delay
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=c:\trabajo\form1.kxf
$Form1_1 = GUICreate("Item", 169, 220, 332, 183)
GUISetIcon("C:\Users\Natanael\Downloads\137-300-iconos\300-iconos-varios\277.ico")
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1_1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1_1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1_1Restore")
$Checkbox1 = GUICtrlCreateCheckbox("Pick Up", 40, 48, 65, 33)
GUICtrlSetOnEvent(-1, "Checkbox1Click")
GUICtrlCreateLabel("Auto Pick Up Item", 24, 16, 107, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent(-1, "Label1Click")
$Input1 = GUICtrlCreateInput("1000", 40, 96, 65, 21)
GUICtrlSetOnEvent(-1, "Input1Change")
$Label1 = GUICtrlCreateLabel("Delay", 120, 96, 31, 17)
GUICtrlSetOnEvent(-1, "Label1Click")
$Label2 = GUICtrlCreateLabel("Silkroad Online", 24, 160, 125, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent(-1, "Label2Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func Checkbox1Click()
EndFunc
Func Form1_1Close()
EndFunc
Func Form1_1Maximize()
EndFunc
Func Form1_1Minimize()
EndFunc
Func Form1_1Restore()
EndFunc
Func Input1Change()
EndFunc
Func Label1Click()
EndFunc
Func Label2Click()
EndFunc
