[Pytanie] Problem Z Autoit - Temat Zbiorczy

RobeM · 18 Lipca 2010

skoro wie jak zdekompilowac to i wie w czym program zrobiony jest

Dubler · 19 Lipca 2010

ponawiam swoje pytanie:

Jak zrobić żeby program losował wartosci dla 6 zmiennych od 1-50 z pominięciem wcześniej wylosowanych? np jest $1, $2, $3, $4, $5 i $6 i ma wylosować im liczby od 1 do 50 ale tak żeby się nie powtarzały. NA PRZYKŁADZIE

odpowiedzią jest:

Func losuj()

$1 = Random(1, 49, 1)

do

$2 = Random(1, 49, 1)

until $2 <> $1

do

$3 = Random(1, 49, 1)

until $3 <> $1 and $3 <> $2

do

$4 = Random(1, 49, 1)

until $4 <> $1 and $4 <> $2 and $4 <> $3

do

$5 = Random(1, 49, 1)

until $5 <> $1 and $5 <> $2 and $5 <> $3 and $5 <> $4

do

$6 = Random(1, 49, 1)

until $6 <> $1 and $6 <> $2 and $6 <> $3 and $6 <> $4 and $6 <> $5

drugie:

jak te zmienne z @up poukładać żeby się wyświetlały po kolei?

i trzecie:

jak zrobić żeby program pisał maila np z yahoo

@edit:

aa i jeszcze czwarte: jak zrobic zeby obrazek był tłem programu

4ggr35510n · 19 Lipca 2010

Banalnie proste pytanie:

Co zrobić, żeby SciTE kolorował mi na niebiesko/pogrubiał te funkcje, które sam sobie napisałem?

4ggr35510n · 19 Lipca 2010

@Dubler:

Poprawna funkcja do losowania niepowtarzających się liczb (i ew. ustawienia po kolei) jest tutaj [napisana przeze mnie, dawaj plusa :P]

#Include<Array.au3>

$ile_liczb_losowac = 56
$granica_dolna = 1
$granica_gorna = 50

Local $temp

Local $tablica[$ile_liczb_losowac]

;zabezpieczenie przed tym, żeby pętla nie wykonywała się w nieskończoność (przeanalizuj na końcu)
If $ile_liczb_losowac > $granica_gorna - $granica_dolna Then
MsgBox(0,"","Zakres przez ciebie ustawiony zawiera " & $granica_gorna - $granica_dolna & " liczb całkowitych, więc nie możesz z niego wylosować" & $ile_liczb_losowac & " liczb!")
Exit
EndIf

; główna pętla, (przeanalizuj na początku)
For $i = 0 to $ile_liczb_losowac - 1
While True
	$temp = Random($granica_dolna, $granica_gorna, 1)
	If _ArraySearch($tablica, $temp) = -1 Then
		$tablica[$i] = $temp
		ExitLoop
	EndIf
WEnd
Next

;funkcja odpowiedzialna za posortowanie tablicy:
_ArraySort($tablica)

;funkcja odpowiedzialna za wyświetlenie tablicy:
_ArrayDisplay($tablica)

;;ogólnie potrzebujesz się zapoznać z funkcjami autoita dotyczących tablic, są łatwe i jest ich koło 20

Uważaj z nią, bo przy stosowaniem do losowania z większej ilości liczb (powyżej miliona) będzie pracować bardzo nieefektywnie i wtedy wypadałoby napisać coś innego

A do meilowania służy funkcja:

_INetSmtpMail

adwi32 · 22 Lipca 2010

o co biega z PixelGetColor i hwnd?

to jest to samo co handle w Au3Info?

to jest zmienne czy u wszystkich takie same? chodzi o to że jak ja mam chrome i mam np.0x00120518 to mój kolega który też ma tą samą wersje chrome musi miec to samo?

sorry za take pytanie chyba dość proste ale nigdy tego nie kumałem i bałem się zapytać

RobeM · 22 Lipca 2010

od tego masz opisane instrukcje w pliku co robią , komentarze na zielono przed każdą funkcją

hwnd to zmienna tu jak mniemam do określenia nazwy okna

silkerer · 22 Lipca 2010

Witam

Potrzebuje skryptu ktory robi nastepujace rzeczy:

-najezdza kursorem na koordy np. 1,1

-wciska prawy przycisk myszy

-najezdza kursorem na koordy np. 2,2

-klika lewy przycisk myszy

-najezdza kursorem na koordy np. 3,3

-wciska prawy przycisk myszy

-nastepnie wraca do pierwszego punktu

itd.

A i ten kursor musi sie ruszac tylko w nieaktywnym oknie. Da sie cos takiego zrobic?

Wiem jak odczytac koordy kursora, tylko wlasnie nie wiem jak najezdzac kursorem na zdefiniowane pozycje i nie wiem jak zrobic aby wciskalo przyciski myszy.

jackraymund · 22 Lipca 2010

while 1

MouseMove(1,1,0)

MouseClick("right")

MouseMove(2,2,0)

MouseClick("left")

MouseMove(3,3,0)

MouseClick("right")

WEnd

silkerer · 22 Lipca 2010

No dobra, ale czy da sie zrobic tak, zeby myszka ruszala sie w nieaktywnym oknie? (czyli np. przegladam sobie cos w necie i jednoczesnie wykunuja sie te ruchy myszy w nieaktywnym oknie (w grze))?

jackraymund · 22 Lipca 2010

może ta funkcja?

http://www.autoitscript.com/autoit3/docs/functions/ControlMove.htm

np

ControlMove("Metin2", "", "", 0, 0, 200, 200)

ps19 · 24 Lipca 2010

Co tu jest nie tak ?

	Case $Button1
		Call("las")
		WinWaitActive("wpc")
		Sleep(1000)
		Call("char1")
		WinActivate("wpc")
		Sleep(500)
		Call("char2")
		WinActivate("wpc")
		Sleep(500)
		Call("char3")

Włącza funkcje las czeka aż aktywuje się okienko wpc czeka 1000 ms włącza funkcje char1 aktywuje okienko wpc czeka 500 ms itd

RobeM · 24 Lipca 2010

jak aktywuje ?

@UP myszką nie można poruszać w nieaktywnym oknie

jackraymund · 24 Lipca 2010

@up2

a możesz pokazac te funkcje?

ps19 · 24 Lipca 2010

Aktywuje-z paska zadań (aktywuje zminimalizowany program).

1 z funkcji:

Func char1() ;start1
While 1
	Global $x, $y
	$result = _ImageSearch("img/start1.bmp", 1, $x, $y, 15)
	If $result = 1 Then
		MouseClick("left", $x, $y)
	EndIf
WEnd
EndFunc ;==>char1

jackraymund · 24 Lipca 2010

jest w tym pętla więc będzie wykonywało ciągle jedną funkcje...

ps19 · 27 Lipca 2010

Jak zrobić coś w rodzaju że ja k najedzie się na button to podnim pojawi się takie żółte okienko z podpowiedzią np.Jak na mnie klikniesz to coś tam...

4ggr35510n · 27 Lipca 2010

GuiCtrlSetTip albo ToolTip

ps19 · 27 Lipca 2010

Co zrobić, aby jak się najedzie na button to pod nim pojawi się takie żółte okieno z podpowiedzią

4ggr35510n · 27 Lipca 2010

GUICtrlSetTip(-1, "Usuwa " & $nazwa & " z Autostartu")

ps19 · 28 Lipca 2010

Co zrobić żeby Jak klikne na X to żeby zamykało się tylko okienko Opcje ,a nie wszystkie okna ?

While 1
$nMsg1 = GUIGetMsg()
Switch $nMsg1
	Case $GUI_EVENT_CLOSE
		Exit
				Case $Button2
	Call("opcje")

EndSwitch
WEnd

asdek171 · 28 Lipca 2010

Tu masz przykład

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("MPCforum.pl", 347, 124, 192, 124)
$Label1 = GUICtrlCreateLabel("INFO", 136, 16, 49, 28)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE,$form1)

EndSwitch
WEnd

Licze na ----

ps19 · 28 Lipca 2010

Tylko że mam osobne gui do Opcji,a jak dam GUISetState(@SW_HIDE,$Opcje) to wogóle nic niechce się uruchomi ć

asdek171 · 28 Lipca 2010

To podaj kod skryptu chociaż same GUI.

ps19 · 28 Lipca 2010

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=D:\Programowanie\AutoIT\Koda Files\Launcher.kxf
$EM2 = GUICreate("XXXXXr", 619, 361, 293, 123)
GUISetIcon("D:\009.ico")

$Button3 = GUICtrlCreateButton("&Włącz Metin2", 462, 8, 145, 50, $WS_GROUP)
GUICtrlSetTip(-1, "XXXXX")

GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic("XXXX", 8, 8, 419, 340, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Button2 = GUICtrlCreateButton("&Opcje", 462, 136, 145, 50, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")


$Button1 = GUICtrlCreateButton("XXXXXX", 462, 72, 145, 50, $WS_GROUP)
GUICtrlSetTip(-1, "Włącza EasyMetin2 wraz z Metin2.")

GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_HIDE, $Opcje)
Func opcje()
$Opcje = GUICreate("Opcje", 490, 197, 686, 317)


$Button4 = GUICtrlCreateButton("&Usuń mnie z AutoStartu", 290, 16, 160, 25, $WS_GROUP)
GUICtrlSetTip(-1, "Usuwa " & $nazwa & " z Autostartu")

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")


$Button5 = GUICtrlCreateButton("Dodaj mnie do Autostartu", 15, 16, 160, 25, $WS_GROUP)
GUICtrlSetTip(-1, "Dodaje " & $nazwa & " do Autostartu")

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")


$Checkbox3 = GUICtrlCreateCheckbox("3.Postać", 371, 65, 75, 25)
GUICtrlSetTip(-1, "Jesli chcesz, aby postać właczyła się zaznacz tą opcję")


$Checkbox2 = GUICtrlCreateCheckbox("2.Postać", 199, 65, 75, 25)
GUICtrlSetTip(-1, "Jesli chcesz, aby postać właczyła się zaznacz tą opcję")


$Checkbox1 = GUICtrlCreateCheckbox("1.Postać", 19, 65, 75, 25)
GUICtrlSetTip(-1, "Jesli chcesz, aby postać właczyła się zaznacz tą opcję")

$Button6 = GUICtrlCreateButton("Zapisz ustawienia", 176, 155, 130, 25, $WS_GROUP)
$CheckBox4 = GUICtrlCreateCheckbox("Autostart " & $nazwa & "", 11, 113, 329, 25, BitOR($BS_CHECKBOX, $BS_AUTO3STATE, $WS_TABSTOP))
GUICtrlSetTip(-1, "Włącza " & $nazwa & " wraz z systemem")
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
EndFunc   ;==>opcje

Nie kpiować tego bo zabije :angry:

asdek171 · 28 Lipca 2010

a podaj cały kod bo brakuje zmiennych

Zaloguj się

👋 Witaj na MPCForum!

[Pytanie] Problem Z Autoit - Temat Zbiorczy

Rekomendowane odpowiedzi

Zarchiwizowany