Get Direct Link Google Drive

$url = InputBox('Get Direct Link Google Drive', 'Type your file url')
If @error Then Exit
$DirectLink = GetDirectLinkGoogleDrive($url)
InputBox('Get Direct Link Google Drive', 'Your Direct Link is :', $DirectLink)

Func GetDirectLinkGoogleDrive($url)
    If StringInStr($url, 'folders') Then
        MsgBox(16, 'Error', 'Not Support Folder Url')
        Exit
    EndIf
    $KQ = StringRegExp($url, '[-\w]{25,}', 1)
    Return 'https://drive.google.com/uc?export=download&id=' & $KQ[0]
EndFunc   ;==>GetDirectLinkGoogleDrive