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

Chcę się douczyć! :D

newjaa

Przez newjaa
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

newjaa Pasjonat

newjaa

Opublikowano
Pasjonat

newjaa

Opublikowano

Witam!

Pierwszy raz goszczę w tym dziale!

 

Ostatnio w tutkach metina został opublikowany patcher "badara".

No cóż, szkoda mi gościa tak jak wam, ale nic to mu nie pomoże:<

 

Do rzeczy.

 

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=ico.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Fileversion=1.0.0.4
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Run_Obfuscator=y
#NoTrayIcon
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <file.au3>
#Include <guiconstants.au3>
#include <windowsconstants.au3>
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
Global $metin2 = @ScriptDir
Global $m2ordner = @ScriptDir
Global $ScriptDir = @ScriptDir
Global $TempDir = @TempDir
Global $AppDataDir = @AppDataDir
Global $url = "http://x.x.x.x/patch/"
FileInstall("grafiki\main.bmp", @Tempdir&"\main.bmp",1)
FileInstall("grafiki\rozpocznij.bmp", @Tempdir&"\rozpocznij.bmp",1)
FileInstall("grafiki\opcje.bmp", @Tempdir&"\opcje.bmp",1)
FileInstall("grafiki\wyjscie.bmp", @Tempdir&"\wyjscie.bmp",1)
FileInstall("grafiki\blabla.bmp", @Tempdir&"\blabla.bmp",1)

Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("testtest Patcher - 2012", 834, 499, 340, 220)
$Pic2 = GUICtrlCreatePic(@Tempdir&"\main.bmp", 0, 0, 833, 497)
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
$stat = GUICtrlCreateEdit("", 636, 25, 188, 200)
GUICtrlSetData(-1, "Rozpoczynanie patchowania...")
$cancel = 0
GUICtrlSetOnEvent($cancel, "_close")
$Progress1 = GUICtrlCreateProgress(640, 450, 177, 20)
GUISetState(@SW_SHOW)
$Form2 = GUICreate("testtest Patcher - 2012", 834, 499, 340, 220)
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
$Pic1 = GUICtrlCreatePic(@Tempdir&"\main.bmp", 0, 0, 833, 497, $BS_BITMAP)
$start = GUICtrlCreateButton("Uruchom", 630, 20, 200, 38, $BS_BITMAP)
GUICtrlSetImage(-1, @Tempdir&"\rozpocznij.bmp", 1)
GUICtrlSetOnEvent($start, "start")
$config = GUICtrlCreateButton("Ustawienia", 630, 80, 200, 32, $BS_BITMAP)
GUICtrlSetOnEvent($config, "config")
GUICtrlSetImage(-1, @Tempdir&"\opcje.bmp", 1)
$ende = GUICtrlCreateButton("Wyjdź", 630, 430, 200, 33, $BS_BITMAP)
GUICtrlSetImage(-1,  @Tempdir&"\wyjscie.bmp", 1)
GUICtrlSetOnEvent($ende, "_close")
$blabla = GUICtrlCreateButton("Patch", 630, 140, 200, 32, $BS_BITMAP)
GUICtrlSetOnEvent($blabla, "blabla")
GUICtrlSetImage(-1, @Tempdir&"\blabla.bmp", 1)



func start ()
    MsgBox(4096,"Uwaga !", "Uruchamiam klienta gry testtest !")
    sleep(200)
   run("qgaswdfx.bin")
    sleep(100)
    Exit
EndFunc

Func config ()
   run("config.exe")
EndFunc


func _close ()
   Exit
EndFunc

func blabla ()
   $file = @TempDir&"\files.txt"
   InetGet( $url&"\files.txt" , $file)
   $lines = _FileCountLines($file)
   If $lines = 0 Then
    MsgBox(4096,"Uwaga!","Twoj firewall lub co innego blokuje auto-pacher! Pobierz paczke recznie wraz z launcherem (korzystaj z launchera)!")
    ShellExecute("http://x.x.x.x/paczki")
   EndIf
   DirCreate("pack")
   DirCreate("BGM")
   DirCreate("lib")
   DirCreate("mark")
   DirCreate("miles")
   DirCreate("screenshot")
   DirCreate("upload")
   While ($lines >= 1)
    $datei = FileReadLine($file,$lines)
    GUICtrlSetData($stat,"Sprawdzanie pliku: "& $datei & @CRLF & GUICtrlRead($stat))
		    $size_inet = InetGetSize($url&"\"&$datei)
    If FileExists($ScriptDir&"\"&$datei) Then
	    If @error Then
		    MsgBox(16 , "Fehler", @error)
	    EndIf
	    $size_ordner = FileGetSize( $ScriptDir&"\"&$datei)
	    If $size_inet <  $size_ordner or $size_inet >  $size_ordner Then
		    GUICtrlSetData($stat,"Pobieranie pliku: "& $datei & @CRLF & GUICtrlRead($stat))
		    InetGet($url&$datei , $ScriptDir& "\" & $datei , 1 , 1)
		    while 1
			    $hFileSize = FileGetSize($ScriptDir & "\" & $datei)
			    $iPercent = round ( @InetGetBytesRead  /  $size_inet   *100)
			    GUICtrlSetData($Progress1, $iPercent)
		    If $hFileSize = $size_inet Then
		    GUICtrlSetData($Progress1, 100)
		    ExitLoop
	    EndIf
	    sleep (50)
    WEnd
    Else
	    GUICtrlSetData($stat,"Sprawdzono plik: "& $datei & @CRLF & GUICtrlRead($stat))
	    EndIf
    Else
	    InetGet($url&$datei,$ScriptDir&"\"&$datei,1,1)
	    GUICtrlSetData($stat, "Pobieranie pliku: "& $datei& @CRLF & GUICtrlRead($stat))
	    while 1
		    $hFileSize = FileGetSize($ScriptDir & "\" & $datei)

		    $iPercent = round ( @InetGetBytesRead  /  $size_inet   *100)

		    GUICtrlSetData($Progress1, $iPercent)

	    If $hFileSize = $size_inet Then
		    GUICtrlSetData($Progress1, 100)
		    ExitLoop


	    EndIf
	    sleep (50)
    WEnd
    EndIf
    sleep (500)
    $lines = $lines-1
   WEnd
   FileDelete($TempDir&"files.txt")
   GUISetState(@SW_HIDE,$Form1)
   GUISetState(@SW_SHOW,$Form2)

while 1
   Sleep(100)
WEnd
EndFunc

 

 

Nie znam się w ogóle na AutoIt, tak więc proszę o kogoś obeznanego o pomoc!

chodzi mi o to, aby został utworzony przycisk "blabla" dzięki któremu rozpocznie się proces patchowania.

 

"Wrócę niebawem!"

 

 

Lajki czekają = )

Zbliżamy się ku końcowi.

 

95/100 %

 

Żegnaj MPC Forum

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano
Ostatnio w tutkach metina został opublikowany patcher "badara".

No cóż, szkoda mi gościa tak jak wam, ale nic to mu nie pomoże:<

 

a kto to kurwa jest badar?

 

chodzi o ten przycisk o nazwie Patch, który jest już zaimplementowany i po jego naciśnięciu włącza się funkcja patchująca?

981841412442977292370.png
newjaa Pasjonat

newjaa

Opublikowano
Pasjonat

newjaa

  • Autor
Opublikowano

Tak, dokładnie o to chodzi.

 

// Nie wiesz kto to Badar ? Poszperaj po forum, to się dowiesz co to za bezmózgi krętacz : )

Zbliżamy się ku końcowi.

 

95/100 %

 

Żegnaj MPC Forum

wojtek333314 Specjalista

wojtek333314

Opublikowano
Specjalista

wojtek333314

Opublikowano

Sopel nie wysilaj sie koles napisal co chcial , mysli ze zrobimy mu gotowca z usmiechem na twarzy i powiemy 'wpadaj czesciej' , wroci jutro bo mysli ze na czarnuchow trafil...

Do autora: tutki przypiete w dziale i powodzenia to nic trudnego ten caly autoit

Moje gry i programy:

[Poradnik] Pisanie gry 2D w AutoIT z silnikiem Irrlicht

[Program] SendToAll czyli wyslij meail do wielu osób za pomocą kliknięcia!

[Program] Polonica - usuń polskie znaki z pliku czy tekstu! Z troską o Minecraftowych administratorów i kinomaniaków

[Gra] Xanthous - czyli gra w AutoIT

[Program] Renaming - program do masowego zmieniania nazw plików, numeracji itp.

[Gra] Prosta strzelanka 3D(!) w AutoIT!

[NEW! Program] Piszmy to razem! Czyli wspólne programowanie w sieci!

Prawdziwy pech ,czyli jedna liczba która dzieliła mnie od 30000 pln :

http://img26.imagesh...ial30000pln.jpg

 

 

11967467.jpg

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

@up. nie mam zamiaru mu żadnego gotowca pisać ^^. Nikomu nie mam zamiaru pisać gotowca (chyba, że coś ciekawszego, z czego ja też mogę skorzystać).

 

 

Ogólnie to o tym kodzie wiem tyle, że szybciej byłoby to napisać po swojemu od zera. Nie dałeś nam żadnych info odnośnie tego, jak to działa, jak ma działać, co działa/nie działa, co trzeba ewentualnie zrobić.

Już nie mówiąc o nazwie tematu, która jest całkowicie nie adekwatna do prośby.

981841412442977292370.png
newjaa Pasjonat

newjaa

Opublikowano
Pasjonat

newjaa

  • Autor
Opublikowano

Jak pisałem, nie znam się na AutoIt, próbowałem to przerobić pod swoje kryteria, ale przy odpaleniu po prostu aplikacja wygasa.

Kompilacja przechodzi bez najmniejszych oporów.

 

@wojtek333314

Może troszkę grzeczniej ? Nie znam się na AutoIt, a z tego co widzę wiele osób w tym dziale uczestniczy z wiedzą większa ode mnie.

Chodzi mi tylko o to, żeby cały proces patchowania wklepać pod przycisk, aby się nie uruchamiał automatycznie po włączeniu. (Po co ma 5min sprawdzać pliki, skoro można by od razu odpalić grę)

No ale dobra, nie to nie, poczytam, może mi się uda.

3mcie kciuki ;)

Zbliżamy się ku końcowi.

 

95/100 %

 

Żegnaj MPC Forum

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano
Chodzi mi tylko o to, żeby cały proces patchowania wklepać pod przycisk, aby się nie uruchamiał automatycznie po włączeniu.

to tak właśnie jest w tym skrypcie co dałeś w pierwszym poście...

981841412442977292370.png
newjaa Pasjonat

newjaa

Opublikowano
Pasjonat

newjaa

  • Autor
Opublikowano

to tak właśnie jest w tym skrypcie co dałeś w pierwszym poście...

 

Jak już pisałem, włączam aplikację i od razu mi znika z procesów.

Lub inaczej, pojawia się na ułamek sekundy i ani widu ani słychu :)

 

Próbuję jeszcze raz z oryginalnego kodu to przerobić, ale oczywiście znowu to samo...

Moje domysły są takie, że przez #NoTrayIcon może nie trybić, ale skoro to usuwa jedynie ikonę z paska..

To ja już nie wiem, temat do zamknięcia ._.

 

@down

 

Nic, a nic nie ruszy. (i tak jest na końcu to co podałeś)

Trudno, wzorując się na gotowcach napiszę sobie coś prostszego ;x

Zbliżamy się ku końcowi.

 

95/100 %

 

Żegnaj MPC Forum

newjaa Pasjonat

newjaa

Opublikowano
Pasjonat

newjaa

  • Autor
Opublikowano

Oryginalny kod:

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\AutoIT\source - pacher\insperia\GUI\Icon_1.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Fileversion=1.0.0.4
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <file.au3>
#Include <guiconstants.au3>
#include <windowsconstants.au3>
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
Global $metin2 = @ScriptDir
Global $m2ordner = @ScriptDir
Global $ScriptDir = @ScriptDir
Global $TempDir = @TempDir
Global $AppDataDir = @AppDataDir
Global $url = "http://176.31.235.196/patch/"
FileInstall("C:\grafiki\main.bmp", @Tempdir&"\main.bmp",1)
FileInstall("C:\grafiki\rozpocznij.bmp", @Tempdir&"\rozpocznij.bmp",1)
FileInstall("C:\grafiki\opcje.bmp", @Tempdir&"\opcje.bmp",1)
FileInstall("C:\grafiki\wyjscie.bmp", @Tempdir&"\wyjscie.bmp",1)
FileInstall("C:\grafiki\nowe.bmp", @Tempdir&"\nowe.bmp",1)

Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Tajranon patcher - 2011 by tajranon.pl", 834, 499, 340, 220)
$Pic2 = GUICtrlCreatePic(@Tempdir&"\main.bmp", 0, 0, 833, 497)
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
$stat = GUICtrlCreateEdit("", 636, 25, 188, 200)
GUICtrlSetData(-1, "Rozpoczynanie patchowania...")
$cancel = 0
GUICtrlSetOnEvent($cancel, "_close")
$Progress1 = GUICtrlCreateProgress(640, 450, 177, 20)
GUISetState(@SW_SHOW)
$Form2 = GUICreate("Tajranon patcher - 2011 by tajranon.pl", 834, 499, 340, 220)
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
$Pic1 = GUICtrlCreatePic(@Tempdir&"\main.bmp", 0, 0, 833, 497, $BS_BITMAP)
$start = GUICtrlCreateButton("(Not allowed)", 630, 20, 200, 38, $BS_BITMAP)
GUICtrlSetImage(-1, @Tempdir&"\rozpocznij.bmp", 1)
GUICtrlSetOnEvent($start, "start")
$config = GUICtrlCreateButton("(Not allowed)", 630, 80, 200, 32, $BS_BITMAP)
GUICtrlSetOnEvent($config, "config")
GUICtrlSetImage(-1, @Tempdir&"\opcje.bmp", 1)
$ende = GUICtrlCreateButton("(Not allowed)", 630, 430, 200, 33, $BS_BITMAP)
GUICtrlSetImage(-1,  @Tempdir&"\wyjscie.bmp", 1)
GUICtrlSetOnEvent($ende, "_close")
$seite1 = GUICtrlCreateButton("(Not allowed)", 630, 140, 200, 32, $BS_BITMAP)
GUICtrlSetImage(-1, @Tempdir&"\nowe.bmp", 1)


GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')

  Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
	If BitAND($wParam, 0x0000FFFF) =  $GUI_EVENT_CLOSE Then $Interrupt = 1
	Switch BitAND($wParam, 0xFFFF)
			Case ($seite1)
ShellExecute("http://tajranon.pl/rejestracja/")
	EndSwitch
	Return $GUI_RUNDEFMSG
	EndFunc

func start ()
	MsgBox(4096,"Uwaga !", "Uruchamiam klienta gry tajranon.pl !")
	sleep(200)
run("start.exe")
	sleep(100)
	Exit
EndFunc

Func config ()
run("config.exe")
EndFunc


func _close ()
Exit
EndFunc
Sleep (500)
	patch()

func patch ()
$file = @TempDir&"\files.txt"
InetGet( $url&"\files.txt" , $file)
$lines = _FileCountLines($file)
If $lines = 0 Then
	MsgBox(4096,"Uwaga!","Twoj firewall lub co innego blokuje auto-pacher! Pobierz paczke recznie wraz z launcherem (korzystaj z launchera)!")
	ShellExecute("http://176.31.235.196/paczki")
EndIf
DirCreate("pack")
DirCreate("BGM")
DirCreate("lib")
DirCreate("mark")
DirCreate("miles")
DirCreate("screenshot")
DirCreate("upload")
While ($lines >= 1)
	$datei = FileReadLine($file,$lines)
	GUICtrlSetData($stat,"Sprawdzanie pliku: "& $datei & @CRLF & GUICtrlRead($stat))
			$size_inet = InetGetSize($url&"\"&$datei)
	If FileExists($ScriptDir&"\"&$datei) Then
		If @error Then
			MsgBox(16 , "Fehler", @error)
		EndIf
		$size_ordner = FileGetSize( $ScriptDir&"\"&$datei)
		If $size_inet <  $size_ordner or $size_inet >  $size_ordner Then
			GUICtrlSetData($stat,"Pobieranie pliku: "& $datei & @CRLF & GUICtrlRead($stat))
			InetGet($url&$datei , $ScriptDir& "\" & $datei , 1 , 1)
			while 1
				$hFileSize = FileGetSize($ScriptDir & "\" & $datei)
				$iPercent = round ( @InetGetBytesRead  /  $size_inet   *100)
				GUICtrlSetData($Progress1, $iPercent)
			If $hFileSize = $size_inet Then
			GUICtrlSetData($Progress1, 100)
			ExitLoop
		EndIf
		sleep (50)
	WEnd
	Else
		GUICtrlSetData($stat,"Sprawdzono plik: "& $datei & @CRLF & GUICtrlRead($stat))
		EndIf
	Else
		InetGet($url&$datei,$ScriptDir&"\"&$datei,1,1)
		GUICtrlSetData($stat, "Pobieranie pliku: "& $datei& @CRLF & GUICtrlRead($stat))
		while 1
			$hFileSize = FileGetSize($ScriptDir & "\" & $datei)

			$iPercent = round ( @InetGetBytesRead  /  $size_inet   *100)

			GUICtrlSetData($Progress1, $iPercent)

		If $hFileSize = $size_inet Then
			GUICtrlSetData($Progress1, 100)
			ExitLoop


		EndIf
		sleep (50)
	WEnd
	EndIf
	sleep (500)
	$lines = $lines-1
WEnd
FileDelete($TempDir&"files.txt")
GUISetState(@SW_HIDE,$Form1)
GUISetState(@SW_SHOW,$Form2)

while 1
Sleep(100)
WEnd
EndFunc

 

 

doszedłem do tego, że po usunięciu

Sleep (500)
	patch()

Okno się od razu zamyka. Pousuwałem linijki związane z zamykaniem i nadal.

Przywrócę 

Sleep (500)
	patch()

i znowu działa. Nie mam na to już dziś siły, tak jak pisałem wyżej, temat do zamknięcia, pomęczę się sam jutro;)

Dzięki za próbę pomocy !

 

@Protecto

 

Zrozumiano szefie :ninja:

Zbliżamy się ku końcowi.

 

95/100 %

 

Żegnaj MPC Forum

4ggr35510n Mentor

4ggr35510n

Opublikowano
Mentor

4ggr35510n

Opublikowano

 

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_Icon=ico.ico

#AutoIt3Wrapper_Compression=4

#AutoIt3Wrapper_Res_Fileversion=1.0.0.4

#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y

#AutoIt3Wrapper_Run_Obfuscator=y

#NoTrayIcon

#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#Include <file.au3>

#Include <guiconstants.au3>

#include <windowsconstants.au3>

#include <buttonconstants.au3>

#include <guiconstantsex.au3>

Global $metin2 = @ScriptDir

Global $m2ordner = @ScriptDir

Global $ScriptDir = @ScriptDir

Global $TempDir = @TempDir

Global $AppDataDir = @AppDataDir

Global $url = "http://x.x.x.x/patch/"

FileInstall("grafiki\main.bmp", @Tempdir&"\main.bmp",1)

FileInstall("grafiki\rozpocznij.bmp", @Tempdir&"\rozpocznij.bmp",1)

FileInstall("grafiki\opcje.bmp", @Tempdir&"\opcje.bmp",1)

FileInstall("grafiki\wyjscie.bmp", @Tempdir&"\wyjscie.bmp",1)

FileInstall("grafiki\blabla.bmp", @Tempdir&"\blabla.bmp",1)

 

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("testtest Patcher - 2012", 834, 499, 340, 220)

$Pic2 = GUICtrlCreatePic(@Tempdir&"\main.bmp", 0, 0, 833, 497)

GUISetOnEvent($GUI_EVENT_CLOSE, "_close")

$stat = GUICtrlCreateEdit("", 636, 25, 188, 200)

GUICtrlSetData(-1, "Rozpoczynanie patchowania...")

$cancel = 0

GUICtrlSetOnEvent($cancel, "_close")

$Progress1 = GUICtrlCreateProgress(640, 450, 177, 20)

GUISetState(@SW_SHOW)

$start = GUICtrlCreateButton("Uruchom", 630, 20, 200, 38, $BS_BITMAP)

GUICtrlSetImage(-1, @Tempdir&"\rozpocznij.bmp", 1)

GUICtrlSetOnEvent($start, "start")

$config = GUICtrlCreateButton("Ustawienia", 630, 80, 200, 32, $BS_BITMAP)

GUICtrlSetOnEvent($config, "config")

GUICtrlSetImage(-1, @Tempdir&"\opcje.bmp", 1)

$ende = GUICtrlCreateButton("Wyjdź", 630, 430, 200, 33, $BS_BITMAP)

GUICtrlSetImage(-1, @Tempdir&"\wyjscie.bmp", 1)

GUICtrlSetOnEvent($ende, "_close")

$blabla = GUICtrlCreateButton("Patch", 630, 140, 200, 32, $BS_BITMAP)

GUICtrlSetOnEvent($blabla, "blabla")

GUICtrlSetImage(-1, @Tempdir&"\blabla.bmp", 1)

 

While True

Sleep(1000)

WEnd

 

func start ()

MsgBox(4096,"Uwaga !", "Uruchamiam klienta gry testtest !")

sleep(200)

run("qgaswdfx.bin")

sleep(100)

Exit

EndFunc

 

Func config ()

run("config.exe")

EndFunc

 

 

func _close ()

Exit

EndFunc

 

func blabla ()

$file = @TempDir&"\files.txt"

InetGet( $url&"\files.txt" , $file)

$lines = _FileCountLines($file)

If $lines = 0 Then

MsgBox(4096,"Uwaga!","Twoj firewall lub co innego blokuje auto-pacher! Pobierz paczke recznie wraz z launcherem (korzystaj z launchera)!")

ShellExecute("http://x.x.x.x/paczki")

EndIf

DirCreate("pack")

DirCreate("BGM")

DirCreate("lib")

DirCreate("mark")

DirCreate("miles")

DirCreate("screenshot")

DirCreate("upload")

While ($lines >= 1)

$datei = FileReadLine($file,$lines)

GUICtrlSetData($stat,"Sprawdzanie pliku: "& $datei & @CRLF & GUICtrlRead($stat))

$size_inet = InetGetSize($url&"\"&$datei)

If FileExists($ScriptDir&"\"&$datei) Then

If @error Then

MsgBox(16 , "Fehler", @error)

EndIf

$size_ordner = FileGetSize( $ScriptDir&"\"&$datei)

If $size_inet < $size_ordner or $size_inet > $size_ordner Then

GUICtrlSetData($stat,"Pobieranie pliku: "& $datei & @CRLF & GUICtrlRead($stat))

InetGet($url&$datei , $ScriptDir& "\" & $datei , 1 , 1)

while 1

$hFileSize = FileGetSize($ScriptDir & "\" & $datei)

 

If $hFileSize = $size_inet Then

GUICtrlSetData($Progress1, 100)

ExitLoop

EndIf

sleep (50)

WEnd

Else

GUICtrlSetData($stat,"Sprawdzono plik: "& $datei & @CRLF & GUICtrlRead($stat))

EndIf

Else

InetGet($url&$datei,$ScriptDir&"\"&$datei,1,1)

GUICtrlSetData($stat, "Pobieranie pliku: "& $datei& @CRLF & GUICtrlRead($stat))

while 1

$hFileSize = FileGetSize($ScriptDir & "\" & $datei)

 

 

If $hFileSize = $size_inet Then

GUICtrlSetData($Progress1, 100)

ExitLoop

 

 

EndIf

sleep (50)

WEnd

EndIf

sleep (500)

$lines = $lines-1

WEnd

FileDelete($TempDir&"files.txt")

GUISetState(@SW_HIDE,$Form1)

 

while 1

Sleep(100)

WEnd

EndFunc

 

Ta sygnatura jest pusta.

newjaa Pasjonat

newjaa

Opublikowano
Pasjonat

newjaa

  • Autor
Opublikowano

@UP

 

Niby działa, ale nawarstwia się progress i "pobieranie pliku", przy czym buttony nie odpowiadają.

Zaraz zobaczę ten wasz dział, może się czegoś nauczę.

Zbliżamy się ku końcowi.

 

95/100 %

 

Żegnaj MPC Forum

cichyiti Znawca

cichyiti

Opublikowano
Znawca

cichyiti

Opublikowano

@up

Zgaduję że też nie pobiera pliku jeżeli tak to wiem gdzie problem

Program nie ma ustawionej strony i nie wie skąd ma ściągać

dowód

Global $url = "http://x.x.x.x/patch/"

1330007971-U359964.png

 

sherer Weteran

sherer

Opublikowano
Weteran

sherer

Opublikowano

Sopel ma racje - ten kod to zbugowany shit :)

Jeśli chcesz porządny patcher, to musisz albo kupić (np od mnie), albo zaczynać samemu pisać OD PODSTAW.

Zresztą masz source, które jest oryginałem patchera Badara:

http://www.mpcforum.pl/topic/172897-tut-polski-patcher-na-twoj-serwer/

784091427630431250239.png
Regulamin sygnatur

newjaa Pasjonat

newjaa

Opublikowano
Pasjonat

newjaa

  • Autor
Opublikowano

Kod badara jest duzo lepszy, nie potrzebuje żadnych patch.ini w folderze klienta, dlatego też starałem się przerobić kod, a nie ukrywam, ciekawi mnie to jak cholera, próbowałem naprawdę chyba wszystkiego, po czym doszedłem do wniosku, że zrobię sobie "launcher" w VB.

Zrobiłem, tylko z jednym mam problem, u niektórych nie działa to (ręczne odpalanie exeka), natomiast po odpaleniu przez inny program, działa.

 

Pytanie do was (zależy mi na tym, bo AutoIt ma wybór kompilacji x32 lub x64 = działa na każdym systemie Microsoftu).

Przykładowo w VB mam funkcję Shell("blabla.exe"), jaki odpowiednik byłby w AutoIt ?

func testtest ()
run("testtest.bin")
	sleep(100)
	Exit
EndFunc

Ten kod odpowiada w takim razie za..

Odpalenie testtest.bin, oraz zamknięcie się w odstępie 0,1s ?

No dobra, więc to jako tako rozumiem, ale w AutoIt naprawdę nie wiem jak dodać obrazki dla przycisków..

Jeśli ktoś miałby skrypt, który ma wybór "Odpal lub zamknij (anuluj)", prosiłbym o wstawkę, lub głębszą pomoc.

 

:x Mianowicie nie rozumiem po co są takie cosie

Global $TempDir = @TempDir

 

 

Zmontowałem coś takiego (bazując na oryginalnym kodzie "Badarka")

 

#Include <file.au3>
#Include <guiconstants.au3>
#include <windowsconstants.au3>
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
Global $TempDir = @TempDir
FileInstall("main.bmp", @Tempdir&"\main.bmp",1)
FileInstall("patchuj.bmp", @Tempdir&"\patchuj.bmp",1)
FileInstall("startuj.bmp", @Tempdir&"\startuj.bmp",1)
FileInstall("wyjscie.bmp", @Tempdir&"\wyjscie.bmp",1)


Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("TestTest Patcher - 2012", 834, 499, 340, 220)
$Pic2 = GUICtrlCreatePic(@Tempdir&"\main.bmp", 0, 0, 833, 497)
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
$Form2 = GUICreate("TestTest Patcher - 2012", 834, 499, 340, 220)
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
$Pic1 = GUICtrlCreatePic(@Tempdir&"\main.bmp", 0, 0, 833, 497, $BS_BITMAP)
$end = GUICtrlCreateButton("(Not allowed)", 630, 430, 200, 33, $BS_BITMAP)
GUICtrlSetImage(-1,  @Tempdir&"\wyjscie.bmp", 1)
GUICtrlSetOnEvent($end, "_close")
$spatch = GUICtrlCreateButton("(Not allowed)", 630, 140, 200, 32, $BS_BITMAP)
GUICtrlSetImage(-1, @Tempdir&"\patchuj.bmp", 1)
$start = GUICtrlCreateButton("(Not allowed)", 630, 250, 200, 55, $BS_BITMAP)
GUICtrlSetImage(-1, @Tempdir&"\startuj.bmp", 1)

func start ()
run("testtest.bin")
	sleep(100)
	Exit
EndFunc

func spatch ()
run("testtest2.bin")
	sleep(100)
	Exit
EndFunc

func _close ()
Exit
EndFunc

 

 

I w takim razie, czemu mi to nie trybi? [Przechodzi kompilacje, ale podczas włączania .. nawet się nie włącza - skacze tylko wydajność procka nic więcej]

 

 

@cichyiti

 

Jeśli masz mnie za idiotę, zmień temat.

Zbliżamy się ku końcowi.

 

95/100 %

 

Żegnaj MPC Forum

Protecto Bywalec

Protecto

Opublikowano
Bywalec

Protecto

Opublikowano
Przykładowo w VB mam funkcję Shell("blabla.exe"), jaki odpowiednik byłby w AutoIt ?

ShellExecute

 

:x Mianowicie nie rozumiem po co są takie cosie

Global $TempDir = @TempDir

Ja też nie mam pojęcia. Wymysł autora. Niepotrzebne.

newjaa Pasjonat

newjaa

Opublikowano
Pasjonat

newjaa

  • Autor
Opublikowano

 

#Include <file.au3>
#Include <guiconstants.au3>
#include <windowsconstants.au3>
#include <buttonconstants.au3>
#include <guiconstantsex.au3>

FileInstall("main.bmp",1)
FileInstall("patchuj.bmp",1)
FileInstall("startuj.bmp",1)
FileInstall("wyjscie.bmp",1)

$Form1 = GUICreate("TestTest Patcher - 2012", 834, 499, 340, 220)
$Pic2 = GUICtrlCreatePic("main.bmp", 0, 0, 833, 497)
$Form2 = GUICreate("TestTest Patcher - 2012", 834, 499, 340, 220)
$Pic1 = GUICtrlCreatePic("main.bmp", 0, 0, 833, 497, $BS_BITMAP)
$end = GUICtrlCreateButton("(Not allowed)", 630, 430, 200, 33, $BS_BITMAP)
GUICtrlSetImage("wyjscie.bmp", 1)
$spatch = GUICtrlCreateButton("(Not allowed)", 630, 140, 200, 32, $BS_BITMAP)
GUICtrlSetImage("patchuj.bmp", 1)
$start = GUICtrlCreateButton("(Not allowed)", 630, 250, 200, 55, $BS_BITMAP)
GUICtrlSetImage("startuj.bmp", 1)

func start ()
   run("testtest.bin")
    sleep(100)
    Exit
EndFunc

func spatch ()
   run("testtest2.bin")
    sleep(100)
    Exit
EndFunc

func _close ()
   Exit
EndFunc

 

 

Na tym stanąłem. Nadal się nie włącza, a kompilacje przechodzi bez najmniejszych trudów.

Jakieś pomysły? Mi się aktualnie skończyły, idę po więcej pomysłów :ninja:

Zbliżamy się ku końcowi.

 

95/100 %

 

Żegnaj MPC Forum

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

wyświetl gui.

guisetstate(@SW_SHOW)

 

 

:x Mianowicie nie rozumiem po co są takie cosie

Global $TempDir = @TempDir

 

Żeby nie odnosić się za każdym razem do makra, a do zmiennej, która już tą wartość będzie zawierać. Skrypt powinien bardzo nieznacznie szybciej wykonywać operacje ze zmienną niż z makrem

981841412442977292370.png
newjaa Pasjonat

newjaa

Opublikowano
Pasjonat

newjaa

  • Autor
Opublikowano

Włącza się i znika, jakieś dalsze pomysły ? Ogółem kod jest dobrze napisany czy najgorszy "shit" jaki mógłby być ? :)

Zbliżamy się ku końcowi.

 

95/100 %

 

Żegnaj MPC Forum

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

to dodaj jeszcze pętle główną, bo jak na razie to nic się nie ma wykonać.

while 1
wend

981841412442977292370.png
newjaa Pasjonat

newjaa

Opublikowano
Pasjonat

newjaa

  • Autor
Opublikowano

o.O włączył się, ale nadal jest jeden poważny problem.

Buttony nie mają grafiki, funkcje do nich przypisane nie działają, nie działa także krzyżyk.

Uhh. No nic, zmotywowałeś mnie do myślenia! Dzięki.

Zbliżamy się ku końcowi.

 

95/100 %

 

Żegnaj MPC Forum

M4niak Budowniczy

M4niak

Opublikowano
Budowniczy

M4niak

Opublikowano

Próbujesz wykrzesać trochę ognia z niczego..

Jeśli nie wiesz nawet podstawowych rzeczy, to po co bierzesz się za coś takiego?

 

Zacznij od tutorialu Maćka, potem przejrzyj jakieś inne..

 

Żeby nie offtopować i dawać Protecto przyjemności

 

Brakuje Ci switcha.. =d

Dlatego przyciski nie działają..

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano
Brakuje Ci switcha.. =d

Dlatego przyciski nie działają..

i już każdy nowicjusz wie o co chodzi...

nie można tego tak ująć

 

trzeba zrobić coś co wyłapywało by komunikaty z gui. Np switch z guigetmsg(). Równie dobrze może to być if z guigetmsg(), pętla while, czy cokolwiek co pomoże nam wyodrębnić komunikat z gui. To już tylko zależ od tego jak sobie programista to zrobi i co potrzebuje.

można także użyć guiregistermsg, albo guioneventmode.

 

 

Buttony nie mają grafiki,

a skąd mają mieć skoro pewnie nawet takowych nie posiadasz...

981841412442977292370.png
newjaa Pasjonat

newjaa

Opublikowano
Pasjonat

newjaa

  • Autor
Opublikowano

@M4niak

Nadal nie działa, jeśli możesz.. pokaż na przykładzie błagam ; d

Jestem na skraju załamania, dla mnie to jest czarna magia, a nie chcę używać VB (shit)

 

Btw: Czemu nie mamy mu dawać przyjemności ? I tak warnów tu nie posypie (chyba) ^_^

 

@Sopelek

Mam grafiki, własnoręcznie wszystko zrobiłem, a do dziś się męczę z tą jedną funkcją.. Wyboru, żeby nie patchowało mi od razu całego klienta -.-

 

// Zaraz spróbuję czegoś innego i walnę edita albo napiszę posta, zależy czy ktoś odpisze ;)

 

 

/// Macie szansę nauczyć nooba/nowicjusza/idioty/debila więc spróbujcie, podpięte tematy jakoś do mnie nie przemawiają (mówią o zupełnie czym innym, czego nie potrzebuję)

Zbliżamy się ku końcowi.

 

95/100 %

 

Żegnaj MPC Forum

Zarchiwizowany

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

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