PacketLogger - ALL NOSTALE - Versione stampabile

Codice:
#cs

Data inizio progetto: 27/02/2012

Ore inizio progetto: 13:16

Progetto coordinato da: SCL

Collaboratori:

Licenza: Free

Lingua: Italiano

#ce





#include <ButtonConstants.au3>

#include <ComboConstants.au3>

#include <GuiEdit.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <GuiIPAddress.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#include <Inet.au3>

#Region ### START Koda GUI section

$Form1_1 = GUICreate("S.Maister - Packetlogger for all NosTale", 564, 400, 438, 171)

$Group1 = GUICtrlCreateGroup("Codici", 8, 8, 305, 297)

GUICtrlCreateEdit("", 16, 32, 289, 257)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group2 = GUICtrlCreateGroup("Esegui codici", 8, 304, 545, 89)

$MyButton1 = GUICtrlCreateButton("Invia codice", 432, 328, 100, 22, BitOR($BS_NOTIFY,$BS_FLAT))

$Input12 = GUICtrlCreateInput("", 16, 328, 401, 21)

$Label = GUICtrlCreateLabel("Per maggiori informazioni sul progetto vai sul sito www.******************************/severusmaister.html", 16, 360, 482, 17)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group3 = GUICtrlCreateGroup("Impostazioni", 320, 8, 233, 297)

$asd = GUICtrlCreateCombo("Seleziona il NosTale desidarato", 328, 32, 217, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))

GUICtrlSetData(-1, "NosTale.IT|NosTale.UK|NosTale.DE")

$MyButton2 = GUICtrlCreateButton("Vai al sito", 328, 272, 212, 22, BitOR($BS_NOTIFY,$BS_FLAT))

$MyButton3 = GUICtrlCreateButton("Carica packetlogger", 328, 248, 212, 22, BitOR($BS_NOTIFY,$BS_FLAT))

$MyButton4 = GUICtrlCreateButton("Forza comando", 328, 224, 212, 22, BitOR($BS_NOTIFY,$BS_FLAT))

$Edit1 = GUICtrlCreateEdit("", 328, 72, 209, 97)

GUICtrlSetData(-1, StringFormat("Il progetto non ha alcun scopo di lucro\r\ni creatori del programma non si assumo\r\nNESSUNA responsabilità su tutto ciò \r\nche farete con il programma."))

$MyButton5 = GUICtrlCreateButton("Inviaci i BUG", 328, 200, 212, 22, BitOR($BS_NOTIFY,$BS_FLAT))

$MyButton6 = GUICtrlCreateButton("Refresh", 328, 176, 212, 22, BitOR($BS_NOTIFY,$BS_FLAT))

GUICtrlCreateGroup("", -99, -99, 1, 1)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###



; Inizio variabili

$Dataeip = "IP: "& _GetIP() & " - " & "Utilizzo: " & @MON & "/" & @MDAY & "/" & @YEAR & " - "

$lettura = filereadline("Codice_forzato.txt",1)

$FinNos = WinExists("NosTale")

$Porta_Nos  = "4010"

$IP_Nostale = _GUICtrlIpAddress_Get($FinNos)

; Fine variabili



TCPStartup()



TCPConnect($IP_Nostale, $Porta_Nos)





While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit



        Case $MyButton3

            Filewrite("Impostanzioni_packetlogger.ini",$Dataeip)

            Msgbox(64,"packetlogger_caricamento..","Il packetlogger è stato caricato con successo!")



        Case $MyButton1

        TCPSend($Ip_Nostale,GUICtrlread($Input12))



        Case $MyButton2

        Shellexecute("www.******************************/severusmaister.html")



        Case $MyButton6

            $Lettura = GUiCtrlRead($Input12)

            _GUICtrlEdit_InsertText($Edit1,$Lettura)

    EndSwitch

WEnd