AutoIt Français

Nouveau forum : http://www.autoitscript.fr/
 
AccueilFAQRechercherS'enregistrerMembresGroupesConnexionhttp://www.autoitscript.fr

Partagez | 
 

 Probleme avec un script très simple...[RESOLU]

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
josnaker
Membre


Nombre de messages : 42
Age : 25
Date d'inscription : 05/03/2007

MessageSujet: Probleme avec un script très simple...[RESOLU]   2007-03-06, 20:02

Voila j'ai un problème avec un script compilé de .aut à .au3 avec v2 to v3 converter...



Le fichier .aut fonctionne très bien mais aussitôt que je le transfère de .aut à .au3 sa foire...



[quote]



__init()

$t1 = 200

$t2 = 200

$command = 0

$__msgbox = MsgBox ( 4, 'Diablo II Item Duplicator, 'Is your resolution 800x600?' )

if NOT ( $__msgbox = 6 ) then

if ( $__msgbox = 7 ) then

Exit

endif

endif

while (1) ; loadedtest : beginning of loop OR Func loadedtest ()

if NOT WinExists ( 'Diablo II', '' ) then

$__msgbox = MsgBox ( 0,

'Error', 'Diablo II Not Loaded... Please Load D2, Get In A Game And

Restart.' )

Exit

endif

commandtest ( )

ostest ( )

Exit

while (1) ; vchek

Sleep ( 1000 )

BlockInput ( 1 )

WinActivate ( 'Diablo II' )

for $__n1_ = 1 to 2000

for $__n2_ = 1 to 6

Sleep ( 2000 )

reztest ( )

while (1) ; os98

Sleep ( 1000 )

BlockInput ( 0 )

WinActivate ( 'Diablo II' )

for $__n3_ = 1 to 2000

for $__n4_ = 1 to 6

Sleep ( 2000 )

reztest ( )

if NOT ( $__msgbox = 6 ) then

if NOT ( $__msgbox = 7 ) then

Send ( '{space}' )

Send ( '{enter}' )

Send ( 'Hmmmm' )

Send ( '{enter}' )

Send ( '{space}' )

Send ( 'i' )

MouseClick( "left", 562, 181 )

Sleep ( $t2 )

MouseClick( "left", 398, 370 )

Sleep ( $t1 )

MouseClick( "left", 454, 176 )

Sleep ( $t2 )

MouseClick( "left", 398, 370 )

Sleep ( $t1 )

MouseClick( "left", 562, 102 )

Sleep ( $t2 )

MouseClick( "left", 398, 370 )

Sleep ( $t1 )

MouseClick( "left", 623, 118 )

Sleep ( $t2 )

MouseClick( "left", 398, 370 )

Sleep ( $t1 )

MouseClick( "left", 620, 262 )

Sleep ( $t2 )

MouseClick( "left", 398, 370 )

Sleep ( $t1 )

MouseClick( "left", 510, 262 )

Sleep ( $t2 )

MouseClick( "left", 398, 370 )

Sleep ( $t1 )

MouseClick( "left", 567, 263 )

Sleep ( $t2 )

MouseClick( "left", 398, 370 )

Sleep ( $t1 )

MouseClick( "left", 680, 263 )

Sleep ( $t2 )

MouseClick( "left", 398, 370 )

Sleep ( $t1 )

MouseClick( "left", 447, 277 )

Sleep ( $t2 )

MouseClick( "left", 398, 370 )

Sleep ( $t1 )

MouseClick( "left", 679, 171 )

Sleep ( $t2 )

MouseClick( "left", 398, 370 )

Send ( 'w' )

Sleep ( $t1 )

MouseClick( "left", 454, 176 )

Sleep ( $t2 )

MouseClick( "left", 398, 370 )

Sleep ( $t1 )

MouseClick( "left", 679, 171 )

Sleep ( $t2 )

MouseClick( "left", 398, 370 )

else ;; end

Send ( '{space}' )

Send ( '{enter}' )

Send ( 'Hmmmm' )

Send ( '{enter}' )

Send ( '{space}' )

Send ( 'i' )

MouseClick( "left", 481, 100 )

Sleep ( $t2 )

MouseClick( "left", 309, 280 )

Sleep ( $t1 )

MouseClick( "left", 368, 86 )

Sleep ( $t2 )

MouseClick( "left", 309, 280 )

Sleep ( $t1 )

MouseClick( "left", 480, 32 )

Sleep ( $t2 )

MouseClick( "left", 309, 280 )

Sleep ( $t1 )

MouseClick( "left", 542, 47 )

Sleep ( $t2 )

MouseClick( "left", 309, 280 )

Sleep ( $t1 )

MouseClick( "left", 428, 197 )

Sleep ( $t2 )

MouseClick( "left", 309, 280 )

Sleep ( $t1 )

MouseClick( "left", 539, 191 )

Sleep ( $t2 )

MouseClick( "left", 309, 280 )

Sleep ( $t1 )

MouseClick( "left", 603, 197 )

Sleep ( $t2 )

MouseClick( "left", 309, 280 )

Sleep ( $t1 )

MouseClick( "left", 370, 210 )

Sleep ( $t2 )

MouseClick( "left", 309, 280 )

Sleep ( $t1 )

MouseClick( "left", 486, 191 )

Sleep ( $t2 )

MouseClick( "left", 309, 280 )

Sleep ( $t1 )

MouseClick( "left", 596, 102 )

Sleep ( $t2 )

MouseClick( "left", 309, 280 )

Send ( 'w' )

Sleep ( $t1 )

MouseClick( "left", 368, 86 )

Sleep ( $t2 )

MouseClick( "left", 309, 280 )

Sleep ( $t1 )

MouseClick( "left", 596, 102 )

Sleep ( $t2 )

MouseClick( "left", 309, 280 )

else ;;; end

wend ; close all loops

wend ; close all loops

wend ; close all loops

endif ; close all if

endif ; close all if

Func commandtest ( )

$command = FileReadLine ( 'command.txt', 1 )

if __cmp($command, 'nokill') then

$command = 1

endif

Return

EndFunc ; commandtest

Func ostest ( )

Return

EndFunc ; ostest

Func reztest ( )

MouseMove ( 1000, 1000 )

$__a_ = MouseGetPos ( )

$x = $__a_[0]

$y = $__a_[1]

if __cmp($x, 799) then

$rez = 800

endif

if NOT __cmp($x, 799) then

$rez = 640

endif

Return

EndFunc ; reztest

endif ;;;; end

endif ; end Force extra clausing



*** FATAL ERROR Unsupported IF nesting : end



if NOT __cmp($command, 1) then

Sleep ( $t1 )

Send ( '{ALTDOWN}' )

Send ( '{f4}' )

Sleep ( 2000 )

Send ( '{f4}' )

Send ( '{ALTUP}' )

Shutdown ( 1 )

Exit

endif ; nokillexit

Sleep ( $t2 )

Send ( '{space}' )

Sleep ( $t1 )

Send ( '{enter}' )

Sleep ( $t1 )

Send ( 'Program Ended Without Error' )

Sleep ( $t1 )

Send ( '{enter}' )

Sleep ( $t1 )

BlockInput ( 0 )

Exit

Func myAdLibV2 ( )

if WinExists ( ) then

func __cmp ($_1, $_2) ; to handle Case sensitive comparison

global $__strcase

if $__strcase = 0 then

return ($_1 = $_2)

else

return ($_1 == $_2)

endif

endfunc

func __init () ; to define global variables needed

endfunc

[/quote]







Ça c'est le .au3 et voici le .aut







[quote]hideautoitwin, on



setenv,t1,200

setenv,t2,200



setenv,command,0





MsgBox, 4, Ith Creator 2.0, Is your resolution 800x600?





loadedtest:

IfWinExist,Diablo II,,goto,loadedandok

msgbox,0,Error,Diablo II Not Loaded... Please Load D2, Get In A Game And Restart.

exit



loadedandok:



gosub,commandtest

gosub,ostest

exit







vchek:

sleep,1000

blockinput,on

winactivate,Diablo II

Repeat, 2000

Repeat, 6

sleep,2000

gosub,reztest



os98:

sleep,1000

blockinput,off

winactivate,Diablo II

Repeat, 2000

Repeat, 6

sleep,2000

gosub,reztest



ifmsgbox,yes,goto,rez800

ifmsgbox,no,goto,rez640



rez800:



send,{space}

send,{enter}

send,Hmmmm

send,{enter}

send,{space}

send,i



leftclick,562,181

sleep,%t2%

leftclick,398,370



sleep,%t1%



leftclick,454,176

sleep,%t2%

leftclick,398,370



sleep,%t1%



leftclick,562,102

sleep,%t2%

leftclick,398,370



sleep,%t1%



leftclick,623,118

sleep,%t2%

leftclick,398,370



sleep,%t1%



leftclick,620,262

sleep,%t2%

leftclick,398,370



sleep,%t1%



leftclick,510,262

sleep,%t2%

leftclick,398,370



sleep,%t1%



leftclick,567,263

sleep,%t2%

leftclick,398,370



sleep,%t1%



leftclick,680,263

sleep,%t2%

leftclick,398,370



sleep,%t1%



leftclick,447,277

sleep,%t2%

leftclick,398,370



sleep,%t1%



leftclick,679,171

sleep,%t2%

leftclick,398,370



send,w



sleep,%t1%



leftclick,454,176

sleep,%t2%

leftclick,398,370



sleep,%t1%



leftclick,679,171

sleep,%t2%

leftclick,398,370



goto,end



rez640:



send,{space}

send,{enter}

send,Hmmmm

send,{enter}

send,{space}

send,i



leftclick,481,100

sleep,%t2%

leftclick,309,280



sleep,%t1%



leftclick,368,86

sleep,%t2%

leftclick,309,280



sleep,%t1%



leftclick,480,32

sleep,%t2%

leftclick,309,280



sleep,%t1%



leftclick,542,47

sleep,%t2%

leftclick,309,280



sleep,%t1%



leftclick,428,197

sleep,%t2%

leftclick,309,280



sleep,%t1%



leftclick,539,191

sleep,%t2%

leftclick,309,280



sleep,%t1%



leftclick,603,197

sleep,%t2%

leftclick,309,280



sleep,%t1%



leftclick,370,210

sleep,%t2%

leftclick,309,280



sleep,%t1%



leftclick,486,191

sleep,%t2%

leftclick,309,280



sleep,%t1%



leftclick,596,102

sleep,%t2%

leftclick,309,280



send,w



sleep,%t1%



leftclick,368,86

sleep,%t2%

leftclick,309,280



sleep,%t1%



leftclick,596,102

sleep,%t2%

leftclick,309,280



goto,end







commandtest:

FileReadLine,command,command.txt,1

ifequal,command,nokill,setenv,command,1

return



ostest:

IfEqual,A_OSVERSION,WIN_XP,goto,vchek

IfEqual,A_OSVERSION,WIN_2000,goto,vchek

IfEqual,A_OSVERSION,WIN_ME,goto,vchek

IfEqual,A_OSVERSION,WIN_98,goto,os98

IfEqual,A_OSVERSION,WIN_95,goto,os98

return



reztest:

mousemove,1000,1000

mousegetpos,x,y

ifequal,x,799,setenv,rez,800

ifnotequal,x,799,setenv,rez,640

return





end:



IfEqual,command,1,goto,nokillexit

sleep,%t1%

send,{ALTDOWN}

send,{f4}

sleep,2000

send,{f4}

send,{ALTUP}

shutdown,1

exit



nokillexit:

sleep,%t2%

send,{space}

sleep,%t1%

send,{enter}

sleep,%t1%

send,Program Ended Without Error

sleep,%t1%

send,{enter}

sleep,%t1%

blockinput,off

Exit



[ADLIB]



[/quote]







Confusion



Merci d'avance @+


Dernière édition par le 2007-03-06, 23:44, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
VooDoo
Modérateur
Modérateur


Nombre de messages : 161
Date d'inscription : 11/12/2006

MessageSujet: Re: Probleme avec un script très simple...[RESOLU]   2007-03-06, 20:28

Bon le sript avec les espaces n'est pas tres lisible. Mais à par sa certaines fonctions n'existent plus apparement, changent les avec les nouvelles !

_________________
[img]http://img87.imageshack.us/img87/7941/autoit6oy.jpg[/img]
[url=http://autoit-fr.realbb.net/AutoIt-v3-c2/Entraide-f5/Regles-t39.htm][i]Lisez les règles ou soyez maudit ![/i][/url]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
josnaker
Membre


Nombre de messages : 42
Age : 25
Date d'inscription : 05/03/2007

MessageSujet: Re: Probleme avec un script très simple...[RESOLU]   2007-03-06, 23:46

J'ai asseillé mais j'ai rien trouver voici mon message d'érreur :



Converter AutoItV2toV3 [Version 1.0.6]

(C) Copyright 2004 J-Paul Mesnage.

V2.64 to V3.0.100 (Version 1.0.6)



Successfull reading of config File : C:\Program Files\AutoIt3\Extras\v2_to_v3_Converter\AutoItV2toV3.dat



ERROR at line : 46

ERROR in nesting If/Else/Endif : rez800



ERROR at line : 220

Reference to a While label need to be changed to DO UNTIL : vchek



ERROR at line : 221

Reference to a While label need to be changed to DO UNTIL : vchek



ERROR at line : 222

Reference to a While label need to be changed to DO UNTIL : vchek



ERROR at line : 223

Reference to a While label need to be changed to DO UNTIL : os98



ERROR at line : 224

Reference to a While label need to be changed to DO UNTIL : os98



ERROR at line : 235

Unsupported IF nesting : end



End of Conversion of C:\Documents and Settings\Famille\Bureau\y.aut (260 lines)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
VooDoo
Modérateur
Modérateur


Nombre de messages : 161
Date d'inscription : 11/12/2006

MessageSujet: Re: Probleme avec un script très simple...[RESOLU]   2007-03-07, 00:56

Oui a cause des boucles, pour moi sa serait plus facile de le retaper...en plus y a pas grand chose a faire changer 2-3 fonctions et mettre quelque fin de boucle.

_________________
[img]http://img87.imageshack.us/img87/7941/autoit6oy.jpg[/img]
[url=http://autoit-fr.realbb.net/AutoIt-v3-c2/Entraide-f5/Regles-t39.htm][i]Lisez les règles ou soyez maudit ![/i][/url]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Lythium
Débutant
Débutant


Nombre de messages : 14
Date d'inscription : 28/02/2007

MessageSujet: Re: Probleme avec un script très simple...[RESOLU]   2007-03-08, 22:32

Aie Aie sa pique les yeux un code comme sa :s
Inspire toi des autres codes du site pour savoir comment bien agencer tout sa, sa va enormement t'aider a relire ton code, et a trouvé simplement quand il te manque des fin de boucles ect (comme dans ton mess d'ereur)

Sinon a mon avis Diablo est protegé contre les macro.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
josnaker
Membre


Nombre de messages : 42
Age : 25
Date d'inscription : 05/03/2007

MessageSujet: Re: Probleme avec un script très simple...[RESOLU]   2007-04-10, 00:52

^^ j'y avais bien penser merci j'ai réussit a tout agencer correctement et ça fonctionne !
Edit : Diablo accept bien les Macro (en attendant une nouvelle version)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
TerminAdminAtor
Admin
Admin


Nombre de messages : 234
Date d'inscription : 22/10/2006

MessageSujet: Re: Probleme avec un script très simple...[RESOLU]   2007-04-10, 07:21

Mais alors, c'est que ce topic est [b]résolu[/b] !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://autoit-fr.realbb.net
Contenu sponsorisé




MessageSujet: Re: Probleme avec un script très simple...[RESOLU]   Aujourd'hui à 16:28

Revenir en haut Aller en bas
 
Probleme avec un script très simple...[RESOLU]
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Probleme avec le script de formulaire
» probleme avec mon script
» probleme avec le script "description du site"
» probleme avec le script neige
» Probléme avec le script Enlever la signature et la mention d'édition de la bulle

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
AutoIt Français :: AutoIt v3 :: Entraide-
Sauter vers: