I read the whole thread and I can't find a solution for my problem.
What I'm doing wrong? If anyone can help me.
I want to submit username and password to this form http://iptv.bg/watch
but I can't get it work.
Here is my code (I'm using VB 6.0 and mshtml control):
and here is the some part of the code used in that web page (they use javascript for the login, I think)Code:Private Sub IPTVLogin() Dim objMSHTML As New MSHTMLCtl.HTMLDocument Dim objdoc As New MSHTMLCtl.HTMLDocument Set objdoc = objMSHTML.createDocumentFromUrl("http://iptv.bg/watch", vbNullString) While objdoc.readyState <> "complete" DoEvents Wend If InStr(1, objdoc.body.innerHTML, "Вход") <> 0 Then With objdoc .All.Item("login").Value = "username" .All.Item("password").Value = "password" .Forms(0).submit End With End If End Sub
If anyone can help me I'll be gratefulCode:<div class="formtable_login"> <form method="post" action="/watch" name="loginform" onsubmit="return hash_password(this)"> <input type="hidden" name="save" value="1" /> <input type="hidden" name="go" value="index.php" /> <table border="0" cellpadding="3" cellspacing="0" class="formtable"> <tr> <td width="30%" align="right"><label for="login">Е-мейл адрес</label></td> <td width="70%"><input type="text" id="login" name="login" value="" maxlength="64" size="32" class="txt" /></td> </tr> <tr> <td align="right"><label for="password">Парола</label></td> <td><input type="password" id="password" name="password" value="" maxlength="64" size="32" class="txt" /></td> </tr> <tr> <td align="right"><br /></td> <td><label><input type="checkbox" name="rme" value="1" class="chk" /> Запомни ме на този компютър</label></td> </tr> <tr> <td align="center" colspan="2"><input type="submit" value=" Вход в IPTV.bg " class="input_submit" /></td> </tr> </table> </form> </div>![]()




Reply With Quote