Share code nháy phone skype bằng vbs đơn giản

[Admin]

Skype4COM: Skype4COM.zip

Cách sử dụng:
- Giải nén Skype4COM.zip vào "C:\Program Files\Common Files\Skype\"
- Bật hộp thoại CMD gõ: REGSVR32 C:\Progra~1\Common~1\Skype\Skype4COM.dll xong ấn OK
- Sửa số điện thoại cần nhá chỗ Set oUser = oSkype.User("echo123"), ví dụ Set oUser = oSkype.User("+841667558874")
- Bật Skype
- Lưu code dưới vào file text tên skype.vbs
- Chạy skype.vbs, trên skype nó hiện cái allow wscript.exe, allow là ok, anh em nào deny thì ráng chịu đừng lên đây bảo code không chạy nha

Set oSkype = WScript.CreateObject("Skype4COM.Skype", "Skype_")

cUserStatus_Offline = oSkype.Convert.TextToUserStatus("OFFLINE")
cUserStatus_Online = oSkype.Convert.TextToUserStatus("ONLINE")
cCallStatus_Ringing = oSkype.Convert.TextToCallStatus("RINGING")
cCallStatus_Inprogress = oSkype.Convert.TextToCallStatus("INPROGRESS")
cCallStatus_Failed = oSkype.Convert.TextToCallStatus("FAILED")
cCallStatus_Refused = oSkype.Convert.TextToCallStatus("REFUSED")
cCallStatus_Cancelled = oSkype.Convert.TextToCallStatus("CANCELLED")
cCallStatus_Finished = oSkype.Convert.TextToCallStatus("FINISHED")
cCallStatus_Busy = oSkype.Convert.TextToCallStatus("BUSY")
cAttachmentStatus_Available = oSkype.Convert.TextToAttachmentStatus("AVAILABLE")

'// Place a call to echo123:
Set oUser = oSkype.User("echo123")

'// Call status events:
For count = 0 to 9999999
Set oCall = oSkype.PlaceCall(oUser.Handle)
Do While oCall.Status <> cCallStatus_Inprogress
If oCall.Status = cCallStatus_Failed Or _
oCall.Status = cCallStatus_Refused Or _
oCall.Status = cCallStatus_Cancelled Or _
oCall.Status = cCallStatus_Finished Or _
oCall.Status = cCallStatus_Busy Then
exit do
End If
Loop
If oCall.Status = cCallStatus_Inprogress Then
oCall.Finish
End if
WScript.Sleep(5000)
Next