Temas

hola yo tengo un codigo que lo hice en vb 6, me gustaria pasarlo a visual .net estuve intentando pero no me funciona

este es el codigo

en un modulo

Código [Seleccionar] Expandir

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Declare Function GetCurrentProcess Lib "kernel32" () As Long

Global Const SYNCHRONIZE As Long = &H100000
Global Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Global Const PROCESS_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)


Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer


Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public WindowHandle As Long
Public ProcessID As Long
Public ProcessHandle As Long

Public Function GetGTAProcess(fProcessName As String) As Boolean

WindowHandle = FindWindow(vbNullString, fProcessName)
If (WindowHandle = 0) Then
  GetGTAProcess = False
  Exit Function
  End If

GetWindowThreadProcessId WindowHandle, ProcessID
ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)
If (ProcessHandle = 0) Then
  GetGTAProcess = False
  Exit Function
  End If

GetGTAProcess = True

End Function

Public Function SAptrPlayer() As Long
SAptrPlayer = ReadLong(&HB6F5F0)
End Function

Public Function ReadDMASingle(Address As Long, Offset As Long) As Single
ReadProcessMemory ProcessHandle, Address + Offset, ReadDMASingle, 4&, 0&
End Function

Public Function ReadLong(Address As Long) As Long
ReadProcessMemory ProcessHandle, Address, ReadLong, 4&, 0&
End Function


y despues en el formulario

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
Text1.Text = ReadDMASingle(SAptrPlayer, &H540&)
End Sub

Private Sub Timer3_Timer()
GetGTAProcess ("GTA:SA:MP")
End Sub

gracias desde ya

hola vieron el permedit que le da permisos a los archivos? alguien tiene idea como funciona para poder hacerlo en visual basic 6?

hola alguien sabe como se puede hacer para buscar cierta cadena en un .exe? les explico vieron que si al .exe le cambian la extensión a .txt sale todo en anssi , bueno yo necesito que busque una cadena y me diga si esta o no esta. gracias desde ya

hola a todos les muestro mi problema yo tengo que enviar estos datos por winsock de esta manera los envia bien pero yo quiero modificar lo que envia como podria hacer. Desde el programa como en un textbox pero al querer hacerlo no lo envi correctamente

Winsock1.Close
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
Winsock1.SendData Chr(&H2) & Chr(&H1) & Chr(&H1) & Chr(&H2D) & Chr(&H0) & Chr(&HD2) & Chr(&HFF) & Chr(&H2) & Chr(&H80) & Chr(&H4) & Chr(&H6) & Chr(&H2) & Chr(&H88) & Chr(&HE5) & Chr(&H37) & Chr(&H1) & Chr(&H6) & Chr(&H0) & Chr(&H4B) & Chr(&HE4) & Chr(&H13) & Chr(&HC3) & Chr(&H15) & Chr(&H3A) & Chr(&H9A) & Chr(&HAE) & Chr(&HC0) & Chr(&H1) & Chr(&H11) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H87) & Chr(&H35) & Chr(&HBC) & Chr(&HB2) & Chr(&HB3) & Chr(&H3A) & Chr(&HB1) & Chr(&HB5) & Chr(&HBD) & Chr(&H32) & Chr(&HB2) & Chr(&HB5) & Chr(&HB7) & Chr(&H19) & Chr(&HB8) & Chr(&H3B) & Chr(&H71) & Chr(&H4F) & Chr(&HD) & Chr(&H80) & Chr(&H61) & Chr(&H6) & Chr(&H11) & Chr(&H25)

hola como estan? resulta que yo tengo un textbox multiline con varias lineas y las lineas siempre son diferentes cantidades y dicen distintas cosas

linea 1
linea 2
linea 3
linea 4

entonces yo quiero obtener la linea que dice linea 3 y pasarla a otro textbox alguien sabria? gracias

hola alguien seria tan amable de decirme como pasar todo el contenido de un textbox multiline a un listview?

hola alguien sabe como puedo borrar estos carcteres extraños de un textbox multiline



son como enter lo que yo necesito es que haga salto de linea que quede asi y que borre esas cosas gracias desde ya
1
2
3
4
5
6
7

hola no sabrian como puedo hacer para sacar de un textbox ciertos datos por ejemplo que el textbox tiene como texto 1.1.1.1/7979 como podria hacer para pasar a otro textbox el contenido que esta despues de la barra osea el 7979? les agradecería mucho si pudieran ayudarme

Hola me podrian ayudar? yo quiero enviar un paquete udp pero sin que use el .ocx del winsock, me podrian dar un ejemplo o algo. Gracias desde ya

hola soy nueva en el foro necesito ayuda les paso a explicar, esto seria un bot que se conecta a un juego

Código [Seleccionar] Expandir

Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
Dim bot1 As String
Dim bot2 As String
Dim bot3 As String
bot1 = Chr(&H78) & Chr(&H1) & Chr(&HE3) & Chr(&H67) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H20) & Chr(&H0) & Chr(&H10) & Chr(&H0)
bot2 = Chr(&H78) & Chr(&H1) & Chr(&H63) & Chr(&H60) & Chr(&H50) & Chr(&H67) & Chr(&H60) & Chr(&H7) & Chr(&H0) & Chr(&H0) & Chr(&H81) & Chr(&H0) & Chr(&H2F) & Chr(&H0)
bot3 = Chr(&H78) & Chr(&H1) & Chr(&H63) & Chr(&H68) & Chr(&H50) & Chr(&H29) & Chr(&H90) & Chr(&H39) & Chr(&HB0) & Chr(&H82) & Chr(&HA1) & Chr(&H32) & Chr(&H49) & Chr(&H8E) & Chr(&H89) & Chr(&H81) & Chr(&H63) & Chr(&H1) & Chr(&H23) & Chr(&HEB) & Chr(&H64) & Chr(&H19) & Chr(&H46) & Chr(&H66) & Chr(&H6) & Chr(&H3F) & Chr(&H6) & Chr(&H2D) & Chr(&H16) & Chr(&H6) & Chr(&H2F) & Chr(&H16) & Chr(&HA1) & Chr(&H43) & Chr(&H7C) & Chr(&HAE) & Chr(&H79) & Chr(&H1) & Chr(&HDA) & Chr(&HFC) & Chr(&HC) & Chr(&HC) & Chr(&HC) & Chr(&H4D) & Chr(&H8A) & Chr(&H1B) & Chr(&H76) & Chr(&H9A) & Chr(&H31) & Chr(&H0) & Chr(&H0) & Chr(&HF3) & Chr(&H7E) & Chr(&HA) & Chr(&H20) & Chr(&H0)
Winsock1.SendData bot1
Winsock1.SendData bot2
Winsock1.SendData bot3

funciona se conecta al juego pero no puedo cambiarle el nick siempre entra con el mismo nick, el nick lo envia con esta linea

Código [Seleccionar] Expandir

bot3= Chr(&H78) & Chr(&H1) & Chr(&H63) & Chr(&H68) & Chr(&H50) & Chr(&H29) & Chr(&H90) & Chr(&H39) & Chr(&HB0) & Chr(&H82) & Chr(&HA1) & Chr(&H32) & Chr(&H49) & Chr(&H8E) & Chr(&H89) & Chr(&H81) & Chr(&H63) & Chr(&H1) & Chr(&H23) & Chr(&HEB) & Chr(&H64) & Chr(&H19) & Chr(&H46) & Chr(&H66) & Chr(&H6) & Chr(&H3F) & Chr(&H6) & Chr(&H2D) & Chr(&H16) & Chr(&H6) & Chr(&H2F) & Chr(&H16) & Chr(&HA1) & Chr(&H43) & Chr(&H7C) & Chr(&HAE) & Chr(&H79) & Chr(&H1) & Chr(&HDA) & Chr(&HFC) & Chr(&HC) & Chr(&HC) & Chr(&HC) & Chr(&H4D) & Chr(&H8A) & Chr(&H1B) & Chr(&H76) & Chr(&H9A) & Chr(&H31) & Chr(&H0) & Chr(&H0) & Chr(&HF3) & Chr(&H7E) & Chr(&HA) & Chr(&H20) & Chr(&H0)


alguien sabria como modificar esto? asi puedo cambiarle el nick? gracias