[Non Release] RockNetwork GM Tool v4

    • [Non Release] RockNetwork GM Tool v4

      Hallo [COLOR="Orange"]C[/COLOR]ore'ler,

      Da ich sehe das den leuten mein GM Tool gefällt habe ich mir gedacht, dass ihr mir Ideen oder wünsche geben könntet was das Tool beinhalten soll.
      Ich möchte anmerken das es ein reines GM Tool sein wird also keine funktionen wie auf datenbank zugreifen oder resourcen auslesen.

      Was ich mir schon selbst gedacht habe und was mir in der Umsetzung gelungen ist, dass ich einen fehler behoben habe den ich beim programieren von v4 war. Es geht darum, dass wenn man ein befehl kopiert aber die textbox leer ist, das es zu einem Crash kommt. Ebenso wenn FlyFF nicht aktiv war. Ich habe bereits gehindert das es zu einem Crash kommt wenn die textbox leer ist aber mir fehlt ein dummes wissen ^^ Wie ich einen prozess geziehlt suche, es wird in dem fall die "Neuz.exe" sein.

      Viel Text einige lahme augen und mehr. hier das wesendliche was gemacht ist, was ich vorhabe und wo ich hilfe nötig habe.

      [COLOR="Lime"]Was hab ich geändert ?[/COLOR]

      [COLOR="Lime"]-[/COLOR] Ich habe die "Window Name" option gelöscht. Es wird immer zum fenster "FLYFF" gesendet.
      [COLOR="Lime"]-[/COLOR] Items und Pet Commands gesplittet da ich mit den Items was vorhabe.
      [COLOR="Lime"]-[/COLOR] Einen bereich für werbung eingepackt wo nur Server kommen, die das zeig haben etwas zu werden.
      [COLOR="Lime"]-[/COLOR] Das Crashen verhindert.

      [COLOR="Lime"]Was habe ich vor ?[/COLOR]

      [COLOR="Lime"]-[/COLOR] zu den Items ist es ein geheimnis was nur ich und ich wissen.
      [COLOR="Lime"]-[/COLOR] Die Pets werden durch Pics gewählt.

      [COLOR="Lime"]Wo brauche ich hilfe ?[/COLOR]

      [COLOR="Lime"]-[/COLOR] Bei der suche nach dem prozess "Neuz.exe" und das diese überwacht wird von einem Timer der dann überprüft ob der prozess am laufen ist.
      [COLOR="Lime"]-[/COLOR] Bei der Einrichtung der INI, da ich damit noch kaum Erfahrungen habe.

      Was soll ich sons noch schreiben ?

      [COLOR="Lime"]Fell 'de Power![/COLOR]

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • Ich weiß nicht womit du programmierst. Aber wie's aussieht arbeitest du mit Dateien oder Datenbanken. Verwundert mich ein wenig, dass du keine *.ini-Dateien einlesen kannst. Für ALLES gibt's Libraries. Du wirst sicher eine finden die dir dabei hilft *.ini-Dateien einzulesen.

      In Bezug auf dein Prozess.

      while(true) { Prozessliste durcharbeiten...; Sleep(10); }

      Mehr sollte es eigentlich nicht sein. Solltest du mit C++ arbeiten:

      Quellcode

      1. while (1)
      2. {
      3. DWORD dwProcessList[1024];
      4. DWORD dwNeeded;
      5. DWORD dwProcesses;
      7. if (!EnumProcesses(dwProcessList, sizeof(dwProcessList), &dwNeeded))
      8. {
      9. return 0;
      10. }
      12. dwProcesses = dwNeeded / sizeof(DWORD);
      14. for (unsigned int i = 0; i < dwProcesses; i++)
      15. {
      16. if (dwProcessList[i] != 0)
      17. {
      18. char szProcessName[256];
      20. HANDLE hProcess = OpenProcess(PROCESS_QUERY_INFORMATION | PROCESS_VM_READ, FALSE, dwProcessList[i]);
      21. if (hProcess)
      22. {
      23. HMODULE hModule;
      24. DWORD dwTemp;
      26. if (EnumProcessModules(hProcess, &hModule, sizeof(hModule), &dwTemp))
      27. {
      28. GetModuleBaseNameA(hProcess, hModule, szProcessName, sizeof(szProcessName) / sizeof(char));
      29. }
      31. // printf("%s\n", szProcessName);
      32. }
      33. else
      34. {
      35. // printf(" => %d\n", dwProcessList[i]);
      36. }
      38. if (!strcmp("[COLOR="Red"]Neuz.exe[/COLOR]", szProcessName))
      39. {
      40. // printf("'Neuz.exe wurde gefunden.\n");
      42. return 0;
      43. }
      45. CloseHandle(hProcess);
      46. }
      47. }
      49. Sleep(10);
      50. }
      Alles anzeigen


      #include usw. wirst du sicher selbst auf die Reihe bekommen.

    • Ok Ich hab das hier gefunden ^^

      [COLOR="Lime"]Das is der code[/COLOR]

      Quellcode

      1. #
      3. #
      4. Module ini
      5. #
      6. Private Declare Ansi Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
      7. #
      8. ByVal lpApplicationName As String, _
      9. #
      10. ByVal lpKeyName As String, _
      11. #
      12. ByVal lpString As String, _
      13. #
      14. ByVal lpFileName As String) _
      15. #
      16. As Integer
      17. #
      19. #
      20. Private Declare Ansi Function WritePrivateProfileStringI Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
      21. #
      22. ByVal lpApplicationName As String, _
      23. #
      24. ByVal lpKeyName As String, _
      25. #
      26. ByVal lpString As Integer, _
      27. #
      28. ByVal lpFileName As String) _
      29. #
      30. As Integer
      31. #
      33. #
      34. Private Declare Ansi Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
      35. #
      36. ByVal lpApplicationName As String, _
      37. #
      38. ByVal lpKeyName As String, _
      39. #
      40. ByVal lpDefault As String, _
      41. #
      42. ByVal lpReturnedString As String, _
      43. #
      44. ByVal nSize As Integer, _
      45. #
      46. ByVal lpFileName As String) _
      47. #
      48. As Integer
      49. #
      51. #
      52. Private Declare Ansi Function GetPrivateProfileStringI Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
      53. #
      54. ByVal lpApplicationName As String, _
      55. #
      56. ByVal lpKeyName As String, _
      57. #
      58. ByVal lpDefault As String, _
      59. #
      60. ByVal lpReturnedString As Integer, _
      61. #
      62. ByVal nSize As Integer, _
      63. #
      64. ByVal lpFileName As String) _
      65. #
      66. As Integer
      67. #
      69. #
      70. ''' <summary>
      71. #
      72. ''' Gets an integer Value from a specified Ini-File
      73. #
      74. ''' </summary>
      75. #
      76. ''' <param name="INIFile">The File to read from. Full path</param>
      77. #
      78. ''' <param name="Section">The Section name</param>
      79. #
      80. ''' <param name="Key">Name of the Key to read</param>
      81. #
      82. ''' <param name="DefaultValue">This value is returned, if Section or Key is not found</param>
      83. #
      84. ''' <param name="BufferSize">Size of the Buffer, 1024 by default</param>
      85. #
      86. ''' <returns>The integer Value stored in the ini file, or the default value</returns>
      87. #
      88. ''' <remarks></remarks>
      89. #
      90. Public Function GetINIInt(ByVal INIFile As String, ByVal Section As String, ByVal Key As String, Optional ByVal DefaultValue As Integer = 0, Optional ByVal BufferSize As Integer = 1024) As String
      91. #
      92. Dim sTemp As String = Space(BufferSize)
      93. #
      94. Dim Length As Integer = GetPrivateProfileString(Section, Key, DefaultValue, sTemp, BufferSize, INIFile)
      95. #
      96. Return Left(sTemp, Length)
      97. #
      98. End Function
      99. #
      101. #
      102. ''' <summary>
      103. #
      104. ''' Gets a String Value from a specified Ini-File
      105. #
      106. ''' </summary>
      107. #
      108. ''' <param name="INIFile">The File to read from. Full path</param>
      109. #
      110. ''' <param name="Section">The Section name</param>
      111. #
      112. ''' <param name="Key">Name of the Key to read</param>
      113. #
      114. ''' <param name="DefaultValue">This value is returned, if Section or Key is not found</param>
      115. #
      116. ''' <param name="BufferSize">Size of the Buffer, 1024 by default</param>
      117. #
      118. ''' <returns>The String Value stored in the ini file, or the default value</returns>
      119. #
      120. ''' <remarks></remarks>
      121. #
      122. Public Function GetINIString(ByVal INIFile As String, ByVal Section As String, ByVal Key As String, Optional ByVal DefaultValue As String = "", Optional ByVal BufferSize As Integer = 1024) As String
      123. #
      124. Dim sTemp As String = Space(BufferSize)
      125. #
      126. Dim Length As Integer = GetPrivateProfileString(Section, Key, DefaultValue, sTemp, BufferSize, INIFile)
      127. #
      128. Return Left(sTemp, Length)
      129. #
      130. End Function
      131. #
      133. #
      134. ''' <summary>
      135. #
      136. ''' Sets an ini Key to specified value
      137. #
      138. ''' </summary>
      139. #
      140. ''' <param name="INIFile">The File to write to. Full path</param>
      141. #
      142. ''' <param name="Section">The Section name</param>
      143. #
      144. ''' <param name="Key">Name of the Key to update</param>
      145. #
      146. ''' <param name="Value">The Value to set</param>
      147. #
      148. ''' <remarks></remarks>
      149. #
      150. Public Sub SetINIString(ByVal INIFile As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)
      151. #
      152. WritePrivateProfileString(Section, Key, Value, INIFile)
      153. #
      154. End Sub
      155. #
      157. #
      158. ''' <summary>
      159. #
      160. ''' Sets an ini Key to specified value
      161. #
      162. ''' </summary>
      163. #
      164. ''' <param name="INIFile">The File to write to. Full path</param>
      165. #
      166. ''' <param name="Section">The Section name</param>
      167. #
      168. ''' <param name="Key">Name of the Key to update</param>
      169. #
      170. ''' <param name="Value">The Value to set</param>
      171. #
      172. ''' <remarks></remarks>
      173. #
      174. Public Sub SetINIInt(ByVal INIFile As String, ByVal Section As String, ByVal Key As String, ByVal Value As Integer)
      175. #
      176. WritePrivateProfileStringI(Section, Key, Value, INIFile)
      177. #
      178. End Sub
      179. #
      180. End Module
      Alles anzeigen


      [COLOR="Lime"]Zum Schreiben[/COLOR]

      Quellcode

      1. #
      2. ini.SetINIString("test.ini", "config", "FirstKey", "aValue")
      3. #
      4. ini.SetINIString("test.ini", "config", "Key2", "test")
      5. #
      6. ini.SetINIInt("test.ini", "config", "Key3", 5)
      7. #
      8. ini.SetINIString("test.ini", "AnotherConfig", "SomeKey", "SomeValue")


      [COLOR="Lime"]Zum einlesen[/COLOR]

      Quellcode

      1. #
      2. Dim myString as String = ini.GetINIString("test.ini","Config","FirstKey","not found")
      3. #
      4. ' myString is now "aValue"
      5. #
      6. Dim myString2 as string = ini.GetINIString("test.ini","Config","AKeyThatIsntValid","not found")
      7. #
      8. ' myString2 is now "not found"



      [COLOR="Lime"]Das resultat[/COLOR]

      Quellcode

      1. [config]
      2. FirstKey=aValue
      3. Key2=test
      4. Key3=5
      6. [AnotherConfig]
      7. SomeKey=SomeValue

    • Geht doch. Siehst du. Es ist doch gar nicht mal so schlecht. :-)

      Jetzt fehlt nur noch der Teil "Prozesse". Jedoch weiß ich nicht wie man das mit .NET löst. Ich arbeite nicht mit .NET. Aber ich denke, dass du das auch schaffen wirst. :-)

      Kurze Recherche hat folgendes ergeben:

      Quellcode

      1. Dim Prozess As System.Diagnostics.Process
      2. For Each Prozess In System.Diagnostics.Process.GetProcesses()
      3. // Prozess.ProcessName
      4. Next


      Ich habe keine Ahnung ob du in .NET Endlosschleifen nutzen kannst. Ich weiß nicht einmal wie eine If-Anweisung aussieht. Vielleicht genauso wie bei C/C++? Keine Ahnung. Auf jeden Fall sollte dir das weiterhelfen.

      EDIT:
      Gegen ein "Thanks" habe ich nichts. :-P

    • Ok da kommt einiges zusammen^^

      Ich denke mal das mit den Icons würde dauern aber hmm^^
      Ich hab es vorhin (nach neucoden) hinbekommen, dass was in v3 so ca 2000 zeilen gemacht haben in v4 nur 225 zeilen übernehmen ^^

      Und wie sollte man das mit den icons machen ? Da ich die Items aus der ItemList.txt lese.
      Es wird eine Funktion noch kommen, die entscheided aus welcher txt die Items geladen werden ^^ also namen auf DE und ENG (sind nicht alle gleich)

      Und die Ladezeit ist auch extrem bei mir zumindest^^ fast 4k Items in nur 0,006 sek geladen. Das steht auch bei jedem start oben in dem Menüstrip.