110,546
社区成员
发帖
与我相关
我的任务
分享
<a href="#" onclick="resumeObj.RefreshResume(this,'/myzhaopin/resume_publish.asp?ext_id=JM081665520R99250004000&resume_id=208191458&Version_Number=1&language_id=2')" class="funBtn ic5" title="简历刷新"></a>
Dim count As Integer = 1
While bRefreshed = False
For Each el As HtmlElement In doc.All
If el.GetAttribute("classname") = "funBtn ic5" Then
el.InvokeMember("click")
MessageBox.Show("刷新完成" & count)
End If
Next
count = count + 1
Dim iRefreshIntern As Integer = iRefreshInternS
If iRefreshIntern < iInternMax Then
iRefreshIntern = iRefreshIntern + iStep
ElseIf iRefreshIntern > iInternMax Then
iRefreshIntern = iRefreshInternS
End If
System.Threading.Thread.Sleep(iRefreshIntern)
End While