GetByProcessName Deklaration

ToniVBbenutzer · 23. August 2010, 18:25

Hallo ich habe eine ganz simple frage.
Wie kann ich das deklarieren

VB.NET-Quellcode

Public Shared Function GetProcessesByName( _
ByVal processName As String _
) As Process()
End Function

Meine Fehler wen ich das mache

VB.NET-Quellcode

Warnung 3 Von der Funktion "GetProcessesByName" wird nicht in allen Codepfaden ein Wert zurückgegeben. Wenn das Ergebnis verwendet wird, kann zur Laufzeit eine NULL-Verweisausnahme auftreten. C:\Users\Toni\AppData\Local\Temporary Projects\WindowsApplication1\Form2.vb 6 5 WindowsApplication1

....

Hoffe auf schnelle Hilfe =D
MfG im Voruas TONI

Dustin · 23. August 2010, 18:27

Versuchs mal so:

VB.NET-Quellcode

Dim processname As String
Public Shard Function GetProcessesByName("PROZESSNAME ohne Endung")

hal2000 · 23. August 2010, 18:28

Warum willst du diese Funktion deklarieren? Das Process-Objekt besitzt bereits passende Überladungen für den (offesichtlichen) Zweck.

ToniVBbenutzer · 23. August 2010, 18:32

Ok ich verdeutliche es

Ich will nur mein Problem beim deklariren Lösen ich programmiere ein Bot für ein Spiel

Das ist mein Kompletter Code.

Spoiler anzeigen

VB.NET-Quellcode

Imports System
Imports System.Diagnostics
Imports System.ComponentModel
Public Class Form1
Public Shared Function GetProcessesByName( _
ByVal processName As String _
) As Process()
End Function
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function WriteByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim metin2Process() As Process = GetProcessesByName("metin2client.bin")
Dim handle As IntPtr = metin2Process(0).MainWindowHandle ' oder halt p(0).Handle, ich weiß nicht
Dim funzpickup() As Byte = {&H90, &H90} 'Dentro ci devi mettere i byte
For i = 0 To funzpickup.Length - 1
WriteByte(metin2Process, &H60015D + i, funzpickup(i), 1, Nothing)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
End Class

Meine Fehler

Spoiler anzeigen

Und eigentl. mag ich das nur zum laufen brigen

hal2000 · 23. August 2010, 18:34

VB.NET-Quellcode

Dim h() As Process = Process.GetProcessesByName("metin2client.bin")

Die Deklaration oben (in deinem Code) ist nicht nötig.

Vatter · 23. August 2010, 19:17

Deine Function "GetProcessesByName" hat keinen Rückgabewert (Return irgendwas as Process fehlt). Daher kommt deine Meldung.

UFO · 23. August 2010, 19:30

kann es sei das du da etwas verwächselst?
1.)Der Prozessname hat keine Dateiendung.
2.)Von einer Exe zB ist der Dateiname nicht unbedingt der Prozessname.
Daher überprüfe ob der Prozess vorhanden ist, zb Taskmanager.

thefiloe · 23. August 2010, 20:41

so weit ich weiß werden bots in diesem forum nicht unterstützt^^ hat man mal mir gesagt

ToniVBbenutzer · 23. August 2010, 21:09

Neuer Code

Spoiler anzeigen

VB.NET-Quellcode

Imports System
Imports System.Diagnostics
Imports System.ComponentModel
Public Class Form1
Public Shared Function GetProcessesByName( _
ByVal processName As String _
) As Process()
Dim metin2process() As Process = Process.GetProcessesByName("metin2client.bin")
End Function
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function WriteByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim metin2Process() As Process = GetProcessesByName("metin2client.bin")
Dim handle As IntPtr = metin2Process(0).MainWindowHandle ' oder halt p(0).Handle, ich weiß nicht
Dim funzpickup() As Byte = {&H90, &H90} 'Dentro ci devi mettere i byte
For i = 0 To funzpickup.Length - 1
WriteByte(metin2Process, &H60015D + i, funzpickup(i), 1, Nothing)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Private Function WriteByte(ByVal metin2Process As Process(), ByVal p2 As Integer, ByVal funzpickup As Byte, ByVal p4 As Integer, ByVal p5 As Object) As Integer
Throw New NotImplementedException
End Function
End Class

Immer noch falsch achso ich muss den Process deklariren sonst weiß das programm nicht wohin es seine "FUNKTION" senden muss
das kann doch nicht sein immer dieser fehler

Spoiler anzeigen

bigbasti · 24. August 2010, 07:47

Hallo,

du machst da irgend ein wirwar. Die Funktion ist als Shared gekennzeichnet, was bedeutet, dass diese nicht deklariert werden muss sondern direkt verwendet werden kann:

VB.NET-Quellcode

Dim gefundeneProzesse() as System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName("prozessname")

Es wird dringend empfohlen die Grundlagen zu lesen.

Shared: msdn.microsoft.com/de-de/library/zc2b427x.aspx

GetByProcessName Deklaration

GetByProcessName Deklaration

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben