mig33 aceh


Join the forum, it's quick and easy

mig33 aceh
mig33 aceh
Would you like to react to this message? Create an account in a few clicks or log in to continue.
Login

Lupa password?

November 2024
SunMonTueWedThuFriSat
     12
3456789
10111213141516
17181920212223
24252627282930

Calendar Calendar

mig33aceh chatbox

ShoutMix chat widget
Histats

CUMA APP ISENG2 NE

+4
c...J
t0k3k
Ayu
off_stupid
8 posters

Halaman 1 dari 2 1, 2  Next

Go down

CUMA APP ISENG2 NE Empty CUMA APP ISENG2 NE

Post by off_stupid Tue Dec 09, 2008 8:54 pm

RAJIN MENULIS DENGAN MENULIS PASTI MEMBACA DENGAN MEMBACA PASTI DPT MEMAHAMI DENGAN MEMAHAMI PASTI ANDA DAPAT BERKREASI

MAAF KAMI LAGI SIBUK NGOPI


Terakhir diubah oleh off_stupid tanggal Fri Dec 19, 2008 6:25 am, total 2 kali diubah

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by Ayu Thu Dec 11, 2008 7:06 pm

jyahhh

ka mate Qe..


im cit lah:p
Ayu
Ayu
MyTeam

Female
Jumlah posting : 177
Age : 35
Lokasi : UnNamed world
Job/hobbies : Ke pantai,baca,n0ntn dvd,maen GUitarhero ps2.,chat,ng0mp0rin org brantem di mig
Humor : Hag,hum0r adalah gw
Nick mig33 : yuuuu
Registration date : 01.09.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by t0k3k Thu Dec 11, 2008 8:02 pm

jah ...CUMA APP ISENG2 NE Hypno

kiraen apa knapa ada apa mau apa n mengapa gtu.... CUMA APP ISENG2 NE Asking

wekz...CUMA APP ISENG2 NE Being_funny
t0k3k
t0k3k
Member

Male
Jumlah posting : 28
Nick mig33 : mido1
Registration date : 10.09.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Fri Dec 12, 2008 5:58 am

Code:
#NoTrayIcon
SetTitleMatchMode, 3
DetectHiddenWindows, On
Gui, Font, S9 CBLANK Bold
Gui, Add, Tab, x6 y0 w230 h300 , USER|PROT|KICK
Gui, Add, GroupBox, x16 y30 w210 h260 ,
Gui, Add, Edit, x26 y50 w90 h20 vteks1 gteks1,
Gui, Add, Edit, x26 y70 w90 h20 vteks2 gteks2,
Gui, Add, Edit, x26 y90 w90 h20 vteks3 gteks3,
Gui, Add, Edit, x26 y110 w90 h20 vteks4 gteks4,
Gui, Add, Edit, x26 y130 w90 h20 vteks5 gteks5,
Gui, Add, Edit, x26 y150 w90 h20 vteks6 gteks6,
Gui, Add, Edit, x26 y170 w90 h20 vteks7 gteks7,
Gui, Add, Edit, x26 y190 w90 h20 vteks8 gteks8,
Gui, Add, Edit, x26 y210 w90 h20 vteks9 gteks9,
Gui, Add, Edit, x26 y230 w90 h20 vteks10 gteks10,
Gui, Add, Edit, x26 y260 w90 h20 vpswrd gpswrd Password,
Gui, Font,,
Gui, Add, Edit, x126 y50 w90 h20 vIP gIP +Center, IP
Gui, Font, S9 CBLANK Bold
Gui, Add, Button, x126 y90 w90 h30 , SAVE
Gui, Add, Button, x126 y120 w90 h30 , LOAD
Gui, Add, Button, x126 y160 w90 h20 , CLEAR
Gui, Add, Button, x126 y190 w90 h30 , OPEN
Gui, Add, Button, x126 y220 w90 h30 , CLOSE
Gui, Add, Text, x126 y260 w90 h20 +Center, stupid off duel
Gui, Tab, PROT
Gui, Add, GroupBox, x16 y30 w210 h130 , PROTECT
Gui, Add, Edit, x26 y50 w190 h20 vprt1 gprt1,
Gui, Add, Edit, x26 y70 w190 h20 vprt2 gprt2,
Gui, Add, Edit, x26 y90 w190 h20 vprt3 gprt3,
Gui, Add, Edit, x26 y110 w190 h20 vprt4 gprt4,
Gui, Add, Edit, x26 y130 w190 h20 vprt5 gprt5,
Gui, Add, GroupBox, x16 y160 w100 h130 , SPESIAL
Gui, Add, Text, x26 y180 w80 h20 , freezer
Gui, Add, Text, x26 y200 w80 h20 , JAY32
Gui, Add, Text, x26 y220 w80 h20 , p3p3
Gui, Add, Text, x26 y240 w80 h20 , vortex
Gui, Add, Text, x26 y260 w80 h20 , WSLM
Gui, Add, GroupBox, x116 y160 w110 h130 , FRIEND
Gui, Add, Text, x126 y180 w90 h20 , atakirz
Gui, Add, Text, x126 y200 w90 h20 , cassanova
Gui, Add, Text, x126 y220 w90 h20 , cheloniamidas
Gui, Add, Text, x126 y240 w90 h20 , diva_romeo
Gui, Add, Text, x126 y260 w90 h20 , puxku_puxmu
Gui, Tab, KICK
Gui, Add, GroupBox, x16 y30 w210 h260 , TARGET
Gui, Font, S6 CBLANK Bold
Gui, Add, Button, x26 y50 w20 h20 gkick1, K
Gui, Add, Button, x26 y70 w20 h20 gkick2, K
Gui, Add, Button, x26 y90 w20 h20 gkick3, K
Gui, Add, Button, x26 y110 w20 h20 gkick4, K
Gui, Add, Button, x26 y130 w20 h20 gkick5, K
Gui, Add, Button, x26 y150 w20 h20 gkick6, K
Gui, Add, Button, x26 y170 w20 h20 gkick7, K
Gui, Add, Button, x26 y190 w20 h20 gkick8, K
Gui, Add, Button, x26 y210 w20 h20 gkick9, K
Gui, Add, Button, x26 y230 w20 h20 gkick10, K
Gui, Font, S9 CBLANK Bold
Gui, Add, Button, x26 y260 w110 h20 , DEL
Gui, Add, Edit, x46 y50 w90 h20 vkick1,
Gui, Add, Edit, x46 y70 w90 h20 vkick2,
Gui, Add, Edit, x46 y90 w90 h20 vkick3,
Gui, Add, Edit, x46 y110 w90 h20 vkick4,
Gui, Add, Edit, x46 y130 w90 h20 vkick5,
Gui, Add, Edit, x46 y150 w90 h20 vkick6,
Gui, Add, Edit, x46 y170 w90 h20 vkick7,
Gui, Add, Edit, x46 y190 w90 h20 vkick8,
Gui, Add, Edit, x46 y210 w90 h20 vkick9,
Gui, Add, Edit, x46 y230 w90 h20 vkick10,
Gui, Add, Edit, x146 y50 w70 h20 vroom groom +Center, ROOM
Gui, Add, Edit, x146 y80 w70 h20 vDel gDel +Center, DELAY
Gui, Add, Button, x146 y110 w70 h30 , ENTER
Gui, Add, Button, x146 y140 w70 h30 , LEAVE
Gui, Font, S11 CRED Bold
Gui, Add, Button, x146 y220 w70 h60 , TAMPO
Gui, Add, Text, x146 y185 w70 h30 +Center, by:dwn
Gui, Font, S9 CBLANK Bold
Gui, Add, Edit, x26 y320 w110 h20 vmasuk gmasuk, ++
Gui, Add, Button, x26 y340 w110 h20 gAdd, ++
Gui, Add, Button, x146 y320 w70 h40 , GET
Gui, Show, x351 y44 h305 w241, STUPID OFF DUEL
Return


Terakhir diubah oleh off_stupid tanggal Thu Dec 18, 2008 4:53 pm, total 2 kali diubah

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Fri Dec 12, 2008 6:00 am

TAHAP 2:
Code:

#NoTrayIcon
SetTitleMatchMode, 3
DetectHiddenWindows, On
Gui, Font, S9 CBLANK Bold
Gui, Add, Tab, x6 y0 w230 h300 , USER|PROT|KICK
Gui, Add, GroupBox, x16 y30 w210 h260 ,
Gui, Add, Edit, x26 y50 w90 h20 vteks1 gteks1,
Gui, Add, Edit, x26 y70 w90 h20 vteks2 gteks2,
Gui, Add, Edit, x26 y90 w90 h20 vteks3 gteks3,
Gui, Add, Edit, x26 y110 w90 h20 vteks4 gteks4,
Gui, Add, Edit, x26 y130 w90 h20 vteks5 gteks5,
Gui, Add, Edit, x26 y150 w90 h20 vteks6 gteks6,
Gui, Add, Edit, x26 y170 w90 h20 vteks7 gteks7,
Gui, Add, Edit, x26 y190 w90 h20 vteks8 gteks8,
Gui, Add, Edit, x26 y210 w90 h20 vteks9 gteks9,
Gui, Add, Edit, x26 y230 w90 h20 vteks10 gteks10,
Gui, Add, Edit, x26 y260 w90 h20 vpswrd gpswrd Password,
Gui, Font,,
Gui, Add, Edit, x126 y50 w90 h20 vIP gIP +Center, IP
Gui, Font, S9 CBLANK Bold
Gui, Add, Button, x126 y90 w90 h30 , SAVE
Gui, Add, Button, x126 y120 w90 h30 , LOAD
Gui, Add, Button, x126 y160 w90 h20 , CLEAR
Gui, Add, Button, x126 y190 w90 h30 , OPEN
Gui, Add, Button, x126 y220 w90 h30 , CLOSE
Gui, Add, Text, x126 y260 w90 h20 +Center, stupid off duel
Gui, Tab, PROT
Gui, Add, GroupBox, x16 y30 w210 h130 , PROTECT
Gui, Add, Edit, x26 y50 w190 h20 vprt1 gprt1,
Gui, Add, Edit, x26 y70 w190 h20 vprt2 gprt2,
Gui, Add, Edit, x26 y90 w190 h20 vprt3 gprt3,
Gui, Add, Edit, x26 y110 w190 h20 vprt4 gprt4,
Gui, Add, Edit, x26 y130 w190 h20 vprt5 gprt5,
Gui, Add, GroupBox, x16 y160 w100 h130 , SPESIAL
Gui, Add, Text, x26 y180 w80 h20 , freezer
Gui, Add, Text, x26 y200 w80 h20 , JAY32
Gui, Add, Text, x26 y220 w80 h20 , p3p3
Gui, Add, Text, x26 y240 w80 h20 , vortex
Gui, Add, Text, x26 y260 w80 h20 , WSLM
Gui, Add, GroupBox, x116 y160 w110 h130 , FRIEND
Gui, Add, Text, x126 y180 w90 h20 , atakirz
Gui, Add, Text, x126 y200 w90 h20 , cassanova
Gui, Add, Text, x126 y220 w90 h20 , cheloniamidas
Gui, Add, Text, x126 y240 w90 h20 , diva_romeo
Gui, Add, Text, x126 y260 w90 h20 , puxku_puxmu
Gui, Tab, KICK
Gui, Add, GroupBox, x16 y30 w210 h260 , TARGET
Gui, Font, S6 CBLANK Bold
Gui, Add, Button, x26 y50 w20 h20 gkick1, K
Gui, Add, Button, x26 y70 w20 h20 gkick2, K
Gui, Add, Button, x26 y90 w20 h20 gkick3, K
Gui, Add, Button, x26 y110 w20 h20 gkick4, K
Gui, Add, Button, x26 y130 w20 h20 gkick5, K
Gui, Add, Button, x26 y150 w20 h20 gkick6, K
Gui, Add, Button, x26 y170 w20 h20 gkick7, K
Gui, Add, Button, x26 y190 w20 h20 gkick8, K
Gui, Add, Button, x26 y210 w20 h20 gkick9, K
Gui, Add, Button, x26 y230 w20 h20 gkick10, K
Gui, Font, S9 CBLANK Bold
Gui, Add, Button, x26 y260 w110 h20 , DEL
Gui, Add, Edit, x46 y50 w90 h20 vkick1,
Gui, Add, Edit, x46 y70 w90 h20 vkick2,
Gui, Add, Edit, x46 y90 w90 h20 vkick3,
Gui, Add, Edit, x46 y110 w90 h20 vkick4,
Gui, Add, Edit, x46 y130 w90 h20 vkick5,
Gui, Add, Edit, x46 y150 w90 h20 vkick6,
Gui, Add, Edit, x46 y170 w90 h20 vkick7,
Gui, Add, Edit, x46 y190 w90 h20 vkick8,
Gui, Add, Edit, x46 y210 w90 h20 vkick9,
Gui, Add, Edit, x46 y230 w90 h20 vkick10,
Gui, Add, Edit, x146 y50 w70 h20 vroom groom +Center, ROOM
Gui, Add, Edit, x146 y80 w70 h20 vDel gDel +Center, DELAY
Gui, Add, Button, x146 y110 w70 h30 , ENTER
Gui, Add, Button, x146 y140 w70 h30 , LEAVE
Gui, Font, S11 CRED Bold
Gui, Add, Button, x146 y220 w70 h60 , TAMPO
Gui, Add, Text, x146 y185 w70 h30 +Center, by:dwn
Gui, Font, S9 CBLANK Bold
Gui, Add, Edit, x26 y320 w110 h20 vmasuk gmasuk, ++
Gui, Add, Button, x26 y340 w110 h20 gAdd, ++
Gui, Add, Button, x146 y320 w70 h40 , GET
Gui, Show, x351 y44 h305 w241, STUPID OFF DUEL
Return

teks1:
Gui, Submit, NoHide
Return

teks2:
Gui, Submit, NoHide
Return

teks3:
Gui, Submit, NoHide
Return

teks4:
Gui, Submit, NoHide
Return

teks5:
Gui, Submit, NoHide
Return

teks6:
Gui, Submit, NoHide
Return

teks7:
Gui, Submit, NoHide
Return

teks8:
Gui, Submit, NoHide
Return

teks9:
Gui, Submit, NoHide
Return

teks10:
Gui, Submit, NoHide
Return

pswrd:
Gui, Submit, NoHide
Return

IP:
Gui, Submit, NoHide
IniWrite, %IP%, setan.ini, sod, Address
Return

ButtonSAVE:
SetWorkingDir %A_ScriptDir%\sod
SetControlDelay, -1
{
  IniWrite, %teks1%, setan.ini, sod, user01
  IniWrite, %teks2%, setan.ini, sod, user02
  IniWrite, %teks3%, setan.ini, sod, user03
  IniWrite, %teks4%, setan.ini, sod, user04
  IniWrite, %teks5%, setan.ini, sod, user05
  IniWrite, %teks6%, setan.ini, sod, user06
  IniWrite, %teks7%, setan.ini, sod, user07
  IniWrite, %teks8%, setan.ini, sod, user08
  IniWrite, %teks9%, setan.ini, sod, user09
  IniWrite, %teks10%, setan.ini, sod, user10
  {
      IniWrite, %pswrd%, setan.ini, sod, pswrd
  }
}
Return

ButtonLOAD:
SetWorkingDir %A_ScriptDir%\sod
SetControlDelay, -1
{
  IniRead, Id01, setan.ini, sod, user01
  IniRead, Id02, setan.ini, sod, user02
  IniRead, Id03, setan.ini, sod, user03
  IniRead, Id04, setan.ini, sod, user04
  IniRead, Id05, setan.ini, sod, user05
  IniRead, Id06, setan.ini, sod, user06
  IniRead, Id07, setan.ini, sod, user07
  IniRead, Id08, setan.ini, sod, user08
  IniRead, Id09, setan.ini, sod, user09
  IniRead, Id10, setan.ini, sod, user10
  IniRead,pswrd, setan.ini, sod, pswrd

  ControlSetText, Edit1, %Id01%, STUPID OFF DUEL
  ControlSetText, Edit2, %Id02%, STUPID OFF DUEL
  ControlSetText, Edit3, %Id03%, STUPID OFF DUEL
  ControlSetText, Edit4, %Id04%, STUPID OFF DUEL
  ControlSetText, Edit5, %Id05%, STUPID OFF DUEL
  ControlSetText, Edit6, %Id06%, STUPID OFF DUEL
  ControlSetText, Edit7, %Id07%, STUPID OFF DUEL
  ControlSetText, Edit8, %Id08%, STUPID OFF DUEL
  ControlSetText, Edit9, %Id09%, STUPID OFF DUEL
  ControlSetText, Edit10, %Id10%, STUPID OFF DUEL
  ControlSetText, Edit11, %pswrd%, STUPID OFF DUEL
}
Return

ButtonCLEAR:
SetControlDelay,-1
{
  ControlSetText, Edit1, ,
  ControlSetText, Edit2, ,
  ControlSetText, Edit3, ,
  ControlSetText, Edit4, ,
  ControlSetText, Edit5, ,
  ControlSetText, Edit6, ,
  ControlSetText, Edit7, ,
  ControlSetText, Edit8, ,
  ControlSetText, Edit9, ,
  ControlSetText, Edit10, ,
  ControlSetText, Edit11, ,
}
Return


ExitApp

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Fri Dec 12, 2008 6:02 am

CUKUP NE JA DULU COBA D BENAHI TUK SCRIP PAKE NOTPAD++ n AUTOHOTKEY

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Fri Dec 12, 2008 6:04 am

PROGRAM HANYA LOGIKA D SETIAP KATA PERINTAH YG KITA INGINKAN:d:d
CUMA KALO DAH MASUK BGAN ACCCI AGAK REPOT KARNA BNYK MENGGUNAKAN BHS SIMBOL---------------------------------------------........................................................................

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by t0k3k Sat Dec 13, 2008 11:16 pm

bljar,,,,,,,,,, dlu ya.... :study:
t0k3k
t0k3k
Member

Male
Jumlah posting : 28
Nick mig33 : mido1
Registration date : 10.09.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Tue Dec 16, 2008 8:44 am

gakda yg posssssssssssssssssssssssssssssssssssssssss

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by Ayu Thu Dec 18, 2008 10:00 pm

gak da yg pos coz g ngerti:D

mau blajar dubd:D

minta no.hape nya sini:D

hehehehe

nyeraaaaaaaaah dah
Ayu
Ayu
MyTeam

Female
Jumlah posting : 177
Age : 35
Lokasi : UnNamed world
Job/hobbies : Ke pantai,baca,n0ntn dvd,maen GUitarhero ps2.,chat,ng0mp0rin org brantem di mig
Humor : Hag,hum0r adalah gw
Nick mig33 : yuuuu
Registration date : 01.09.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Fri Dec 19, 2008 5:59 am

ne dikit lg contoh casing app hihihihihihihihihi

Code:

Gui, Font, S8 CRED Bold,
Gui, Add, Tab, x6 y0 w330 h300 , USER|MENU|KICK
Gui, Tab, USER
Gui, Add, GroupBox, x16 y30 w160 h260 , MULTY
Gui, Add, GroupBox, x186 y30 w140 h50 , IP
Gui, Add, GroupBox, x186 y90 w140 h160 , CTRL
Gui, Font, S8 CBLANK Bold,
Gui, Add, Edit, x46 y50 w120 h20 ,
Gui, Add, Edit, x46 y70 w120 h20 ,
Gui, Add, Edit, x46 y90 w120 h20 ,
Gui, Add, Edit, x46 y110 w120 h20 ,
Gui, Add, Edit, x46 y130 w120 h20 ,
Gui, Add, Edit, x46 y150 w120 h20 ,
Gui, Add, Edit, x46 y170 w120 h20 ,
Gui, Add, Edit, x46 y190 w120 h20 ,
Gui, Add, Edit, x46 y210 w120 h20 9,
Gui, Add, Edit, x46 y230 w120 h20 ,
Gui, Add, Edit, x46 y260 w120 h20 ,
Gui, Add, ComboBox, x197 y50 w117 h20 r5 ,
Gui, Add, Button, x256 y110 w60 h20 , QS
Gui, Add, Button, x256 y130 w60 h20 , QL
Gui, Add, Button, x196 y150 w120 h20 , QC
Gui, Add, Button, x196 y110 w60 h20 , SAVE
Gui, Add, Button, x196 y130 w60 h20 , LOAD
Gui, Add, Button, x196 y180 w90 h30 , OPEN
Gui, Add, Button, x196 y210 w90 h30 , CLOSE
Gui, Add, Button, x286 y180 w30 h60 , RL
Gui, Font, S6 CRED Bold,
Gui, Add, Radio, x206 y260 w40 h30 , 100
Gui, Add, Radio, x248 y260 w40 h30 , 200
Gui, Add, Radio, x286 y260 w40 h30 , 300
Gui, Add, Button, x26 y50 w20 h20 , 01
Gui, Add, Button, x26 y70 w20 h20 , 02
Gui, Add, Button, x26 y90 w20 h20 , 03
Gui, Add, Button, x26 y110 w20 h20 , 04
Gui, Add, Button, x26 y130 w20 h20 , 05
Gui, Add, Button, x26 y150 w20 h20 , 06
Gui, Add, Button, x26 y170 w20 h20 , 07
Gui, Add, Button, x26 y190 w20 h20 , 08
Gui, Add, Button, x26 y210 w20 h20 , 09
Gui, Add, Button, x26 y230 w20 h20 , 10
Gui, Add, Button, x26 y260 w20 h20 , PS
Gui, Font, S8 CRED Bold,
Gui, Tab, MENU
Gui, Add, GroupBox, x16 y30 w150 h260 , PROTECT
Gui, Add, GroupBox, x166 y30 w160 h110 , TEMER
Gui, Add, GroupBox, x166 y150 w160 h140 , DELAY
Gui, Font, S8 CBLANK Bold,
Gui, Add, Edit, x26 y50 w130 h20 ,
Gui, Add, Edit, x26 y70 w130 h20 ,
Gui, Add, Edit, x26 y90 w130 h20 ,
Gui, Add, Edit, x26 y110 w130 h20 ,
Gui, Add, Edit, x26 y130 w130 h20 ,
Gui, Add, Edit, x26 y150 w130 h20 ,
Gui, Add, Edit, x26 y170 w130 h20 ,
Gui, Add, Edit, x26 y190 w130 h20 ,
Gui, Add, Edit, x26 y210 w130 h20 ,
Gui, Add, Edit, x26 y230 w130 h20 ,
Gui, Add, Edit, x26 y250 w130 h20 ,
Gui, Font, S28 CBLANK Bold,
Gui, Add, Edit, x176 y50 w140 h50 +Center,
Gui, Font, S6 CRED Bold Bold,
Gui, Add, Edit, x176 y310 w150 h30 ,
Gui, Add, Radio, x176 y170 w50 h20 , 10
Gui, Add, Radio, x176 y190 w50 h20 , 20
Gui, Add, Radio, x176 y210 w50 h20 , 30
Gui, Add, Radio, x176 y230 w50 h20 , 40
Gui, Add, Radio, x176 y250 w50 h20 , 50
Gui, Add, Radio, x226 y170 w50 h20 , 60
Gui, Add, Radio, x226 y190 w50 h20 , 70
Gui, Add, Radio, x226 y210 w50 h20 , 80
Gui, Add, Radio, x226 y230 w50 h20 , 90
Gui, Add, Radio, x226 y250 w50 h20 , 100
Gui, Add, Radio, x276 y170 w40 h20 , 110
Gui, Add, Radio, x276 y190 w40 h20 , 120
Gui, Add, Radio, x276 y210 w40 h20 , 130
Gui, Add, Radio, x276 y230 w40 h20 , 140
Gui, Add, Radio, x276 y250 w40 h20 , 150
Gui, Font, S8 CRED Bold,
Gui, Add, Button, x176 y110 w140 h20 , STAR
Gui, Tab, KICK
Gui, Add, GroupBox, x16 y30 w180 h260 , LIST
Gui, Add, GroupBox, x196 y30 w130 h50 , ROOM
Gui, Add, GroupBox, x196 y80 w130 h210 , CTRL
Gui, Font, S8 CBLANK Bold,
Gui, Add, Edit, x206 y50 w110 h20 +Center, ROOM
Gui, Add, Edit, x206 y190 w90 h30 , teks
Gui, Add, Button, x206 y100 w110 h30 , ENTER
Gui, Add, Button, x206 y130 w110 h30 , LEAVE
Gui, Add, Button, x206 y160 w110 h20 , DEL
Gui, Add, Button, x206 y230 w110 h50 , GASKICK
Gui, Add, Button, x296 y190 w20 h30 , S
Gui, Add, ListBox, x26 y50 w160 h230 ,
Gui, Show, x397 y2 h309 w346, teeeees
Return

GuiClose:
ExitApp

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty CLIK D SINE

Post by off_stupid Fri Dec 19, 2008 6:03 am

ne app-a tuk edit scrip+complikasi-a
heeeeeeeeeeeeeeeeeeeeeeeeee

dunlut

MAAF KAMI LAGI SIBUK NGOPIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII ...
CKCKCKCKCKCKCKCKCKCKCKCKCKCKCKCK

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by c...J Fri Dec 19, 2008 12:47 pm

Wew buk moderatornya mo cS ne ma pak masterTOOL:P

Wkwk ane s7 ma ayu,
stuf org ne ga repost cz emank ga ngerti :p

ane tak mangan ruti jg sih:p
:malu:
c...J
c...J
ADMIN
ADMIN

Male
Jumlah posting : 459
Age : 38
Lokasi : Banda Aceh
Job/hobbies : Gag jels...
Registration date : 01.09.08

http://freelover.tk

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Sat Dec 20, 2008 12:24 am

Code:

#NoEnv
; created by ae.1
; based upon the RCB example from helpfile

; Description: It works with a redirection of the CallWindowProc to a UserDefinedFunction
;              Within the script. Right after execution the Call will be directed to the
;              origin address.

; HTML Colors in BGR-format
Black = 0x000000
Green = 0x008000
Silver = 0xC0C0C0
Lime = 0x00FF00
Gray = 0x808080
Olive = 0x800080
White = 0xFFFFFF
Yellow = 0x00FFFF
Maroon = 0x000080
Navy = 0x800000
Red = 0x0000FF
Blue = 0xFF0000
Purple = 0x800080
Teal = 0x808000
Fuchsia = 0xFF00FF
Aqua = 0xFFFF00

Gui, Margin, 10, 10
Gui, Font, s12
Gui, Color, Black
Gui, Add, Text, vTXT1 HwndTX1ID w300, A little Text`nwith colored Background
Control_Colors("TXT1", "Set", Teal, White)
Gui, Add, CheckBox, HwndCB1ID wp vCB1 gCB1Clicked, A Checkbox
Control_Colors("CB1", "Set", Silver)
Gui, Add, Radio, HwndRB1ID xp y+0 wp vRB1 gRB1Clicked, Radiobutton used as Checkbox
RB1 := False
Control_Colors("RB1", "Set", Silver)
Gui, Add, Edit, vROED1 HwndED1ID ReadOnly wp, This is a Readonly Edit!
Control_Colors("ROED1", "Set", Red, Yellow)
Gui, Add, Text, vDTXT1 HwndTX2ID Disabled wp, This Text is disabled.
Control_Colors("DTXT1", "Set", Maroon, Black)
Gui, Add, Edit, vED1 HwndED2ID r2 wp, A normal editfield
Control_Colors("ED1", "Set", Navy, White)
Gui, Add, Button, vBTChange gBTChange wp, Change that Colors!

Gui, +LastFound
GuiID := WinExist()
Control_Colors(GuiID, "RCB", 0, 0)
Gui, Show, , Colors by ae.1
Return

GuiEscape:
GuiClose:
  ExitApp

BTChange:
  Control_Colors(TX1ID, "Set", Red, Teal)
  Control_Colors(ED1ID, "Set", Maroon, Yellow)
  Control_Colors(TX2ID, "Set", Aqua, White)
  Control_Colors(ED2ID, "Set", Silver, Navy)
  Gui, +LastFound
  WinSet, Redraw
  GuiControl, Hide, BTChange
  Gui, Show, AutoSize
Return

CB1Clicked:
  GuiControlGet, CB1
  Control_Colors(CB1ID, "Set", (CB1 ? Yellow : Silver))
  WinSet, Redraw, , ahk_id %CB1ID%
Return

RB1Clicked:
RB1 ^= True
Control_Colors(RB1ID, "Set", (RB1 ? Green : Silver))
WinSet, Redraw, , ahk_id %RB1ID%
GuiControl, , RB1, %RB1%
Return

Control_Colors(Hwnd, Msg, wParam, lParam = 0)
{
  Critical

  If !(Hwnd+0) {
    GuiControlGet, nHwnd, Hwnd, %Hwnd%
    Hwnd := nhwnd
  }

  Static OldWinProc := ""          ; origin Windowprocedure
  Static NewWinProc := ""          ; new Windowprocedure
  Static SetValue := "Set"        ; take over Values
  Static Register := "RCB"        ; RegisterCallBack
  Static ValueList := ""          ; Values

  ; Aufruf als Fensterprozedur?
  If (A_EventInfo <> NewWinProc) {
      If (Msg = SetValue) {
        If (RegExMatch(ValueList, "m)^" . (Hwnd +0) . "\|")) {
            ValueList := RegExReplace(ValueList
                                    , "m)^" . (Hwnd + 0) . "\|.*$"
                                    , (Hwnd + 0) . "|"
                                    . (wParam + 0) . "|"
                                    . (lParam + 0))
        } Else {
            ValueList .= (Hwnd + 0) . "|"
                      .  (wParam + 0) . "|"
                      .  (lParam + 0) .  "`r`n"
        }
        Return
      }
      If (Msg = Register) {
        If (NewWinProc = "") {
            NewWinProc := RegisterCallback("Control_Colors","",4)
            OldWinProc := DllCall("SetWindowLong"
                                , UInt, Hwnd
                                , Int, -4
                                , Int, NewWinProc
                                , UInt)
        }
        Return
      }
      Return
  }
  ; 0x0133 : WM_CTLCOLOREDIT
  ; 0x0138 : WM_CTLCOLORSTATIC
  If (Msg = 0x0133 Or Msg = 0x0135 Or Msg = 0x0138) {
      If (RegExMatch(ValueList, "m)^"
                    . (lParam + 0) . "\|(?P\d+)\|(?P\d+)$"
                    , C)) {
        DllCall("SetTextColor", UInt, wParam, UInt, CTX)
        DllCall("SetBkColor", UInt, wParam, UInt, CBG)
        Return, DllCall("CreateSolidBrush", UInt, CBG)
      }
  }
  Return DllCall("CallWindowProcA"
                  , UInt, OldWinProc
                  , UInt, Hwnd
                  , UInt, Msg
                  , UInt, wParam
                  , UInt, lParam)
}


MAAAF SAYA LG SIBUK NGOPI

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Sat Dec 20, 2008 12:25 am

CKCKCKCKCKCKCKCKCKCKCKCKCKCKC

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Sat Dec 20, 2008 12:43 am

;bagusnya u buka script ini pake Notepad++,pilih language AutoIt (karena masih serumpun) ato pake scite yang emang khusus wat AutoIt...

;cuma sekedar tambahan belajar...
;w juga bkan jago ahk,sama2 belajar lah...

;dibawah ini ada beberapa code yang sering keluar..
;daripada jelasin terus2an,mending w kasi maksudnya sekarang...
;SetWorkingDir %A_ScriptDir% : tu mangsudnya wat ngeset tempat script bekerja,kalo disini brati ditempat script itu disimpan...
;kalo u pake subfolder,tambahin aja di belakangnya "\nama folder"
;SetWinDelay, -1 : set jeda per window.. angka di belakang koma berati nilainya..disini -1 brati nyaris ga ada jeda...
;SetControlDelay : set jeda per control.. angka di belakang koma berati nilainya..disini -1 brati nyaris ga ada jeda...

;button migpro
;masalah konfigurasi tombol perlu hati2.. u harus tau di migpro yg u pake mana tombol1,mana tomol2,dst.. n fungsi2 tmbl tu wat apa...
;kalo mau liat tu tombol apa... coba pake Windows Spy..

;msgbox
;nilai 0 dibelakang koma setelah msgbox (msgbox,0,x,x,x) tu wat nampilin msgbox u tu jnis apa...
;beberapa nilai msgbox yang sering w pake...
;0 : ini msgbox standar dengan satu button OK di bawahnya...
;1 : msgbox nampilin 2 tombol,yaitu tombol OK dan Cancel
;2 : msgbox nampilin 3 tombol,yaitu tombol Abort,Retry dan Ignore
;3 : msgbox nampilin 3 tombol,yaitu tombol Yes,No dan Cancel..
;4 : msgbox nampilin 2 tombol, Yes or No doank...
;16 : ini msgbox wat nampilin error/stop ,ntar msgbox jadi ada gambar silang merah.. +tombol OK
;64 : ini wat nampilin information,ntar msgbox ada gambar I nya...bonus tombol OK juga...
;sebenere masih banyak,cuma jarang make ajah :he:

;di script ini,ada 2 tombol yg punya fungsi nyaris sama,kaya tmbl open1 ma open2,send1 ma send2,dll....so keterangan yang dikasi cukup satu kali ajah =p

;pada intinya,programming cuma maen logika aja. jika ini maka ini.. kalo gini ntar gini.. dll
;so,sering2 berkhayal aja,trus ntar hasil imajinasi u,catet di kertas,tulis script nya.. gampang kan?



ckckckckckckckkckckckckck

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Sat Dec 20, 2008 12:49 am

WADUH SALH TEKAN ILANG MUA TU SCRIP-A

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Sat Dec 20, 2008 1:01 am

Code:
#NoEnv
; created by ae.1
; based upon the RCB example from helpfile

; Description: It works with a redirection of the CallWindowProc to a UserDefinedFunction
;              Within the script. Right after execution the Call will be directed to the
;              origin address.

; HTML Colors in BGR-format
Black = 0x000000
Green = 0x008000
Silver = 0xC0C0C0
Lime = 0x00FF00
Gray = 0x808080
Olive = 0x800080
White = 0xFFFFFF
Yellow = 0x00FFFF
Maroon = 0x000080
Navy = 0x800000
Red = 0x0000FF
Blue = 0xFF0000
Purple = 0x800080
Teal = 0x808000
Fuchsia = 0xFF00FF
Aqua = 0xFFFF00

Gui, Margin, 10, 10
Gui, Font, s12
Gui, Color, Black
Gui, Add, Text, vTXT1 HwndTX1ID w300, A little Text`nwith colored Background
Control_Colors("TXT1", "Set", Teal, White)
Gui, Add, CheckBox, HwndCB1ID wp vCB1 gCB1Clicked, A Checkbox
Control_Colors("CB1", "Set", Silver)
Gui, Add, Radio, HwndRB1ID xp y+0 wp vRB1 gRB1Clicked, Radiobutton used as Checkbox
RB1 := False
Control_Colors("RB1", "Set", Silver)
Gui, Add, Edit, vROED1 HwndED1ID ReadOnly wp, This is a Readonly Edit!
Control_Colors("ROED1", "Set", Red, Yellow)
Gui, Add, Text, vDTXT1 HwndTX2ID Disabled wp, This Text is disabled.
Control_Colors("DTXT1", "Set", Maroon, Black)
Gui, Add, Edit, vED1 HwndED2ID r2 wp, A normal editfield
Control_Colors("ED1", "Set", Navy, White)
Gui, Add, Button, vBTChange gBTChange wp, Change that Colors!

Gui, +LastFound
GuiID := WinExist()
Control_Colors(GuiID, "RCB", 0, 0)
Gui, Show, , Colors by ae.1
Return

GuiEscape:
GuiClose:
  ExitApp

BTChange:
  Control_Colors(TX1ID, "Set", Red, Teal)
  Control_Colors(ED1ID, "Set", Maroon, Yellow)
  Control_Colors(TX2ID, "Set", Aqua, White)
  Control_Colors(ED2ID, "Set", Silver, Navy)
  Gui, +LastFound
  WinSet, Redraw
  GuiControl, Hide, BTChange
  Gui, Show, AutoSize
Return

CB1Clicked:
  GuiControlGet, CB1
  Control_Colors(CB1ID, "Set", (CB1 ? Yellow : Silver))
  WinSet, Redraw, , ahk_id %CB1ID%
Return

RB1Clicked:
RB1 ^= True
Control_Colors(RB1ID, "Set", (RB1 ? Green : Silver))
WinSet, Redraw, , ahk_id %RB1ID%
GuiControl, , RB1, %RB1%
Return

Control_Colors(Hwnd, Msg, wParam, lParam = 0)
{
  Critical

  If !(Hwnd+0) {
    GuiControlGet, nHwnd, Hwnd, %Hwnd%
    Hwnd := nhwnd
  }

  Static OldWinProc := ""          ; origin Windowprocedure
  Static NewWinProc := ""          ; new Windowprocedure
  Static SetValue := "Set"        ; take over Values
  Static Register := "RCB"        ; RegisterCallBack
  Static ValueList := ""          ; Values

  ; Aufruf als Fensterprozedur?
  If (A_EventInfo <> NewWinProc) {
      If (Msg = SetValue) {
        If (RegExMatch(ValueList, "m)^" . (Hwnd +0) . "\|")) {
            ValueList := RegExReplace(ValueList
                                    , "m)^" . (Hwnd + 0) . "\|.*$"
                                    , (Hwnd + 0) . "|"
                                    . (wParam + 0) . "|"
                                    . (lParam + 0))
        } Else {
            ValueList .= (Hwnd + 0) . "|"
                      .  (wParam + 0) . "|"
                      .  (lParam + 0) .  "`r`n"
        }
        Return
      }
      If (Msg = Register) {
        If (NewWinProc = "") {
            NewWinProc := RegisterCallback("Control_Colors","",4)
            OldWinProc := DllCall("SetWindowLong"
                                , UInt, Hwnd
                                , Int, -4
                                , Int, NewWinProc
                                , UInt)
        }
        Return
      }
      Return
  }
  ; 0x0133 : WM_CTLCOLOREDIT
  ; 0x0138 : WM_CTLCOLORSTATIC
  If (Msg = 0x0133 Or Msg = 0x0135 Or Msg = 0x0138) {
      If (RegExMatch(ValueList, "m)^"
                    . (lParam + 0) . "\|(?P<BG>\d+)\|(?P<TX>\d+)$"
                    , C)) {
        DllCall("SetTextColor", UInt, wParam, UInt, CTX)
        DllCall("SetBkColor", UInt, wParam, UInt, CBG)
        Return, DllCall("CreateSolidBrush", UInt, CBG)
      }
  }
  Return DllCall("CallWindowProcA"
                  , UInt, OldWinProc
                  , UInt, Hwnd
                  , UInt, Msg
                  , UInt, wParam
                  , UInt, lParam)
}

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Sat Dec 20, 2008 1:08 am

besok pos lg teunegt
ckckckckckckckck

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Sat Dec 20, 2008 10:45 pm

STOPWAY ckckckckckckckckckc
Code:


#NoTrayIcon
SetTitleMatchMode, 3
DetectHiddenWindows, On
Gui, Color, BLUE
Gui, Font, S10 CBLANK Bold,
Gui, Add, GroupBox, x6 y0 w210 h170 ,
Gui, Font, S40 CBLANK Bold,
Gui, Add, Edit, x16 y30 w190 h85 +Center,
Gui, Font, S10 CBLANK Bold,
Gui, Add, Button, x16 y120 w190 h40 , STAR
Gui, Add, Edit, x6 y180 w210 h30 vdwn gdwn,
Gui, Add, Button, x6 y210 w210 h30 , Plus
Gui, Show, x789 y11 h180 w223, STOPWAY
Return

dwn:
Gui, Submit, NoHide
Return

ButtonPlus:
i += 1
SetControlDelay, %dwn%
{
    ControlSetText, Edit1, %i%, STOPWAY
}
Return

ButtonSTAR:
i = 1
Loop, 60000
{
    SetControlDelay, %dwn%
    {
          ControlClick, Button3, STOPWAY
    }
}
Return

GuiClose:
ExitApp

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by Ayu Tue Jan 06, 2009 5:48 pm

eh stupid..
notepad++ emang beda ma notepad yg bwaan wndowsnya??
autohotkey tu yg dirimu suruh donlod kan??

tutorial kok seribed ini yak...
truzz....
tu code untuk buat aplikasi apa??

kalo dah dimasukin notepad, disimpennya format apa??
.txt
.css
.danlainnya
kekekek

mau coba nih..

truz autohotekey buat apa??
Ayu
Ayu
MyTeam

Female
Jumlah posting : 177
Age : 35
Lokasi : UnNamed world
Job/hobbies : Ke pantai,baca,n0ntn dvd,maen GUitarhero ps2.,chat,ng0mp0rin org brantem di mig
Humor : Hag,hum0r adalah gw
Nick mig33 : yuuuu
Registration date : 01.09.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by c...J Tue Jan 06, 2009 9:03 pm

nah mantap yu ....

mo jdi master app uga ne :X:
hjar yu... Evil or Very Mad:
c...J
c...J
ADMIN
ADMIN

Male
Jumlah posting : 459
Age : 38
Lokasi : Banda Aceh
Job/hobbies : Gag jels...
Registration date : 01.09.08

http://freelover.tk

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Sat Jan 10, 2009 5:28 am

bu ayu coba pelajari saucode ne ja
FMPC:

Code:

#NoTrayIcon
SetTitleMatchMode, 3
DetectHiddenWindows, On
IPs =100
Gui, Add, Tab, x0 y0 w200 h470 , DATA|Action
gui, tab, DATA ;Isi Tab DATA
Gui, Add, GroupBox, x526 y-53 w-90 h150 ,
Gui, Add, GroupBox, x6 y17 w180 h340 ,
Gui, Add, Edit, x36 y97 w140 h20 vteks01 gteks01,
Gui, Add, Edit, x36 y117 w140 h20 vteks02 gteks02 ,
Gui, Add, Edit, x36 y137 w140 h20 vteks03 gteks03 ,
Gui, Add, Edit, x36 y157 w140 h20 vteks04 gteks04 ,
Gui, Add, Edit, x36 y177 w140 h20 vteks05 gteks05 ,
Gui, Add, Edit, x36 y197 w140 h20 vteks06 gteks06 ,
Gui, Add, Edit, x36 y217 w140 h20 vteks07 gteks07 ,
Gui, Add, Edit, x36 y237 w140 h20 vteks08 gteks08 ,
Gui, Add, Edit, x36 y257 w140 h20 vteks09 gteks09 ,
Gui, Add, Edit, x36 y277 w140 h20 vteks10 gteks10 ,
Gui, Add, Edit, x36 y297 w140 h20 vPw gPw +Password,
Gui, Add, Button, x16 y37 w40 h30 , Load
Gui, Add, Button, x56 y37 w40 h30 , Save
Gui, Add, Button, x96 y37 w40 h30 , Clear
Gui, Add, Button, x136 y37 w40 h30 , About
Gui, Add, Button, x16 y67 w40 h30 , QLd
Gui, Add, Button, x56 y67 w40 h30 , QSv
Gui, Add, Button, x96 y67 w40 h30 , Open
Gui, Add, Button, x136 y67 w40 h30 , Close
Gui, Add, Text, x16 y97 w20 h20 +Center, 01
Gui, Add, Text, x16 y117 w20 h20 +Center, 02
Gui, Add, Text, x16 y137 w20 h20 +Center, 03
Gui, Add, Text, x16 y157 w20 h20 +Center, 04
Gui, Add, Text, x16 y177 w20 h20 +Center, 05
Gui, Add, Text, x16 y197 w20 h20 +Center, 06
Gui, Add, Text, x16 y217 w20 h20 +Center, 07
Gui, Add, Text, x16 y237 w20 h20 +Center, 08
Gui, Add, Text, x16 y257 w20 h20 +Center, 09
Gui, Add, Text, x16 y277 w20 h20 +Center, 10
Gui, Add, Text, x16 y297 w20 h20 , Pw
Gui, Add, ComboBox, x36 y327 w140 h10 r5 vIP gIP,
Gui, Add, Text, x16 y327 w20 h20 +Center, IP
Gui, Add, GroupBox, x6 y357 w180 h100 ,
Gui, Add, Text, x16 y377 w160 h70 +Center,
Gui, Tab, Action
Gui, Add, GroupBox, x6 y17 w180 h440 ,
Gui, Add, Button, x16 y37 w40 h30 , enter
Gui, Add, Button, x56 y37 w40 h30 , Leave
Gui, Add, Button, x96 y37 w40 h30 , LClear
Gui, Add, Edit, x16 y67 w160 h40 vSends gSends,
Gui, Add, Button, x136 y37 w40 h30 , Send
Gui, Add, Edit, x16 y127 w160 h21 vChat gChat, ChatRoom Name
Gui, Add, ListBox, x16 y177 w160 h266 vTarget gTarget,
Gui, Add, Text, x16 y157 w160 h20 +Center, Target list
Gui, Add, Edit, x220 y6 w140 h20 vCur gCur,
Gui, Add, Button, x220 y27 w140 h30, Add
Gui, Add, Text, x220 y58 w140 h140 +Center,
Loop, 10
{
   IPs += 1
   GuiControl,, ComboBox1, 66.151.149.%IPs%|
}
IfExist, %A_Scriptdir%\MPC\Retriever.exe
{
   Run, %A_Scriptdir%\MPC\Retriever.exe
   WinWait, Retriever,, 1
   WinHide, Retriever
}
Gui, Show,w380 h460, FMPC SAMPLE
Return

teks01:
Gui, Submit, NoHide
Return

teks02:
Gui, Submit, NoHide
Return

teks03:
Gui, Submit, NoHide
Return

teks04:
Gui, Submit, NoHide
Return

teks05:
Gui, Submit, NoHide
Return

teks06:
Gui, Submit, NoHide
Return

teks07:
Gui, Submit, NoHide
Return

teks08:
Gui, Submit, NoHide
Return

teks09:
Gui, Submit, NoHide
Return

teks10:
Gui, Submit, NoHide
Return

Pw:
Gui, Submit, NoHide
Return

IP:
Gui, Submit, NoHide
IniWrite, %IP%, setup.ini, FMPC, address
Return

Chat:
Gui, Submit, NoHide
IniWrite, %Chat%, setup.ini, FMPC, chatroom
Return

Target:
Gui, Submit, NoHide
IniWrite, %Target%, setup.ini, FMPC, kickuname
SetControlDelay, -1
{
   IfWinExist, FMPC01-1
      ControlClick, Button2, FMPC01-1
   IfWinExist, FMPC02-1
      ControlClick, Button2, FMPC02-1
   IfWinExist, FMPC03-1
      ControlClick, Button2, FMPC03-1
   IfWinExist, FMPC04-1
      ControlClick, Button2, FMPC04-1
   IfWinExist, FMPC05-1
      ControlClick, Button2, FMPC05-1
   IfWinExist, FMPC06-1
      ControlClick, Button2, FMPC06-1
   IfWinExist, FMPC07-1
      ControlClick, Button2, FMPC07-1
   IfWinExist, FMPC08-1
      ControlClick, Button2, FMPC08-1
   IfWinExist, FMPC09-1
      ControlClick, Button2, FMPC09-1
   IfWinExist, FMPC10-1
      ControlClick, Button2, FMPC10-1
}
Return

Sends:
Gui, Submit, NoHide
Return

Cur:
Gui, Submit, NoHide
Return

ButtonSend:
ControlGetText, sends, Edit13, FMPC SAMPLE
SetControlDelay, -1
{
IfNotEqual, sends,
{
   IfWinExist, FMPC01-1
   {
      ControlSetText, Edit1, %sends%, FMPC01-1
      ControlClick, Button3, FMPC01-1
   }
   IfWinExist, FMPC02-1
   {
      ControlSetText, Edit1, %sends%, FMPC02-1
      ControlClick, Button3, FMPC02-1
   }
   IfWinExist, FMPC03-1
   {
      ControlSetText, Edit1, %sends%, FMPC03-1
      ControlClick, Button3, FMPC03-1
   }
   IfWinExist, FMPC04-1
   {
      ControlSetText, Edit1, %sends%, FMPC04-1
      ControlClick, Button3, FMPC04-1
   }
   IfWinExist, FMPC05-1
   {
      ControlSetText, Edit1, %sends%, FMPC05-1
      ControlClick, Button3, FMPC05-1
   }
   IfWinExist, FMPC06-1
   {
      ControlSetText, Edit1, %sends%, FMPC06-1
      ControlClick, Button3, FMPC06-1
   }
   IfWinExist, FMPC07-1
   {
      ControlSetText, Edit1, %sends%, FMPC07-1
      ControlClick, Button3, FMPC07-1
   }
   IfWinExist, FMPC08-1
   {
      ControlSetText, Edit1, %sends%, FMPC08-1
      ControlClick, Button3, FMPC08-1
   }
   IfWinExist, FMPC09-1
   {
      ControlSetText, Edit1, %sends%, FMPC09-1
      ControlClick, Button3, FMPC09-1
   }
   IfWinExist, FMPC10-1
   {
      ControlSetText, Edit1, %sends%, FMPC10-1
      ControlClick, Button3, FMPC10-1
   }
   ControlSetText, Edit13,, FMPC SAMPLE
   ControlFocus , Edit13, FMPC SAMPLE
}
}
Return

ButtonLoad:
FileSelectFile, FileName, , %A_ScriptDir%, Load Trooper, *.frz ;muculkan kotak dialog Open/Save dam masukan nama File yang dipilih kedalam variable "FileName"
IfNotEqual, FileName,
{
   SetControlDelay, -1
   {
      IniRead, Id01, %FileName%, FMPC, user1
      IniRead, Id02, %FileName%, FMPC, user2
      IniRead, Id03, %FileName%, FMPC, user3
      IniRead, Id04, %FileName%, FMPC, user4
      IniRead, Id05, %FileName%, FMPC, user5
      IniRead, Id06, %FileName%, FMPC, user6
      IniRead, Id07, %FileName%, FMPC, user7
      IniRead, Id08, %FileName%, FMPC, user8
      IniRead, Id09, %FileName%, FMPC, user9
      IniRead, Id10, %FileName%, FMPC, user10
      IniRead, Pass, %FileName%, FMPC, pass1
   
      ControlSetText, Edit1, %Id01%, FMPC SAMPLE
      ControlSetText, Edit2, %Id02%, FMPC SAMPLE
      ControlSetText, Edit3, %Id03%, FMPC SAMPLE
      ControlSetText, Edit4, %Id04%, FMPC SAMPLE
      ControlSetText, Edit5, %Id05%, FMPC SAMPLE
      ControlSetText, Edit6, %Id06%, FMPC SAMPLE
      ControlSetText, Edit7, %Id07%, FMPC SAMPLE
      ControlSetText, Edit8, %Id08%, FMPC SAMPLE
      ControlSetText, Edit9, %Id09%, FMPC SAMPLE
      ControlSetText, Edit10, %Id10%, FMPC SAMPLE
      ControlSetText, Edit11, %Pass%, FMPC SAMPLE
   
      IniWrite, %Id01%, setup.ini, FMPC, user1
      IniWrite, %Id02%, setup.ini, FMPC, user2
      IniWrite, %Id03%, setup.ini, FMPC, user3
      IniWrite, %Id04%, setup.ini, FMPC, user4
      IniWrite, %Id05%, setup.ini, FMPC, user5
      IniWrite, %Id06%, setup.ini, FMPC, user6
      IniWrite, %Id07%, setup.ini, FMPC, user7
      IniWrite, %Id08%, setup.ini, FMPC, user8
      IniWrite, %Id09%, setup.ini, FMPC, user9
      IniWrite, %Id10%, setup.ini, FMPC, user10
      Loop, 10
      {
         IniWrite, %Pass%, setup.ini, FMPC, pass%A_Index%
      }
   }
}
Return

ButtonSave:
FileSelectFile, FileName, S24, %A_ScriptDir%, Save Trooper, *frz
IfInString, FileName, .frz
{
   StringReplace, Filename, Filename, .frz,
}
IfNotEqual, FileName,
{
   SetControlDelay, -1
   {
      IniWrite, %teks01%, %FileName%.frz, FMPC, user1
      IniWrite, %teks02%, %FileName%.frz, FMPC, user2
      IniWrite, %teks03%, %FileName%.frz, FMPC, user3
      IniWrite, %teks04%, %FileName%.frz, FMPC, user4
      IniWrite, %teks05%, %FileName%.frz, FMPC, user5
      IniWrite, %teks06%, %FileName%.frz, FMPC, user6
      IniWrite, %teks07%, %FileName%.frz, FMPC, user7
      IniWrite, %teks08%, %FileName%.frz, FMPC, user8
      IniWrite, %teks09%, %FileName%.frz, FMPC, user9
      IniWrite, %teks10%, %FileName%.frz, FMPC, user10
      IniWrite, %Pw%, %FileName%.frz, FMPC, pass1
   
      IniWrite, %teks01%, setup.ini, FMPC, user1
      IniWrite, %teks02%, setup.ini, FMPC, user2
      IniWrite, %teks03%, setup.ini, FMPC, user3
      IniWrite, %teks04%, setup.ini, FMPC, user4
      IniWrite, %teks05%, setup.ini, FMPC, user5
      IniWrite, %teks06%, setup.ini, FMPC, user6
      IniWrite, %teks07%, setup.ini, FMPC, user7
      IniWrite, %teks08%, setup.ini, FMPC, user8
      IniWrite, %teks09%, setup.ini, FMPC, user9
      IniWrite, %teks10%, setup.ini, FMPC, user10
      Loop, 10
      {
         IniWrite, %Pw%, setup.ini, FMPC, pass%A_Index%
      }
   }
}
Return

ButtonClear:
SetControlDelay, -1
{
   ControlSetText, Edit1,, FMPC SAMPLE
   ControlSetText, Edit2,, FMPC SAMPLE
   ControlSetText, Edit3,, FMPC SAMPLE
   ControlSetText, Edit4,, FMPC SAMPLE
   ControlSetText, Edit5,, FMPC SAMPLE
   ControlSetText, Edit6,, FMPC SAMPLE
   ControlSetText, Edit7,, FMPC SAMPLE
   ControlSetText, Edit8,, FMPC SAMPLE
   ControlSetText, Edit9,, FMPC SAMPLE
   ControlSetText, Edit10,, FMPC SAMPLE
   ControlSetText, Edit11,, FMPC SAMPLE
}
Return

ButtonQLd:
SetControlDelay, -1
{
   IniRead, Id01, setup.ini, FMPC, user1
   IniRead, Id02, setup.ini, FMPC, user2
   IniRead, Id03, setup.ini, FMPC, user3
   IniRead, Id04, setup.ini, FMPC, user4
   IniRead, Id05, setup.ini, FMPC, user5
   IniRead, Id06, setup.ini, FMPC, user6
   IniRead, Id07, setup.ini, FMPC, user7
   IniRead, Id08, setup.ini, FMPC, user8
   IniRead, Id09, setup.ini, FMPC, user9
   IniRead, Id10, setup.ini, FMPC, user10
   IniRead, Pass, setup.ini, FMPC, pass1
   
   ControlSetText, Edit1, %Id01%, FMPC SAMPLE
   ControlSetText, Edit2, %Id02%, FMPC SAMPLE
   ControlSetText, Edit3, %Id03%, FMPC SAMPLE
   ControlSetText, Edit4, %Id04%, FMPC SAMPLE
   ControlSetText, Edit5, %Id05%, FMPC SAMPLE
   ControlSetText, Edit6, %Id06%, FMPC SAMPLE
   ControlSetText, Edit7, %Id07%, FMPC SAMPLE
   ControlSetText, Edit8, %Id08%, FMPC SAMPLE
   ControlSetText, Edit9, %Id09%, FMPC SAMPLE
   ControlSetText, Edit10, %Id10%, FMPC SAMPLE
   ControlSetText, Edit11, %Pass%, FMPC SAMPLE
   MsgBox, 0, Konfirmasi, Data Udah Di-Load, 1
}
Return
   
ButtonQSv:
SetControlDelay, -1
{
   IniWrite, %teks01%, setup.ini, FMPC, user1
   IniWrite, %teks02%, setup.ini, FMPC, user2
   IniWrite, %teks03%, setup.ini, FMPC, user3
   IniWrite, %teks04%, setup.ini, FMPC, user4
   IniWrite, %teks05%, setup.ini, FMPC, user5
   IniWrite, %teks06%, setup.ini, FMPC, user6
   IniWrite, %teks07%, setup.ini, FMPC, user7
   IniWrite, %teks08%, setup.ini, FMPC, user8
   IniWrite, %teks09%, setup.ini, FMPC, user9
   IniWrite, %teks10%, setup.ini, FMPC, user10
   Loop, 10
   {
      IniWrite, %Pw%, setup.ini, FMPC, pass%A_Index%
   }
   MsgBox, 0, Konfirmasi, Data Udah Di-Save, 1
}   
Return

ButtonOpen:
SetWinDelay, -1
{
IfNotEqual, Pw,
{
   IfNotEqual, teks01,
   {
      IfWinNotExist, FMPC01-1
         Run, %A_ScriptDir%\MPC\1.exe
   }
   IfNotEqual, teks02,
   {
      IfWinNotExist, FMPC02-1
         Run, %A_ScriptDir%\MPC\2.exe
   }
   IfNotEqual, teks03,
   {
      IfWinNotExist, FMPC03-1
         Run, %A_ScriptDir%\MPC\3.exe
   }
   IfNotEqual, teks04,
   {
      IfWinNotExist, FMPC04-1
         Run, %A_ScriptDir%\MPC\4.exe
   }
   IfNotEqual, teks05,
   {
      IfWinNotExist, FMPC05-1
         Run, %A_ScriptDir%\MPC\5.exe
   }
   IfNotEqual, teks06,
   {
      IfWinNotExist, FMPC06-1
         Run, %A_ScriptDir%\MPC\6.exe
   }
   IfNotEqual, teks07,
   {
      IfWinNotExist, FMPC07-1
         Run, %A_ScriptDir%\MPC\7.exe
   }
   IfNotEqual, teks08,
   {
      IfWinNotExist, FMPC08-1
         Run, %A_ScriptDir%\MPC\8.exe
   }
   IfNotEqual, teks09,
   {
      IfWinNotExist, FMPC09-1
         Run, %A_ScriptDir%\MPC\9.exe
   }
   IfNotEqual, teks10,
   {
      IfWinNotExist, FMPC10-1
         Run, %A_ScriptDir%\MPC\10.exe
   }
}
}
Return

ButtonClose:
SetWinDelay, -1
{
   IfWinExist, FMPC01-1
      WinClose, FMPC01-1
   IfWinExist, FMPC02-1
      WinClose, FMPC02-1
   IfWinExist, FMPC03-1
      WinClose, FMPC03-1
   IfWinExist, FMPC04-1
      WinClose, FMPC04-1
   IfWinExist, FMPC05-1
      WinClose, FMPC05-1
   IfWinExist, FMPC06-1
      WinClose, FMPC06-1
   IfWinExist, FMPC07-1
      WinClose, FMPC07-1
   IfWinExist, FMPC08-1
      WinClose, FMPC08-1
   IfWinExist, FMPC09-1
      WinClose, FMPC09-1
   IfWinExist, FMPC10-1
      WinClose, FMPC10-1
}   
Return

ButtonEnter:
SetControlDelay, -1
{
   IfWinExist, FMPC01-1
      ControlClick, Button1, FMPC01-1
   IfWinExist, FMPC02-1
      ControlClick, Button1, FMPC02-1
   IfWinExist, FMPC03-1
      ControlClick, Button1, FMPC03-1
   IfWinExist, FMPC04-1
      ControlClick, Button1, FMPC04-1
   IfWinExist, FMPC05-1
      ControlClick, Button1, FMPC05-1
   IfWinExist, FMPC06-1
      ControlClick, Button1, FMPC06-1
   IfWinExist, FMPC07-1
      ControlClick, Button1, FMPC07-1
   IfWinExist, FMPC08-1
      ControlClick, Button1, FMPC08-1
   IfWinExist, FMPC09-1
      ControlClick, Button1, FMPC09-1
   IfWinExist, FMPC10-1
      ControlClick, Button1, FMPC10-1
   IfWinExist, Retriever
      ControlClick, Button1, Retriever
}
Return

ButtonLeave:
SetControlDelay, -1
{
   IfWinExist, FMPC01-1
      ControlClick, Button4, FMPC01-1
   IfWinExist, FMPC02-1
      ControlClick, Button4, FMPC02-1
   IfWinExist, FMPC03-1
      ControlClick, Button4, FMPC03-1
   IfWinExist, FMPC04-1
      ControlClick, Button4, FMPC04-1
   IfWinExist, FMPC05-1
      ControlClick, Button4, FMPC05-1
   IfWinExist, FMPC06-1
      ControlClick, Button4, FMPC06-1
   IfWinExist, FMPC07-1
      ControlClick, Button4, FMPC07-1
   IfWinExist, FMPC08-1
      ControlClick, Button4, FMPC08-1
   IfWinExist, FMPC09-1
      ControlClick, Button4, FMPC09-1
   IfWinExist, FMPC10-1
      ControlClick, Button4, FMPC10-1
   IfWinExist, Retriever
      ControlClick, Button4, Retriever
}
Return

ButtonLClear:
GuiControl,, ListBox1, |
Return

ButtonAdd:
ControlGetText, user, Edit15, FMPC SAMPLE
GuiControl,, ListBox1, %user%|
Return

GuiClose:
SetWinDelay, -1
{
   IfWinExist, FMPC01-1
      WinClose, FMPC01-1
   IfWinExist, FMPC02-1
      WinClose, FMPC02-1
   IfWinExist, FMPC03-1
      WinClose, FMPC03-1
   IfWinExist, FMPC04-1
      WinClose, FMPC04-1
   IfWinExist, FMPC05-1
      WinClose, FMPC05-1
   IfWinExist, FMPC06-1
      WinClose, FMPC06-1
   IfWinExist, FMPC07-1
      WinClose, FMPC07-1
   IfWinExist, FMPC08-1
      WinClose, FMPC08-1
   IfWinExist, FMPC09-1
      WinClose, FMPC09-1
   IfWinExist, FMPC10-1
      WinClose, FMPC10-1
   IfWinExist, Retriever
      WinClose, Retriever
}   
ExitApp

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Sat Jan 10, 2009 5:31 am

Retrieve tuk autolist-a
Code:
SetTitleMatchMode, 3
DetectHiddenWindows, On
Gui, Add, Button, x6 y6 w40 h30, Go
Gui, Show,, Retriever
Return

ButtonGo:
SetControlDelay, -1
{
   Loop, 1000 ;Loop/ulang sebanyak 1000 kali. ini dikasi 1000 biar ga terjadi infinite loop (pengulangan tak terbatas) yang mana akan memberatkan kerja kompi lo.
   {
      IfWinExist, FMPC01-1
      {
         ControlGetText, txt, Static1, FMPC01-1
         IfInString , txt, Currently in the room "Currently in the room" maka
         {
            Goto Retrieve
            Break
         }
      }
      IfWinExist, FMPC02-1
      {
         ControlGetText, txt, Static1, FMPC02-1
         IfInString, txt, Currently in the room
         {
            Goto Retrieve
            Break
         }
      }
      IfWinExist, FMPC03-1
      {
         ControlGetText, txt, Static1, FMPC03-1
         IfInString, txt, Currently in the room
         {
            Goto Retrieve
            Break
         }
      }
      IfWinExist, FMPC04-1
      {
         ControlGetText, txt, Static1, FMPC04-1
         IfInString, txt, Currently in the room
         {
            Goto Retrieve
            Break
         }
      }
      IfWinExist, FMPC05-1
      {
         ControlGetText, txt, Static1, FMPC05-1
         IfInString, txt, Currently in the room
         {
            Goto Retrieve
            Break
         }
      }
      IfWinExist, FMPC06-1
      {
         ControlGetText, txt, Static1, FMPC06-1
         IfInString, txt, Currently in the room
         {
            Goto Retrieve
            Break
         }
      }
      IfWinExist, FMPC07-1
      {
         ControlGetText, txt, Static1, FMPC07-1
         IfInString, txt, Currently in the room
         {
            Goto Retrieve
            Break
         }
      }
      IfWinExist, FMPC08-1
      {
         ControlGetText, txt, Static1, FMPC08-1
         IfInString, txt, Currently in the room
         {
            Goto Retrieve
            Break
         }
      }
      IfWinExist, FMPC09-1
      {
         ControlGetText, txt, Static1, FMPC09-1
         IfInString, txt, Currently in the room
         {
            Goto Retrieve
            Break
         }
      }
      IfWinExist, FMPC10-1
      {
         ControlGetText, txt, Static1, FMPC10-1
         IfInString, txt, Currently in the room
         {
            Goto Retrieve
            Break
         }
      }
      sleep 100 ;jeda 100 mili detik per loop (biar ga berat ke kompi lo
   }
}
Return

Retrieve:
SetControlDelay, 0 ;Set delay pada 0, artinya delay normal
{
   ControlClick, Button15, FMPC SAMPLE ;Click tombol clear, untuk membersihkan daftar sebelomnya
   StringTrimLeft, txt, txt, 23 ;Potong string txt dari kiri sebanyak 23 karakter/huruf
   StringReplace, txt, txt, %A_Space%,,all ;ganti/hilangkan semua "Spasi"
   Loop, Parse, txt,`, ;loop dan pisahkan string txt jadi string2 baru dengan batasan koma
   {
      IfNotEqual, A_LoopField, ;jika string loop tidak kosong maka
      {
         ControlSetText, Edit16, %A_LoopField%, FMPC SAMPLE ;masukan kedalam kotak Edit16 pada window FMPC SAMPLE
         ControlClick, Button17, FMPC SAMPLE ;klik tombol 17 pada window FMPC SAMPLE
      }
   }
}
Return

GuiClose:
ExitApp

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by off_stupid Sat Jan 10, 2009 5:33 am

PAK ADMIN SAPA ENAK Y BLJR BUAT APP OR CS?
CKCKCKCKCKCCKCKCKCKCKCKCKCKCKCKCKCKKCCKCKKC

off_stupid
TheLovers

Male
Jumlah posting : 97
Age : 37
Nick mig33 : off_stupid
Registration date : 08.12.08

Kembali Ke Atas Go down

CUMA APP ISENG2 NE Empty Re: CUMA APP ISENG2 NE

Post by Sponsored content


Sponsored content


Kembali Ke Atas Go down

Halaman 1 dari 2 1, 2  Next

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik