Jump to content

elgabionline

Active Members
  • Posts

    105
  • Joined

  • Last visited

About elgabionline

  • Birthday 09/08/1977

Profile Information

  • Location
    Argentina (Santa Fe)
  • Interests
    Music - Futbol Soccer - AutoIt - Chemistry - Books - etc.

elgabionline's Achievements

Adventurer

Adventurer (3/7)

0

Reputation

  1. Spanish Translation (Word's cutes intentionally removed) (Acentos removidos intencionalmente) INSERT INTO "Lang" VALUES('Spanish','Respaldar Ahora','Nombre','Salir','Version:','Buscar Actualizacion','Opciones','Iniciar con Windows','Desactivar pantalla Splash','Ir a la bandeja mientras respaldo','Inicio minimizado','Lenguaje:','Opciones de Respaldo','Realizar respaldos uno por vez (Recomendado)','Desactivar Notificaciones','Ejecutar Ahora','Modificar','Borrar','Esto cerrara SyncX ahora ¿Continuar?','Borrar respaldo','Proseguir con el borrado de: ','Lenguaje','¡El lenguaje se mostrara al recargar!','¿Desea recargar ahora?','Nuevo Respaldo','Rutas','Ruta de origen','Desde...','Ruta de destino','Hacer en...','Nombre del Respaldo','Configuraciones','Copiar directorios y subdirectorios exceptuando los vacios','Copiar directorios y subdirectorios incluyendo los vacios','No mostrar nombres de archivos durante la copia','Mostrar nombres completos de archivos origen y destino mientras copia','Verificar nuevos archivos','Continuar la copia aunque haya errores','Copiar tambien archivos de sistema y ocultos','Sobreescribir Archivos de Solo-lectura','Sobreescribir todos los archivos de destino','Ocultar proceso','Programar','Ejecutar este respaldo cada:','Dia|Domingo|Lunes|Martes|Miercoles|Jueves|Viernes|Sabado','Dia','A las:','Horas:','Minutos:','Aplicar','Cancelar','Modificar','Ahora','Seleccionar ruta de destino:','Seleccionar ruta de origen:','Nombre del respaldo aqui','Ruta origen','Ruta destino','Error','Uno o mas campos requeridos por el programador estan incompletos!','¡Listo!','¡Respaldado satisfactoriamente!','Respaldo modificado exitosamente!','El respaldo comenzo.','El respaldo finalizo.','Duracion: ','Lunes','Martes','Miercoles','Jueves','Viernes','Sabado','Domingo','Agregar nuevos respaldos a la lista','Modificar los respaldos seleccionados','Remover los respaldos seleccionados',NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL, NULL,NULL,NULL,NULL,NULL,NULL);
  2. Hi to all members here. Thanks for their comments and replies. I was thinking about your ideas. While I was analyzing this, the biggest problem that I found is get to be able to simulate Joystick commands "Send", at the game. There were not problems in attempting "record" the movements with a script logger (like a "Joysticks catches"), but: how to carry out the commands to the window? That would be hindering me the things (and for the time being, I don't see solution). I try with some calls to the functions built in winmm.dll but all attempts failed. I think that it could also be some protection in the games, although I'm not sure. It's a pain for me that I couldn't find this problem to "solve it in advance". Well, I'll be searching for any ideas.. (or if I devised something) Bye!
  3. Yes.. I can see that. I try with this code, and the edge shouldn't appear. But neither the gif appears! _Main() Func _Main() Local $pheight, $pwidth, $oIE, $GUIActiveX, $gif = @DesktopDir&"\Happy_Birthday_Gross.gif"; I put the image there... :) _GetGifPixWidth_Height($gif, $pwidth, $pheight) $oIE = ObjCreate("Shell.Explorer.2") GUICreate("Embedded Web control Test", 640, 580) $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, $pwidth, $pheight) With $oIE .navigate ("about:blank") .document.body.background=$gif .document.body.scroll = "no" EndWith GUISetState() While GUIGetMsg() <> -3 WEnd EndFunc ;==>_Main Func _GetGifPixWidth_Height($s_gif, ByRef $pwidth, ByRef $pheight) If FileGetSize($s_gif) > 9 Then Local $sizes = FileRead($s_gif, 10) ConsoleWrite("Gif version: " & StringMid($sizes,1,6) & @LF) $pwidth = Asc(StringMid($sizes, 8, 1)) * 256 + Asc(StringMid($sizes, 7, 1)) $pheight = Asc(StringMid($sizes, 10, 1)) * 256 + Asc(StringMid($sizes, 9, 1)) ConsoleWrite($pwidth & " x " & $pheight & @LF) EndIf EndFunc ;==>_GetGifPixWidth_Height Depending on the order I puts them in Width-EndWith, scroll bar not appears or the image appears. Not both...
  4. Yes yes yes... that code works!! and really nice! @gafrost: A lot of thanks for help me with my... "scrap"
  5. @gafrost: maybe, but that code works. I need opinions to make it better... do you believe that is in wrong place? I was not sure, for that reason I put this code here... whatever, thanks
  6. Hi! I Just trying... My first attempt here: #include <guiconstants.au3> GUICreate ("Show Gif",200,150) _guictrlcreategif ("http://www.autoitscript.com/forum/style_emoticons/autoit/idea.gif",10,10,22,26) GUISetState () While 1 $msg=GUIGetMsg () if $msg=$GUI_EVENT_CLOSE Then ExitLoop WEnd GUIDelete () filedelete (@tempdir&"\gifload") Exit Func _GUICtrlCreateGif ($s_path,$n_left,$n_top,$n_width,$n_height,$o_Gif=-1) If $o_Gif=-1 Then $o_Gif=ObjCreate ("Shell.Explorer.2") If IsObj ($o_Gif) Then Local $h_control=GUICtrlCreateObj ($o_Gif,$n_left,$n_top,$n_width+4,$n_height+4) $h_file=FileOpen (@TempDir&"\gifload",2) $s_line='<BODY background="'&$s_path&'" Scroll="No">' FileWriteLine ($h_file,"<HTML>") FileWriteLine ($h_file,$s_line) FileWriteLine ($h_file,"</BODY>") FileWriteLine ($h_file,"</HTML>") FileClose ($h_file) $o_Gif.navigate (@TempDir&"\gifload") Return $h_control Else SetError (1) Return False EndIf EndFunc I made this, but it stinks... is there some better way to show animated gifs? I listen for suggestions!! :">
  7. NICE!!! Awesome script... thanks for share!!!! It's very usefull for all
  8. There the problem is my friend: Into folder [...]\beta\Aut2Exe should be the Upx.exe Aut2exe.exe AutoItSC.bin upx.exe
  9. Upx reduces the size of executable. If you have an active antivirus, this can interferes with the compression. You can also verify that the upx program is placed in the corresponding directory
  10. $opt save the previous value of Opt () Func wait() Run ("someprogram.exe"); Executes an external program $opt=Opt ("GuiOnEventMode",0) For $i=1 To 500; five seconds (10 miliseconds sleep * 500 loops) $msg=GUIGetMsg () Sleep(10) If $msg=$start Then; it will scan each 10 milisegundos if the button is pressed ProcessClose ("someprogram.exe"); closes the program ONLY if button stop is clicked ExitLoop EndIf Next Opt ("GuiOnEventMode",$opt) GUICtrlSetData($start,"START");when finish sleep, button text becomes to "Start" EndFunc
  11. the issue is: "sleep" stops the execution of the script, for that reason it doesn't receive commands #include <GUIConstants.au3> $path = "C:\link.txt" Opt("GUIOnEventMode", 1); Change to OnEvent mode $mainwindow = GUICreate("hi", 400, 300) ; LABELS GUICtrlCreateLabel("Hello world! How are you?", 30, 10) $Halo = GUICtrlCreateProgress (60,270,240,20) GUICtrlSetColor(-1,32250) ; BUTTONS TO BOTTOM $start = GUICtrlCreateButton("START",250,200,45) ; EVENTS GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") GUICtrlSetOnEvent($start,"startB") GUISetState() ; INPUTS While 1 Sleep(1000); Idle around WEnd Func startB() $status = GUICtrlRead($start) If $status = "START" Then GUICtrlSetData($start,"STOP") wait() ;what to put here to stop wait() ??? EndIf EndFunc Func CLOSEClicked() Exit EndFunc Func wait() $opt=Opt ("GuiOnEventMode",0) For $i=1 To 500; five seconds (10 miliseconds of sleep * 500 loops) $msg=GUIGetMsg () Sleep(10) If $msg=$start Then ExitLoop; it will scan each 10 ms if the button is pressed Next Opt ("GuiOnEventMode",$opt) GUICtrlSetData($start,"START");when finish sleep, button text becomes to "Start" EndFunc If I understand the problem, that will work
  12. That code doesn't work, it's too incomplete. I don't know what problem is there
  13. Sure you are using a Internet Explorer window, not Mozilla or Opera? Then try with this: #include <misc.au3> while 1 sleep (300) if _ispressed ("5A") then KillPopups () wend Func KillPopups() If ProcessExists('iexplore.exe') Then ProcessClose('iexplore.exe') EndFunc
  14. Put hotkeyset on top. That shoul be work....
  15. ¿You have a dial up connection?
×
×
  • Create New...