Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)

Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)

WWW.FORUMVISIBLE.COM

Temos vagas na STAFF !! Clique Aqui!

Últimos assuntos

» Bot Openkore Configurado 06/12/2017 + Tutorial
Autoit - SofteTi Empty12/19/2017, 18:48 por MrViSiBLe

» MU LIVE SEASON 2 | INAUGURA DOMINGO 17/09
Autoit - SofteTi Empty9/2/2017, 13:51 por MrViSiBLe

» Sorteio Perfumes - Forum ViSiBLe
Autoit - SofteTi Empty8/25/2017, 08:27 por Convidado

» Novas Vagas Para Staff
Autoit - SofteTi Empty8/24/2017, 15:20 por MrViSiBLe

» CSGO [Internal/External] Multi-Hack AIMBOT + TRIGGERBOT + ESP + BHOP
Autoit - SofteTi Empty8/22/2017, 03:04 por MrViSiBLe

» REB00T 31/07/2017
Autoit - SofteTi Empty8/22/2017, 03:01 por MrViSiBLe

» [CS:GO] HENTAIWARE 19/08/2017 | LEGIT | RAGE | ESP | GLOVES | FACEIT |
Autoit - SofteTi Empty8/22/2017, 02:58 por MrViSiBLe

» DeviceCheats CS:GO Gratuito 31/07/2017
Autoit - SofteTi Empty8/22/2017, 02:56 por MrViSiBLe

» [CS:GO] External - Glow ESP | Triggerbot | RCS | BunnyHop | Noflash
Autoit - SofteTi Empty8/22/2017, 02:53 por MrViSiBLe

» [CS:GO] GLOW ESP 21/08/2017
Autoit - SofteTi Empty8/22/2017, 02:49 por MrViSiBLe


    Autoit - SofteTi

    MrViSiBLe
    MrViSiBLe
    Administrador
    Administrador


    Número de Mensagens : 3779
    Idade : 31
    Localização : Cuiaba
    Agradecimentos Agradecimentos : 864
    Data de inscrição : 10/12/2008

    Autoit - SofteTi Empty Autoit - SofteTi

    Mensagem por MrViSiBLe 7/20/2010, 22:11

    Beleza galera.
    Sou novato aki, mais ja tenho um bom conteudo de autoit e outra linguagem.
    estou aprofundando conhecimento em Java.

    posta um Auto Click Mais Minimizer basico.
    Código:

    $g_szVersion = "Team SofteTi® - Auto Click 1.0"
    If WinExists($g_szVersion) Then Exit
    AutoItWinSetTitle($g_szVersion)

    #NoTrayIcon

    HotKeySet("{F1}", "autoleft")
    HotKeySet("{F2}", "autoright")
    HotKeySet("{F3}", "mini")
    HotKeySet("{F4}", "max")
    HotKeySet("{PAUSE}", "pausar")
    HotKeySet("{ESC}", "sair")

    Global $Paused

    Dim $msg

    $msg = ""
    $msg = $msg & " Teclas de Atalho " & @CR
    $msg = $msg & "" & @CR
    $msg = $msg & "* F1 = Auto Click Esquerdo " & @CR
    $msg = $msg & "* F2 = Auto Click Direito " & @CR
    $msg = $msg & "* F3 = Minimizar " & @CR
    $msg = $msg & "* F4 = Maximizar " & @CR
    $msg = $msg & "* Pause = Pausar" & @CR
    $msg = $msg & "* Esc = Sair " & @CR

    MsgBox(0, "Auto Click & Minimizer SofteTi", $msg)

    While 1
    WEnd

    Func mini()
    WinSetState("[CLASS:Class do programa pra minimizar]", "", @SW_MINIMIZE)
    EndFunc

    Func max()
    WinSetState("[CLASS:Class do programa pra maximizar]", "", @SW_MAXIMIZE)
    EndFunc

    Func autoleft()
    $pos = MouseGetPos()
    While 1
    MouseClick("left", $pos[0], $pos[1])
    WEnd
    EndFunc

    Func autoright()
    $pos = MouseGetPos()
    While 1
    MouseClick("right", $pos[0], $pos[1])
    WEnd
    EndFunc

    Func pausar()
    $Paused = NOT $Paused
    While $Paused
    Sleep(500)
    WEnd
    EndFunc

    Func sair()
    Exit
    EndFunc

    obs: alterar algumas parte, para funcionamento

    Uma Ferramenta para pegar posições do Mouse, mais pratica ...

    Código:

    $g_szVersion = "Team SofteTi® - Posição do Mouse 1.0"
    If WinExists($g_szVersion) Then
    MsgBox(0, "Aviso", "Exite Um Já em Execução")
    Exit
    EndIf
    AutoItWinSetTitle($g_szVersion)

    HotKeySet("{F1}", "pega")
    HotKeySet("{ESC}", "sair")

    While 20
    WEnd

    Func pega()
    $pos = MouseGetPos()
    MsgBox(0, "Mouse Posição", "*Posição _ "& $pos[0] &"* - *Posição | " & $pos[1] &"*" )
    EndFunc

    Func sair()
    Exit
    EndFunc


    Qualquer duvidas estamos aiii ....

      Tópicos semelhantes

      -

      Data/hora atual: 5/20/2024, 12:52