Il_mistero_del_boemo |
|
| Finalmento oggi ho ultimato il mio autolock. Funziona su alieni e astronavi ma solo un tipo alla volta (es. solo lordakia, solo dimisher etc..) e non funziona ancora con i pirati, forse potrebbe funzionare sui barracuda ma è da testare. Settarlo è molto semplice: -Bisogna mettere il mouse sull'alieno o l'astronave che si desidere autocliccare e premere F2. -Bisogna premere F3 ed impostare la variazione del colore, se per esempio esso varia molto facilmente (es. mordon, sibelon) -Per avviare l'autolock basta premere shift (quello di sinistra). -Per uscire premere esc -Per mettere in pausa premere TAB (il tasto con le 2 frecce in direzioni opposte). ECCO IL SORGENTE  Per favore non copiate e incollate il sorgente e creare altri programmi identici a vostro nome grazie CODICE #include<GDIPlus.au3>
_GDIPlus_Startup()
Opt("GUIOnEventMode", 1)
Global $n=0, $frase="Devo imparare a non essere lamer", $y=0, $x=10
$GUI=GUICreate("", 500, 500)
GUISetOnEvent(-3, "_Exit")
$hGraph=_GDIPlus_GraphicsCreateFromHWND($GUI)
_GDIPlus_GraphicsSetSmoothingMode($hGraph, 2)
$hBackBrush=_GDIPlus_BrushCreateSolid(0xFF002000)
$hFormat=_GDIPlus_StringFormatCreate ()
$hFamily=_GDIPlus_FontFamilyCreate ("Arial")
$hFont=_GDIPlus_FontCreate ($hFamily, 10, 0)
$hBrush=_GDIPlus_BrushCreateSolid(0xA0C0C0C0)
GUISetBkColor(0x002000)
GUISetState()
Do
$n+=1
If $n>StringLen($frase) Then
$n=1
$y+=20
If $y>=480 Then
If $x=260 Then Exit
$y=0
$x=260
EndIf
EndIf
$tLayout=_GDIPlus_RectFCreate ($x, $y, 240, 20)
$aInfo = _GDIPlus_GraphicsMeasureString ($hGraph, StringLeft($frase, $n), $hFont, $tLayout, $hFormat)
_GDIPlus_GraphicsDrawStringEx ($hGraph, StringLeft($frase, $n), $hFont, $aInfo[0], $hFormat, $hBrush)
Sleep(18)
Until False
Func _Exit()
Exit
EndFunc |
| | |
