need some tips "for" and "while"

[6105]

Hello,

i try to parse some info from one site, just for fun and experience.

But have some problems, while parsing can't find needed formula,

to make it more easy and performance, can someone help.

Critics allowed, i know code is very bad.. sorry long time no sleep.

Trouble part:

I have removed coz question is to stupid ^^ sry for spam.

Thanks in any case.

Edited March 3, 2012 by toader

[guinness]

Look at the IE functions because the information iyou've provided s pretty limited and generic, what data are you trying to extract? What is the website? etc...

Edited March 3, 2012 by guinness

[6105]

Sorry guinness i have removed my post coz think that question is too stupid.. but if you are interested you can take a look:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <IE.au3>
#include <array.au3>
#include <String.au3>
$iResult = _IEErrorHandlerRegister()
If $iResult <> 1 then MsgBox(0, "", "_IEErrorHandlerRegister: Error " & @error)
;_IEErrorHandlerRegister()
Global $oIE, $sHTML
Global $iUser = 'viagra', $iPsw = 'kroha'
Global $site='localhost/48events'
;TMP:
Global $odno = @ScriptDir&'/odno.tmp'
Global $a = 0
_LogIn()
_GetFriends()
While 1
$msg = GUIGetMsg()
Select
  Case $msg = $GUI_EVENT_CLOSE
   ExitLoop
EndSelect
WEnd
Func _GetFriends()
$a = $a+1
ConsoleWrite('$a = '&$a)
_IELoadWait($oIE)
FileDelete(@DesktopDir&"/test.txt")
$oLinks = _IELinkGetCollection($oIE)
$iNumLinks = @extended
ConsoleWrite('  2. Links Found: ' & $iNumLinks & @CRLF)
  For $oLink in $oLinks
If IsObj($oLink) == 0 Then
  MsgBox(0,'','that is not obj')
Elseif IsObj($oLink) == 1 Then
  ConsoleWrite('$oLink is Object'&@CRLF)
Else
  ConsoleWrite('i don"t know'&@CRLF)
EndIf
   FileWrite($odno, $oLink.href & @CRLF)
   $check = _StringBetween($oLink.href, "chatWith=", "&tkn=")
   If not @error then FileWrite(@DesktopDir&'/friends.txt',$oLink.href&@CRLF)
   $check = _StringBetween($oLink.href, "st.page=","&tkn=")
   If not @error Then
    $string=_ArrayToString($check)
    If $a < 9 Then
     $result = StringLeft($string, 1)
    Else
     $result = StringLeft($string, 2)
    EndIf
    If $result > $a Then
     ConsoleWrite ('I found it: '&$result& ' link: ' & $oLink.href & @CRLF)
     _IENavigate($oIE,$oLink.href)
     _GetFriends()
    EndIf
   EndIf
  Next
EndFunc ; ==> _GetFriends
Func _LogIn()
    ConsoleWrite('1. Navigate to Login Page' & @CRLF)
Local $oForm, $oQuery1, $oQuery2, $oQuery3, $Action
$oIE = ObjCreate("Shell.Explorer.2")
GUICreate("Theo's MD 48events", 320, 480)
$GUIActiveX = GUICtrlCreateObj($oIE, 0,0, 320, 480)
GUISetState()
_IENavigate($oIE,$site)
$sHTML = _IEBodyReadHTML ($oIE)
Local $oForm = _IEFormGetCollection($oIE, 0)
$oQuery1 = _IEFormElementGetObjByName ($oForm, 'fr.login')
$oQuery2 = _IEFormElementGetObjByName ($oForm, 'fr.password')
$oQuery3 = _IEFormElementGetObjByName ($oForm, 'button_login')
_IEFormElementSetValue ($oQuery1, $iUser )
_IEFormElementSetValue ($oQuery2, $iPsw)
$Action = _IEAction($oQuery3,"click")
  _IELoadWait($oIE)
    ConsoleWrite('1. Navigate to Main Page' & @CRLF)
Local $oLinks = _IELinkGetCollection($oIE)
Local $iNumLinks = @extended
ConsoleWrite('1. Links Found: ' & $iNumLinks & @CRLF)
For $oLink In $oLinks
  $check = _StringBetween($oLink.href, "userFriends&st", ".roe")
  If not @error Then
   ConsoleWrite('1. Navigate to Friend Link = ' & $oLink.href & @CRLF)
   $oIE.Navigate($oLink.href)
  EndIf
Next
_IELoadWait($oIE)
$oLinks = _IELinkGetCollection($oIE)
$iNumLinks = @extended
ConsoleWrite('1. Links Found: ' & $iNumLinks & @CRLF)
For $oLink In $oLinks
  $check = _StringBetween($oLink.href, "userFriends&st.snd=", "tkn=")
  If not @error then
   ConsoleWrite('1. Navigate to All Friends = ' & $oLink.href & @CRLF)
   $oIE.Navigate($oLink.href)
  EndIf
Next
EndFunc ; ==> _LogIn

Also sorry that i don't have the link coz web site is on my local computer..

I just try to increasing my knowledge of Autoit and try to parsing part of my database..

If you seen i have used this code:

Local $oLinks = _IELinkGetCollection($oIE)
Local $iNumLinks = @extended
ConsoleWrite('1. Links Found: ' & $iNumLinks & @CRLF)
For $oLink In $oLinks
  $check = _StringBetween($oLink.href, "userFriends&st", ".roe")
  If not @error Then
   ConsoleWrite('1. Navigate to Friend Link = ' & $oLink.href & @CRLF)
   $oIE.Navigate($oLink.href)
  EndIf
Next

too many times.. i try to find something more usability what will incise the performance,

i don't know what to do.. to make new func.. or to find some formula.. no ideas..

Thanks you for any tip, and restoring my post

[water]

Login automation is not allowed here (please check the forum rules).

As I mentioned on the other please explain what you try to do so we can see if we can help you.

[guinness]

toader,

Please in the future don't PM a member to look at your post, because I always aim to respond to a post even if I'm unable to answer their question.

Back on topic...now you've posted more code and I can see what you're doing I think you should read the Forum rules before you continue, because login automation is forbidden to be discussed on the forum.

Edited March 3, 2012 by guinness

[6105]

Ok, thanks guys..

[Melba23]

toader,

I take it that last post is an admission that your code does indeed break the Forum rules, so......

M23