1.VBè¿ä¸ªç½ç«å¦ä½å®ç°èªå¨å¡«è¡¨ï¼å¨çº¿çï¼ï¼
2.VB èªå¨å¡«è¡¨
VBè¿ä¸ªç½ç«å¦ä½å®ç°èªå¨å¡«è¡¨ï¼å¨çº¿çï¼ï¼
åç¨åºï¼
Sub guidance(ByVal ID As String, ByVal Value As String)
WebBrowser1.Document.getElementById(ID).Value = Value
End Sub
填表代ç ï¼
guidance "usernameforload", "BlackGlory" 'ç¨æ·å
guidance "txtloginpass", "BlackGlory" 'å¯ç
guidance "verifypass", "BlackGlory" '确认å¯ç
guidance "email_address", "BlackGlory@BlackGlory.com" 'çµåé®ä»¶
'æ¿æ¢å ¶ä¸ç第äºä¸ªåæ°å³å¯
VB èªå¨å¡«è¡¨
hiddenåªä¸è¿æ¯ä½¿è¿ä¸ªinputå¨ç½é¡µä¸ä¸æ¾ç¤ºï¼å¯¹äºç¨åºèè¨ï¼å®è·å±æ§æ¯Textçinputæ¯ä¸æ ·å¤ççï¼åªè¦æ ¹æ®idå¤çå³å¯ã
æ¢å¥è¯è¯´æ¯ï¼å½ç¨ç¨åºæ¥å¤çç½é¡µæ¶ï¼
<input name="cardNo" id="cardNo" type="hidden" class="form-text" />
è·
<input name="cardNo" id="cardNo" type="text" class="form-text" />
æ¯ä¸æ ·çï¼