Metin2 Hackshield

Page 2 of 2 1 2
11/10/2010 19:42 amnesi#16
hmm zeig doch mal dein Script :)
11/10/2010 20:04 Memphiisto#17
Ungern aber nagut .. wenn so kann man mir ja am besten helfen :P

Wehe jmnd klauts XD ;) ( Macht eh niemand ausßer völlige anfänger ^^ )

PHP Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Fileinstall("C:\Users\********\Desktop\LoginBot By MagicDave\LoginBot V1.0 By Magicdave.exe", @TempDir&"\LoginBot V1.0 By Magicdave.exe")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Installer", 413, 233, 450, 214)
GUISetBkColor ( 0x9DB9EB )
$Input1 = GUICtrlCreateInput("", 8, 8, 297, 21)
$Button1 = GUICtrlCreateButton("Durchsuchen", 312, 6, 97, 25)
$Button2 = GUICtrlCreateButton("Installieren", 16, 64, 377, 121)
$Label1 = GUICtrlCreateLabel("(c) by MagicDave", 8, 210, 88, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
$Ordner=  FileSelectFolder( "Pfad des Metin2 Ordners angeben" ,"" , 5 )
$Input1= GUICtrlCreateInput($Ordner , 8, 8, 297, 21)
        Case $Button2
        FileMove(@TempDir&"\LoginBot V1.0 By Magicdave.exe" , $Ordner)
        FileCreateShortcut( $Ordner&"\LoginBot V1.0 By Magicdave.exe" , @DesktopDir&"\Loginbot by MagicDave")
        If Not @error Then
        MsgBox (1, "Erfolgreich","Die Installation war erfolgreich."&@CRLF&"Eine Verknüpfung wurde auf dem Deskop angebracht.")
        EndIf
    EndSwitch
WEnd 
lg Magic
11/10/2010 21:11 .Infinite#18
Also bei mir funktioniert's... Nur wenn man reinklickt gehts halt weg. Das sollte aber nicht weiter schlimm sein.

Quote:
Was soll denn die IsDeclared Abfrage unter $button2?
- Damit man nicht einfach "weiter" drücken kann, ohne einen Pfad ausgewählt zu haben. Wenn nämlich keiner ausgewählt ist wird die Variable nicht deklariert und man kommt nicht weiter. Wenn man mit "If ...=0 Then ..." klappt das denke ich garnicht, weil man eine nicht deklarierte Variable garnicht verwenden kann, außer du deklarierst sie vorher und gibst ihr explizit den Wert 0.
11/10/2010 21:15 Memphiisto#19
Also bei mir gehts schon weg wenn man nur mit der Maus darüber fährt..
man muss nicht mal rein klicken damitt bei mit alles weg ist,
man muss wie gesagt nur rüber fahren mit der maus...


Lg Magic :)
11/10/2010 21:19 amnesi#20
so geht es ;D
du hast nur eine 2. input erstellt die darunter war aba noch immer da
du kannst doch auch einfach die daten mit guictrlsetdata reinschreiben ;D

PHP Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Fileinstall("C:\Users\********\Desktop\LoginBot By MagicDave\LoginBot V1.0 By Magicdave.exe", @TempDir&"\LoginBot V1.0 By Magicdave.exe")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Installer", 413, 233, 450, 214)
GUISetBkColor ( 0x9DB9EB )
$Input1 = GUICtrlCreateInput("", 8, 8, 297, 21)
$Button1 = GUICtrlCreateButton("Durchsuchen", 312, 6, 97, 25)
$Button2 = GUICtrlCreateButton("Installieren", 16, 64, 377, 121)
$Label1 = GUICtrlCreateLabel("(c) by MagicDave", 8, 210, 88, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
$Ordner=  FileSelectFolder( "Pfad des Metin2 Ordners angeben" ,"" , 5 )
guictrlsetdata($Input1,$Ordner)
        Case $Button2
        FileMove(@TempDir&"\LoginBot V1.0 By Magicdave.exe" , $Ordner)
        FileCreateShortcut( $Ordner&"\LoginBot V1.0 By Magicdave.exe" , @DesktopDir&"\Loginbot by MagicDave")
        If Not @error Then
        MsgBox (1, "Erfolgreich","Die Installation war erfolgreich."&@CRLF&"Eine Verknüpfung wurde auf dem Deskop angebracht.")
        EndIf
    EndSwitch
WEnd 
11/10/2010 22:30 Memphiisto#21
Oh XD Dann is kla why dann nix mehr angezeigt wird ;)
Thx ^^ an das mit GuiCtrlsetData hab ich garnicht mehr gedacht XD


lg Magic
Page 2 of 2 1 2