Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Nasz Autoit

Wrrr

Rekomendowane odpowiedzi

Wrrr Arcymistrz

Wrrr

Opublikowano
Arcymistrz

Wrrr

Opublikowano

Chce zrobić taki zbiór wszystkich waszych programów w AutoIT

Swoje programy dawać w następujący sposób:

  • NAZWA I OPIS PROGRAMU
  • KOD PROGRAMU ( W CODE + SPOILER )
  • OD KOGO JEST TEN PROGRAM

Zapełnijmy ten zbiór razem !!!

W tym temacie będziecie dawać swoje kody

Clicker 0.1 End - stop Home start by adwi32

 

 

HotKeySet("{HOME}","start")
HotKeySet("{END}","stop")
While 1
Sleep(10000000)
WEnd
Func start ()
While 1
	MouseClick("left")
	sleep(10)
WEnd
EndFunc
Func stop ()
While 1
	Sleep(1000)
WEnd
EndFunc

 

 

Kalkulator by adwi32

 

; Script Start - Add your code below here
#include <GUIConstantsEx.au3>
$tyt_gui ="kalkultor"
$szer_gui =350
$wys_gui =225
GUICreate($tyt_gui,$szer_gui,$wys_gui)
$rowna = GUICtrlCreateButton("=",290,38,30,25)
GUISetState()
$Liczba1 = GUICtrlCreateInput("",20,40,100,20,0x2000)
$Liczba2 = GUICtrlCreateInput("",170,40,100,20,0x2000)
GUISetState()
While 1
   $msg = GUIGetMsg()
   Select
       Case $msg = $GUI_EVENT_CLOSE
           Exit
EndSelect
$1 = GUICtrlRead($Liczba1)
$2 = GUICtrlRead($Liczba2)
Select
	Case $msg = $rowna
		GUICtrlCreateList("Dodawanie:"&$1+$2,30,100,180,100)
		GUICtrlSetData(-1, "Odejmowanie:"&$1-$2)
		GUICtrlSetData(-1, "Mnozenie:"&$1*$2)
		GUICtrlSetData(-1, "Dzielenie:"&$1/$2)
EndSelect
WEnd

 

 

Shutdowner 0.1(End stop odliczania) by adwi32

 

; Script Start - Add your code below here
#include <GuiConstantsEx.au3>
HotKeySet("{End}","stop")
$GUI_Tytul = "Shutdown'er by adwi32"
$szerokosc_gui=360
$wysokosc_gui=175
$przycisk_start_wys=55
$przycisk_start_szer=85
$gui=GUICreate($GUI_Tytul,$szerokosc_gui,$wysokosc_gui)
$pole_text = GUICtrlCreateInput("",20,40,200,23,0x2000)
GUICtrlCreateLabel("Tu wpisz czas za po jakim twój komputer ma się wyłączyć (w minutach)",15,20)
GUICtrlCreateLabel("minut",225,42)
$przycisk_start = GUICtrlCreateButton("Start!",250,70,$przycisk_start_szer,$przycisk_start_wys)
GUISetState(@SW_SHOW)
GUICtrlSetTip($przycisk_start, "Kliknij by uruchomic odliczanie")
While 1
	$msg = GUIGetMsg()
   Select
       Case $msg = $GUI_EVENT_CLOSE
           Exit
	Case $msg = $przycisk_start
		$licznik = GUICtrlRead($pole_text)

While $licznik >0
           GUIDelete()
                   ToolTip("Wyłaczę komputer za:" &$licznik,0,0,$GUI_Tytul,1)
                   Sleep(60000)
                   $licznik = $licznik- 1
			WEnd
			ToolTip("")
			Shutdown(5)
		Exit


  EndSelect
WEnd
Func stop ()
Exit
EndFunc

 

 

Klikacz by Wrrr

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
HotKeySet("{HOME}", "start")
HotKeySet("{END}", "stop")
HotKeySet("{DEL}", "koniec")
GUICreate("BOT by Wrrr", 280, 100)
$btn1 = GUICtrlCreateButton("start", 10, 10, 80, 80)
$btn2 = GUICtrlCreateButton("info", 100, 10, 80, 80)
$btn3 = GUICtrlCreateButton("koniec", 190, 10, 80, 80)
GUISetState()

While 1
$msg = GUIGetMsg()
Switch $msg

Case $btn1
start()
Case $gui_event_close
exit
Case $btn2
MsgBox(0, "INFO", "For MPCForum by Wrrr")
Sleep(10)
MsgBox(0, "INFO", "START BOT - HOME, STOP BOT - END, KONIEC - DELETE")
Case $gui_event_close
Exit
Case $btn3
koniec()
Case $gui_event_close
exit
EndSwitch
wend



func start()
while 1
Send("{Z}")
Sleep(1000)
Send("{Z}")
Sleep(0.1)
Send("{Z}")
Sleep(0.1)
wend
endfunc

func stop()
While 1
sleep(1000)
wend
endfunc

func koniec()
exitendfunc

 

 

Kowal Mod do metina by KingSP1

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GuiOnEventMode",1)
$Form1 = GUICreate("Metin2_PL Upradge Mod v 0.1 ", 405, 398, 192, 124)
$Label1 = GUICtrlCreateLabel("Na + Ile chcesz ulepszyć Item?", 72, 32, 215, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("+1", 136, 64, 65, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("+2", 136, 96, 67, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("+3", 136, 128, 65, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("+4", 136, 160, 65, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("+5", 136, 192, 65, 25, $WS_GROUP)
$Button6 = GUICtrlCreateButton("+6", 136, 224, 65, 25, $WS_GROUP)
$Button7 = GUICtrlCreateButton("+7", 136, 256, 65, 25, $WS_GROUP)
$Button8 = GUICtrlCreateButton("+8", 136, 288, 65, 25, $WS_GROUP)
$Button9 = GUICtrlCreateButton("+9", 136, 320, 65, 25, $WS_GROUP)
$Button10 = GUICtrlCreateButton("Exit", 0, 360, 89, 33, $WS_GROUP)
GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman")
$progressbar1 = GUICtrlCreateProgress(104, 376, 265, 17)
GUICtrlSetColor(-1, 0x3D95FF)
GUISetState(@SW_SHOW)


HotKeySet("{END}" , "off")
GUICtrlSetOnEvent($Button1,"ziom1")
Func ziom1()
MsgBox(64,"","Twoja szansa na ulepszenie to 90 %")
EndFunc
GUICtrlSetOnEvent($Button2,"ziom2")
Func ziom2()
MsgBox(64,"","Twoja szansa na ulepszenie to 90 %")
EndFunc
GUICtrlSetOnEvent($Button3,"ziom3")
Func ziom3()
     	MsgBox(64,"","Twoja szansa na ulepszenie to 90 %")
EndFunc

Func ziom88()
     	MsgBox(64,"","Twoja szansa na ulepszenie to 80 %")
EndFunc
GUICtrlSetOnEvent($Button4,"ziom4")
Func ziom4()
	MsgBox(64,"","Twoja szansa na ulepszenie to 80 %")
EndFunc
GUICtrlSetOnEvent($Button5,"ziom5")
Func ziom5()
	MsgBox(64,"","Twoja szansa na ulepszenie to 70 %")
EndFunc
GUICtrlSetOnEvent($Button6,"ziom6")
Func ziom6()
MsgBox(64,"","Twoja szansa na ulepszenie to 60 %")
EndFunc
GUICtrlSetOnEvent($Button7,"ziom7")
Func ziom7()
	MsgBox(64,"","Twoja szansa na ulepszenie to 50 %")
EndFunc
GUICtrlSetOnEvent($Button8,"ziom8")
Func ziom8()
	MsgBox(64,"","Twoja szansa na ulepszenie to 40 %")
EndFunc
GUICtrlSetOnEvent($Button9,"ziom9")
Func ziom9()
	MsgBox(64,"","Twoja szansa na ulepszenie to 30 %")
EndFunc
GUICtrlSetOnEvent( $Button10, "off")
Func off()
Exit
EndFunc
While 1
GUICtrlSetData($progressbar1, 1)
Sleep(20)
GUICtrlSetData($progressbar1, 2)
Sleep(20)
GUICtrlSetData($progressbar1, 3)
Sleep(20)
GUICtrlSetData($progressbar1, 4)
Sleep(20)
GUICtrlSetData($progressbar1, 5)
Sleep(20)
GUICtrlSetData($progressbar1, 6)
Sleep(20)
GUICtrlSetData($progressbar1, 7)
Sleep(50)
GUICtrlSetData($progressbar1, 8)
Sleep(50)
GUICtrlSetData($progressbar1, 9)
Sleep(50)
GUICtrlSetData($progressbar1, 10)
Sleep(50)
GUICtrlSetData($progressbar1, 11)
Sleep(50)
GUICtrlSetData($progressbar1, 12)
Sleep(50)
GUICtrlSetData($progressbar1, 13)
Sleep(50)
GUICtrlSetData($progressbar1, 14)
Sleep(50)
GUICtrlSetData($progressbar1, 15)
Sleep(50)
GUICtrlSetData($progressbar1, 16)
Sleep(50)
GUICtrlSetData($progressbar1, 17)
Sleep(50)
GUICtrlSetData($progressbar1, 18)
Sleep(50)
GUICtrlSetData($progressbar1, 19)
Sleep(50)
GUICtrlSetData($progressbar1, 20)
Sleep(50)
GUICtrlSetData($progressbar1, 21)
Sleep(50)
GUICtrlSetData($progressbar1, 22)
Sleep(50)
GUICtrlSetData($progressbar1, 23)
Sleep(50)
GUICtrlSetData($progressbar1, 24)
Sleep(50)
GUICtrlSetData($progressbar1, 25)
Sleep(50)
GUICtrlSetData($progressbar1, 26)
Sleep(50)
GUICtrlSetData($progressbar1, 27)
Sleep(50)
GUICtrlSetData($progressbar1, 28)
Sleep(50)
GUICtrlSetData($progressbar1, 29)
Sleep(50)
GUICtrlSetData($progressbar1, 30)
Sleep(50)
GUICtrlSetData($progressbar1, 31)
Sleep(50)
GUICtrlSetData($progressbar1, 32)
Sleep(50)
GUICtrlSetData($progressbar1, 33)
Sleep(50)
GUICtrlSetData($progressbar1, 34)
Sleep(50)
GUICtrlSetData($progressbar1, 35)
Sleep(50)
GUICtrlSetData($progressbar1, 36)
Sleep(50)
GUICtrlSetData($progressbar1, 37)
Sleep(50)
GUICtrlSetData($progressbar1, 38)
Sleep(50)
GUICtrlSetData($progressbar1, 39)
Sleep(50)
GUICtrlSetData($progressbar1, 40)
Sleep(50)
GUICtrlSetData($progressbar1, 41)
Sleep(50)
GUICtrlSetData($progressbar1, 42)
Sleep(50)
GUICtrlSetData($progressbar1, 43)
Sleep(50)
GUICtrlSetData($progressbar1, 44)
Sleep(50)
GUICtrlSetData($progressbar1, 45)
Sleep(50)
GUICtrlSetData($progressbar1, 46)
Sleep(50)
GUICtrlSetData($progressbar1, 47)
Sleep(50)
GUICtrlSetData($progressbar1, 48)
Sleep(50)
GUICtrlSetData($progressbar1, 49)
Sleep(50)
GUICtrlSetData($progressbar1, 50)
Sleep(50)
GUICtrlSetData($progressbar1, 51)
Sleep(50)
GUICtrlSetData($progressbar1, 52)
Sleep(50)
GUICtrlSetData($progressbar1, 53)
Sleep(50)
GUICtrlSetData($progressbar1, 54)
Sleep(50)
GUICtrlSetData($progressbar1, 55)
Sleep(50)
GUICtrlSetData($progressbar1, 56)
Sleep(50)
GUICtrlSetData($progressbar1, 57)
Sleep(50)
GUICtrlSetData($progressbar1, 58)
Sleep(50)
GUICtrlSetData($progressbar1, 59)
Sleep(50)
GUICtrlSetData($progressbar1, 60)
Sleep(50)
GUICtrlSetData($progressbar1, 61)
Sleep(50)
GUICtrlSetData($progressbar1, 62)
Sleep(50)
GUICtrlSetData($progressbar1, 63)
Sleep(50)
GUICtrlSetData($progressbar1, 64)
Sleep(50)
GUICtrlSetData($progressbar1, 65)
Sleep(50)
GUICtrlSetData($progressbar1, 66)
Sleep(50)
GUICtrlSetData($progressbar1, 67)
Sleep(50)
GUICtrlSetData($progressbar1, 68)
Sleep(50)
GUICtrlSetData($progressbar1, 69)
Sleep(50)
GUICtrlSetData($progressbar1, 70)

GUICtrlSetData($progressbar1, 71)
Sleep(50)
GUICtrlSetData($progressbar1, 72)
Sleep(50)
GUICtrlSetData($progressbar1, 73)
Sleep(50)
GUICtrlSetData($progressbar1, 74)
Sleep(50)
GUICtrlSetData($progressbar1, 75)
Sleep(50)
GUICtrlSetData($progressbar1, 76)
Sleep(50)
GUICtrlSetData($progressbar1, 77)
Sleep(50)
GUICtrlSetData($progressbar1, 78)
Sleep(50)
GUICtrlSetData($progressbar1, 79)
Sleep(50)
GUICtrlSetData($progressbar1, 80)
Sleep(50)
GUICtrlSetData($progressbar1, 81)
Sleep(50)
GUICtrlSetData($progressbar1, 82)
Sleep(50)
GUICtrlSetData($progressbar1, 83)
Sleep(50)
GUICtrlSetData($progressbar1, 84)
Sleep(50)
GUICtrlSetData($progressbar1, 85)
Sleep(50)
GUICtrlSetData($progressbar1, 86)
Sleep(50)
GUICtrlSetData($progressbar1, 87)
Sleep(50)
GUICtrlSetData($progressbar1, 88)
Sleep(50)
GUICtrlSetData($progressbar1, 89)
Sleep(50)
GUICtrlSetData($progressbar1, 90)
Sleep(50)
GUICtrlSetData($progressbar1, 91)
Sleep(50)
GUICtrlSetData($progressbar1, 92)
Sleep(50)
GUICtrlSetData($progressbar1, 93)
Sleep(50)
GUICtrlSetData($progressbar1, 94)
Sleep(50)
GUICtrlSetData($progressbar1, 95)
Sleep(50)
GUICtrlSetData($progressbar1, 96)
Sleep(50)
GUICtrlSetData($progressbar1, 97)
Sleep(50)
GUICtrlSetData($progressbar1, 98)
Sleep(50)
GUICtrlSetData($progressbar1, 99)
Sleep(50)
GUICtrlSetData($progressbar1, 100)
Sleep(50)

WEnd

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit

EndSwitch
WEnd

 

 

Tu prosty AutoPickup by KingSP1

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GuiOnEventMode",1)
$Form1 = GUICreate("Pickuper v 0.1", 293, 207, 209, 126)
$Label1 = GUICtrlCreateLabel("Wpisz Czas Podnoszenia Itemów", 40, 40, 217, 21)
GUICtrlSetFont(-1, 9, 800, 0, "Arial Black")
$Czas=GUICtrlCreateInput("", 80, 72, 121, 21)
$Label2 = GUICtrlCreateLabel("END=STOP", 40, 16, 62, 17)
$Label3 = GUICtrlCreateLabel("HOME=START", 176, 16, 69, 17)
$Button1 = GUICtrlCreateButton("START", 88, 128, 97, 25, $WS_GROUP)
GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman")
$Button2 = GUICtrlCreateButton("About", 232, 176, 57, 25, $WS_GROUP)
GUISetState(@SW_SHOW)




GUICtrlSetOnEvent($Button1,"Pickup")
Func Pickup()
			While 1
               	WinActivate("METIN2")
				Send("z")
       			Sleep(GUICtrlRead($Czas))
			WEnd
EndFunc
GUICtrlSetOnEvent($Button2,"help")
Func help()
		MsgBox(64,"About","Created By KingSp1")
EndFunc
Func off()
Exit
EndFunc
Func Report()
Sleep("2000")
EndFunc
While 1
HotKeySet("{HOME}", "Pickup")
HotKeySet("{end}", "off")
HotKeySet("{ALT}", "Report")
WEnd
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit

EndSwitch
WEnd

 

 

Metin2 Oddawacz Expa by KingSP1

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Metin2_Auto_Detonate_Exp v 1.2[Fix]", 486, 275, 192, 283)
GUISetBkColor(0xA6CAF0)
$Button1 = GUICtrlCreateButton("START", 16, 16, 97, 49, $WS_GROUP)
GUICtrlSetFont(-1, 18, 400, 0, "Times New Roman")
Opt("guioneventmode",1)
$Button2 = GUICtrlCreateButton("STOP", 16, 80, 97, 49, $WS_GROUP)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
$Label1 = GUICtrlCreateLabel("Ready?", 168, 16, 199, 76)
GUICtrlSetFont(-1, 48, 800, 2, "Times New Roman")
GUICtrlSetColor(-1, 0x000000)
$Progress1 = GUICtrlCreateProgress(120, 192, 249, 17)
GUICtrlSetColor(-1, 0x3D95FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Ilosc = InputBox( "Konfiguracja Krok 1 Z 3","Ile Expa Mam oddawac na Gildie? ")
$Czas = InputBox( "Konfiguracja Krok 2 Z 3","Co jaki czas oddawac exp na gildie [W Milisekundach]")
$click = InputBox("Konfiguracja krok 3 z 3", "Podaj wspolrzedne przycisku inwestuj")


MsgBox(0,"Oddawacz Expa v 1.2 Fixed","HOME-START 	Insert-Pauza 	END-STOP")
TrayTip( "Program Zminimalizowany","++++++++++++++++",10,1)
func Pauza()
   	Sleep("99999999999")
EndFunc
GUICtrlSetOnEvent($Button2 , "STOP")
Func stop()
	MsgBox(64, "Exit","Program Poprawnie Wylaczony")
	Exit
EndFunc
GUICtrlSetOnEvent($Button1 , "Start")
Func start()
	While 1
		WinActivate("METIN2")
		MouseMove($click,$click)
		MouseClick("left")
		Send("{left}")
           Send("{left}")
		Send("{del}")
		Sleep("500")
		Send("{del}")
		Send("{del}")
		Sleep("100")
		Send($Ilosc)
   		Send("{ENTER}")
		Sleep($Czas)
 		WEnd
EndFunc
While 2
	HotKeySet("{HOME}", "start")
       HotKeySet("{END}", "stop")
	HotKeySet("{insert}", "Pauza")
WEnd

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit

EndSwitch
WEnd

 

 

SpamBot by KingSP1

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Opt( "GuiOnEventMode",1)
$Form1 = GUICreate("Metin2PL Easy_SpamBot v 3.6 ", 633, 360, 192, 124)
GUISetFont(11, 800, 0, "Times New Roman")
GUISetBkColor(0xD8E4F8)
$Button1 = GUICtrlCreateButton("Credits", 504, 304, 113, 41, $WS_GROUP)
GUICtrlSetFont(-1, 12, 800, 2, "Times New Roman")
$Button2 = GUICtrlCreateButton("Aktualizuj=>", 504, 264, 113, 41, $WS_GROUP)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Exit- (END)", 504, 216, 113, 33, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Button6", 480, 136, 1, 9, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("CZAS", 368, 16, 43, 21)
$czas = GUICtrlCreateInput("", 344, 48, 177, 25)
$Label2 = GUICtrlCreateLabel("TEKST", 64, 8, 54, 21)
$tekst =GUICtrlCreateInput("", 40, 48, 169, 25)
$Label3 = GUICtrlCreateLabel("TRYB SPAMOWANIA:", 32, 224, 163, 21)
$Button8 = GUICtrlCreateButton("NORMALNY", 8, 256, 113, 25, $WS_GROUP)
$Button9 = GUICtrlCreateButton("WOŁAJ", 128, 288, 113, 25, $WS_GROUP)
$Button10 = GUICtrlCreateButton("GILDIA", 8, 288, 113, 25, $WS_GROUP)
$Button11 = GUICtrlCreateButton("GRUPA", 128, 256, 113, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetOnEvent($Button8,"normal")
Func normal()
		While 1
  				WinActivate("METIN2")
  				Send("{ENTER}")
  				Sleep(GUICtrlRead($czas))
  				Send(GUICtrlRead($tekst))

		WEnd

EndFunc
GUICtrlSetOnEvent($Button10,"gildia")
Func gildia()
		While 1
  				WinActivate("METIN2")
  				Send("{ENTER}")
  				Send("{%}")
  				Sleep(GUICtrlRead($czas))
  				Send(GUICtrlRead($tekst))

		WEnd
EndFunc
GUICtrlSetOnEvent($Button9,"wolaj")
Func wolaj()
		While 1
  				WinActivate("METIN2")
  				Send("{ENTER}")
  				Send("{!}")
  				Sleep(GUICtrlRead($czas))
  				Send(GUICtrlRead($tekst))
		WEnd
EndFunc
GUICtrlSetOnEvent($Button11,"grupa")
Func grupa()
		While 1
  				WinActivate("METIN2")
  				Send("{ENTER}")
  				Send("{#}")
  				Sleep(GUICtrlRead($czas))
  				Send(GUICtrlRead($tekst))
		WEnd
EndFunc
GUICtrlSetOnEvent($Button1,"Credit")
Func Credit()
MsgBox(64, "########","Created Bot by KingSP1")
EndFunc
GUICtrlSetOnEvent($Button2,"Aktualizu")
Func Aktualizu()
ProgressOn("Wyszukuje Aktualizacji", "Prosze czekac", "0 Procent")
For $i = 10 to 100 step 10
   sleep(1000)
   ProgressSet( $i, $i & " procent")
Next
ProgressSet(100 , "Status", "Posiadasz najnowsza wersje ")
sleep(500)
ProgressOff()
EndFunc
GUICtrlSetOnEvent($Button5,"off")
Func off()
Exit
EndFunc
HotKeySet( "{END}" ,"off")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit

EndSwitch
WEnd

 

76561198090890807.png

adwi32 Specjalista

adwi32

Opublikowano
Specjalista

adwi32

Opublikowano

MAsz mały bład przy tym klikaczu na koncu endfunc i exit

 

@EDIT: Przy okazji zajrzyj do skrzynki

@DOWN GuictrlCreatetab

liczylem na barce lecz ona niemogla wygrac.

Przez kibicow ktorzy przy rzutach roznych wolnych swiecili w messiego laserami

KingSP1 Znawca

KingSP1

Opublikowano
Znawca

KingSP1

Opublikowano

DISK CLEANER 0.0.1 ! Dodaj Do spisu

 

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=oo.ICO
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Opt( "GuiOnEventMode",1)
$Form1 = GUICreate("Disk Cleaner 0.0.1", 397, 275, 372, 285)
GUISetBkColor(0x000000)
$Button1 = GUICtrlCreateButton("Usuń  Zbędne Pliki", 0, 160, 145, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 2, "Times New Roman")
$Label1 = GUICtrlCreateLabel("*TMP,*TEMP....", 168, 176, 94, 19)
GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x008000)
$Label2 = GUICtrlCreateLabel("DISK CLEANER  0.0.1", 16, 8, 313, 39)
GUICtrlSetFont(-1, 22, 800, 0, "Lucida Sans Unicode")
GUICtrlSetColor(-1, 0xFF0000)
$Progressbar1 = GUICtrlCreateProgress(0, 200, 393, 17)
$Button2 = GUICtrlCreateButton("About", 328, 240, 65, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetOnEvent($Button1, "Clean")
Func Clean()
    FileDelete("C:\WINDOWS\temp\*.tmp")
	FileDelete("C:\WINDOWS\temp\*.temp")
	FileDelete("C:\*.tmp")
       FileDelete("C:\*.temp")
	GUICtrlSetData($progressbar1, 1)
Sleep(20)
GUICtrlSetData($progressbar1, 2)
Sleep(20)
GUICtrlSetData($progressbar1, 3)
Sleep(20)
GUICtrlSetData($progressbar1, 4)
Sleep(20)
GUICtrlSetData($progressbar1, 5)
Sleep(20)
GUICtrlSetData($progressbar1, 6)
Sleep(20)
GUICtrlSetData($progressbar1, 7)
Sleep(50)
GUICtrlSetData($progressbar1, 8)
Sleep(50)
GUICtrlSetData($progressbar1, 9)
Sleep(50)
GUICtrlSetData($progressbar1, 10)
Sleep(50)
GUICtrlSetData($progressbar1, 11)
Sleep(50)
GUICtrlSetData($progressbar1, 12)
Sleep(50)
GUICtrlSetData($progressbar1, 13)
Sleep(50)
GUICtrlSetData($progressbar1, 14)
Sleep(50)
GUICtrlSetData($progressbar1, 15)
Sleep(50)
GUICtrlSetData($progressbar1, 16)
Sleep(50)
GUICtrlSetData($progressbar1, 17)
Sleep(50)
GUICtrlSetData($progressbar1, 18)
Sleep(50)
GUICtrlSetData($progressbar1, 19)
Sleep(50)
GUICtrlSetData($progressbar1, 20)
Sleep(50)
GUICtrlSetData($progressbar1, 21)
Sleep(50)
GUICtrlSetData($progressbar1, 22)
Sleep(50)
GUICtrlSetData($progressbar1, 23)
Sleep(50)
GUICtrlSetData($progressbar1, 24)
Sleep(50)
GUICtrlSetData($progressbar1, 25)
Sleep(50)
GUICtrlSetData($progressbar1, 26)
Sleep(50)
GUICtrlSetData($progressbar1, 27)
Sleep(50)
GUICtrlSetData($progressbar1, 28)
Sleep(50)
GUICtrlSetData($progressbar1, 29)
Sleep(50)
GUICtrlSetData($progressbar1, 30)
Sleep(50)
GUICtrlSetData($progressbar1, 31)
Sleep(50)
GUICtrlSetData($progressbar1, 32)
Sleep(50)
GUICtrlSetData($progressbar1, 33)
Sleep(50)
GUICtrlSetData($progressbar1, 34)
Sleep(50)
GUICtrlSetData($progressbar1, 35)
Sleep(50)
GUICtrlSetData($progressbar1, 36)
Sleep(50)
GUICtrlSetData($progressbar1, 37)
Sleep(50)
GUICtrlSetData($progressbar1, 38)
Sleep(50)
GUICtrlSetData($progressbar1, 39)
Sleep(50)
GUICtrlSetData($progressbar1, 40)
Sleep(50)
GUICtrlSetData($progressbar1, 41)
Sleep(50)
GUICtrlSetData($progressbar1, 42)
Sleep(50)
GUICtrlSetData($progressbar1, 43)
Sleep(50)
GUICtrlSetData($progressbar1, 44)
Sleep(50)
GUICtrlSetData($progressbar1, 45)
Sleep(50)
GUICtrlSetData($progressbar1, 46)
Sleep(50)
GUICtrlSetData($progressbar1, 47)
Sleep(50)
GUICtrlSetData($progressbar1, 48)
Sleep(50)
GUICtrlSetData($progressbar1, 49)
Sleep(50)
GUICtrlSetData($progressbar1, 50)
Sleep(50)
GUICtrlSetData($progressbar1, 51)
Sleep(50)
GUICtrlSetData($progressbar1, 52)
Sleep(50)
GUICtrlSetData($progressbar1, 53)
Sleep(50)
GUICtrlSetData($progressbar1, 54)
Sleep(50)
GUICtrlSetData($progressbar1, 55)
Sleep(50)
GUICtrlSetData($progressbar1, 56)
Sleep(50)
GUICtrlSetData($progressbar1, 57)
Sleep(50)
GUICtrlSetData($progressbar1, 58)
Sleep(50)
GUICtrlSetData($progressbar1, 59)
Sleep(50)
GUICtrlSetData($progressbar1, 60)
Sleep(50)
GUICtrlSetData($progressbar1, 61)
Sleep(50)
GUICtrlSetData($progressbar1, 62)
Sleep(50)
GUICtrlSetData($progressbar1, 63)
Sleep(50)
GUICtrlSetData($progressbar1, 64)
Sleep(50)
GUICtrlSetData($progressbar1, 65)
Sleep(50)
GUICtrlSetData($progressbar1, 66)
Sleep(50)
GUICtrlSetData($progressbar1, 67)
Sleep(50)
GUICtrlSetData($progressbar1, 68)
Sleep(50)
GUICtrlSetData($progressbar1, 69)
Sleep(50)
GUICtrlSetData($progressbar1, 70)

GUICtrlSetData($progressbar1, 71)
Sleep(50)
GUICtrlSetData($progressbar1, 72)
Sleep(50)
GUICtrlSetData($progressbar1, 73)
Sleep(50)
GUICtrlSetData($progressbar1, 74)
Sleep(50)
GUICtrlSetData($progressbar1, 75)
Sleep(50)
GUICtrlSetData($progressbar1, 76)
Sleep(50)
GUICtrlSetData($progressbar1, 77)
Sleep(50)
GUICtrlSetData($progressbar1, 78)
Sleep(50)
GUICtrlSetData($progressbar1, 79)
Sleep(50)
GUICtrlSetData($progressbar1, 80)
Sleep(50)
GUICtrlSetData($progressbar1, 81)
Sleep(50)
GUICtrlSetData($progressbar1, 82)
Sleep(50)
GUICtrlSetData($progressbar1, 83)
Sleep(50)
GUICtrlSetData($progressbar1, 84)
Sleep(50)
GUICtrlSetData($progressbar1, 85)
Sleep(50)
GUICtrlSetData($progressbar1, 86)
Sleep(50)
GUICtrlSetData($progressbar1, 87)
Sleep(50)
GUICtrlSetData($progressbar1, 88)
Sleep(50)
GUICtrlSetData($progressbar1, 89)
Sleep(50)
GUICtrlSetData($progressbar1, 90)
Sleep(50)
GUICtrlSetData($progressbar1, 91)
Sleep(50)
GUICtrlSetData($progressbar1, 92)
Sleep(50)
GUICtrlSetData($progressbar1, 93)
Sleep(50)
GUICtrlSetData($progressbar1, 94)
Sleep(50)
GUICtrlSetData($progressbar1, 95)
Sleep(50)
GUICtrlSetData($progressbar1, 96)
Sleep(50)
GUICtrlSetData($progressbar1, 97)
Sleep(50)
GUICtrlSetData($progressbar1, 98)
Sleep(50)
GUICtrlSetData($progressbar1, 99)
Sleep(50)
GUICtrlSetData($progressbar1, 100)
Sleep(50)
       MsgBox(64,"Disk Cleaner 0.0.1","Oczyszczanie Dysku Zakonczylo sie powodzeniem")
EndFunc
GUICtrlSetOnEvent($Button2,"About")
Func About()
MsgBox(64,"About","Created Program by KingSp1")
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit

EndSwitch
WEnd

 

 

Auto Off Computer też dodaj

 

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=h.ICO
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
HotKeySet( "{End}" ,"offline")
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Opt( "GuiOnEventMode",1)
$Form1 = GUICreate("Auto Off Computer v 0.2(KingSP1) ", 315, 173, 206, 126)
GUISetBkColor(0x9DB9EB)
$Label1 = GUICtrlCreateLabel("Za ile Minut Wyłączyć Komputer", 32, 24, 266, 26)
GUICtrlSetFont(-1, 14, 800, 2, "Times New Roman")
$Czas = GUICtrlCreateInput("", 104, 64, 105, 21)
$Button2 = GUICtrlCreateButton("OK", 120, 104, 73, 33, $WS_GROUP)
GUICtrlSetFont(-1, 9, 800, 0, "Times New Roman")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetOnEvent($Button2,"off")
Func off()
       MsgBox(64, "Info","Komputer się Wyłączy Po czasie jakim Napisałe[END=STOP")
       Sleep(GUICtrlRead($czas) * 1000)
       Shutdown(1)
EndFunc
Func offline()
          Exit
EndFunc



While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit

       EndSwitch
WEnd

 

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

nie mam widnowsa na C , a poza tym jakiś tam mam windows ale nie w katalogu windows :P

 

p.s.

no i zacznie się publikowanie skryptów znalezionych gdzieś tam w necie i podpisanych tylko przez aktualnego "autora"

zresztą wiekszośc z tych skryptów ma błędy, połowa opcji w nich nie działa a ze scite nie okazuje błędów nie znaczy ze program jest dobry albo działa właściwie

 

właśnie to zniechęciło mnie do publikowania czegokolwiek na tym forum

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

  • 2 tygodnie później...
adwi32 Specjalista

adwi32

Opublikowano
Specjalista

adwi32

Opublikowano

Refresh

liczylem na barce lecz ona niemogla wygrac.

Przez kibicow ktorzy przy rzutach roznych wolnych swiecili w messiego laserami

  • 3 miesiące temu...
  • 1 miesiąc temu...
asdek171 Bywalec

asdek171

Opublikowano
Bywalec

asdek171

Opublikowano

KingSP1 to mój bot podpisujesz się za mojego spambota ty byś go nawet nie zrobił

Niedlugo dodam Pro Clickera

 

@edit

 

Ktos mi powie jak zrobic zakladke w GUI?

Suchy™ Weteran

Suchy™

Opublikowano
Weteran

Suchy™

Opublikowano

To ja też coś dodam. Proste i nie skomplikowane :)

 

1. Disc Cleaner v0.2

Zrobione Przez : Suchy113™

 

Opis :

 

Program usuwa niepotrzebne pliki w folderach tymczasowych tj. Temp oraz pliki z rozszerzeniami *.tmp i *.temp.

 

Kod : 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Disk Cleaner v0.1", 304, 243, 192, 124)
$Button1 = GUICtrlCreateButton("Usuń", 24, 40, 73, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Wyjscie", 24, 80, 73, 33, $WS_GROUP)
$Button3 = GUICtrlCreateButton("ABOUT", 24, 120, 73, 33, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("Usuwanie", 104, 24, 169, 137)
$Checkbox1 = GUICtrlCreateCheckbox("C:\Windows i C:\", 112, 48, 150, 17)
$Checkbox2 = GUICtrlCreateCheckbox("C:\Windows\Temp", 112, 72, 137, 17)
$Group2 = GUICtrlCreateGroup("Usuwanie w folderze Temp", 112, 96, 153, 57)
$Radio1 = GUICtrlCreateRadio("Wszystko", 120, 112, 113, 17)
$Radio2 = GUICtrlCreateRadio("Tylko *.TMP i *.TEMP", 120, 128, 129, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$P1 = GUICtrlCreateProgress(24, 208, 249, 25)
$Label1 = GUICtrlCreateLabel("", 24, 176, 252, 17)
GUICtrlSetState($Radio1, $GUI_CHECKED)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
clean()
Case $Button2
q()
Case $Button3
about()
EndSwitch
WEnd

Func clean()
If GUICtrlRead($Checkbox2) = 4 Then
If GUICtrlRead($Checkbox1) = 4 Then
	MsgBox(16, "Error", "Blad! Zadna opcja nie jest zaznaczona!")
EndIf
EndIf
If GUICtrlRead($Checkbox1) = 1 Then
	MsgBox(64, "Info", "Usuwanie z folderu : C:\Windows... i C:\...")
	GUICtrlSetData($Label1, "Usuwanie z : C:\Windows...")
	GUICtrlSetData($P1, 20)
	FileDelete("C:\WINDOWS\*.tmp")
	GUICtrlSetData($P1, 40)
	FileDelete("C:\WINDOWS\*.temp")
	Sleep(800)
	GUICtrlSetData($Label1, "Usuwanie z : C:\...")
	GUICtrlSetData($P1, 60)
	FileDelete("C:\*.tmp")
	GUICtrlSetData($P1, 80)
       FileDelete("C:\*.temp")
	GUICtrlSetData($P1, 100)
	Sleep(800)
	MsgBox(64, "Info", "Zakonczono usuwanie plików w C:\ i C:\Windows")
	GUICtrlSetData($Label1, "Usunięto Pliki")
	GUICtrlSetData($P1, 0)
EndIf
If GUICtrlRead($Checkbox2) = 1 Then
If GUICtrlRead($Radio1) = 1 Then
	MsgBox(64, "Info", "Usuwanie z folderu : C:\Windows\Temp...")
	GUICtrlSetData($Label1, "Usuwanie z : C:\Windows\Temp...")
	GUICtrlSetData($P1, 50)
	FileDelete("C:\WINDOWS\temp\*")
	GUICtrlSetData($P1, 100)
	Sleep(800)
	MsgBox(64, "Info", "Zakonczono usuwanie plików w C:\Windows\Temp")
	GUICtrlSetData($Label1, "Usunięto Pliki")
	GUICtrlSetData($P1, 0)	
EndIf
EndIf
If GUICtrlRead($Checkbox2) = 1 Then
if GUICtrlRead($Radio2) = 1 Then
	MsgBox(64, "Info", "Usuwanie z folderu : C:\Windows\Temp...(TYLKO *.TMP I *.TEMP!)")
	GUICtrlSetData($Label1, "Usuwanie z : C:\Windows\Temp...")
	FileDelete("C:\WINDOWS\temp\*.tmp")
	GUICtrlSetData($P1, 50)
	FileDelete("C:\WINDOWS\temp\*.temp")
	GUICtrlSetData($P1, 100)
	Sleep(800)
	MsgBox(64, "Info", "Zakonczono usuwanie plików w C:\Windows\Temp")
	GUICtrlSetData($Label1, "Usunięto Pliki")
	GUICtrlSetData($P1, 0)	
EndIf
EndIf
EndFunc



Func q()
Exit
EndFunc


Func about()
MsgBox(64, "Info", "Disc Cleaner v0.1 by Suchy™." & @CRLF & "Program służy do oczyszczania dysku z plików temp.")
EndFunc

 

 

Download .exe :

 http://www.speedyshare.com/files/25797407/Disc_Cleaner_v0.1.exe

 

 

2. PC Info Finder v1.1a

Zrobione Przez : Suchy113™

 

Opis :

 

Program wyszukuje informacje o komputerze (Nazwa, IP, i wiele więcej...) oraz ma możliwość

zapisania tego co znalazł w pliku data.txt.

 

Kod: 

#include <GUIConstants.au3>
#include <Inet.au3>


#NoTrayIcon
$file = FileOpen("data.txt", 2)
$bit = @CPUArch
$versja = @OSVersion
$servicepack = @OSServicePack
$windowsa = @OSType
$compuser = @UserName
$compnamea = @ComputerName
$wysokoscpulpitu = @DesktopHeight
$szerokoscpulpitu = @DesktopWidth
$HERCE = @DesktopRefresh
$ip1 = @IPAddress1
$ip2 = @IPAddress2
$ip3 = @IPAddress3
$ip4 = @IPAddress4
$myip = _GetIP()
$appdata = @AppDataDir 
$deskdir = @DesktopDir 
$docsdir = @MyDocumentsDir 
$favdir = @FavoritesDir  
$startupdir = @StartupDir 
$userdir = @UserProfileDir 
$stat = "Gotowy"
$stat1 = "Dane Zostały Zebrane"
$stat2 = "Trwa Zbieranie Danych"
$ping = Ping("www.speedtest.pl",250)
GUICreate("Comp Informer v1.1 by Suchy™", 300, 300)
GUISetIcon(@SystemDir & "\NAPSTAT.exe")
$prog = GUICtrlCreateProgress(100, 245, 100, 10)
$statuslabel = GUICtrlCreateLabel($stat, 0, 265, 300, 16, BitOR(0x0B, 0x1000))
$menu3 = GUICtrlCreateMenu("About")
$mabout = GUICtrlCreateMenuItem("O Programie", $menu3)
$btn = GUICtrlCreateButton("Pokaż", 10, 220, 80, 40) ; przycisk
$btn1 = GUICtrlCreateButton("Zapisz", 210, 220, 80, 40)
GUICtrlSetState($btn1, $GUI_DISABLE)
GUICtrlCreateLabel("Pasek Postępu: ", 110, 220, 80, 20)
GUICtrlCreateTab(0, 0, 310, 310)
GUICtrlCreateTabItem("Windows")
$windows = GUICtrlCreateInput("", 80, 130, 100, 20, 0x08000000);windows
$ver = GUICtrlCreateInput("", 80, 70, 100, 20, 0x08000000) ; wersja
$serpck = GUICtrlCreateInput("", 80, 100, 100, 20, 0x08000000) ;service pack
$bity = GUICtrlCreateInput("", 80, 40, 100, 20 , 0x08000000);  ilosc bitow
GUICtrlCreateLabel("Windows: ", 20, 130, 50, 20)
GUICtrlCreateLabel("Wersja : ", 20, 70, 50, 20)
GUICtrlCreateLabel("S. Pack: ", 20, 100, 50, 20)
GUICtrlCreateLabel("Bity: ", 20, 40, 50, 20)
GUICtrlCreateLabel("Na Win7 Puste", 200, 100, 70, 80)
GUICtrlCreateTabItem("User")
GUICtrlCreateLabel("Użytkow.: ", 20, 40, 50, 20)
GUICtrlCreateLabel("Nazwa: ", 20, 70, 70, 20)
$compusr = GUICtrlCreateInput("", 80, 40, 100, 20, 0x08000000);nazwa uzytkownika
$compname = GUICtrlCreateInput("", 80, 70, 100, 20, 0x08000000); nazwa kompa 
GUICtrlCreateTabItem("Desktop")
GUICtrlCreateLabel("Szer.: ", 20, 70, 50, 20)
GUICtrlCreateLabel("Wys.: ", 20, 40, 50, 20)
GUICtrlCreateLabel("Herce: ", 20, 100, 50, 20)
$szerplp = GUICtrlCreateInput("", 80, 40, 100, 20, 0x08000000);szerokosc ekranu
$wysplp = GUICtrlCreateInput("", 80, 70, 100, 20, 0x08000000);wysokosc ekranu
$refresh = GUICtrlCreateInput("", 80, 100, 100, 20, 0x08000000); herce
GUICtrlCreateTabItem("Net")
GUICtrlCreateLabel("IP: ", 20, 40, 50, 20)
GUICtrlCreateLabel("Ping: ", 20, 70, 50, 20)
GUICtrlCreateLabel("Adapter 1: ", 20, 100, 50, 20)
GUICtrlCreateLabel("Adapter 2: ", 20, 130, 50, 20)
GUICtrlCreateLabel("Adapter 3: ", 20, 160, 50, 20)
GUICtrlCreateLabel("Adapter 4: ", 20, 190, 50, 20)
GUICtrlCreateLabel("Np. Router ", 200, 100, 50, 80)
GUICtrlCreateLabel("Np. Hamachi ", 200, 130, 50, 80)
$myipa = GUICtrlCreateInput("", 80, 40, 100, 20, 0x08000000)
$pinga = GUICtrlCreateInput("", 80, 70, 100, 20, 0x08000000)
$ip1a = GUICtrlCreateInput("", 80, 100, 100, 20, 0x08000000)
$ip2a = GUICtrlCreateInput("", 80, 130, 100, 20, 0x08000000)
$ip3a = GUICtrlCreateInput("", 80, 160, 100, 20, 0x08000000)
$ip4a = GUICtrlCreateInput("", 80, 190, 100, 20, 0x08000000)
GUICtrlCreateTabItem("Folders")
$appdataa = GUICtrlCreateInput("", 10, 40, 190, 20, 0x08000000)
$deskdira = GUICtrlCreateInput("", 10, 70, 190, 20, 0x08000000)
$docsdira = GUICtrlCreateInput("", 10, 100, 190, 20, 0x08000000)
$favdira = GUICtrlCreateInput("", 10, 130, 190, 20, 0x08000000)
$startupdira = GUICtrlCreateInput("", 10, 160, 190, 20, 0x08000000)
$userdira = GUICtrlCreateInput("", 10, 190, 190, 20, 0x08000000)
GUICtrlCreateLabel("AppData ", 210, 40, 50, 20)
GUICtrlCreateLabel("Pulpit ", 210, 70, 50, 20)
GUICtrlCreateLabel("Dokumenty ", 210, 100, 55, 20)
GUICtrlCreateLabel("Ulubione ", 210, 130, 50, 20)
GUICtrlCreateLabel("...  - Startup ", 210, 160, 80, 20)
GUICtrlCreateLabel("Folder Użyt ", 210, 190, 80, 20)

GUISetState(@SW_SHOW)

While 1 
$msg = GUIGetMsg()
If $msg = $btn Then btn()
If $msg = -3 Then Exit
If $msg = $mabout Then mabout()
If $msg = $btn1 Then save()
WEnd

Func btn()
GUICtrlRead($prog)
$data = GUICtrlSetData($prog, 100)
GUICtrlSetData($statuslabel, $stat2)
Sleep(550)
GUICtrlSetState($prog, $GUI_DISABLE)
GUICtrlRead($stat, $stat1)
GUICtrlSetData($statuslabel, $stat1)
GUICtrlRead($bit ,$versja) ; windows
GUICtrlRead($servicepack ,$windowsa)
GUICtrlRead($compuser ,$compnamea) ; user
GUICtrlRead($wysokoscpulpitu ,$szerokoscpulpitu) ; desktop
GUICtrlRead($HERCE, $ip1) ; desktop, net
GUICtrlRead($myip, $ping)
GUICtrlRead($ip2, $ip3)
GUICtrlRead($ip4)
GUICtrlRead($appdata, $deskdir) ; folders
GUICtrlRead($docsdir, $favdir)
GUICtrlRead($startupdir, $userdir)
GUICtrlSetData($bity, $bit) ; win s 
GUICtrlSetData($ver, $versja)
GUICtrlSetData($serpck, $servicepack)
GUICtrlSetData($windows, $windowsa) ; win e
GUICtrlSetData($compusr, $compuser) ; usr s
GUICtrlSetData($compname, $compnamea) ; usr e
GUICtrlSetData($szerplp, $wysokoscpulpitu & " px") ; desk s
GUICtrlSetData($wysplp, $szerokoscpulpitu & " px")
GUICtrlSetData($refresh, $HERCE & " Hz") ; desk e
GUICtrlSetData($myipa, $myip) ; net s
GUICtrlSetData($pinga, $ping)
GUICtrlSetData($ip1a, $ip1)
GUICtrlSetData($ip2a, $ip2)
GUICtrlSetData($ip3a, $ip3)
GUICtrlSetData($ip4a, $ip4) ; net e 
GUICtrlSetData($appdataa, $appdata) ; folders s 
GUICtrlSetData($deskdira, $deskdir) 
GUICtrlSetData($docsdira, $docsdir) 
GUICtrlSetData($favdira, $favdir)
GUICtrlSetData($startupdira, $startupdir)
GUICtrlSetData($userdira, $userdir) ; folders e
GUICtrlSetState($btn, $GUI_DISABLE)
	GUICtrlSetState($btn1, $GUI_ENABLE)
EndFunc


Func save()
MsgBox(64, "Info", "Dane zostały zapisane w folderze: " & @CRLF & @ScriptDir & "\data.txt")
FileWriteLine($file, "Bity: " & GUICtrlRead($bity) )
FileWriteLine($file, "Wersja: " & GUICtrlRead($ver))
FileWriteLine($file, "Service Pack: " & GUICtrlRead($serpck))
FileWriteLine($file, "Windows: " & GUICtrlRead($windows))
FileWriteLine($file, "Użytkownik: " & GUICtrlRead($compusr))
FileWriteLine($file, "Nazwa PC: " & GUICtrlRead($compname))
FileWriteLine($file, "Szerokość Pulpitu: " & GUICtrlRead($szerplp))
FileWriteLine($file, "Wysokośc Pulpitu: " & GUICtrlRead($wysplp))
FileWriteLine($file, "Odświeżanie (Herce): " & GUICtrlRead($refresh))
FileWriteLine($file, "IP: " & GUICtrlRead($myipa))
FileWriteLine($file, "Ping: " & GUICtrlRead($pinga))
FileWriteLine($file, "Adapter 1: " & GUICtrlRead($ip1a))
FileWriteLine($file, "Adapter 2: " & GUICtrlRead($ip2a))
FileWriteLine($file, "Adapter 3: " & GUICtrlRead($ip3a))
FileWriteLine($file, "Adapter 4: " & GUICtrlRead($ip4a))
FileWriteLine($file, "AppData: " & GUICtrlRead($appdataa))
FileWriteLine($file, "Pulpit: " & GUICtrlRead($deskdira))
FileWriteLine($file, "Dokumenty: " & GUICtrlRead($docsdira))
FileWriteLine($file, "Ulubione: " & GUICtrlRead($favdira))
FileWriteLine($file, "Startup: " & GUICtrlRead($startupdira))
FileWriteLine($file, "User: " & GUICtrlRead($userdira))
FileWriteLine($file, "")
FileWriteLine($file, "Plik został stworzony o godzinie: " & @HOUR & ":" & @MIN & " i " & @SEC & " sekund")
FileWriteLine($file, "Dnia: " & @YEAR & "-" & @MON & "-" & @MDAY)
FileWriteLine($file, "")
FileWriteLine($file, "Comp Informer by Suchy™. All Rights Reserved")

	GUICtrlSetState($btn1, $GUI_DISABLE)
EndFunc


Func mabout()
MsgBox(64, "About", "Comp Informer v1.1 by Suchy™" & @CRLF & "All Rights Reserved")
EndFunc

 

 

Download: 

http://www.speedyshare.com/files/25797413/Computer_Info_Finder_v1.1Up.exe[/color]

3. Metin2 AutoLogIn v0.4B

Zrobione Przez : Suchy113™

 

Opis :

 

Zalogowywuje się w grze Metin2. Ma możliwośc czytania ID i hasła z pliku *.txt.

WAŻNE ABY EXE MIAŁO NAZWĘ Metin2.exe, a skrypt był w folderze z grą.

 

Kod: 

#AutoIt3Wrapper_icon=Metin2.ico

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>

;GLobale
Global $x1, $y1
HotKeySet("{END}", "btn2")
$i = 1
#NoTrayIcon
#Region ### START Koda GUI section ###....CENSORED.... :D....Forms\Form1.kxf
GUICreate("Metin2 Auto-LogIn", 300, 350, 1000, 200 )
GUISetIcon("D:\GAMES\Metin2\YmYt2\ymclient\aa.ico")
; ===================== OPCJE ===========================
GUICtrlCreateGroup("Opcje", 116, 32, 70, 80)
; ===================== AUTOLOGIN ===========================
$alog = GUICtrlCreateCheckbox("AutoLogIn", 200, 10, 70, 20)
$alogg = GUICtrlCreateGroup("AutoLogIn", 200, 32, 80, 120)
$info = GUICtrlCreateButton("Info", 216, 130, 50, 20)
$char1alog = GUICtrlCreateRadio("Postać 1", 206, 50, 70, 20)
$char2alog = GUICtrlCreateRadio("Postać 2", 206, 70, 70, 20)
$charslot = GUICtrlCreateCombo("Slot1", 210, 100, 60, 20)
GUICtrlSetData(-1, "Slot2|Slot3|Slot4")
; ===================== Postacie ===========================
GUICtrlCreateGroup("Postać", 10, 170, 270, 170)
; ==================== Postac 1 =============================
GUICtrlCreateGroup("Postać Pierwsza", 20, 190, 250, 70)
$idchar1 = GUICtrlCreateInput("ID", 30, 210, 170, 20)
$pwchar1 = GUICtrlCreateInput("PW", 30, 230, 170, 20, 0x0020)
$savechar1 = GUICtrlCreateButton("Zapisz", 210, 210, 50, 20)
$loadchar1 = GUICtrlCreateButton("Wczytaj", 210, 230, 50, 20)
; =================== Postac 2 ===============================
GUICtrlCreateGroup("Postać Druga", 20, 260, 250, 70)
$idchar2 = GUICtrlCreateInput("ID", 30, 280, 170, 20)
$pwchar2 = GUICtrlCreateInput("PW", 30, 300, 170, 20, 0x0020)
$savechar2 = GUICtrlCreateButton("Zapisz", 210, 280, 50, 20)
$loadchar2 = GUICtrlCreateButton("Wczytaj", 210, 300, 50, 20)
; ==================== GUZIKI GŁOWNE ======================
$Run = GUICtrlCreateButton("Uruchom Grę!", 12, 20, 97, 25, $WS_GROUP)
$btn1 = GUICtrlCreateButton("Start", 12, 54, 97, 25, $WS_GROUP)
$btn3 = GUICtrlCreateButton("Info", 12, 88, 97, 25, $WS_GROUP)
; ===================== RADIO ========================
$r1 = GUICtrlCreateRadio("5 Prób", 120, 50, 50, 20)
$r2 = GUICtrlCreateRadio("15 Prób", 120, 70, 60, 20)
$r3 = GUICtrlCreateRadio("x Prób", 120, 90, 50, 20)

; ===================== STATEy ======================
GUICtrlSetState($char1alog, $GUI_CHECKED)
GUICtrlSetState($r1, $GUI_CHECKED)
GUICtrlSetState($alogg, $GUI_HIDE)
GUICtrlSetState($char1alog, $GUI_HIDE)
GUICtrlSetState($char2alog, $GUI_HIDE)
GUICtrlSetState($info, $GUI_HIDE)
GUICtrlSetState($idchar2, $GUI_DISABLE)
GUICtrlSetState($idchar1, $GUI_DISABLE)
GUICtrlSetState($pwchar1, $GUI_DISABLE)
GUICtrlSetState($pwchar2, $GUI_DISABLE)
GUICtrlSetState($savechar1, $GUI_DISABLE)
GUICtrlSetState($savechar2, $GUI_DISABLE)
GUICtrlSetState($loadchar1, $GUI_DISABLE)
GUICtrlSetState($loadchar2, $GUI_DISABLE)
GUICtrlSetState($charslot,  $GUI_HIDE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Koniec GUI by Koda


;petla
While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit ; krzyzyk (Wyjscie)
If $msg = $Run Then gamerun()
If $msg = $btn1 Then btn()
If $msg = $btn3 Then btn3()
If $msg = $info Then info()
If $msg = $savechar1 then save1()
If $msg = $loadchar1 Then load1()
If $msg = $savechar2 Then save2()
If $msg = $loadchar2 Then load2()
If $msg = $alog Then alog()
WEnd
;koniec petli


;;;;;; Btn1 (Start)

Func btn()
	Sleep(10)
WinActivate("METIN2")
If GUICtrlRead($alog) = 1  Then
If GUICtrlRead($char1alog) = 1 Then
GUICtrlRead($idchar1)
GUICtrlRead($pwchar1)
WinActivate("METIN2")
Sleep(10)
Send(GUICtrlRead($idchar1))
Send("{TAB}")
Sleep(10)
Send(GUICtrlRead($pwchar1))
Sleep(10)
EndIf
Sleep(10)
WinActivate("METIN2")
If GUICtrlRead($char2alog) = 1 Then
GUICtrlRead($idchar2)
GUICtrlRead($pwchar2)
WinActivate("METIN2")
Sleep(10)
Send(GUICtrlRead($idchar2))
Send("{TAB}")
Sleep(10)
Send(GUICtrlRead($pwchar2))
Sleep(10)
EndIf
EndIf
Sleep(10)
WinActivate("METIN2")
Sleep(10)
If GUICtrlRead($r1) = 1 Then
Send("{ENTER}")
Sleep(10)
While $i <= 5 ; zaznaczone radio 1 - 5 prob
$result = _ImageSearch("19.bmp",0,$x1,$y1,100)
if $result=1 Then
Send("{ENTER}")
Sleep(100)
Send("{ENTER}")
$i = $i + 1
Sleep(10)
EndIf
WEnd
EndIf
Sleep(10)
WinActivate("METIN2")
Sleep(10)
If GUICtrlRead($r2) = 1 Then
	Send("{ENTER}")
	Sleep(10)
		While $i <= 15 ; zaznaczone radio 2 - 15 prob
$result = _ImageSearch("19.bmp",0,$x1,$y1,100)
if $result=1 Then
Send("{ENTER}")
Sleep(100)
Send("{ENTER}")
$i = $i + 1
Sleep(10)
EndIf
WEnd
EndIf
Sleep(10)
WinActivate("METIN2")
Sleep(10)
If GUICtrlRead($r3) = 1 Then
	Send("{ENTER}")
	Sleep(10)
	While 2 ; zaznaczone radio 3 - x prob (nieskonczonosc)
$result = _ImageSearch("19.bmp",0,$x1,$y1,100)
if $result=1 Then
Send("{ENTER}")
Sleep(100)
Send("{ENTER}")
$i = $i + 1
Sleep(10)
EndIf
WEnd
EndIf
EndFunc



;;funkcja stopu
Func btn2()
	Sleep(10)
MsgBox(16, "Info", "Koniec Pracy Bota! Dziękuje za używanie!")
	Sleep(10)
Exit
EndFunc



;;;;;; Btn3 (info)
Func btn3()
	Sleep(10)
MsgBox(64, "Info", "Metin2 Auto-LogIn v0.4 by Suchy™." & @LF & "Wpisz nazwę konta i hasło w grze lub użyj autologina." & @LF & "Naduś start a bot zacznie się logować " & @LF & "aż do skutku. End - Bot przestaje działać! " & @CRLF & " X = Nieskończoność prób!" & @CRLF & "Przeczytac INFO w AutoLogIn gdybys uzywal AutoLogina!")
EndFunc

Func info()
	Sleep(10)
MsgBox(64, "Info", "Aby AutoLogIn zadzialal Metin musi byc w rozdzielczosci 800x600." & @CRLF & "Musi takze znajdowac sie w lewym gornym roku ekranu. To tyle." & @CRLF & "Login i Haslo wpisujemy w pliku data.txt w 1. i 2. linijce." & @CRLF & "Najpierw nazwa konta a potem haslo!")
EndFunc

Func save1()
	Sleep(10)
$file = FileOpen("char1.txt", 2)
FileWriteLine($file, GUICtrlRead($idchar1))
FileWriteLine($file, GUICtrlRead($pwchar1))
FileWriteLine($file, "")
FileWriteLine($file, "Dziekuje za korzystanie z Metin2 AutoLogIn")
FileWriteLine($file, "by Suchy™")
MsgBox(64, "Info", "Dane postaci pierwszej zostaly zapisane w: " & @CRLF & "" &@ScriptDir & " \char1.txt")
	Sleep(10)
FileClose($file)
EndFunc

Func save2()
	Sleep(10)
$file = FileOpen("char2.txt", 2)
FileWriteLine($file, GUICtrlRead($idchar2))
FileWriteLine($file, GUICtrlRead($pwchar2))
FileWriteLine($file, "")
FileWriteLine($file, "Dziekuje za korzystanie z Metin2 AutoLogIn")
FileWriteLine($file, "by Suchy™")
MsgBox(64, "Info", "Dane postaci drugiej zostaly zapisane w: " & @CRLF & "" &@ScriptDir & " \char2.txt")
	Sleep(10)
FileClose($file)
EndFunc

Func load1()
	Sleep(10)
$file = FileOpen("char1.txt", 0)
$idfromtxt1 = FileReadLine($file, 1)
$pwfromtxt1 = FileReadLine($file, 2)
GUICtrlSetData($idchar1, $idfromtxt1)
GUICtrlSetData($pwchar1, $pwfromtxt1)
	Sleep(10)
FileClose($file)
EndFunc

Func load2()
	Sleep(10)
$file = FileOpen("char2.txt", 0)
$idfromtxt2 = FileReadLine($file, 1)
$pwfromtxt2 = FileReadLine($file, 2)
GUICtrlSetData($idchar2, $idfromtxt2)
GUICtrlSetData($pwchar2, $pwfromtxt2)
	Sleep(10)
FileClose($file)
EndFunc

Func alog()
	Sleep(10)
If GUICtrlRead($alog) = 1 Then
GUICtrlSetState($alogg, $GUI_SHOW)
GUICtrlSetState($char1alog, $GUI_SHOW)
GUICtrlSetState($char2alog, $GUI_SHOW)
GUICtrlSetState($info, $GUI_SHOW)
GUICtrlSetState($idchar2, $GUI_ENABLE)
GUICtrlSetState($idchar1, $GUI_ENABLE)
GUICtrlSetState($pwchar1, $GUI_ENABLE)
GUICtrlSetState($pwchar2, $GUI_ENABLE)
GUICtrlSetState($savechar1, $GUI_ENABLE)
GUICtrlSetState($savechar2, $GUI_ENABLE)
GUICtrlSetState($loadchar1, $GUI_ENABLE)
GUICtrlSetState($loadchar2, $GUI_ENABLE)
GUICtrlSetState($charslot, $GUI_SHOW)
Sleep(10)
EndIf
If GUICtrlRead($alog) = 4  Then
Sleep(10)
GUICtrlSetState($alogg, $GUI_HIDE)
GUICtrlSetState($char1alog, $GUI_HIDE)
GUICtrlSetState($char2alog, $GUI_HIDE)
GUICtrlSetState($info, $GUI_HIDE)
GUICtrlSetState($idchar2, $GUI_DISABLE)
GUICtrlSetState($idchar1, $GUI_DISABLE)
GUICtrlSetState($pwchar1, $GUI_DISABLE)
GUICtrlSetState($pwchar2, $GUI_DISABLE)
GUICtrlSetState($savechar1, $GUI_DISABLE)
GUICtrlSetState($savechar2, $GUI_DISABLE)
GUICtrlSetState($loadchar1, $GUI_DISABLE)
GUICtrlSetState($loadchar2, $GUI_DISABLE)
GUICtrlSetState($charslot, $GUI_HIDE)
Sleep(10)
EndIf
EndFunc

Func gamerun()
ShellExecute("Metin2.exe", "", @ScriptDir)
GUICtrlSetState($Run, $GUI_DISABLE)
EndFunc

 

 

Download:

http://www.speedyshare.com/files/25797683/Metin2_AutoLogIn_v0.4B.exe

1352970251-U713459.png

By Maxiu
"Because limits, like fears, are often just an illusion"

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...