in vb program werkt perfect maar als standaard .exe niet :S

[djpommes]

ik ben een programma aan het maken die onder andere elke 6 senconde een berichtje naar iemand stuurd in msn. dit is de code die ik daar voor gebruik:

Private Sub Timer1_Timer()



If shizzle = timess.Text Then
Timer1.Enabled = False
Else
msn.InstantMessage (Text2.Text)
shizzle = shizzle + 1
SendKeys (Text1.Text + vbCr)

End If
End Sub

me declaraties zijn dit:

Public WithEvents msn As MessengerAPI.Messenger

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Private Const WM_CLOSE = &H10

Dim shizzle
Dim hwndParent As Long

ok:
als ik in visual basic op f5 druk en dan test gaat alles goed.

als ik er een .exe van maak en dan nog keer probeer gaat er echter iets mis.
de eerste keer gaat alles goed.

het gesprek opend. en er word 6 keer elke 6 seconde het bericht versuurd.
alleen als ik het nog een keer probeer (terwijl ik het gesprek nog open heb staan) doet hij het niet. hij geeft geen error maar doet gewoon niks.

als ik het gesprek sluit en ik probeer het nog een keer doet ie het wel :shocked:

ik snap er niks van :S

hopelijk jullie wel..


Dj

 

[djpommes]

bij mij op school werkt ie nu wel als .exe :S
ik ben nu helemaal de kluts kwijt.!! EN NET HAD IK DE KLUTS NOG IN ME HANDEN! :')