Lấy nội dung chat trên Skype

[dhn46]

Chào các anh chị,

Các anh chị cho dhn46 hỏi vấn đề lấy nội dung chat từ Skype.

dhn46 đã code được phần gửi tin nhắn từ Excel lên Skype song vẫn chưa biết cách lấy nội dung tin nhắn phản hồi từ Skype về Excel.

Vậy mong các anh chị trợ giúp code này.

dhn46 xin cảm ơn.

 

[doveandrose]

Bạn có thể chỉ mình cách gửi tin lên Skype bằng Code được không ? nếu may mắn lỡ mình tìm được cách lấy nội dung Skype thì rất tốt phải không nào ? hi hi

 

[dhn46]

Bạn có thể tham khảo. Lần này được Chim Hồng quan tâm là hy vọng có giải pháp rồi .

Sub Skype_MessageTest()
    Dim oSkype As Object
    Dim oChat As Object
    Dim skUser As Object


    Set oSkype = CreateObject("SKYPE4COM.Skype")
    Set skUser = oSkype.user("Nick_Skype")
    Set oChat = oSkype.CreateChatWith(skUser.Handle)


    oChat.SendMessage "Test gui Excel len Skype"
End Sub

 

[doveandrose]

Bạn có thể tham khảo. Lần này được Chim Hồng quan tâm là hy vọng có giải pháp rồi .

Sub Skype_MessageTest()
    Dim oSkype As Object
    Dim oChat As Object
    Dim skUser As Object


    Set oSkype = CreateObject("SKYPE4COM.Skype")
    Set skUser = oSkype.user("Nick_Skype")
    Set oChat = oSkype.CreateChatWith(skUser.Handle)


    oChat.SendMessage "Test gui Excel len Skype"
End Sub

thật buồn khi mình nghe nói điều này trên diễn đàn nước ngoài

Skype4COM.dll is a 32-bit COM dll which means that you cannot load it from 64-bit Excel

có bạn nào xài máy 64 bit chạy được code ở trên không ta ?

 

[Kiều Mạnh]

Không. Tôi 64 bit đã thử đủ trò cũng ko được...

Mạnh mới test nó báo theo hinh sau chổ khoanh đỏ dường như bạn đang sử dụng Excel kết nối với Skype.....
phải login vào mới chạy code được nhưng vẫn báo lỗi theo link
https://support.skype.com/en/faq/FA...nges-to-skype-impact-my-3rd-party-application

 

[giangleloi]

Mạnh mới test nó báo theo hinh sau chổ khoanh đỏ dường như bạn đang sử dụng Excel kết nối với Skype.....
phải login vào mới chạy code được nhưng vẫn báo lỗi theo link
https://support.skype.com/en/faq/FA...nges-to-skype-impact-my-3rd-party-application

Mình test thì nó chỉ hỏi lần đầu thôi. Những lần sau nó không hỏi nữa. Và code chạy tốt.

 

[dhn46]

dhn46 cũng đã tìm hiểu và có cách đưa dữ liệu từ Skype vào Excel nhưng tốc độ chậm không đảm bảo.

dhn46 làm tạm 1 file các anh chị tham khảo và góp ý cho giải pháp tốt hơn.

Trong File đã có code đưa dữ liệu lên Skype và lấy dữ liệu từ Skype xuống.

Xin cảm ơn!

 

[Hai Lúa Miền Tây]

dhn46 cũng đã tìm hiểu và có cách đưa dữ liệu từ Skype vào Excel nhưng tốc độ chậm không đảm bảo.

dhn46 làm tạm 1 file các anh chị tham khảo và góp ý cho giải pháp tốt hơn.

Trong File đã có code đưa dữ liệu lên Skype và lấy dữ liệu từ Skype xuống.

Xin cảm ơn!

Theo mình thì chỉ nên lấy dòng cuối cùng, đưa xuống bảng tính thôi. Lúc đó tốc độ sẽ được cải thiện.

 

[dhn46]

Theo mình thì chỉ nên lấy dòng cuối cùng, đưa xuống bảng tính thôi. Lúc đó tốc độ sẽ được cải thiện.

Em test thử tốc độ thì thời gian tốn nhất là lấy toàn bộ dữ liệu từ Skype đưa vào mảng. Còn thời gian trích lọc không tốn mấy so với cái truy vấn lấy Data (em mới chỉ biết cách lấy toàn bộ dữ liệu chứa tất cả các nội dung như thời gian, user, nội dung... rồi sau đó mới lọc theo user đang chat).

Hiện tại em chưa biết truy vấn dòng cuối cùng từ Skype theo user đang chat. Anh Hai Lúa Miền Tây và mọi người tư vấn cho em với nhé.

dhn46 xin cảm ơn!

 

[Hai Lúa Miền Tây]

Em test thử tốc độ thì thời gian tốn nhất là lấy toàn bộ dữ liệu từ Skype đưa vào mảng. Còn thời gian trích lọc không tốn mấy so với cái truy vấn lấy Data (em mới chỉ biết cách lấy toàn bộ dữ liệu chứa tất cả các nội dung như thời gian, user, nội dung... rồi sau đó mới lọc theo user đang chat).

Hiện tại em chưa biết truy vấn dòng cuối cùng từ Skype theo user đang chat. Anh Hai Lúa Miền Tâyvà mọi người tư vấn cho em với nhé.

dhn46 xin cảm ơn!

Dựa vào file của dhn46 mình chạy code sau để lấy dòng cuối cùng của nội dung chat theo user:

Sub test1()

    Dim oSkype As Object
    Dim oChat As Object
    Dim skUser As Object
    Set oSkype = CreateObject("SKYPE4COM.Skype")
    Set skUser = oSkype.User(Sheets("Skype").[B2])
    Set oChat = oSkype.CreateChatWith(skUser.Handle)
    With Sheets("Skype")
        .[A7] = oChat.Timestamp
        .[B7] = oChat.FriendlyName
        .[C7] = oChat.Messages.Item(1).Body
    End With
    
End Sub

 

[dhn46]

Dựa vào file của dhn46 mình chạy code sau để lấy dòng cuối cùng của nội dung chat theo user:

Sub test1()

    Dim oSkype As Object
    Dim oChat As Object
    Dim skUser As Object
    Set oSkype = CreateObject("SKYPE4COM.Skype")
    Set skUser = oSkype.User(Sheets("Skype").[B2])
    Set oChat = oSkype.CreateChatWith(skUser.Handle)
    With Sheets("Skype")
        .[A7] = oChat.Timestamp
        .[B7] = oChat.FriendlyName
        .[C7] = oChat.Messages.Item(1).Body
    End With
    
End Sub

Hay quá anh ạ. Tuyệt quá. Em cảm ơn anh nhiều.

 

[Hai Lúa Miền Tây]

Hay quá anh ạ. Tuyệt quá. Em cảm ơn anh nhiều.

Chưa đâu, tên và ngày giờ chưa đúng, bạn nghiên cứu và điều chỉnh nhé.

 

[Kiều Mạnh]

Dựa vào file của dhn46 mình chạy code sau để lấy dòng cuối cùng của nội dung chat theo user:

Sub test1()

    Dim oSkype As Object
    Dim oChat As Object
    Dim skUser As Object
    Set oSkype = CreateObject("SKYPE4COM.Skype")
    Set skUser = oSkype.User(Sheets("Skype").[B2])
    Set oChat = oSkype.CreateChatWith(skUser.Handle)
    With Sheets("Skype")
        .[A7] = oChat.Timestamp
        .[B7] = oChat.FriendlyName
        .[C7] = oChat.Messages.Item(1).Body
    End With
    
End Sub

Mình mới thử test thấy nhanh đó nhưng sao lỗi dòng sau hay máy mình làm sao
.[C7] = oChat.Messages.Item(1).Body

 

[dhn46]

Mình mới thử test thấy nhanh đó nhưng sao lỗi dòng sau hay máy mình làm sao
.[C7] = oChat.Messages.Item(1).Body

Bạn kiểm tra lại cài đặt Skype có cho phép Excel truy cập không? Nếu bạn chặn có thể đó là 1 nguyên nhân chăng.

dhn46 dùng Win 7 64 bit code chạy bình thường. Thậm chí máy còn khóa admin và chặn một số tính năng vẫn không bị lỗi.

 

[Kiều Mạnh]

Bạn kiểm tra lại cài đặt Skype có cho phép Excel truy cập không? Nếu bạn chặn có thể đó là 1 nguyên nhân chăng.

dhn46 dùng Win 7 64 bit code chạy bình thường. Thậm chí máy còn khóa admin và chặn một số tính năng vẫn không bị lỗi.

Mạnh thử code trên file của bạn vẫn chạy tốt mà ... nhưng chậm thôi

nếu bỏ dòng đó chạy rất nhanh

 

[vankiep1085]

Mình test thì nó chỉ hỏi lần đầu thôi. Những lần sau nó không hỏi nữa. Và code chạy tốt.

a cho e hỏi, khi e chạy code bị lỗi ở dòng này: Set oChat = oSkype.CreateChatWith(skUser.Handle), e không biết xử lý lỗi này sao a, nhờ a giúp

 

[huyen3bell]

Mình bị lỗi ở dòng này. Mong được giúp đỡ ạ.

 

[TH2]

View attachment 286140
Mình bị lỗi ở dòng này. Mong được giúp đỡ ạ.

Thiếu DLL: Skype4com.dll
tìm kiếm google hoặc khác