Temas

Se puede hacer que cuando alguien entre en www.pagina.com le diriga a la pagina que yo quiera.
Es decir le modifco un archivoen su ordenador que al acceder a la pagina www.pagina.com le carga la que yo quiera.

Creo que vi algo asi, que era poniendo la ip de la pagina y alado la direccion que quieres que valla

Estoy buskando por todo google y no ekuentro nada de nada ( rekursosvb,el buska etc)
quiero hacer lo siguiente, no digo que me lo digais, konke me guieis me sobre :

Un ejemplo la pagina www.mipagina.com/tex.txt ahora en ese arhicvos de texto subido en mi pagina

Pongo ahi por ejemplo Msgbox = "hola"
Ahora kada vez que uno abre mi programa le sale lo que yo aya puesto en ese archivos de texto, si enemdio  puedo colocar cualquier cosa ( cualquier cosa que no necesite que yo kree un boton ni nada, sino como msxbox y modificar un textobx)


Gracias por toda la ayuda ^^

No konsigo eliminar el scrollbar que me sale en un webbroser, aunke la pagina sea mas grande quiero que se fusionen kon el formulario y nose note pero nada no konsigo y sabia se se puede hacer que kuando el raton este en el webbroser el boton derecho no valla para que no averiguen la pagina

Un ejemplo para explikar lo que quiero:

Un usuario tiene el archivo  pepito.exe y kada usuario lo puede tener en sistios distintos, eskritorio etc
Ahora komo hacer que al pulsar el boton lokalice ek arhivo y lo elimine

Quiero crear un Trainer para un juego, tengo la adresse ahora kual es el modulo y el codigo del timer para modificar el valor.


Lo quiero krear para el regnum online, se krear trainers para el warrock pero no si si sera lo mismo, un ejemplo de krear una para el Warrock.
Añades un modulo en vb que es el siguiente

Código [Seleccionar] Expandir

Public Const krebs = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function string1 Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function string2 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function string3 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function string4 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function string5 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function string6 Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function string7 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Function writealong(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Long) 'WriteALong
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string3 hoden, Combination_4_, Super_zahl_4_, 4, 0&
string4 lmdkwaa
End Function

Public Function readalong(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Long) 'ReadALong
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string7 hoden, Combination_4_, Super_zahl_filter_4_, 4, 0&
string4 lmdkwaa
End Function

Public Function readafloat(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Single) 'ReadAFloat
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string7 hoden, Combination_4_, Super_zahl_filter_4_, 4, 0&
string4 lmdkwaa
End Function

Public Function writeafloat(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Single) 'WriteAFloat
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string3 hoden, Combination_4_, Super_zahl_4_, 4, 0&
string4 lmdkwaa
End Function

Public Function writeabyte(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Byte) 'WriteAByte
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string3 hoden, Combination_4_, Super_zahl_4_, 1, 0&
string4 lmdkwaa
End Function

Public Function readabyte(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Byte) 'ReadAByte
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string7 hoden, Combination_4_, Super_zahl_filter_4_, 1, 0&
string4 lmdkwaa
End Function


Ahora en el timer lo pongo en un intervalo de 1 y en off para activarlo desde un boton y el kodigo por ejemplo para tener un zoom en kualkier arma

Call WriteAlong ("WarRock", &Hadresse, 1)

1 es el valor que pone a la adresse, este es el de on, para el de off es el mismo pero kon un 0

Ahora es lo mismo krearlo para otro juego?