Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)

Модерирует : gyra, Maz

Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

sproxy



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору


Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=c:\Combo 1.exe
#EndRegion
;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#Include <Misc.au3>
 
Opt("MouseClickDownDelay",9)
Opt("SendKeyDownDelay",9)
 
Global  $hOffOnCheckbox, $sKey
$sKey
= '04' ;~ set combo to key "Mouse 3"
 
$Form1 = GUICreate("Combo 1", 210, 139, 197, 127)
 
$Label1 = GUICtrlCreateLabel("Press Mouse3 To combo", 16, 8, 118, 17)
$Label2 = GUICtrlCreateLabel("  Combo Will Click Too", 16, 32, 150, 14)
    GUICtrlSetColor(-1, 0xFFFF00)
    GUICtrlSetBkColor(-1, 0x0000FF)
    GUICtrlSetCursor ($Label2, 0)
 
$hOffOnCheckbox = GUICtrlCreateCheckbox("ON", 16+125, 4)
    GUICtrlSetState(-1, $GUI_CHECKED)
 
$Progress1 = GUICtrlCreateProgress(16, 64, 150, 17)
GUICtrlSetData(-1, RegRead("HKEY_CURRENT_USER\MuTools\Combo\","Skill1")/20)
$Progress2 = GUICtrlCreateProgress(16, 88, 150, 17)
GUICtrlSetData(-1, RegRead("HKEY_CURRENT_USER\MuTools\Combo\","Skill2")/20)
$Progress3 = GUICtrlCreateProgress(16, 112, 150, 17)
GUICtrlSetData(-1, RegRead("HKEY_CURRENT_USER\MuTools\Combo\","Skill3")/20)
 
$Label3 = GUICtrlCreateLabel("ALabel3", 184, 64, 43, 17)
GUICtrlSetData(-1, RegRead("HKEY_CURRENT_USER\MuTools\Combo\","Skill1"))
$skill1 = Guictrlread($label3)
 
$Label4 = GUICtrlCreateLabel("ALabel4", 184, 88, 43, 17)
GUICtrlSetData(-1, RegRead("HKEY_CURRENT_USER\MuTools\Combo\","Skill2"))
$skill2 = Guictrlread($label4)
 
$Label5 = GUICtrlCreateLabel("ALabel5", 184, 112, 43, 17)
GUICtrlSetData(-1, RegRead("HKEY_CURRENT_USER\MuTools\Combo\","Skill3"))
$skill3 = Guictrlread($label5)
 
$id4 = 0
 
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case
$Label2
            If $id4 = 0 Then
                GUICtrlSetData($Label2,"  Combo Will Not Click")
                GUICtrlSetBkColor($Label2, 0xFF0000)
                $id4 = 2
            ElseIf $id4 = 1 Then
                GUICtrlSetData($Label2,"  Combo Will Click Too")
                GUICtrlSetBkColor($Label2, 0x0000FF)
                $id4 = 0
            ElseIf $id4 = 2 Then
                GUICtrlSetData($Label2,"  Combo Will Click Down")
                GUICtrlSetBkColor($Label2, 0x000FFF)
                $id4 = 1
            Endif
    EndSwitch

 
    $guiarray = GUIGetCursorInfo($Form1)
    IF $guiarray[4] = 6 and $guiarray[2] = 1 Then
        GUICtrlSetData($Progress1,($guiarray[0] -16)/1.5)
        $skill1 = Round(($guiarray[0] -16)/1.5,0) * 20
        Guictrlsetdata($Label3,$skill1)
        RegWrite("HKEY_CURRENT_USER\MuTools\Combo\","Skill1","REG_SZ",$skill1)
    EndIf
    IF
$guiarray[4] = 7 and $guiarray[2] = 1 Then
        GUICtrlSetData($Progress2,($guiarray[0] -16)/1.5)
        $skill2 = Round(($guiarray[0] -16)/1.5,0) * 20
        Guictrlsetdata($Label4,$skill2)
        RegWrite("HKEY_CURRENT_USER\MuTools\Combo\","Skill2","REG_SZ",$skill2)
    EndIf
    IF
$guiarray[4] = 8 and $guiarray[2] = 1 Then
        GUICtrlSetData($Progress3,($guiarray[0] -16)/1.5)
        $skill3 = Round(($guiarray[0] -16)/1.5,0) * 20
        Guictrlsetdata($Label5,$skill3)
        RegWrite("HKEY_CURRENT_USER\MuTools\Combo\","Skill3","REG_Sz",$skill3)
    EndIf
 
    If
GUICtrlRead($hOffOnCheckbox) <> $GUI_CHECKED Then ContinueLoop
    If
_IsPressed($sKey) Then
        If
$id4 = 0 Then
            MouseClick("right")
        EndIf
        If
$id4 = 1 Then
            MouseDown("right")
        EndIf
        Send("1")
        Sleep($skill1)
        Send("2")
        Sleep($skill2)
        Send("3")
        Sleep($skill3)
        Sleep(0)
        Mouseup("right")
    EndIf
WEnd


Всего записей: 556 | Зарегистр. 21-11-2007 | Отправлено: 23:36 24-02-2009
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 2)
Widok (01-06-2010 13:08): Лимит страниц. Продолжаем здесь.


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru