Outil de surveillance de l'activité WEB

A l'aide de KGF.dll et KGF_SUB.bas, j'ai fait un petit exemple montrant comment on peut surveiller et tracer l'activité WEB d'un browser. Je l'ai fait pour Firefox, mais le critère de reconnaissance est facile à adapter à n'importe quel browser.

Le principe: le programme identifie le browser et mémorise son handle. A l'aide d'un timer qui se déclenche toutes les 200 milli-secondes, on va chercher la caption de la fenêtre du browser (le titre de la page web). On met ce titre dans une DLIST et on la sauvegarde immédiatement sur disque dans un fichier "trace.txt". La surveillance s'arrête sur un critère quelconque. Pour cet essai, j'ai choisi d'arrêter lorsque la page d'accueil du forum de Panoramic s'affiche. Ne le lancez donc pas si cette page est affichée dans votre browser - le programme s'arrêterait immédiatement ! Lors de l'arrêt, la trace s'affiche à l'écran dans un mémo.

Voici les 53 lignes de code:

Code:

' log_activuty.bas

  main()
  end

sub main()
  definitions()
  get_browser()
end_sub

sub definitions()
  label tick
  dim s$, s1$, hnd%
  dim id_browser$ : id_browser$ = " - Mozilla Firefox"
  dim f_log$ : f_log$ = "trace.txt"
  KGF_initialize("KGF.dll")
  dlist 1
  timer 2 : timer_off 2 : timer_interval 2,200 : on_timer 2,tick
  timer_on 2
end_sub

sub get_browser()
  s$ = id_browser$
  GetWindowByTitle(1,s$)
  hnd% = GetWindowByTitle%
  BringWindowToForeground(hnd%)
  hide 0
end_sub

tick:
  timer_off 2
  s$ = string$(255," ")
  GetWindowTitle(hnd%)
  s$ = trim$(GetWindowTitle$)
  if s$=s1$
    timer_on 2
    return
  end_if
  if instr(s$,"PANORAMIC")=0
    s1$ = s$
    item_add 1,s$
    file_save 1,f_log$
    timer_on 2
    return
  end_if
  s$ = trim$(s$)
  show 0 : full_space 0
  memo 3 : full_space 3 : bar_vertical 3
  file_load 3,f_log$
  BringWindowToForeground(handle(0))
  return

#INCLUDE "KGF_SUB.bas"

On pourrait aussi utiliser GetActiveWindowTitle pour récupérer le handle de la fenêtre active, quelle qu'elle soit, et pas forcément un browser. On utilise ensuite GEtWindowTitle avec ce handle pour récupérer le titre de la fenêtre active. Et s'il s'agit d'un programme qu'on ne veut pas laisser exécuter (un jeu par exemple, pour empêcher un enfant d'y jouer), on peut purement et simplement "tuer" le process par KillProcessByHandle
avec ce handle...

Il y a plein de choses à faire !

Intéressant ton programme Klaus !