MSN en Visual Basic 2005

[HellupUandMe]

Hallo

Ik heb Visual Basic 2005 en ik zou graag willen weten hoe je:
1. De status bij MSN kan veranderen in VB 2005
2. de tekst die iemand op msn zegt in een textbox krijgt
3. een bericht kan versturen via een VB 2005 applicatie naar een msn bericht

Als iemand me een tutorial kan geven of het zelf zou kunnen zeggen zou het helemaal vet zijn

 

[menzow]

Toevallig

Ha ha toevallig hou ik me hier nu ook al een tijdje mee bezig ben net nieuw op helpmij.nl maarja...

uhm tsja ik kan je niet egt een tutorial geven maar ik wil je mijn code wel sharen

Dim strMsg,inp01,BUZZER,strTitle,strFlag

strTitle = "MSN mod hack"

strMsg = "Type BUZZER om mensen een buzzer te sturen; " & vbCR
strMsg = strMsg & "Type NAAM om je msn naam super snel te verranderen; " & vbCR
strMsg = strMsg & "Type EXIT om dit programma te Beëindigen; " & vbCR
strFlag = False

Do While strFlag = False

inp01 = InputBox(strMsg,"Make your selection")

Select Case inp01
    Case "BUZZER"
Set objShell = CreateObject("WScript.Shell")
msn=inputbox (" de msn van wie je wil buzzeren ")
msgbox " je buzzert nu "+msn
objShell.Run "msnmsgr.exe"
Wscript.Sleep 1000
objShell.SendKeys ""+msn 
Wscript.Sleep 500
objShell.SendKeys "{ENTER}"
Wscript.Sleep 100
objShell.SendKeys "%"
objShell.SendKeys "A"
objShell.SendKeys "{DOWN}"
objShell.SendKeys "{DOWN}"
objShell.SendKeys "{DOWN}"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 100
        strFlag = True
    Case "NAAM"
Set objShell = CreateObject("WScript.Shell")
naam=inputbox (" Wat wil je als msn naam?? ")
objShell.Run "msnmsgr.exe"
Wscript.Sleep 1000
objShell.SendKeys "%"
objShell.SendKeys "T"
objShell.SendKeys "O"
objShell.SendKeys ""+naam
objShell.SendKeys "{ENTER}"
Wscript.Sleep 5000
msgbox "je msn naam is verranderd in",+naam" doei! "
        strFlag = True
    Case "EXIT"
        MsgBox "Het programma sluit nu af",64,strTitle
        strFlag = True
    Case Else
        MsgBox "You made an incorrect selection!",64,strTitle
End Select

Loop

Wscript.Quit

Open kladblok plak dit script erin sla het op als .vbs ( neem aan dat je weet hoe dat moet ) en open het dan ik heb ff een simpele index gemaakt dat als je hem opent dat je het gelijk snapt!! veel succes:thumb:

 

[HellupUandMe]

Ja zo kan dat inderdaad ook. Zelf zat ik meer te denken aan dat je iets doet en dat je dan bijvoorbeeld zegt msn.status = msn.busy ofzo weet je wel maar in ieder geval bedankt voor je VBscript!