webBrowser功能少 限制多 建议直接通过HTTP的方式提交表单
10731
%7B%22isLastPage%22%3Atrue%2C%22notes%22%3A%5B%5D%2C%22pid%22%3A%22t10731%22%2C%22tid%22%3A%2210731%22%2C%22mainForumsId%22%3A%5B%22134%22%5D%2C%22categoriesId%22%3A%5B%22424%22%5D%2C%22tcId%22%3A%5B%5D%7D
%7B%22isEditMode%22%3Afalse%7D
VB写的程序遇到了一个瓶颈，是关于自动提交表单的
程序的作用是自动完成网站的表单填写和提交
现在遇到了一个可恶的页面，没有Value属性，如何给表单的控件附值？
望各位赐教
摘取一部分HTML源码上来供大家分析。
HTML代码如下：
联系地址：
客户的详细地址
<input name=GetAdr id="GetAdr" size=30 maxlength=50 class=button1>
*
邮政编码：
<input name=Post id="[s:9]ost" size=30 maxlength=6 style="ime-mode:disabled" class=button1>
电话：
<input name=LifeTel id="LifeTel" size=30 maxlength=13 style="ime-mode:disabled" class=button1>
移动电话：
<input name=MTel id="MTel" size=30 maxlength=13 style="ime-mode:disabled" class=button1>
*
电子邮件地址：
<INPUT name=Email id="Email" size=30 maxLength=50 class=button1>
如上所见，并没有出现Value= 这样的属性，不能通过给Value附值提交来实现了。
请问有什么简便的方法吗？听说好象是强行替换上Value属性，然后强行递交给webBrowser执行，据说能提交上去，我没试过，不知道行不行，自己也没办法实现（初学VB）。
我现在采用的自动提交代码如下：
程序自动遍历ID，然后根据条件自动定位，写入数据。
Dim vDoc, vTag
Dim i As Integer
Set vDoc = XXXXXXXXXXXXXXcument
XXXXXXXXear
For i = 0 To XXXXXXXl.Length - 1
If UCase(XXXXXXXl(i).TagName) = "INPUT" Then
Set vTag = XXXXXXXl(i)
If vTag.Type = "text" Or vTag.Type = "password" Then
XXXXXXXXdItem XXXXXXXme
Select Case XXXXXXXme
Case "myid"
XXXXXXXlue = XXXXXXXXst(key_2)
XXXXXXXXstIndex = key_2
key_2 = key_2 + 1
If XXXXXXXXst(key_2) = "" Then Beep
Case "pwd"
XXXXXXXlue = "654321"
Case "verifycode"
XXXXXXXlue = Text2.text
End Select
ElseIf vTag.Type = "submit" Then
XXXXXXXick
End If
End If
Next i
上面这个自动提交方法碰到我前面提到的HTML代码，就不灵了。。。
就连TYPE类都找不到一个。。。
我是这么写的：
Dim vDoc, vTag
Dim i As Integer
Set vDoc = XXXXXXXXXXXXXXcument
XXXXXXXXear
For i = 0 To XXXXXXXl.Length - 1
If UCase(XXXXXXXl(i).TagName) = "INPUT" Then
Set vTag = XXXXXXXl(i)
If vTag.Type = "text" Or vTag.Type = "radio" Or vTag.Type = "radio" Or vTag.Type = "select" Or vTag.Type = "textarea" Then
XXXXXXXXdItem XXXXXXXme
Select Case XXXXXXXme
Case "name"
XXXXXXXlue = Sname(i).text '此处用的是控件数组，textbox控件，下同
Case "sex"
XXXXXXXlue = Ssex(i).text
Case "psid"
XXXXXXXlue = Val(Sid(i).text + 1)
Case "birdy"
XXXXXXXlue = Val(Mid$(Sid(i).text, 6, 4))
Case "area"
XXXXXXXlue = SdqB(i).text
Case "getadr"
XXXXXXXlue = SdqC(i).text
Case "mtel"
XXXXXXXlue = Smtel(i).text
Case "birdm"
XXXXXXXlue = Val(Mid$(Sid(i).text, 10, 2)) / 1
Case "birdd"
XXXXXXXlue = Val(Mid$(Sid(i).text, 12, 2)) / 1
Case "state"
XXXXXXXlue = "浙江省"
Case "txtnote"
XXXXXXXlue = "TEST"
End Select
ElseIf vTag.Type = "submit" Then
XXXXXXXick
End If
End If
Next i
现在遇到了一个可恶的页面，没有Value属性，如何给表单的控件附值？
望各位赐教
摘取一部分HTML源码上来供大家分析。
HTML代码如下：
联系地址：
客户的详细地址
<input name=GetAdr id="GetAdr" size=30 maxlength=50 class=button1>
*
邮政编码：
<input name=Post id="[s:9]ost" size=30 maxlength=6 style="ime-mode:disabled" class=button1>
电话：
<input name=LifeTel id="LifeTel" size=30 maxlength=13 style="ime-mode:disabled" class=button1>
移动电话：
<input name=MTel id="MTel" size=30 maxlength=13 style="ime-mode:disabled" class=button1>
*
电子邮件地址：
<INPUT name=Email id="Email" size=30 maxLength=50 class=button1>
如上所见，并没有出现Value= 这样的属性，不能通过给Value附值提交来实现了。
请问有什么简便的方法吗？听说好象是强行替换上Value属性，然后强行递交给webBrowser执行，据说能提交上去，我没试过，不知道行不行，自己也没办法实现（初学VB）。
我现在采用的自动提交代码如下：
程序自动遍历ID，然后根据条件自动定位，写入数据。
Dim vDoc, vTag
Dim i As Integer
Set vDoc = XXXXXXXXXXXXXXcument
XXXXXXXXear
For i = 0 To XXXXXXXl.Length - 1
If UCase(XXXXXXXl(i).TagName) = "INPUT" Then
Set vTag = XXXXXXXl(i)
If vTag.Type = "text" Or vTag.Type = "password" Then
XXXXXXXXdItem XXXXXXXme
Select Case XXXXXXXme
Case "myid"
XXXXXXXlue = XXXXXXXXst(key_2)
XXXXXXXXstIndex = key_2
key_2 = key_2 + 1
If XXXXXXXXst(key_2) = "" Then Beep
Case "pwd"
XXXXXXXlue = "654321"
Case "verifycode"
XXXXXXXlue = Text2.text
End Select
ElseIf vTag.Type = "submit" Then
XXXXXXXick
End If
End If
Next i
上面这个自动提交方法碰到我前面提到的HTML代码，就不灵了。。。
就连TYPE类都找不到一个。。。
我是这么写的：
Dim vDoc, vTag
Dim i As Integer
Set vDoc = XXXXXXXXXXXXXXcument
XXXXXXXXear
For i = 0 To XXXXXXXl.Length - 1
If UCase(XXXXXXXl(i).TagName) = "INPUT" Then
Set vTag = XXXXXXXl(i)
If vTag.Type = "text" Or vTag.Type = "radio" Or vTag.Type = "radio" Or vTag.Type = "select" Or vTag.Type = "textarea" Then
XXXXXXXXdItem XXXXXXXme
Select Case XXXXXXXme
Case "name"
XXXXXXXlue = Sname(i).text '此处用的是控件数组，textbox控件，下同
Case "sex"
XXXXXXXlue = Ssex(i).text
Case "psid"
XXXXXXXlue = Val(Sid(i).text + 1)
Case "birdy"
XXXXXXXlue = Val(Mid$(Sid(i).text, 6, 4))
Case "area"
XXXXXXXlue = SdqB(i).text
Case "getadr"
XXXXXXXlue = SdqC(i).text
Case "mtel"
XXXXXXXlue = Smtel(i).text
Case "birdm"
XXXXXXXlue = Val(Mid$(Sid(i).text, 10, 2)) / 1
Case "birdd"
XXXXXXXlue = Val(Mid$(Sid(i).text, 12, 2)) / 1
Case "state"
XXXXXXXlue = "浙江省"
Case "txtnote"
XXXXXXXlue = "TEST"
End Select
ElseIf vTag.Type = "submit" Then
XXXXXXXick
End If
End If
Next i
如何实现呢？HTTP直接提交我还没试过
可以对没有Value属性的页面操作吗？
拜托大家了，帮我想想办法，不想就这么放弃了
在CSDN上发过帖，但是没人鸟我。
可以对没有Value属性的页面操作吗？
拜托大家了，帮我想想办法，不想就这么放弃了
在CSDN上发过帖，但是没人鸟我。
引用
加载评论中，请稍候...
200字以内，仅用于支线交流，主线讨论请采用回复功能。
用费德勒抓包，然后用inet控件提交。。
当然.NET的话用webclient会爽死人的！webclient1.uploaddata
当然.NET的话用webclient会爽死人的！webclient1.uploaddata
引用
加载评论中，请稍候...
200字以内，仅用于支线交流，主线讨论请采用回复功能。
93 能详细说下吗？
我QQ：175304004
因为没做过这方面的程序，况且本人VB也是初学，光搞验证码就够呛了，现在验证码问题解决了，就差这个了
同志们，发扬下雷锋精神吧
我QQ：175304004
因为没做过这方面的程序，况且本人VB也是初学，光搞验证码就够呛了，现在验证码问题解决了，就差这个了
同志们，发扬下雷锋精神吧
引用
加载评论中，请稍候...
200字以内，仅用于支线交流，主线讨论请采用回复功能。
突然发现这个表单页面是用Javascript写的，HTML里没有Value估计和这个有关系
<head>
<link href="../images/font1.css" rel="stylesheet" type="text/css">
</head>
<SCRIPT language=Javascript>
function IsEmpty(s)
{
if (s.length == 0)
return true;
}
function startSpace(value)
{
ch = value.substring(0, 1);
if(ch == " ")
return true;
}
function charOnly(fieldValue)
{
var length = fieldValue.length;
var ch = "";
for (var i = 0; i < length; i++)
{
ch = fieldValue.substring(i, i + 1);
if ( ((ch < "a" || "z" < ch) && (ch < "A" || "Z" < ch)) && ( ch <"0" || "9" < ch ) )
return false;
}
return true;
}
</script>
<SCRIPT language=Javascript>
function ValidateFields2(form)
{
if(IsEmpty(XXXXXXXXXXXXlue))
{
alert("请输入你的姓名！");
XXXXXXXXXXXXcus();
return false;
}
if(IsEmpty(XXXXXXXXXXXXlue))
{
alert("身份证不能为空！");
XXXXXXXXXXXXcus();
return false;
}
if(!(XXXXXXXXXXXXlue.length==15||XXXXXXXXXXXXlue.length==18))
{
alert("身份证为15位或者为18位！");
XXXXXXXXXXXXcus();
return false;
}
if(isNaN(XXXXXXXXXXXXXlue))
{
alert("生日的年份必须为数字！");
XXXXXXXXXXXXXcus();
return false;
}
if(IsEmpty(XXXXXXXXXXXXlue))
{
alert("请输入您所在的县市！");
XXXXXXXXXXXXcus();
return false;
}
if(IsEmpty(XXXXXXXXXXXXXXlue))
{
alert("请输入您详细的通讯地址！");
XXXXXXXXXXXXXXcus();
return false;
}
if(IsEmpty(XXXXXXXXXXXXlue))
{
alert("请输入手机号！");
XXXXXXXXXXXXcus();
return false;
}
if(isNaN(XXXXXXXXXXXXlue))
{
alert("手机号输入有误！");
XXXXXXXXXXXXcus();
return false;
}
if(IsEmpty(XXXXXXXXXXXXXXXlue)||XXXXXXXXXXXXXXXlue.length > 49)
{
alert("请输入基本简介，并且长度小于50位！");
XXXXXXXXXXXXXXXcus();
return false;
}
form.submit();
return true;
}
</script>
<head>
<link href="../images/font1.css" rel="stylesheet" type="text/css">
</head>
<SCRIPT language=Javascript>
function IsEmpty(s)
{
if (s.length == 0)
return true;
}
function startSpace(value)
{
ch = value.substring(0, 1);
if(ch == " ")
return true;
}
function charOnly(fieldValue)
{
var length = fieldValue.length;
var ch = "";
for (var i = 0; i < length; i++)
{
ch = fieldValue.substring(i, i + 1);
if ( ((ch < "a" || "z" < ch) && (ch < "A" || "Z" < ch)) && ( ch <"0" || "9" < ch ) )
return false;
}
return true;
}
</script>
<SCRIPT language=Javascript>
function ValidateFields2(form)
{
if(IsEmpty(XXXXXXXXXXXXlue))
{
alert("请输入你的姓名！");
XXXXXXXXXXXXcus();
return false;
}
if(IsEmpty(XXXXXXXXXXXXlue))
{
alert("身份证不能为空！");
XXXXXXXXXXXXcus();
return false;
}
if(!(XXXXXXXXXXXXlue.length==15||XXXXXXXXXXXXlue.length==18))
{
alert("身份证为15位或者为18位！");
XXXXXXXXXXXXcus();
return false;
}
if(isNaN(XXXXXXXXXXXXXlue))
{
alert("生日的年份必须为数字！");
XXXXXXXXXXXXXcus();
return false;
}
if(IsEmpty(XXXXXXXXXXXXlue))
{
alert("请输入您所在的县市！");
XXXXXXXXXXXXcus();
return false;
}
if(IsEmpty(XXXXXXXXXXXXXXlue))
{
alert("请输入您详细的通讯地址！");
XXXXXXXXXXXXXXcus();
return false;
}
if(IsEmpty(XXXXXXXXXXXXlue))
{
alert("请输入手机号！");
XXXXXXXXXXXXcus();
return false;
}
if(isNaN(XXXXXXXXXXXXlue))
{
alert("手机号输入有误！");
XXXXXXXXXXXXcus();
return false;
}
if(IsEmpty(XXXXXXXXXXXXXXXlue)||XXXXXXXXXXXXXXXlue.length > 49)
{
alert("请输入基本简介，并且长度小于50位！");
XXXXXXXXXXXXXXXcus();
return false;
}
form.submit();
return true;
}
</script>
| ||||||||||||||
引用
加载评论中，请稍候...
200字以内，仅用于支线交流，主线讨论请采用回复功能。