Visual Basic "Open" in class is not possible! Help!

[NitroSmily]

Hello, I'm making a hack now, but I couldn't write this in my class!

Error 1 'Open' is not declared. File I/O functionality is available in the 'Microsoft.VisualBasic' namespace.


__________________________________________________ ____________________


This is My_Class:

Imports System****
Imports System.Text
Imports System.Runtime.InteropServices

Public Class My_Class
#Region "Basic Stuff"

    Dim ReadProcess As Process

    <DllImport("kernel32.dll")> _
    Private Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
    End Function
    <DllImport("kernel32.dll")> _
    Private Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    Public Shared Function GetKeyState(ByVal virtualKeyCode As Keys) As Short
    End Function
    Private pHandel As IntPtr
    Public Function Process_Handle(ByVal ProcessName As String) As Boolean
        Try
            Dim ProcList As Process() = Process.GetProcessesByName(ProcessName)
            If ProcList.Length = 0 Then
                Return False
            Else
                pHandel = ProcList(0).Handle
                Return True
            End If
        Catch ex As Exception
            Console.Beep()
            Console.WriteLine("Process_Handle - " + ex.Message)
            Return False
        End Try
    End Function
    Private Function Read(ByVal Address As Integer, ByVal Length As Integer) As Byte()
        Dim Buffer As Byte() = New Byte(Length - 1) {}
        Dim Zero As IntPtr = IntPtr.Zero
        ReadProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
        Return Buffer
    End Function
    Private Sub Write(ByVal Address As Integer, ByVal Value As Integer)
        Dim Buffer As Byte() = BitConverter.GetBytes(Value)
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
    End Sub
#End Region

    'This is the part you want to edit
#Region "Write Functions (Integer & String)"
    Public Sub WriteInteger(ByVal Address As Integer, ByVal Value As Integer)
        Write(Address, Value)
    End Sub
    Public Sub WriteString(ByVal Address As Integer, ByVal Text As String)
        Dim Buffer As Byte() = New ASCIIEncoding().GetBytes(Text)
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
    End Sub
    Public Sub WriteBytes(ByVal Address As Integer, ByVal Bytes As Byte())
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Bytes, CUInt(Bytes.Length), Zero)
    End Sub
    Public Sub WriteNOP(ByVal Address As Integer)
        Dim Buffer As Byte() = New Byte() {&H90, &H90, &H90, &H90, &H90}
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
    End Sub
Public Function Hack(ByVal Application As String) As Boolean
        Dim pArray As Process() = Process.GetProcessesByName(Application)
        If pArray.Length = 0 Then
            Return True
        End If
        ReadProcess = pArray(0)
        Open()                        <----------------------------- Here is the problem
        Return False
    End Function

#End Region
#Region "Read Functions (Integer & String)"
    Public Function ReadInteger(ByVal Address As Integer, Optional ByVal Length As Integer = 4) As Integer
        Return BitConverter.ToInt32(Read(Address, Length), 0)
    End Function
    Public Function ReadString(ByVal Address As Integer, Optional ByVal Length As Integer = 4) As String
        Return New ASCIIEncoding().GetString(Read(Address, Length))
    End Function
    Public Function ReadBytes(ByVal Address As Integer, ByVal Length As Integer) As Byte()
        Return Read(Address, Length)
    End Function
#End Region
#Region "Extra"
    Public Function HotKey(ByVal Key As Keys) As Boolean
        Return Convert.ToBoolean(GetKeyState(Key))
    End Function
    Private Check_res As Boolean = True
    Public Function Check_Value(ByVal Value As String) As Integer
        For Each a As Char In Value
            If Char.IsNumber(a, 0) Then
                Check_res = True
            Else
                Check_res = False
                Return 0
                Exit For
            End If
        Next
        Return Convert.ToInt32(Value)
    End Function
#End Region

    Sub SetByte(ByVal p1 As Integer, ByVal p2 As Integer)
        Throw New NotImplementedException
    End Sub

    Sub SetByte(ByVal p1 As Integer, ByVal Accolades As Byte())
        Throw New NotImplementedException
    End Sub

End Class

__________________________________________________ ___________________________


Please if you can help me, reply

[Horror]

You might wanan highlight the error in the code ...

[-InSaNe-[Backup]]

@Nachos This belongs to the Coding Section

Use [code] tags for gods sake... Also, I don't know VB.. but I think the error says that you've to Import Microsoft.VisualBasic to use the Open() Method...

[Horror]

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Diagnostics;
using System.Runtime.InteropServices;
using System****;
using System.Threading;

These are the ones i use (they include starting and stopping a process) so it should work ... Not sure doh

[Jorndel]

Well, you maybe want to use this class instead:
https://www.mpgh.net/forum/604-call-d...n-jorndel.html

[NitroSmily]

Didn't work
Still can't Open()

---------- Post added at 01:32 PM ---------- Previous post was at 01:31 PM ----------

Well, you maybe want to use this class instead:
https://www.mpgh.net/forum/604-call-d...n-jorndel.html

That's the one I used

[Jorndel]

Didn't work
Still can't Open()

---------- Post added at 01:32 PM ---------- Previous post was at 01:31 PM ----------

That's the one I used

How can you?
There is no Open there :S

It's a total different.
Here you use: Process_Handle.

You use: Hack.

So it's NOT the same.

[NitroSmily]

How can you?
There is no Open there :S

It's a total different.
Here you use: Process_Handle.

You use: Hack.

So it's NOT the same.

I changed it, but now no one works or I guess never worked with the Process_Handle (No offence)
When I click the button, it open visual basic and shows a yellow background at the Process_Handle.
Also it comes a message that the object has no Object occurrence

[Jorndel]

I changed it, but now no one works or I guess never worked with the Process_Handle (No offence)
When I click the button, it open visual basic and shows a yellow background at the Process_Handle.
Also it comes a message that the object has no Object occurrence

:|

You just have to re-write all your writing funtions or just re-name the methods in the class for the old you used.

Process_Handle is the same as: Hack("iw5mp")

Means you do:

Process_Handle("iw5mp")

---------- Post added at 09:57 PM ---------- Previous post was at 09:55 PM ----------

Also, why not just add me to skype and I will give you your answers withing 2 min :|

[NitroSmily]

:|

You just have to re-write all your writing funtions or just re-name the methods in the class for the old you used.

Process_Handle is the same as: Hack("iw5mp")

Means you do:

Process_Handle("iw5mp")

---------- Post added at 09:57 PM ---------- Previous post was at 09:55 PM ----------

Also, why not just add me to skype and I will give you your answers withing 2 min :|

Didn't work

[Jorndel]

Problem is now solved and this can be closed.
@ @Nachos