Executer un script

Bonjour, j ai trouver un petit script que j aimerais bien tester, mais le script c est un fichier texte... comment on execute un script au juste.



Merci

Salut botter, tu dois installer le soft ici [Vous devez être inscrit et connecté pour voir ce lien] et les script doivent être en .ahk.

Part contre fais attention car avec un script on peut faire des dégât sur l'ordi si l'auteur est malhonnête.
Lis bien les lignes et si tu ne comprend pas tous je peut vérifier si tu veut.

Aires ça dépend en quel langage il est écrit, si c'est en autohotkey, installe le soft et change extension en .ahk

Ok, merci bien, pour etre sur je vais poster le script en question ici plus tard un peu et tu va pouvoir le voir si c est dla merde....

En voici un:

; Settings
$papTitle = "Poker Academy Pro"
$ohTitle = "PerlBotIntro.ohf"
$papProcess = "PokerAcademyPro.exe"
$offsetX = 0
$offsetY = 0
$waitDuration = 50

Func Connect()
MouseClick("primary", $offsetX+1680-629+100, $offsetY+55, 1, 0)
EndFunc

Func Disconnect()
MouseClick("primary", $offsetX+1680-629+120, $offsetY+55, 1, 0)
EndFunc

Func Rebuy()
; Activate PAP window
WinActivate($papTitle)
; Click menu: "Table"
MouseClick("primary", $offsetX+180, $offsetY+30, 1, 0)
Sleep($waitDuration)
; Select menu option: "Set All Bankrolls"
Send("{UP}")
Sleep($waitDuration)
Send("{ENTER}")
Sleep($waitDuration)
; Click potential popup
If WinWaitActive("Abort?", "", 1) Then
Send("{SPACE}")
Sleep($waitDuration)
EndIf
; Focus first text box and enter 200
Send("{TAB}")
Sleep($waitDuration)
Send("{TAB}")
Sleep($waitDuration)
Send("{2}")
Sleep($waitDuration)
Send("{0}")
Sleep($waitDuration)
Send("{0}")
Sleep($waitDuration)
; Click "Set All: $"
MouseClick("primary", $offsetX+300, $offsetY+280, 1, 0)
Sleep($waitDuration)
; Click OK
MouseClick("primary", $offsetX+365, $offsetY+510, 1, 0)
Sleep($waitDuration)
EndFunc

; Wait 2 seconds
sleep(2*1000)

; Move OH window
WinMove($ohTitle, "", $offsetX+1680-629, $offsetY)
; Move PAP window
WinMove($papTitle, "", $offsetX, $offsetY)

Disconnect()
Rebuy()

; Deal
MouseClick("primary", $offsetX+346, $offsetY+677, 1, 0)

Connect()

oui c'est bien en AHK, remplace le .txt par: .ahk et installe le logiciel sur le lien que ta donné fold.
C'est juste une partie du script que tu à mis la?

Atom a écrit: C'est juste une partie du script que tu à mis la?

Je pense que c est un script complet, c est juste un auto rebuy pour Poker Academie, j ai pas tester encore... je te redonne des news.

Ok, tu a raison ca ne fonctionne pas, j ai trouver celui la sur le site officiel de OH. mais il dit d enlever l auto deal, il faut activer l auto deal si on veut que les carte ce passe tout seul... tu k lui non plus ne fonctionne pas.

;=============================================================
;
; PURPOSE: Simple rebuy-script for PokerAcademy
;
; AUTHOR: TheHighFish
;
; DATE: 2008.01.02
;
; USAGE: * configure "$UserBankroll"
; * run PokerAcademyPro.exe
; * turn off Options->"Auto Deal"
; * run this script
;
;=============================================================

; Configure this to your neeeds;
$UserBankroll = 4000

;=============================================================

Func SetUsersBankroll()
; Click users seat
MouseClick("right", 400, 600)
Sleep(1000)
; Click "Set Bankroll"
MouseClick("left", 430, 620)
Sleep(1000)
Send($UserBankroll)
; Click "OK"-button
MouseClick("left", 380, 415)
EndFunc

Func SetOpponentsBankrolls()
; Click menu: "Table"
MouseClick("left", 180, 30)
Sleep(1000)
; Click "Set All Bankrolls..."
MouseClick("left", 180, 140)
Sleep(1000)
; Click "Set All" (to default value)
MouseClick("left", 300, 230)
sleep(1000)
; Click "OK"-button
MouseClick("left", 370, 550)
EndFunc

;=============================================================

; Align PA window correctly for the mouse-clicks we need later.
WinMove("Poker Academy Pro", "", 0, 0);
; While PA is running...
While (ProcessExists("PokerAcademyPro.exe"))
; Use the code below, if you want to calculate the checksum
; of the button "Deal Hand"
; $CheckSum = PixelCheckSum(390, 675, 410, 695);
; MsgBox(0, "PixelCheckSum", $CheckSum)
;
; Check for "Deal Hand"-button"
If (PixelChecksum(390, 675, 410, 695) == 991678460) Then
; Button exists => previos hand finished and time to rebuy.
SetOpponentsBankrolls()
SetUsersBankroll()
; Click "Deal Hand"
MouseClick("left", 400, 685)
EndIf
Sleep(1000)
WEnd

;=============================================================

Le script n'est peut être pas indépendant, il faut peu être configuré OH pour faire appel au fonction pour que cela marche, je ne sait pas encore me servir de OH mais à mon avis c'est comme ça qu'il faut faire.

Atom a écrit:Le script n'est peut être pas indépendant, il faut peu être configuré OH pour faire appel au fonction pour que cela marche, je ne sait pas encore me servir de OH mais à mon avis c'est comme ça qu'il faut faire.

Ok merci Atom, je vais regarder ca cette semaine et te redonne des news.