双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

自动填表问题，现在无法查看代码？

2007-12-22 10:30:56 85 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

qxstock 墨衍会员 · AI 创作全网分发关注 + 加入社区

嵌入式开发中Tab与空格混用的危害与统一规范实践在软件工程中，代码格式一致性是保障可读性与团队协作效率的基础。从原理上看，制表符（Tab）与空格（Space）在存储与显示机制上存在本质差异：Tab是控制字符，其显示宽度取决于编辑器设置；空格则是固定宽度的字符。这种差异导致混用时会引发代码对齐错乱、版本控制冲突及跨平台兼容性问题，严重影响工程的可维护性。尤其在嵌入式开发领域，资源受限环境与高可靠性要求使得统一的编码规范更为关键。通过配置编辑器、集成clang-format等自动化工具，可以强制实现缩进风格的一致性，从而提升代码质量与团队协作效率。本文聚焦于阅读详情

自动填表问题http://my.chinahr.com/NewAccount.aspx?clickbutton=1&jtr=41518621&prj=fa 这个页面注册后的下一页面如何填表,是form中带无法查看代码的，现在无法看见代码？请大家帮忙

...全文

MATLAB联合Fluent优化仿真 matlab与fluent交互阅读详情

qxstock

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

junki 2008-04-09

打赏
举报

Option Explicit 

Private Sub Command3_Click() 

    Call SubmitWebForm(WebBrowser1, "spBCmtAuthor", "spBCmtURL", "spBCmtText", "username", "password", "Content111111111111111111111111111111111111111111111111111", "comment_post_form") 

End Sub 



'Junki Beta2(2007-12-4):填写表单的用户名、密码等信息，然后提交表单，模拟实现用户登录 

Private Function SubmitWebForm(ByVal oOpenUrl As Object, ByVal sTagUserName As String, ByVal sTagEmail As String, ByVal sTagContent As String, ByVal sTxtUserName As String, ByVal sTxtPassWord As String, ByVal sTxtContent As String, ByVal sTagFormName As String) As Boolean 

    Dim webDoc As Object 

    Set webDoc = oOpenUrl.Document.All 

    Dim webTag As Object 

    Dim lengthTag As Integer 

    lengthTag = webDoc.Length - 1 



    On Error GoTo ErrMsg 

    '第一种方法，定位元素，然后设置其属性 

    Dim docHtml As MSHTMLCtl.HTMLDocument 

    Dim ElementForm As MSHTMLCtl.HTMLFormElement, Element As MSHTMLCtl.IHTMLElement 

    Set docHtml = oOpenUrl.Document 

    Set Element = docHtml.getElementById(sTagUserName) 

    If Not Element Is Nothing Then 

        Call Element.setAttribute("value", sTxtUserName) 

    Else 

        Exit Function 

    End If 

    Set Element = docHtml.getElementById(sTagEmail) 

    If Not Element Is Nothing Then 

        Call Element.setAttribute("value", sTxtPassWord) 

    Else 

        Exit Function 

    End If 

    Set Element = docHtml.getElementById(sTagContent) 

    If Not Element Is Nothing Then 

        Call Element.setAttribute("value", sTxtContent) 

    Else 

        Exit Function 

    End If 

    Set ElementForm = docHtml.getElementById(sTagFormName) 

    If Not ElementForm Is Nothing Then 

        Call ElementForm.submit 

    End If 

    Exit Function 



ErrMsg: 

    MsgBox (Err.Message) 

    End Function 



Private Sub Command1_Click() 

    Call WebBrowser1.Navigate2("http://my.chinahr.com/NewAccount.aspx?clickbutton=1&jtr=41518621&prj=fa") 

End Sub

cbm6666 2008-04-09

打赏
举报

哈哈哈..........

zzyong00 2008-04-09

打赏
举报

呵呵，你算是白答了，他从不结贴

✦双11狂欢大促✦

自动填表问题，现在无法查看代码？

相关推荐

双11狂欢大促