Administrator
Tentang bla..bla.bla..
Rem mulai
Gosub cek warna
Goto mulai
Sub cek warna
dim color(1),s,x,y
// color(0)kamu isi sample color ke1 yg color(1)kamu isi sample color ke2 dari momon
//Gnoll Sharp
color(0)="3A517A":color(1)="304774"
//Kabold
//color(0)="47525E":color(1)="404d56"
//Kabold Brown
//color(0)="0f3566":color(1)="0c3263"
While true
s=0
For 2
VBSCall findcentercolor(0,0,1024,768,color(s),x,y)
//ini pake resolusi gw
If x>=0 and y>=0
MoveTo x y
LeftClick 1
IfColor 342,41,d69cff,0
EndIf
KeyPress 50,1
Delay 1300
KeyPress 50,1
EndIf
s=s+1
EndFor
Delay 1
EndWhile
Return "
Tanpa tanda kutip
0 komentar:
Posting Komentar
Dimohon Komentarnya...
1 Komentar Anda Sangat Berarti Untuk Blog Saya...