---
title: "Skicka meddelande/pager till ICQ via ASP?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/43706-skicka-meddelande-pager-till-icq-via-asp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Quid"
published: "2002-05-14T17:51:30.000Z"
updated: "2002-05-16T09:28:54.000Z"
replies: 8
views: 398
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/43706-skicka-meddelande-pager-till-icq-via-asp"
---

# Skicka meddelande/pager till ICQ via ASP?

## #1 — Quid, 2002-05-14T17:51Z

Jag sökte lite här i forumet och hittade lite saker, men ingen av dom funkade. Så därför ställer jag frågan:
Finns det något smidigt sätt att skicka ett meddelande till någons ICQ-nummer via ASP?

Permalänk: https://www.webforum.nu/p/43706

## #2 — SPiN, 2002-05-14T17:53Z

Det funkar väl med mail?

```
' Skapa nåt mailkomponents-objekt
mailObject.To = "uin@pager.icq.com" ' Eller vad det nu är
```

Permalänk: https://www.webforum.nu/p/673217

## #3 — bigsky, 2002-05-14T18:39Z

Kanske så här:

\<form action="http://msg.mirabilis.com/scripts/WWPMsg.dll" method="post" target="\_blank"\>
\<input type="hidden" name="subject" value="Allmänt Meddelande"\>
\<input type="hidden" name="to" value="1654894621"\>
\<input type="text" name="from" value="Ditt Namn" size="16" maxlength="40"\>
\<input type="text" name="fromemail" value="Din E-post" size="16" maxlength="40"\>
\<input name="body" type="text" size="35" maxlength="400" value="Meddelande"\>
\<input type="submit" value="Send"\>
\</form\>

Permalänk: https://www.webforum.nu/p/673231

## #4 — Quid, 2002-05-14T19:01Z

"uin@pager.icq.com" verkar inte komma fram, och ja, jag har bytt ut uin till mitt uin :) och med:
\<form action="http://msg.mirabilis.com/scripts/WWPMsg.dll" method="post" target="\_blank"\> 
\<input type="hidden" name="subject" value="Allmänt Meddelande"\> 
\<input type="hidden" name="to" value="1654894621"\> 
\<input type="text" name="from" value="Ditt Namn" size="16" maxlength="40"\> 
\<input type="text" name="fromemail" value="Din E-post" size="16" maxlength="40"\> 
\<input name="body" type="text" size="35" maxlength="400" value="Meddelande"\> 
\<input type="submit" value="Send"\> 
\</form\>

Så kommer man ju till icqs fula skitsida efteråt, det är ju inte lyckat :)

Permalänk: https://www.webforum.nu/p/673245

## #5 — SPiN, 2002-05-14T20:00Z

> Så kommer man ju till icqs fula skitsida efteråt, det är ju inte lyckat

Det är rätt lätt att komma förbi. :)
Skicka först datan till ett eget ASP-dokument, och öppna en koppling till ICQ's dll-fil med XMLHTTP och skicka datan. Sen tar du emot informationen som returneras och formaterar om den. :)

Permalänk: https://www.webforum.nu/p/673291

## #6 — Quid, 2002-05-14T21:42Z

Du har inte lust att slänga in ett exempel på hur det skulle kunna se ut? :)

Permalänk: https://www.webforum.nu/p/673356

## #7 — SPiN, 2002-05-14T22:28Z

Något liknande kanske fungerar:

```
Dim objXMLHTTP, objXML
Dim strReturn, strHeader

strHeader = "POST /scripts/WWPMsg.dll HTTP/1.1" & vbCrLf
strHeader = strHeader & "Host: msg.mirabilis.com" & vbCrLf
strHeader = strHeader & "Content-Type: application/x-www-form-urlencoded" & vbCrLf & vbCrLf
strHeader = strHeader & "subject=" & Server.HTMLEncode ( Request.Form ( "subject" ) )
strHeader = strHeader & "&to=" & Request.Form ( "to" )
strHeader = strHeader & "&from=" & Server.HTMLEncode ( Request.Form ( "from" ) )
strHeader = strHeader & "&fromemail=" & Server.HTMLEncode ( Request.Form ( "fromemail" ) )
strHeader = strHeader & "&body=" & Server.HTMLEncode ( Request.Form ( "body" ) )

set objXML = Server.CreateObject ( "MSXML2.DOMDocument" )
objXML.async = False
objXML.LoadXML strHeader

set objXMLHTTP = Server.CreateObject ( "MSXML2.ServerXMLHTTP" )
objXMLHTTP.Open "POST", "http://msg.mirabilis.com/scripts/WWPMsg.dll", False
objXMLHTTP.Send objXML

If objXMLHTTP.Status <> 200 Then
     Response.Write "Kunde inte koppla mot mirabilis.com"

     set objXMLHTTP = Nothing
     Response.End
End If

If objXMLHTTP.ReadyState = 4 Then
     objXMLHTTP.WaitForResponse 10
End If

strReturn = objXMLHTTP.ResponseText

' strReturn innehåller nu hela sidan som skickades från mirabilis.com, och du kan formatera den hur du vill - förslagsvis med reguljära uttryck
' Skriver du ut strReturn direkt, så får du fram hela sidan som den skulle se ut om du gick direkt till mirabilis.com
```

Helt otestat, men förhoppningsvis ska det se ut något sånt. :)

Jag är lite osäker på hur headern ska byggas upp, kanske någon mer kunnig kan rätta mig. :)

Permalänk: https://www.webforum.nu/p/673364

## #8 — SPiN, 2002-05-14T22:41Z

Kanske lite rolig läsning:
<http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/htm/xml_obj_iserverxmlhttprequest_5115.asp>
 :)

Permalänk: https://www.webforum.nu/p/673371

## #9 — Gein, 2002-05-16T09:28Z

jag provade den xml koden du postade, och det verkar inte funka, iaf inte för mej.. får felmeddelande:

> msxml3.dll (0xC00CE556)
> Systemfel: -1072896682.

på rad 20: objXMLHTTP.Send objXML

Permalänk: https://www.webforum.nu/p/674126

---

Tråden på webben: https://www.webforum.nu/amne/asp/43706-skicka-meddelande-pager-till-icq-via-asp