German-Roleplay Bestatterkeybinder Problem!

  • VB.NET

Es gibt 29 Antworten in diesem Thema. Der letzte Beitrag () ist von keydrow.

    Hatt keiner sonst ne Idee bei Haltepunkt kan Halt das Heraus
    Eine Ausnahme (erste Chance) des Typs "System.InvalidCastException" ist in Microsoft.VisualBasic.dll aufgetreten.

    Eine Ausnahme (erste Chance) des Typs "System.NullReferenceException" ist in GRPBestatterKeybinder.exe aufgetreten.
    Nu was das Bedeutet weis ich nicht oder habe ich etwas flasch gemacht??? ?(

    VB.NET-Quellcode

    1. Dim auftrag() As String = System.IO.File.ReadAllLines("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt")
    2. Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
    3. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    5. End Sub
    7. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    8. If auftrag(auftrag.Length - 2) = "gib /accept corpse ein, um den Auftrag anzunehmen!" Then

    Sehe ich es richtig das du nur beim start des Programms die Datei auslist ?
    Somit wirst du kaum die Timer benötigen wen er so oder so immer nur die gleiche Datei hat O,o
    was eig. jetzt mit den filewatcher?
    musst ja nur in das Verzeichnis wo die chatlog.txt drin ist angeben und im change event überprüfen ob chatlog.txt verändert und wen dann deine reihe von if's
    durchgehen und bei einer Eingabe Sendkeys senden...

    Danke das hatte ich nochgarnic ht bedacht und wie das mit dem FileWatcher gehen soll habe ich kein Plan ich finde auch nichts was mir dabei hift(Ich bin zu blööd zum Googlen :S)

    Hab Gleich mal

    VB.NET-Quellcode

    1. Dim auftrag() As String = System.IO.File.ReadAllLines("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt")
    in den Timer gepackt Jetzt bekomme ich auch Feedback aber kein gutes :S. Ich dachte Super bisjetzt geht alles bis der Fehler kam: ... kann nicht auf "C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt" zugreifen da bereits ein Anderer Prozess darauf zugreift wie kann ich das Umgehen?? Das SAMP und mein Keybinder gleichzeitig auf die selbe sache zugreifen?

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

    msdn.microsoft.com/de-de/libra…stemwatcher(v=vs.80).aspx
    Example:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Watcher
    3. Public Shared Sub Main()
    5. Run()
    7. End Sub
    9. <PermissionSet(SecurityAction.Demand, Name:="FullTrust")> _
    10. Private Shared Sub Run
    12. Dim args() As String = System.Environment.GetCommandLineArgs()
    13. ' If a directory is not specified, exit the program.
    14. If args.Length <> 2 Then
    15. ' Display the proper way to call the program.
    16. Console.WriteLine("Usage: Watcher.exe (directory)")
    17. Return
    18. End If
    20. ' Create a new FileSystemWatcher and set its properties.
    21. Dim watcher As New FileSystemWatcher()
    22. watcher.Path = args(1)
    23. ' Watch for changes in LastAccess and LastWrite times, and
    24. ' the renaming of files or directories.
    25. watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)
    26. ' Only watch text files.
    27. watcher.Filter = "*.txt"
    29. ' Add event handlers.
    30. AddHandler watcher.Changed, AddressOf OnChanged
    31. AddHandler watcher.Created, AddressOf OnChanged
    32. AddHandler watcher.Deleted, AddressOf OnChanged
    33. AddHandler watcher.Renamed, AddressOf OnRenamed
    35. ' Begin watching.
    36. watcher.EnableRaisingEvents = True
    38. ' Wait for the user to quit the program.
    39. Console.WriteLine("Press 'q' to quit the sample.")
    40. While Chr(Console.Read()) <> "q"c
    41. End While
    42. End Sub
    44. ' Define the event handlers.
    45. Private Shared Sub OnChanged(source As Object, e As FileSystemEventArgs)
    46. ' Specify what is done when a file is changed, created, or deleted.
    47. Console.WriteLine("File: " & e.FullPath & " " & e.ChangeType)
    48. End Sub
    50. Private Shared Sub OnRenamed(source As Object, e As RenamedEventArgs)
    51. ' Specify what is done when a file is renamed.
    52. Console.WriteLine("File: {0} renamed to {1}", e.OldFullPath, e.FullPath)
    53. End Sub
    55. End Class

    Oh ich habe den anderen Beitrag grade bearbeitet da kamm schon deine Antwort hier aber mal ein Kleiner Doppelpost:
    Danke das hatte ich nochgarnic ht bedacht und wie das mit dem
    FileWatcher gehen soll habe ich kein Plan ich finde auch nichts was mir
    dabei hift(Ich bin zu blööd zum Googlen :S)
    Hab Gleich mal

    VB.NET-Quellcode

    1. Dim auftrag() As String = System.IO.File.ReadAllLines("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt")

    in den Timer gepackt Jetzt bekomme ich auch Feedback aber kein gutes :S.
    Ich dachte Super bisjetzt geht alles bis der Fehler kam: ... kann nicht
    auf "C:\Users\Marvin\Documents\GTA San Andreas User
    Files\SAMP\chatlog.txt" zugreifen da bereits ein Anderer Prozess darauf
    zugreift wie kann ich das Umgehen?? Das SAMP und mein Keybinder
    gleichzeitig auf die selbe sache zugreifen?

    Das kommt dabei genau heraus
    Der Prozess kann nicht auf die Datei "C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt" zugreifen, da sie von einem anderen Prozess verwendet wird.