Red de conocimiento informático - Problemas con los teléfonos móviles - Número de seguimiento expreso de consulta de código fuente de VB

Número de seguimiento expreso de consulta de código fuente de VB

Función kdcx(kd, orderid)

Dim Err, url, kdtime, link, Errcode,

Seleccione caso kd

Caso "shentong"

kd = "shentong"<

Caso "Yuantong"

kd = "yuantong"

Caso "yousu"

kd = "yousu"

Caso "longbang"