Application.DoEvents nicht eindeutig

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von TheGameSiders.

    Application.DoEvents nicht eindeutig

    Hey.

    Ich habe das Problem, dass ich Application.DoEvents nicht nutzen kann, da ich die Skype4Com DLL als Verweis habe.
    Also:


    Kann man die Applicationklasse nicht umbenennen oder sowas?
    Ich brauche diese..

    Danke :)
    Mfg. René

    Edit:
    Erledigt :)

    VB.NET-Quellcode

    1. System.Windows.Forms.Application.DoEvents()

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TheGameSiders“ ()

    Auch wenn es erledigt ist, das ist total ranzig. Application.DoEvents in ner Schleife? Uaah. Schau Dir entsprechende Alternativen hierfür an, findet man viel, aber Application.DoEvents geht gar nicht.
    Dann einfach Multithreading mit Threads, ThreadPool oder Tasks bzw. async-await.
    Mit Application.DoEvents kann man so viel zerhauen, das glaubst Du gar nicht, denn hinter diesem Aufruf verbergen sich jede Menge Monster, die Blödsinn machen können.

    Außerdem ist sowas wie Namespaces setzen totale Grundlage.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    @TheGameSiders Oder gezielt die sich verändernden Controls Refreshen oder Updaten.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    So, ich zeige euch mal meinen Code, und sage euch warum ich keine Backgroundworker oder anderes benutzen kann!

    VB.NET-Quellcode

    1. ​Imports SKYPE4COMLib
    3. Imports System.IO
    5. Public Class Form1
    6. Dim skype As New Skype
    9. Private Sub skype_MessageStatus(ByVal msg As SKYPE4COMLib.ChatMessage, ByVal status As TChatMessageStatus)
    11. Dim Message As String
    12. Try
    14. If status = TChatMessageStatus.cmsReceived Then
    15. Pause(15000)
    16. Message = msg.Body
    17. msg.Chat.SendMessage(ParseMessage(Message))
    18. End If
    20. Catch
    21. End Try
    22. End Sub
    23. Public Sub Pause(ByVal Milliseconds As Integer)
    24. Dim dTimer As Date
    25. dTimer = Now.AddMilliseconds(Milliseconds)
    26. Do While dTimer > Now
    27. System.Windows.Forms.Application.DoEvents()
    28. Loop
    29. End Sub
    30. Function Dictio(ByVal FilePath As String, ByVal command As String)
    31. command = command
    32. Dim sr As StreamReader = New StreamReader(FilePath)
    33. Dim file As String = sr.ReadToEnd
    34. Dim parts1() As String = file.Split(New String() {Environment.NewLine},
    35. StringSplitOptions.None)
    36. For i = 0 To parts1.Length - 1
    37. Dim tempparts() As String = parts1(i).Split("-")
    38. If command.Contains(tempparts(0).ToLower) Then
    39. Return tempparts(1)
    40. End If
    41. Next
    42. End Function
    43. Function ParseMessage(ByVal message As String)
    44. Dim msg As String = Dictio(My.Computer.FileSystem.CurrentDirectory & "\Config.ini", message)
    46. Me.Refresh()
    47. If msg = "" Or msg = " " Then
    48. Else
    49. End If
    51. Try
    53. Return msg
    54. Catch
    55. End Try
    56. End Function
    58. Private Sub GhostButton27_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GhostButton27.Click
    59. skype.Attach(7, False)
    60. AddHandler skype.MessageStatus, AddressOf skype_MessageStatus
    61. End Sub
    63. End Class


    So wollte ich ein Delay einbauen, um es "Menschlicher" zu machen. Das klappt auch, jedoch nur bei einem Kontakt dann.
    Mit dem Kontakt schreibt der ohne Probleme mit Delay, anderen antwortet er aber nicht mehr.
    Ohne das "Pause(15000)" antwortet er jedem, nur halt ohne Pause.
    Wie mache ich das nun?
    Habe schon versucht über einen Timer die Nachrichten zu senden, doch das ging garnicht..

    VB.NET-Quellcode

    1. ​Imports SKYPE4COMLib
    2. Imports System.IO
    3. Public Class Bot
    4. Dim Skype As New Skype
    5. Dim CurrentSender As SKYPE4COMLib.User
    6. Dim Message As String
    8. Private Sub skype_MessageStatus(ByVal msg As SKYPE4COMLib.ChatMessage, ByVal status As TChatMessageStatus)
    9. Try
    11. If status = TChatMessageStatus.cmsReceived Then
    12. CurrentSender = msg.Sender
    13. Message = Dictio(My.Computer.FileSystem.CurrentDirectory & "\Config.ini", msg.Body)
    14. If Message = "UNHANDLED" Then
    15. Exit Sub
    16. Else
    18. End If
    19. Timer1.Start()
    20. End If
    22. Catch ex As Exception
    23. MsgBox(ex.Message)
    24. End Try
    25. End Sub
    26. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    27. Dim skype As New Skype
    28. MsgBox(CurrentSender.Handle & Message)
    29. skype.SendMessage(CurrentSender.Handle, Message)
    30. Timer1.Stop()
    31. End Sub
    32. Function Dictio(ByVal FilePath As String, ByVal command As String)
    33. Dim sr As StreamReader = New StreamReader(FilePath)
    34. Dim file As String = sr.ReadToEnd
    35. Dim answer As String = "UNHANDLED"
    36. Dim parts1() As String = file.Split(New String() {Environment.NewLine},
    37. StringSplitOptions.None)
    38. For i = 0 To parts1.Length - 1
    39. MsgBox(parts1(i))
    40. Dim tempparts() As String = parts1(i).Split("-")
    41. If command.Contains(tempparts(0).ToLower) Then
    42. answer = tempparts(1)
    43. Exit For
    44. End If
    45. Next
    46. Return answer
    47. End Function
    48. Function ParseMessage(ByVal message As String)
    49. Dim msg As String = Dictio(My.Computer.FileSystem.CurrentDirectory & "\Config.ini", message)
    51. Me.Refresh()
    53. If msg = "" Or msg = " " Then
    55. End If
    57. Try
    59. Return msg
    60. Catch ex As Exception
    61. MsgBox(ex.Message)
    62. Return msg
    63. End Try
    64. End Function
    66. Private Sub GhostButton27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GhostButton27.Click
    67. Skype.Attach(7, False)
    68. AddHandler Skype.MessageStatus, AddressOf skype_MessageStatus
    69. End Sub
    72. End Class


    Kennt sich jemand mit der Skype API aus?
    Danke :)

Facebook
Telefonspende