Mensajes

Hola Foooro!!

Tengo una Pequeñisima Duda  

Quiero Cambiar El "Contenido" de una Variable del Tipo String desde una Funcion... Hasta ahi parece Facil... Pero el Problema esta en que quiero pasarle a la Funcion el Nombre de la Variable...

Habia pensado en esto

Código (vb) [Seleccionar] Expandir

Private Sub ChgVar(ByVal vVar As Object, NewStr As String)
'On Error Resume Next
   vVar = NewStr
End Sub

Pero me devuelve:

"No Coinciden Los Tipos."

La Pregunta es Como que tengo que delcarar la variable vVar Para que Coincidan los Tipos

o Como Puedo Hacer una Funcion Que Realize eso...

Gracias!!

Como dicen todos si merece la pena.. luego se te puede hacer mas sencillo pasar a .NET

Y de echo si programas en un lenguaje es mas facil ir al otro con tal de tener la logica, y conocer sus funciones nada mas que eso

Es Verdad Una Vez Que sabes Programar, Pasar a otro lenguaje es solo aprender su Sintaxis. Lo unico que tenes que tener ciudado de que VB no te haga caer en malas costumbres

[NO]

NO me refiero a poner algo como If [Variable] = "[Texto]" then [Enviar la alerta]
¿Se puede?


Sí, están en  la misma pc, con sockets no lo veo tan difícil, pero quería que lo pudiera hacer desde el Proyecto A, sin que el B tenga nada que ver o que lo conecte con A, como si fuera un programa hecho por otra persona
¿Es posible?

[/quote]

Si es Posible, Fijate lo que dijo raul338

1- FindWindow + EnableWindow, busca la API en google!

2- Busca Microsoft Script Control

P.D: Como queres que sepa que es en un programa echo por un Tercero si pusiste "¿Se podría hacer que en 2 projectos distintos," por "Projectos" que supongo que sera "Proyecto" queres decir Dos Programas tuyos

Si Es Verdad que La sección o SubForo Necesita un Mod Mas Activo y Los que LeandroA Dijo Son los Que a mi se me ocurren Tambien entro al foro y siempre veo esos nombres arriva a la derecha . Quien sea no inporta, lo que importa es QUE sea

Lo que hace por ahora es,

Volver loco el mouse,
invertir botones del mouse
"Tratar" de desconectar internet
Mensage al lado del reloj
Cambiar fecha y hora


Alguna otra idea?

Usa la API KeydEvent y Presiona una tecla al azar cada tanto...

Abria que Hacer uno que Ponga el Cursor en Coordenadas al azar cada... no se 5 segundos o 10 entonces se te moveria a cualquier lado de repente 

Bueno seria asi...

El Codigo en PHP para Utilizar esa Funcion seria...

Código (php) [Seleccionar] Expandir

<?php
function Suma($num1, $num2){
$resultado=($num1 + $num2);
return $resultado;
}

echo(suma($_GET["num1"], $_GET["num2"]));
?>

y la Funcion en vb para llamar a eso Seria en un Modulo:

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long

Private Const INTERNET_OPEN_TYPE_DIRECT As Long = 1
Private Const INTERNET_OPEN_TYPE_PROXY  As Long = 3
Private Const INTERNET_FLAG_RELOAD      As Long = &H80000000
'Servidor:
Private Const URLServer = "http://www.tulink.com/tuscrip.php"

Private Function OpenURL(sURL As String) As String
    Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long, sRead As String
    sBuffer = Space(1024)
    hOpen = InternetOpen("VB-OpenURL", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
    Do
        InternetReadFile hFile, sBuffer, 1024, Ret
        sRead = sRead & Left(sBuffer, Ret)
        If Ret = 0 Then Exit Do
    Loop
    OpenURL = sRead
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
End Function

Public Function ExecPHP(Var1 As String, Var2 As String) As String
    ExecPHP = OpenURL(URLServer & "?num1=" & Var1 & "&num2=" & Var2)
End Function

y en el Form1

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    MsgBox ExecPHP(4, 6)
End Sub

esto lo que hace es ni bien ejecutas tu programa envia al servidor la Variable1 (4) y la variable2(6) entonces el Servidor nos retorna 10 que es la suma entre 6 y 4...

Cualquier duda me avisas pero creo que esta mas que claro

ok, ya lo voy pillando, despues para recojer el resultado de la funcion del php ¿como hago? es decir imaginemos que tengo esto en php:

Código [Seleccionar] Expandir

<?php
function suma($num1, $num2)
{

$resultado=($num1+$num2);
return $resultado;

}

Para obtener el resultado, ¿como puedo hacerlo?

Tendrias que adaparlo para que le Retornen los datos a vb... Si me das un Segundo ahora edito con el Source armado...

Para el Primero si el Programa 1 esta en una PC distinta al programa 2 te vas a tener que conectar al otro por Sockets...

ahora por lo que entendi el Programa 1 y 2 estan en la misma pc...

asi que podes usar un Source de LeandroA que seriva para enviar Strings desde un Programa a otro ahora no me acuerdo el nombre...:S

Mira aca esta un Source mio que se conecta a un Script PHP para enviar Mails, Fijate que apartir de este, vas a enteder como hacerlo...

http://foro.elhacker.net/empty-t310006.0.html