#include <MsgBoxConstants.au3>
#include <FileConstants.au3>

inputpcid()

Func inputpcid()

    Local $pcid = InputBox("PCID", "Vul het Pcid in:", "", "", _
             - 1, -1, 0, 0)


$check = MsgBox(4, "pcid?",  "Is dit het juiste pcid?    " & $pcid)
If $check = 6 Then

ElseIf $check = 7 Then
   inputpcid()
EndIf

Run(@comspec & " /c 7za.exe a " & $pcid )


sleep (2000)


FileMove("*.7z", $pcid & ".zip")


EndFunc