Codefout? :: RoelVB.nl

Carharttguy
Administrator
46 posts

Hallo,

ik wou een wlm-toast generator maken, maar er zit een fout in :s
hier de code:

Code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public WithEvents MSN As Messenger Private Sub Command1_Click() MSN.OptionsPages 0, MOPT_GENERAL_PAGE Sleep 500 SendKeys Text2.Text Sleep 500 SendKeys "{ENTER}" MSN.MyStatus = MISTATUS_OFFLINE MSN.MyStatus = MISTATUS_ONLINE MSN.OptionsPages 0, MOPT_GENERAL_PAGE Sleep 500 SendKeys Text3.Text Sleep 500 SendKeys "{ENTER}" MSN.MyStatus = MISTATUS_OFFLINE MSN.MyStatus = MISTATUS_ONLINE MSN.OptionsPages 0, MOPT_GENERAL_PAGE Sleep 500 SendKeys Text4.Text Sleep 500 SendKeys "{ENTER}" MSN.MyStatus = MISTATUS_OFFLINE MSN.MyStatus = MISTATUS_ONLINE MSN.OptionsPages 0, MOPT_GENERAL_PAGE Sleep 500 SendKeys Text5.Text Sleep 500 SendKeys "{ENTER}" MSN.MyStatus = MISTATUS_OFFLINE MSN.MyStatus = MISTATUS_ONLINE MSN.OptionsPages 0, MOPT_GENERAL_PAGE Sleep 500 SendKeys Text1.Text Sleep 500 SendKeys "{ENTER}" End Sub Private Sub Form_Load() Set MSN = New Messenger End Sub

hij geeft de fout op:

Code
1	`MSN.MyStatus = MISTATUS_OFFLINE`

en geeft als fout:
'Runtime error "5"
Invalid procedure call or argument.'

alvast bedankt
mvg, carharttguy

Laatst bewerkt door Carharttguy op zaterdag 3 maart 2007 om 21:18

zaterdag 3 maart 2007 om 21:05

RoelVB
Webmaster
108 posts

doe eens invisible ipv offline

Dus: MISTATUS_INVISIBLE

zondag 4 maart 2007 om 1:18