我需要使用WebClient的“HTTP Post”将一些数据发布到特定的URL . 我有一些问题要将值传递给输入类型“Radio” .
部分网络代码:
<li class='cua_cols'>NIF a seleccionar
<big><strong>A********</strong></big>
</li>
<li><label for='wNif'><input type='hidden' id='wNif' name='wNif' value='A********' /></label></li>
<li class='dos_cols'>
<label for='TIPONIF0'>
que actúa como
</label>
<b>Operador </b><input type='radio' id='TIPONIF0' name='TIPONIF' value='OP' checked = 'checked' />
<b>Autorizado </b><input type='radio' id='TIPONIF1' name='TIPONIF' value='AU' />
</li>
<li class='ancho_99'> </li><li class='cua_cols'>
<label for='wNifAut'>
NIF relacionado=
<input type='text' name='wNifAut' id='wNifAut' value='B********' maxlength='17' size='19' onkeypress='javascript:if (event.keyCode == 13) return false; ' onclick='' />
</label></li>
<li class='cua_cols'>
<label for='TIPONIF_SOL0'>
que actúa como
</label>
<b>Operador </b><input type='radio' id='TIPONIF_SOL0' name='TIPONIF_SOL' value='OP' />
<b>Autorizado </b><input type='radio' id='TIPONIF_SOL1' name='TIPONIF_SOL' value='AU' checked = 'checked' />
</li>
第一次下一个代码正常工作,但今天只作为wNifAut值 .
Dim requestData As New NameValueCollection()
requestData.Add("wNifAut", mnoCIF)
requestData.Add("TIPONIF1", "true")
requestData.Add("TIPONIF_SOL0", "true")
requestData.Add("Buscar", "Click")
Dim request As Byte() = myWebClient.UploadValues(msStrURL, "POST", requestData)
msHTMLString = Encoding.UTF8.GetString(request)
1 回答
OP解决方案 .
页面的源代码也包含这个:
我在代码中更改了一些行:
重要变更