alextecsony
> > > > > Administrador

AMIGO EU PEGUEI O SCRIPT DO BRARCADE SÓ A PARTE DO MENU PRA COLOCAR NO ADVEMENU.RC POIS QUANDO EU ENTRAR NELE CONFIGURA 1 FICHA 2 CREDITOS COPILEI TA BONITO MAS NO ADVEMENU DA ERRO O SCRIPT VE AI PRA MIM O Q PODE SER EU ACHO Q PODE AUMENTAR MASI FUNÇOES TESTA AI

#include <GUIConstants.au3>


;ajustas as opções

AutoItSetOption("WinTitleMatchMode", 4)

Global $aguarda=0


;cria a janela principal

Local $WS_POPUP

$brgui=GUICreate("CONFIGURAÇAO E LEITURA", 380,220, -1, -1, $WS_POPUP)

;GUISetBkColor(0xffffff, $brgui) ;troca a cor de fundo da janela


;largura dos campos

$widthCell=300


;pega os dados

$contador=IniRead("advmenu.ini","FICHEIRO","CONTAD OR","0")

$fichas=IniRead("advmenu.ini","FICHEIRO","FICHAS", "0")

$bloqueado=IniRead("advmenu.ini","CONFIGURACAO","B LOQUEADO","0")

$tempoficha=IniRead("advmenu.ini","CONFIGURACAO"," TEMPOPORFICHA","0")


$tempo_ficha=ConverteTempo($tempoficha)

$qt_fichas=ConverteFichas($fichas, $tempoficha)


;fonte usada

$font="Arial"

GUISetFont (14, 400, -1, $font)


;labels

GUICtrlCreateLabel ("TEMPO POR FICHA:", 5, 10, $widthCell)

GUICtrlCreateLabel ("minutos", 250, 10, $widthCell)

GUICtrlCreateLabel ("MENU BLOQUEADO:", 5, 50, $widthCell)


;combo1 = tempo por ficha

$cmb1=GUICtrlCreateCombo ("5", 180,10, 70)

GUICtrlSetData($cmb1,"10|15|20|25|30|35|40|45|50|5 5|60",String($tempo_ficha))


;combo2 = Menu bloqueado

If $bloqueado="1" Then

$estado="SIM"

Else

$estado="NAO"

EndIf

$cmb2=GUICtrlCreateCombo ("SIM", 180,50, 70)

GUICtrlSetData($cmb2,"NAO",$estado)


;labels

$lbl1=GUICtrlCreateLabel ("FICHAS ARMAZENADAS: " & StringFormat("%06d",$qt_fichas), 5, 100, $widthCell)

$lbl2=GUICtrlCreateLabel ("CONTADOR GERAL.......: " & StringFormat("%06d",$contador), 5, 130, $widthCell)


;botoes

$btn1 = GUICtrlCreateButton ("ZERAR", 290, 100, 80, 20)

$btn2 = GUICtrlCreateButton ("ZERAR", 290, 130, 80, 20)

$btn3 = GUICtrlCreateButton ("SALVAR",50, 170, 80, 20)

$btn4 = GUICtrlCreateButton ("SAIR", 190, 170, 80, 20)

GUISetState ()


;rotina de looping

$msg = 0

While $msg <> $GUI_EVENT_CLOSE

$msg = GUIGetMsg()

Select

Case $msg = $btn1

ZeraFicha($lbl1)

Case $msg = $btn2

ZeraContador($lbl2)

Case $msg = $btn3

SalvaOpcoes($cmb1, $cmb2)

Case $msg = $btn4

GUISetState (@SW_HIDE)

exitloop

EndSelect

Sleep(100)

Wend





Func ZeraFicha($label1)

IniWrite("advmenu.ini","FICHEIRO","FICHAS","0")

GUICtrlSetData($label1,"FICHAS ARMAZENADAS: 000000")

EndFunc


Func ZeraContador($label2)

IniWrite("advmenu.ini","FICHEIRO","CONTADOR","0")

GUICtrlSetData($label2,"CONTADOR GERAL.......: 000000")

EndFunc


Func SalvaOpcoes($novo1, $novo2)

Local $cb1, $cb2,$cv1, $cv2

$cb1=GUICtrlRead($novo1) ;pega os valores do combo fichas

$cv1=(number($cb1) * 60000)


$cb2=GUICtrlRead($novo2) ;pega os valores do combo bloqueado

If $cb2 ="NAO" Then

$cv2=0

Else

$cv2=1

EndIf

IniWrite("advmenu.ini","CONFIGURACAO","TEMPOPORFIC HA",String($cv1))

IniWrite("advmenu.ini","CONFIGURACAO","BLOQUEADO", String($cv2))

SplashTextOn("OK","SALVANDO...",200, 40,-1, -1, 1, "", 18)

Sleep(2000)

ControlSetText("OK", "", "Static1", "SALVO...")

Sleep(2000)

SplashOff()

EndFunc


;converte os milisegundos em minutos

Func ConverteTempo($tempo)

local $val

if $tempo="0" Then Return 0

$val=(Number($tempo) / 60000)

Return $val

EndFunc


;converte o tempo em fichas

Func ConverteFichas($tempo, $valor)

local $val, $tmp, $rlt

$tmp=Number($tempo)

$val=Number($valor)

$rlt=($tmp / $val)

Return int($rlt)

EndFunc




;mostra a janela de configuração

Func Menu()

$aguarda=1

EndFunc

Ai amogo vc tem face

alex da uma ajuda nao consigo colocar foto no perfil ja falei para os moderadores e nada como vc colocou

deixein quieto o menu pois o outro advemenu q o brbranco disponibilizou ja tem isso olha o video dela
http://www.youtube.com/watch?v=SE0cOSi-mB0 agora estou interessado em colocar + de um programa no script.

alextecsony estou a tentar colocar + o hyperpin no script do advemenu mas nao sei onde coloca-lo eu sei q uso shelexecute pra chamar e processeclose pra fechar + combinar num script só ta foda poderia ajudar

#include <GUIConstants.au3>


;ajustas as opções

AutoItSetOption("WinTitleMatchMode", 4)




Global $aguarda=0


;abre o joytokey que irá enviar as teclas para o menu de configuração

$drive=StringLeft(@ScriptDir,2)

If Not ProcessExists("joytokey.exe") Then

$exe_joy = ShellExecute("joytokey.exe", "brmenu", $drive & "\arcade\joytokey")

if @error Then

SplashImageOn("", "..\auxiliar\image\mensa4.gif", 220, 40, -1, -1, 1)

Sleep(10000)

SplashOff()

Exit(0)

EndIf

EndIf


;intala o hotkey, que irá verificar se o botão para mostrar o menu está pressionado

HotKeySet("m","Menu")


;agurda 5 segundo pelo pressionamento da tecla

$inicio=TimerInit()

$final=0

SplashTextOn("BRarcade","INICIANDO...",200, 40,-1, -1, 1, "", 18)

While (TimerDiff($inicio) < 5000)

$final=Int((TimerDiff($inicio)/1000))

ControlSetText("BRarcade", "", "Static1", "INICIANDO..." & String(5-$final)) ;o 5 foi usado para fazer uma contagem regressiva

Sleep(1000)

If $aguarda <> 0 Then ExitLoop

WEnd

SplashOff()


;se não foi pressionado, fecha o joytokey, e chama o advmenu

If $aguarda = 0 Then

HotKeySet("m")

FechaJoyToKey()

FileChangeDir(@ScriptDir) ;seta o diretório corretente

$adv= ShellExecute("advmenu.exe", "", @ScriptDir)

if @error Then

MsgBox(0,"Erro", "Ocorreu um erro ao tentar executar o advmenu.exe.", 30)

EndIf

Exit(0)

EndIf


;REMOVE O HOTKEY

HotKeySet("m")


;cria a janela principal

Local $WS_POPUP

$brgui=GUICreate("BRarcade Configuração", 380,220, -1, -1, $WS_POPUP)

;GUISetBkColor(0xffffff, $brgui) ;troca a cor de fundo da janela


;largura dos campos

$widthCell=300


;pega os dados

$contador=IniRead("advmenu.ini","FICHEIRO","CONTAD OR","0")

$fichas=IniRead("advmenu.ini","FICHEIRO","FICHAS", "0")

$bloqueado=IniRead("advmenu.ini","CONFIGURACAO","B LOQUEADO","0")

$tempoficha=IniRead("advmenu.ini","CONFIGURACAO"," TEMPOPORFICHA","0")


$tempo_ficha=ConverteTempo($tempoficha)

$qt_fichas=ConverteFichas($fichas, $tempoficha)


;fonte usada

$font="Arial"

GUISetFont (14, 400, -1, $font)


;labels

GUICtrlCreateLabel ("TEMPO POR FICHA:", 5, 10, $widthCell)

GUICtrlCreateLabel ("minutos", 250, 10, $widthCell)

GUICtrlCreateLabel ("MENU BLOQUEADO:", 5, 50, $widthCell)


;combo1 = tempo por ficha

$cmb1=GUICtrlCreateCombo ("5", 180,10, 70)

GUICtrlSetData($cmb1,"10|15|20|25|30|35|40|45|50|5 5|60",String($tempo_ficha))


;combo2 = Menu bloqueado

If $bloqueado="1" Then

$estado="SIM"

Else

$estado="NAO"

EndIf

$cmb2=GUICtrlCreateCombo ("SIM", 180,50, 70)

GUICtrlSetData($cmb2,"NAO",$estado)


;labels

$lbl1=GUICtrlCreateLabel ("FICHAS ARMAZENADAS: " & StringFormat("%06d",$qt_fichas), 5, 100, $widthCell)

$lbl2=GUICtrlCreateLabel ("CONTADOR GERAL.......: " & StringFormat("%06d",$contador), 5, 130, $widthCell)


;botoes

$btn1 = GUICtrlCreateButton ("ZERAR", 290, 100, 80, 20)

$btn2 = GUICtrlCreateButton ("ZERAR", 290, 130, 80, 20)

$btn3 = GUICtrlCreateButton ("SALVAR",50, 170, 80, 20)

$btn4 = GUICtrlCreateButton ("SAIR", 190, 170, 80, 20)

GUISetState ()


;rotina de looping

$msg = 0

While $msg <> $GUI_EVENT_CLOSE

$msg = GUIGetMsg()

Select

Case $msg = $btn1

ZeraFicha($lbl1)

Case $msg = $btn2

ZeraContador($lbl2)

Case $msg = $btn3

SalvaOpcoes($cmb1, $cmb2)

Case $msg = $btn4

GUISetState (@SW_HIDE)

exitloop

EndSelect

Sleep(100)

Wend

FechaJoyToKey()


;chama o advmenu

FileChangeDir(@ScriptDir) ;seta o diretório corretente

$adv= ShellExecute("advmenu.exe", "", @ScriptDir)

if @error Then

MsgBox(0,"Erro", "Ocorreu um erro ao tentar executar o advmenu.exe.", 30)

EndIf

Exit(0)

;===============>fim


Func ZeraFicha($label1)

IniWrite("advmenu.ini","FICHEIRO","FICHAS","0")

GUICtrlSetData($label1,"FICHAS ARMAZENADAS: 000000")

EndFunc


Func ZeraContador($label2)

IniWrite("advmenu.ini","FICHEIRO","CONTADOR","0")

GUICtrlSetData($label2,"CONTADOR GERAL.......: 000000")

EndFunc


Func SalvaOpcoes($novo1, $novo2)

Local $cb1, $cb2,$cv1, $cv2

$cb1=GUICtrlRead($novo1) ;pega os valores do combo fichas

$cv1=(number($cb1) * 60000)


$cb2=GUICtrlRead($novo2) ;pega os valores do combo bloqueado

If $cb2 ="NAO" Then

$cv2=0

Else

$cv2=1

EndIf

IniWrite("advmenu.ini","CONFIGURACAO","TEMPOPORFIC HA",String($cv1))

IniWrite("advmenu.ini","CONFIGURACAO","BLOQUEADO", String($cv2))

SplashTextOn("OK","SALVANDO...",200, 40,-1, -1, 1, "", 18)

Sleep(2000)

ControlSetText("OK", "", "Static1", "SALVO...")

Sleep(2000)

SplashOff()

EndFunc


;converte os milisegundos em minutos

Func ConverteTempo($tempo)

local $val

if $tempo="0" Then Return 0

$val=(Number($tempo) / 60000)

Return $val

EndFunc


;converte o tempo em fichas

Func ConverteFichas($tempo, $valor)

local $val, $tmp, $rlt

$tmp=Number($tempo)

$val=Number($valor)

$rlt=($tmp / $val)

Return int($rlt)

EndFunc


;fecha o joytokey

Func FechaJoyToKey()

If ProcessExists("joytokey.exe") Then

if Not WinActive("classname=TApplication") Then

WinActivate ("classname=TApplication")

EndIf

Send("{LALT}FX")

EndIf

EndFunc


;mostra a janela de configuração

Func Menu()

$aguarda=1

EndFunc
eu queria chamar o hyperpin e fechar ele.

sera q da pra chamar + programas no script do advemenu eu queria chamau o hyperpin sera q da e como vc sabe.

testou o pinball ai

o do brbranco q eu tenho tem essa funçao mas nao é igual mas como aciona-lo no meio do advemenu sem precisar sair e depois entar no brarcade.exe e apertar m pra entrar no menu tem como.

vc saberia onde posso achar aquele menu pois nao acho ele+ se tiver o link ai passa pra mim.

isso como o do tutorial aqui eu ja vi mas nao sei onde tem dela e nem como montar poderia me ajudar ta no meio do tuto
http://www.multijogos.com.br/manual.pdf