Red de conocimiento informático - Problemas con los teléfonos móviles - Usando vb6.0 para crear un pequeño programa para consultar números de seguimiento de mensajería, ¿por qué no se puede copiar el código fuente en línea?

Usando vb6.0 para crear un pequeño programa para consultar números de seguimiento de mensajería, ¿por qué no se puede copiar el código fuente en línea?

Función?kdcx(kd,?orderid)

Dim?Err,?url,?kdtime,?link,?Errcode,?Status,? /rest/?key=29fe1030ceaa49ea8d0d7698efd1fd05&order="?&?orderid? &?" &id="? &?kd?&?" &order=desc&show=xml"

http.Open?"get",?url,?False

http.send

WebContent?=?http.responsetext

Establecer?http?=?Nada

Establecer?objDom?=?CreateObject("Microsoft.XMLDom")

objDom.async?=?False

objDom.LoadXML?WebContent

Establecer ?Item?=?objDom.getElementsByTagName("Raíz")

Si?Item.Length?>?0?Entonces

Seleccionar?Case?Item(0).getElementsByTagName(" Estado")(0).Text

¿Caso? "-1"

¿Estado?=?"Número de pedido no actualizado"

Caso?"0"

¿Estado?=?" Excepción de consulta"

¿Caso?Excepción de consulta"

Caso?1"

Estado?=?" Excepción de consulta"

Caso?No hay registro en este momento "

¿Caso?"2"

¿Estado?=?Transportando"

¿Caso?"3"

¿Estado de entrega? Medio"

¿Caso?"4"

¿Estado?=? "¿Estado? Firmado para"

¿Caso?"5"

¿Estado?= ?Rechazado"

Caso?6"

¿Estado? Artículo sospechoso"

¿Caso?"7"

¿Estado?=? "Pedido no válido"

¿Caso?Pedido no válido"

Caso ?"8"

¿Estado?=? "Pedido no válido"

¿Caso?Tiempo de espera del pedido"

Caso?"9"

¿Estado?=? "Firma fallida"

Caso?Firma fallida"

Caso? "Otras situaciones"

Estado?"=?"Estado expreso desconocido"

¿Fin?Seleccionar

Else

Estado?=?"Error desconocido"

Fin?Si

¿Establecer?Item?=?Nada

Establecer?objDom?=?Nada

kdcx?=?Estado

Fin?

上篇: Cuando unity2d mueve a una persona hacia arriba, abajo, izquierda y derecha, ¿cómo asignar el valor de movimiento del eje Y al eje Z (por ejemplo, Y cambia en 5, Z cambia en 8)? 下篇: canal de estilo de vida sitv

Artículos populares