Lập trình autoit với Gui

Liên hệ QC

vova2209

Thành viên tích cực
Tham gia
5/4/17
Bài viết
825
Được thích
110
Giới tính
Nam
Nghề nghiệp
Đường bộ
Chào anh chị! (mạn phép phạm quy)
em làm cái auto mở níc game bằng Autoit, ở diễn đán autoit ngừng hoạt động hết rồi bí quá hỏi các anh chị ai biết giúp em ạ
còn 1 lệnh nữa để chạy Function mà lỗi không biết do đâu, anh chị nào biết chỉ dùm em xin cảm ơn ạ!
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

HotKeySet("{f10}",'LogAccRun')
HotKeySet("{esc}",'LogAccExit')


$Form1 = GUICreate("LogACC", 125, 125, 735, 443)
GUISetBkColor(0xFFFFFF)
$NameGo = GUICtrlCreateLabel("LogAC", 8, 55, 39, 19)
$ButtonExit = GUICtrlCreateButton("Esc=Stop", 64, 80, 57, 25)
GUICtrlSetFont(-1, 9, 400, 0, "Times New Roman")
$ButtonGo = GUICtrlCreateButton("F10=Go", 64, 50, 57, 25)
;$ButtonStop = GUICtrlCreateButton("Esc=Stop", 3, 80, 57, 25)
$LabeLinks = GUICtrlCreateLabel("Links", 8, 5, 33, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
$InputLinks = GUICtrlCreateInput('E:\Game\TQC Dzogame\3K Hoai Niem\Hoainiem.exe', 64, 3, 57, 21)
$InputACC = GUICtrlCreateInput("6", 64, 26, 57, 21)
$LabeSoAc = GUICtrlCreateLabel("Số AC", 8, 28, 36, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Times New Roman")
GUICtrlSetResizing(-1, $GUI_DOCKVCENTER)
$Labe3 = GUICtrlCreateLabel("Vô Va: 0911 22 09 86", 10, 107, 109, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x008000)
GUISetState(@SW_SHOW)


While True
$Msg = GUIGetMsg ()
If $Msg = $GUI_EVENT_CLOSE Then ExitLoop
if $Msg = $ButtonExit then ExitLoop
if $Msg = $ButtonGo then LogAccRun ;đang lỗi ở đây
WEnd

Func LogAccRun ()
MsgBox(0,'','ok')
; $DataLinks = GUICtrlRead($InputLinks)
; $DataLogAcc = GUICtrlRead($InputACC)
; for $i=1 to $DataLogAcc
; run ($DataLinks)
; Sleep (5000) ;1000 = 1 giây
; Next
Exit
EndFunc

Func LogAccExit ()
Exit
EndFunc
 

File đính kèm

  • Untitled.png
    Untitled.png
    157.1 KB · Đọc: 17
  • (Code) 3KLogAcc.rar
    797 bytes · Đọc: 4
Web KT
Back
Top Bottom