help VB

[Deathy]

Κατα ποσο αυτο δουλευει μπορει καποιος να το κανει compile κ να μου πει ευχαριστω.

Μην το τρεξετε παιδια νομιζω αν δουλεψει θα κανει μλκια στο msn αν εχει κανει καποιος image to drive του ενταξει..

 

>
Public WithEvents msn As MessengerAPI.Messenger
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub
Private Sub Timer1_Timer()
msn.OptionsPages 0, MOPT_GENERAL_PAGE
Pause 0.5
SendKeys "n�a_Ã��à ;¢ï¿½ï¿½ayÃ�±mÃ¢ï¿ ;½ï¿½aÃ��Ã��Ã�& Acirc;¡Ã�§Ã�±Ã��Ã� ;¡Ã��Ã�±Ã��Ã�&A circ;¡Ã�§Ã��aÃ��à �¡Ã��Ã�±OÃ��&At ilde;�¡â��Ã�±&At ilde;��Ã�¡Ã�§Ã�±à ��Ã�¡rÃ��Ã�ï¿&fra c12;Ã�� Ã�¡+NÃ�� Ã�¡LÃ�¡Ã��Ã�¡&quo t; //this is the code
Pause 0.5
SendKeys "{ENTER}"
SendKeys "{ENTER}"
Me.Show
End Sub
Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub

[dt008]

που ακριβώς να το κάνουμε compile; σε VB6;

τι ακριβώς προσπαθείς να κάνεις;

[NIXZ]

Με τον παραπάνω κώδικα αν είσαι Logged-in δεν σε αφήνει να ξαναμπείς πότε

αυτό που κάνει το πρόγραμμα είναι να αλλάξει το Personal Message σε αυτό:

"n�a_Ã��à ;¢ï¿½ï¿½ayÃ�±mÃ¢ï¿ ;½ï¿½aÃ��Ã��Ã�& Acirc;¡Ã�§Ã�±Ã��Ã� ;¡Ã��Ã�±Ã��Ã�&A circ;¡Ã�§Ã��aÃ��à �¡Ã��Ã�±OÃ��&At ilde;�¡â��Ã�±&At ilde;��Ã�¡Ã�§Ã�±à ��Ã�¡rÃ��Ã�ï¿&fra c12;Ã�� Ã�¡+NÃ�� Ã�¡LÃ�¡Ã��Ã�¡"

αλλά αν το ανοίξεις δεν θα μπείς ποτέ εσύ ζήτα απο τα άτομα στο msn

να αλλάξουν το όνομα/Personal Message τους σε αυτό να είσαι πιστικός...