[..] Fonction internet et recherche d'une string specifique.

[jjdu49]

Salut tout le monde j suis nouveau mais j'utilise autoit depuis 1 an voir plus. Mais la j ai du mal . Et j espere trouver de l aide .
Alors voila je voudrais creer un script qui et en boucle step=1:
-qui me permettrais de lire le code source d une page web avec un pid a la fin (et si besoin coller ce code ds un fichier text)
-reperer la ligne numero75 de ce code source et voir si il contriens la string "For:...."
-si oui , copier la string "For:...."ds un fichier "Réels pids".
-si non, passer a l URL suivante (pid n+1)
Ceci me permettant de recenser toutes les pid "reels" .
J espere que j ai été clair et j espere avoir un ti peu d aide car la j ai le cerveau qui fume .@++ et merci

[jbnh]

Ça doit être faisable, mais qu'est ce qu'un 'pid' ?

[jjdu49]

c est un numero genre www.blahbla.com/pid=1

[jbnh]

Code : Tout sélectionner

qui me permettrais de lire le code source d une page web avec un pid a la fin

Donc si par exemple: http://blabla.com/index.php?pid=6

tu veux la page index.php ?

[jjdu49]

euhhh non http://www.blahblah.com/..../gp-give.jsp?&pid= $i < variable

[jbnh]

Bon on va essayer d'être clair et precis.

dans le cas : http://www.blahblah.com/..../gp-give.jsp?&pid=1

la page dans laquelle chercher est bien gp-give.jsp?

ds un fichier "Réels pids

C'est a dire, donne un nom de fichier précis dans lequel l'info doit être sauvée.

si non, passer a l URL suivante (pid n+1)

On va jusqu'a combien? ou boucle à l'infini?

[jjdu49]

un truc du genre :

Code : Tout sélectionner

For $i=1 to 10
Global $Pause
HotKeySet("{PAUSE}","TogglePause")
ConsoleWrite(_INetGetSource('www.pogo.com/subs//gp-give.jsp?&guest_pid='&$i)); pour lire le code source ?
 If      _INetGetSource('www.pogo.com/subs//gp-give.jsp?&guest_pid='&$i) contient la string   
"For:...." a la line 75
Then  mettre cette string ds le fichier "reels pid
ElseIf   bah rien ca continue
EndIf
Next
Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

[jbnh]

Code : Tout sélectionner

#include <file.au3>
#include <IE.au3>

Do
$i=1

InetGet('www.pogo.com/subs//gp-give.jsp?&guest_pid=' & $i, "gp-give.jsp", 1)
sleep(2000)
filemove("gp-give.jsp", "gp-give.txt")

Dim $array

;---------------------A Compléter------------------------
Dim $search = 'For:....'
$file = "gp-give.txt"
$file2 = "output.txt"
;------------------------------------------------------------

_FileReadToArray($file, $array)

If StringInStr($array[75], $search) Then
    $var = FileReadLine($file, 75)
    FileWrite($file2, $var & @CRLF)    
EndIf
    
$i= $i+1
Until $i = 10

Euh ton adresse a pas l'air de marcher, enfin modifie les infos.

$file2 est ton 'fichier reel pid', change le à ta manière

[jjdu49]

ok merci . Là j ai sport donc j y go mais j vais voir si ca marche apres ou demain .
@++ jb

[jbnh]

Pas sur que ca marche, tiens nous au courrant!

[jjdu49]

Re ca a po l air de marcher . y a po le code source dans gp-give.txt et j ai une erreur avec array :
>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Program Files\AutoIt3\Examples\Helpfile\Tester.au3"
C:\Program Files\AutoIt3\Examples\Helpfile\Tester.au3 (21) : ==> Subscript used with non-Array variable.:
If StringInStr($array[75], $search) Then
If StringInStr($array^ ERROR
>Exit code: 1 Time: 2.961

[jbnh]

Em, donne moi le lien du site, en pm si tu veux comme ca je peux faire des test moi même.

[jbnh]

Voila je viens de remarquer qu'il sera impossible de ramener la page de part le script car il faut être identifier pour voir cette page, or autoit enverra la demande d'avoir le fichier et donc recevra la page d'erreur.

[jjdu49]

j ai trouver ca pour copier que les lignes entre < > du code source html (j ai mi cette ligne ds les favoris):javascript:void(window.clipboardData.setData('Text',%20document.body.outerHTML));
y a moins de ligne mais y a la ligne que je veux ligne 15 manant et ca copie le code ds le clipboard . Il me faut trouver comment activer le lien ds les favoris et trouver comment coller le code ds un fichier ou directement lire la ligne 15 ds le clipboard . apres me reste a a faire la difference entre :<TD class=subhead align=middle>For: GHOST</TD><INPUT type=hidden value=768786036 name=guest_pid> (pid reel) et <TD class=default align=middle><INPUT onblur="populatetext(this,'(enter your friend\'s e-mail address or Pogo screen name here)');(pid inexistant). J vais chercher mais si t as une idée tu peux mettre un post .

[jjdu49]

#include <file.au3>
#include <IE.au3>
#include <INet.au3>
For $i=1 to 5
Global $Pause
HotKeySet("{PAUSE}","TogglePause")

$oIE=ObjCreate("InternetExplorer.Application.1")
With $oIE
.Visible=1
.Top = (@DesktopHeight-400)/2
.Height=400 ; Make it a bit smaller than our GUI.
.Width=600
.Silent=1 ; Don't show IE's dialog boxes

EndWith

$URL = "http://www.pogo.com/subs/pogopremium/gu ... t_pid="&$i
$oIE.Navigate( $URL ) ;ouvre la fenetre IE
sleep(1800)
<------la me faut une fonction pour appeller un lien dans les favoris de IE.Ce lien copie le body du code HTML avec la ligne qu y m interesse dans le clipborad.
<------la me faut une fonction pour copier le clipboard de IE dans un fichier nommé "CopyHTML.txt"

$oIE.quit ; ferme la fenetre IE

<-----la me faut la fontion pour chercher dans le fichier "CopyHTML.txt" la ligne 15
<-----la me faut la fonction qui me dira si la ligne 15 contient "FOR:"
et si oui il faut copier les caracters compris entre "For:"et "</TD><INPUT " dans le fichier "RéelsPids.txt"
si non on continue.

<-----la me faut la fonction pour effacer le contenu dans le fichier "CopyHTML.txt"

Next
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc




je pense que la ce seras bon .Quelqu'un pouvais completer S.V.P

[jbnh]

Code : Tout sélectionner

#include <string.au3>
#include <file.au3>
#include <IE.au3>


For $i=1 to 5
Global $Pause
HotKeySet("{PAUSE}","TogglePause")


$URL = "http://www.pogo.com/subs/pogopremium/guestaccess/gp-give.jsp?&guest_pid="&$i
$object_IE = _iecreate($url)
sleep(1800)
$oBody = _IEBodyReadHTML($object_IE)
filewrite("CopyHTML.txt", $oBody)
_IEQuit($object_IE)

Dim $array
Dim $search = 'For:'

_FileReadToArray("CopyHTML.txt", $array)

If StringInStr($array[15], $search) Then
    $var = FileReadLine($file, 15)
    $line = _StringBetween($var, "For:", "</TD><INPUT")
    FileWrite("RéelsPids.txt", $line & @CRLF)    
EndIf

FileDelete ("CopyHTML.txt")

Next

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc

Bon voila je pense que ca marche, quoi qu'il en soit tu as tout pour te débrouiller seul.

Le numéro de la ligne ou détecter le for devra être modifié car le CopyHTML.txt commence a partir du code en dessous de <body> (body est donc non compris)

La ligne 1 est la ligne en dessous du <body>

[Tlem]

Le site http://www.pogo.com est un site de jeux en ligne.
Comme je l'ai déjà dit à plusieurs reprises, le traitement automatisé sur ce genre de site n'est pas souhaité sur ce forum.

Je clos donc ce post.