[Stormâ„¢]

Set install = New MessengerContentInstallerLibrary.MessengerContentInstaller
install.InstallContent "http://www.stormsys.000k2.com/new%20site/images/index_03.gif"


i tryed that it works but it says contence niot instaled how do i spcsifie if its a emoticn or background?

[dannyres]

I'm guessing that it needs to download some specially formatted file but unfortunately we dont know the format until one of the pay-for emoticon/background packs are leaked. :(


Dan

[Monkey]

You need an cab file with an content.xml file and files you want to add, example of display picture xml:

<?xml version="1.0" encoding="UTF-8" ?>
<package xmlns="http://messenger.msn.com/messengercontent/1.0" version="1.0" type="theme" partnerid="AG">
    <item xmlns:usertile="http://messenger.msn.com/usertile/1.0" contentid="tux" contenttype="P" usertile:version="1.0" type="usertile" mimetype="image/png" file="tux.png" usertile:default="true" usertile:displayname="Tux" />
</package>

guess usertile:default makes your avatar change to it :unsure:
with the example you need to put that content.xml and an tux.png (file=tux.png) in an .cab file and then install that cab file.
http://www.aapie.net/tmp/tux.cab this one worked for me...

[bast]

This code gives me a 'Permission denied' error...

Private Sub Command1_Click()
Set install = New MessengerContentInstallerLibrary.MessengerContentInstaller
install.InstallContent txtFile.Text
End Sub

This post has been edited by bast: 18 November 2004 - 06:15 PM

[Monkey]

bast, on Nov 18 2004, 07:14 PM, said:

This code gives me a 'Permission denied' error...

Private Sub Command1_Click()
Set install = New MessengerContentInstallerLibrary.MessengerContentInstaller
install.InstallContent txtFile.Text
End Sub

have you dimmed install as MessengerContentInstallerLibrary.MessengerContentInstaller?
have you set references?

[bast]

Oops... I forgot to Dim...

And how do I put emoticons (Custom Emoticons) in the content.xml?

[Monkey]

bast, on Nov 19 2004, 08:44 AM, said:

Oops... I forgot to Dim...

And how do I put emoticons (Custom Emoticons) in the content.xml?

<item xmlns:emoticon="http://messenger.msn.com/emoticon/1.0" contentid="E3065990" contenttype="P" type="emoticon" emoticon:namespaceprefix="bma" mimetype="image/png" file="3066110f.png" emoticon:displayname="Letter A" emoticon:keysequence="*al001" />

[Stormâ„¢]

i av a question...

in vb with a webbrowser is itbosible with js or sommin to tell vb to to install..InstallContent "loaction with js"

?

[Monkey]

Stormsys, on Nov 22 2004, 03:09 PM, said:

i av a question...

in vb with a webbrowser is itbosible with js or sommin to tell vb to to install..InstallContent "loaction with js"

?

Planning to make your own customess? ;)
Would be something like this I guess

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
 If VBA.Left$(URL, Len("javascript:func(")) = "javascript:func(" Then
  Dim CabFile As String
  CabFile = VBA.Mid$(URL, Len("javascript:func(") + 2, Len(URL) - Len("javascript:func("))
  mci.installcontent cabfile
 End If
End Sub

where html calls function func

<script>function func(url){}</script>
<a href="javascript:func('http://www.aapie.net')">aapje</a>

[Volv]

is there anyway to use the contentinstaller from javascript (without VB)

[Volv]

Okay then...well does anyone know what the XML data is for a Background?

[opperator]

<package xmlns="http://messenger.msn.com/messengercontent/1.0" version="1.0" type="theme">
<item xmlns:background="http://messenger.msn.com/background/1.0" contentid="Name" contenttype="P" background:version="1.0" type="background" mimetype="image/jpg" file="BGImage1.jpg" background:displayname="Name" background:url="Http://bannerurl.com" background:text="Banner Text" background:imptrackurl="Http://bannerurl.com"  />
</package>

background:url, background:text, background:imptrackurl are optional

[Volv]

Thanks a lot opperator

[silverspeed]

If you open msmsgr.exe with a hex editor you can find

t y p e     w i n k     u s e r t i l e     b a c k g r o u n d     c o n t e n t   e m o t i c o n     p a r t n e r i d   c o n t e n t t y p e   c o n t e n t i d   b a c k g r o u n d : d i s p l a y n a m e     b a c k g r o u n d : d e f a u l t     b a c k g r o u n d : u r l     b a c k g r o u n d : t e x t   b a c k g r o u n d : i m p t r a c k u r l     u s e r t i l e : d i s p l a y n a m e     u s e r t i l e : d e f a u l t     e m o t i c o n : d i s p l a y n a m e     e m o t i c o n : k e y s e q u e n c e     C l i c k T h r o u g h U R L   C l i c k T h r o u g h T e x t     T r a c k i n g U R L

Does anyone know where ClickThroughText stands for?

[Monkey]

silverspeed, on Dec 15 2004, 07:05 AM, said:

If you open msmsgr.exe with a hex editor you can find

t y p e     w i n k     u s e r t i l e     b a c k g r o u n d     c o n t e n t   e m o t i c o n     p a r t n e r i d   c o n t e n t t y p e   c o n t e n t i d   b a c k g r o u n d : d i s p l a y n a m e     b a c k g r o u n d : d e f a u l t     b a c k g r o u n d : u r l     b a c k g r o u n d : t e x t   b a c k g r o u n d : i m p t r a c k u r l     u s e r t i l e : d i s p l a y n a m e     u s e r t i l e : d e f a u l t     e m o t i c o n : d i s p l a y n a m e     e m o t i c o n : k e y s e q u e n c e     C l i c k T h r o u g h U R L   C l i c k T h r o u g h T e x t     T r a c k i n g U R L

Does anyone know where  ClickThroughText stands for?

that seems to be the link at the bottom of the conversation window, but on how it's stored in the encrypted data files in your appdata.

FOX NFL Sunday	<msnobj Creator="email@hotmail.com" Size="29407" Type="5" Location="TFR45A.dat" Friendly="RgEPAFgAEABOAEYATAAgAFMEdQBuAGQAYQB5AAAA" SHA1D="ABZdiHkSMNW9rHdOPQbRbnh0yqA=" SHA1C="OD8Hnh/nwFdDH5zUyilUDM2XEOk=" contenttype="M" contentid="NFL0003"/>	TrackingURL [url=http://g.msn.com/0AD00015/672098.5?http://global.msads.net/ads/abuimg/clear1.gif&&PID=2442018&UIT=G&TargetID=1077732&AN=5265&PG=IMUSCB]http://g.msn.com/0AD00015/672098.5?http://...=5265&PG=IMUSCB[/url]
ClickThroughText Watch the NFL on Fox
ClickThroughURL [url=http://g.msn.com/0AD00015/672098.6?http://msn.foxsports.com/nfl&&PID=2442018&UIT=G&TargetID=1077732&AN=5265&PG=IMUSCB]http://g.msn.com/0AD00015/672098.6?http://...=5265&PG=IMUSCB[/url]

This post has been edited by Monkey: 19 December 2004 - 12:54 PM

[lestatminiyo]

Quote

Planning to make your own customess?
Would be something like this I guess

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If VBA.Left$(URL, Len("javascript:func(")) = "javascript:func(" Then
 Dim CabFile As String
 CabFile = VBA.Mid$(URL, Len("javascript:func(") + 2, Len(URL) - Len("javascript:func("))
 mci.installcontent cabfile
End If
End Sub

where html calls function func

<script>function func(url){}</script>
<a href="javascript:func('http://www.aapie.net')">aapje</a>

My problem. This is my code:

Option Explicit
Public WithEvents mci As MessengerContentInstaller

Private Sub Form_Load()
'Iniciamos la api
Set mci = New MessengerContentInstaller
WebBrowser1.Navigate "http://hbac.webcindario.com/msn/cabprueba.htm"
End Sub

Private Sub mci_OnContentInstalled(ByVal lhrResult As Long)
'Devuelve el codigo de error de la instalación
MsgBox lhrResult
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If VBA.Left$(URL, Len("javascript:func(")) = "javascript:func(" Then
 Dim CabFile As String
 CabFile = VBA.Mid$(URL, Len("javascript:func(") + 2, Len(URL) - Len("javascript:func("))
 mci.InstallContent CabFile
End If
End Sub

And this is my html

<html>

<head>
<meta http-equiv="Content-Language" content="es">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>down</title>
</head>

<body>
<script>function func(url){}</script>
<a href="javascript:func('http://hbac.webcindario.com/msn/3001.cab')">Porkeda errorijoputa</a>

<p>

</body>

</html>

Which is the problem??? I dont see the mistake. When I press on "Porkeda errorijoputa" the program dont download the cab, I see this message "The content installation failed. Please, try later"
The .cab is ok, I extract of other program.
Sorry for my bad english, but, I speack a little. thanks.

[BigAl]

bast, on Nov 18 2004, 06:14 PM, said:

This code gives me a 'Permission denied' error...

Private Sub Command1_Click()
Set install = New MessengerContentInstallerLibrary.MessengerContentInstaller
install.InstallContent txtFile.Text
End Sub

i have this code:

Private Sub Command1_Click()
If form1.Check1(0).Value = 1 Then
Set install = New MessengerContentInstallerLibrary.MessengerContentInstaller
install.InstallContent "form1.Text1(0).Text"
End If

and when i click on command1 nothing happens. does any1 know why this is?The Text1(0) contains a url to download from but even putting in the URL instead of form1.Text1(0).Text the same thing happens

[FiYa]

What about dynamic display pictures, how do you make and install them ? they just animated images installed ?

[BigAl]

well i fixed my code now:)
Well i dont think there is a way to make your own ddp's and install them for free....yet!but hopefully soon.
No they are not just animated pictures unfortunately!DDP's and winks etc are downloaded as .mco files....the messenger installer then makes these into .dat files and is able to use them.

[Wildone73]

Why doesnt someone just post the program instead of all these code lmao!!