Text aus Browser Popup kopieren

Für allgemeine Fragen zur Programmierung mit PureBasic.
-CookieLove-
Beiträge: 5
Registriert: 23.12.2007 19:30

Text aus Browser Popup kopieren

Beitrag von -CookieLove- »

Hallo

Ich möchte ein kleines Programm erstellen das Nachrichten
aus einem Forum protokolliert. Die Nachrichten in diesem
Forum kommen als Popup und sind also ein eigenes kleines
Fenster.

Wie kann mein Programm den Text der in dieser Nachricht steht
herrausziehen?

Gruß Alex,
Benutzeravatar
edel
Beiträge: 3667
Registriert: 28.07.2005 12:39
Computerausstattung: GameBoy
Kontaktdaten:

Beitrag von edel »

Da es sich dabei wohl um eine ganz normale html Seite handelt, kannst
du sie auch mit ganz normalen PB Network Befehlen auslesen.
-CookieLove-
Beiträge: 5
Registriert: 23.12.2007 19:30

Beitrag von -CookieLove- »

wie?
Benutzeravatar
edel
Beiträge: 3667
Registriert: 28.07.2005 12:39
Computerausstattung: GameBoy
Kontaktdaten:

Beitrag von edel »

In diesem Forum hier werden poPups so geoeffnet :

Code: Alles auswählen

<script language="Javascript" type="text/javascript">
<!--
	if ( 1 )
	{
		window.open('privmsg.php?mode=newpm', '_phpbbprivmsg', 'HEIGHT=225,resizable=yes,WIDTH=400');;
	}
//-->
</script>
Das heisst also das die Seite sich wie folgt aufbaut :

Server : http://www.purebasic.fr/german/ (+ ordner)
Seite : privmsg.php?mode=newpm (+ variablen)

ruft man diese seite nun auf
http://www.purebasic.fr/german/privmsg.php?mode=newpm
sieht man diese Seite ganz normal im Browserfenster statt in
einem Popup.

Und mit diesem kleinen Snippet holen wir uns die Seite in unseren
Speicher :

Code: Alles auswählen


InitNetwork()


server.s = "purebasic.fr"
port.l   = 80
adress.s = "/german/privmsg.php?mode=newpm"

nid = OpenNetworkConnection(server,port)


If nid
  
  header.s = "GET " + adress + " HTTP/1.0" + Chr(13) + Chr(10)
  header.s + "Host: " + server + Chr(13) + Chr(10)
  header.s + Chr(13) + Chr(10) 
  
  result.s = ""
  buffer.s = ""
  len.l    = 0
  
  If SendNetworkString(nid,header)
    
    While 1
      e = NetworkClientEvent(nid)
    
      If e = #PB_NetworkEvent_Data
      
        Repeat
          buffer = Space(1024)        
          len    = ReceiveNetworkData(nid,@buffer,1024)                          
          result + buffer                          
        Until len = 0
        
        Break
      EndIf 
    
    Wend 
    
    Debug result
    
  EndIf 
  
EndIf 
-CookieLove-
Beiträge: 5
Registriert: 23.12.2007 19:30

Beitrag von -CookieLove- »

Ich dachte eher an einen Code der auf das Fenster zugreift. Das Forum von dem ich spreche heißt TU und funktioniert etwas anders als normale Foren.
Antworten