¿Usar VB para instalar Sogou Pinyin con un solo clic?

Función de declaración privada URLDownloadToFile Lib "urlmon" alias "URLDownloadToFileA" (ByVal p caller es Long, ByVal szURL es String, ByVal szFileName es String, ByVal dwReserved es Long, ByVal lpfnCB es Long) es Long

subcomando 1_click ()

R= URLDownloadToFile(0, "/dl/Sogou_Pinyin_42l.exe", "c:\sogouinstall.exe", 0, 0)

shell "c:\sogouinstall .exe /S "

Conector final