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,
Text aus Browser Popup kopieren
In diesem Forum hier werden poPups so geoeffnet :
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
<script language="Javascript" type="text/javascript">
<!--
if ( 1 )
{
window.open('privmsg.php?mode=newpm', '_phpbbprivmsg', 'HEIGHT=225,resizable=yes,WIDTH=400');;
}
//-->
</script>
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
-
- Beiträge: 5
- Registriert: 23.12.2007 19:30