Estoy desarrollando una aplicacion para enviar sms, utilizo para ello la api de silverstreet.
Para enviar el sms no hay problema, simplemente en la siguiente liga se ponen los parametros:
http://api.silverstreet.com/send.php?username=test&password=test&destination=3113469 0886&sender=silver&body=Testing&dlr=1&reference=100   
 
La api retorna 01, lo cual significa que el sms ha sido recibido correctamente el sistema silverstreet, pero no significa
que lo haya recibido el destinatario, y es lo que me interesa, saber quién lo recibe y quién no.
Para eso el manual indica que al enviar un sms el sistema te retorna un Delivery Report, con los datos que me interesan.
El sistema te retorna el reporte si le pasas el parametro dlr=1 y una referencia unica, eso lo especifico en la cadena.
De acuerdo al manual, debes tener configurada una pagina de respuesta, llamada callback url, y ésta debe retornar en texto plano "OK", mi pagina ya lo hace y se llama www.misitio.mx/sms/callback.aspx
Segun mi entendimiento, cuando haces una paticion similar, la api debe redireccionarte a la pagina callback, como lo hace twitter y facebook.
Pero no me redirecciona y por tanto no recibo el reporte del sms enviado, solo recibo 01 de que el sistema silverstreet recibio el sms.
Estoy trabajando en ASP.Net y este es mi codigo

Dim strUrl As String = "https://api.silverstreet.com/send.php?username=user&password=pas&destination=" & txtDest.Text & "&sender=35110&body=" & txtMsj.Text & "&dlr=1&reference=100"
 
           Dim request As WebRequest = HttpWebRequest.Create(strUrl)
           Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
           Dim s As Stream = DirectCast(response.GetResponseStream(), Stream)
           Dim readStream As New StreamReader(s)
           Dim dataString As String = readStream.ReadToEnd()
           'aqui recibo 01 (sms recibido)
           txtRes.Text = dataString.ToString
           response.Close()
           s.Close()
           readStream.Close()
           lblmsj.Text = "Mensaje Enviado"
 
 

Tal vez estoy haciendo algo mal, porque deberia de redireccionarme a www.misitio.mx/sms/callback.aspx con los datos del reporte, y despues de eso yo deberia contestar con un OK en texto plano.

Esto es lo que retorna el reporte:
http://www.yoururl.com/callback?REFERENCE=12345678&STATUS=Delivered&REASON=&D ESTINATION=31134690886&TIMESTAMP=20120501120202&OPERATOR=20408

Seguramente alguien ha realizado algo similar
Les agradezco de antemano su ayuda
Gracias y seguimos por aqui buscando la solucion

Estoy desarrollando una aplicacion para enviar sms, utilizo para ello la api de silverstreet.
Para enviar el sms no hay problema, simplemente en la siguiente liga se ponen los parametros:
http://api.silverstreet.com/send.php?username=test&password=test&destination=3113469 0886&sender=silver&body=Testing&dlr=1&reference=100   
  
La api retorna 01, lo cual significa que el sms ha sido recibido correctamente el sistema silverstreet, pero no significa
que lo haya recibido el destinatario, y es lo que me interesa, saber quién lo recibe y quién no.
Para eso el manual indica que al enviar un sms el sistema te retorna un Delivery Report, con los datos que me interesan.
El sistema te retorna el reporte si le pasas el parametro dlr=1 y una referencia unica, eso lo especifico en la cadena.
De acuerdo al manual, debes tener configurada una pagina de respuesta, llamada callback url, y ésta debe retornar en texto plano "OK", mi pagina ya lo hace y se llama www.misitio.mx/sms/callback.aspx
Segun mi entendimiento, cuando haces una paticion similar, la api debe redireccionarte a la pagina callback, como lo hace twitter y facebook.
Pero no me redirecciona y por tanto no recibo el reporte del sms enviado, solo recibo 01 de que el sistema silverstreet recibio el sms.
Estoy trabajando en ASP.Net y este es mi codigo

Dim strUrl As String = "https://api.silverstreet.com/send.php?username=user&password=pas&destination=" & txtDest.Text & "&sender=35110&body=" & txtMsj.Text & "&dlr=1&reference=100"
 
            Dim request As WebRequest = HttpWebRequest.Create(strUrl)
            Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
            Dim s As Stream = DirectCast(response.GetResponseStream(), Stream)
            Dim readStream As New StreamReader(s)
            Dim dataString As String = readStream.ReadToEnd()
            'aqui recibo 01 (sms recibido)
            txtRes.Text = dataString.ToString
            response.Close()
            s.Close()
            readStream.Close()
            lblmsj.Text = "Mensaje Enviado"
 

Tal vez estoy haciendo algo mal, porque deberia de redireccionarme a www.misitio.mx/sms/callback.aspx con los datos del reporte, y despues de eso yo deberia contestar con un OK en texto plano.

Esto es lo que retorna el reporte:
http://www.yoururl.com/callback?REFERENCE=12345678&STATUS=Delivered&REASON=&D ESTINATION=31134690886&TIMESTAMP=20120501120202&OPERATOR=20408

Seguramente alguien ha realizado algo similar
Les agradezco de antemano su ayuda
Gracias y seguimos por aqui buscando la solucion

Hola  a todos

Tengo una aplicación en vb.net + mysql. Donde para gestionar la interacción con mysql tengo una clase llamada clsDatabase. Cuando realizo consultas consecutivas mi aplicación se traba, como si se quedara congelada esperando algo, lo raro que no manda ningun mensaje de error, aunque le ponga la consulta dentro de un try.. catch.

Esta es mi clase para gestionar la base de datos:

Imports Microsoft.VisualBasic
Imports System.Data
Imports MySql.Data.MySqlClient
Imports System.Configuration
 
Public Class clsDatabase
    Private objConn As MySqlConnection
    Private objCmd As MySqlCommand
    Private Trans As MySqlTransaction
    Private strConnString As String
 
    Public Sub New()
        strConnString = "server=" & iServer & "; uid=" & iUser & "; pwd=" & iPassword & "; port=" & iPuerto & "; database=" & iBaseDatos & ";connection timeout=3600;"
    End Sub
 
    Public Function QueryDataReader(ByVal strSQL As String) As MySqlDataReader
        Dim dtReader As MySqlDataReader
        objConn = New MySqlConnection
        With objConn
            .ConnectionString = strConnString
            .Open()
        End With
        objCmd = New MySqlCommand(strSQL, objConn)
        dtReader = objCmd.ExecuteReader()
        Return dtReader '*** Return DataReader ***'
    End Function
 
    Public Function QueryDataSet(ByVal strSQL As String) As DataSet
        Dim ds As New DataSet
        Dim dtAdapter As New MySqlDataAdapter
        objConn = New MySqlConnection
        With objConn
            .ConnectionString = strConnString
            .Open()
        End With
        objCmd = New MySqlCommand
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With
        dtAdapter.SelectCommand = objCmd
        dtAdapter.Fill(ds)
        Return ds   '*** Return DataSet ***'
    End Function
 
    Public Function QueryDataTable(ByVal strSQL As String) As DataTable
        Dim dtAdapter As MySqlDataAdapter
        Dim dt As New DataTable
        objConn = New MySqlConnection
        With objConn
            .ConnectionString = strConnString
            .Open()
        End With
        dtAdapter = New MySqlDataAdapter(strSQL, objConn)
        dtAdapter.Fill(dt)
        Return dt '*** Return DataTable ***'
    End Function
 
    Public Function QueryExecuteNonQuery(ByVal strSQL As String) As Boolean
        'MsgBox(strSQL)
        objConn = New MySqlConnection
        With objConn
            .ConnectionString = strConnString
            .Open()
        End With
        Try
            objCmd = New MySqlCommand()
            With objCmd
                .Connection = objConn
                .CommandType = CommandType.Text
                .CommandText = strSQL
            End With
            objCmd.ExecuteNonQuery()
            Return True '*** Return True ***'
        Catch ex As Exception
            MsgBox("ERROR EN QueryExecuteNonQuery" & Err.Description, MsgBoxStyle.Exclamation)
            Return False '*** Return False ***'
        End Try
    End Function
 
    Public Function QueryExecuteScalar(ByVal strSQL As String) As Object
        Dim obj As Object
        objConn = New MySqlConnection
        With objConn
            .ConnectionString = strConnString
            .Open()
        End With
        Try
            objCmd = New MySqlCommand()
            With objCmd
                .Connection = objConn
                .CommandType = CommandType.Text
                .CommandText = strSQL
            End With
            obj = objCmd.ExecuteScalar()  '*** Return Scalar ***'
            Return obj
        Catch ex As Exception
            MsgBox("ERROR:" & Err.Description)
            Return Nothing '*** Return Nothing ***'
        End Try
    End Function
 
    Public Function TransStart()
        objConn = New MySqlConnection
        With objConn
            .ConnectionString = strConnString
            .Open()
        End With
        Trans = objConn.BeginTransaction(IsolationLevel.ReadCommitted)
    End Function
 
    Public Function TransExecute(ByVal strSQL As String) As Boolean
        objCmd = New MySqlCommand()
        With objCmd
            .Connection = objConn
            .Transaction = Trans
            .CommandType = CommandType.Text
            .CommandText = strSQL
        End With
        objCmd.ExecuteNonQuery()
    End Function
 
    Public Function TransRollBack()
        Trans.Rollback()
    End Function
 
    Public Function TransCommit()
        Trans.Commit()
    End Function
 
    Public Sub Close()
        Try
            objConn.Close()
            objConn = Nothing
        Catch ex As Exception
 
        End Try
 
    End Sub
 
End Class
 
 

Realizo consultas normales, para cortes de caja, reportes, ventas etc.  Durante horas puede trabajar bien, pero despues de un tiempo la aplicacion se traba y no da mas.

Cuando inicio la aplicacion declaro una instancia de  la clase :

Public con as new clsDatabase

Y utilizo esa instancia en todos los formularios, no creo que se trabe porque se llega al full de pools, o conexiones a mysql, puesto que mantengo solo una conexión desde el inicio.
A menos que la clase esté haciendo un mal manejo de las conexiones con mysql?

Les agradezco de antemano cualquier tip, aportación o sugerencia para solucionar el problema.

Gracias 

[/size]

Hola veran, tengo unas camaras de seguridad configuradas para verlas por internet.
Use una cuenta gratis en DYNDNS para ello y todo bien.
El problema es que a cado rato se cae el subdominio asignado a mis camaras.
A cada rato tengo que reconfigurar un dominio del estilo: http://miscamaras.dyndns.org

Estoy pensando, tengo tambien un sitio web.... Cómo puedo agregar un subdominio a mi website para poder ver las camaras?

Lo que quiero lograr es, mi sitio es www.miweb.com, y crear un subdominio para mis camaras, ejemplo: www.miscamaras.miweb.com.

Alguien que me eche un cable?

Gracias.

Salu2

Estoy instalando todo lo necesario para desarrollar una aplicacion para wince 5.0.
Dentro de lo que he investigado ya tengo instalado el:

*Visual Studio 2008
*Sql Server CE 3.5
*ActiveSync 4.5
* Sql Managment Studio xpress 2005

Mi problema es que cuando abro el sql managment para crear la base de datos no hay ningun servidor sql disponible. Debo instalar aparte del  Sql Server CE 3.5, el sql server express que trae el instalador de Visual Studio, o algun sql en especial?

Espero puedan echarme un cable, saludos.

Seguimos investigando 

Hola salu2

Nuevamente por aqui. 

Verán hice un sistemita y estoy creando un formulario de configuracion inicial, en el cual el usuario pueda especificar los datos de conexion (servidor, usuario, password, database, puerto..). Con todo eso se genera un archivo .ini de configuracion.

Una vez eso, ejecuto una funcion que de forma automatica restaura/importa a mysql la base de datos, y es la siguiente:

Public Sub Restaurar_DataBase()
        Try
            'Read file from C:\
            Dim path As String
            path = Application.StartupPath & "/BaseDatos.sql"
            Dim file As New StreamReader(path)
            Dim input As String = file.ReadToEnd()
            file.Close()
 
 
            Dim psi As New ProcessStartInfo()
            psi.FileName = "C:\xampp\mysql\bin\mysql.exe"
            psi.RedirectStandardInput = True
            psi.RedirectStandardOutput = False
            psi.Arguments = String.Format("-u{0} -p{1} -h{2} {3}", iUser, iPassword, iServer, iBaseDatos, "new_database")
            psi.UseShellExecute = False
 
 
            Dim process__1 As Process = Process.Start(psi)
            process__1.StandardInput.WriteLine(input)
            process__1.StandardInput.Close()
            process__1.WaitForExit()
            process__1.Close()
            MsgBox("RESTAURACION CON EXITO!", MsgBoxStyle.Information)
        Catch ex As IOException
            MessageBox.Show("Error , Imposible Restraurar!")
        End Try
    End Sub
 

Esa funcion trabaja perfecto, PERO el detalles es que la funcion requiere 5 parametros ( iUser, iPassword, iServer, iBaseDatos, "new_database") de los cuales en ese momento de proceso aún NO tengo(iBaseDatos) porque apenas voy a crearla en el servidor.

La idea es conectarme al mysql usando( iUser, iPassword, iServer, mysql, "new_database"), es decir usar una de las bases de datos que instala por default el mysql para asi poder hacer el login y restaurar / crear mi base de datos.

Espero haberme explicado, todo es con la intencion de automatizar la instalacion de la base de datos y el usuario no lo haga manualmente.

Gracias por sus ideas, estamos por aqui intentando.

Saludos.

Hola salu2

Estoy intentando cambiar la contraseña de usuario root de mysql con el siguiente codigo:

Process.Start("C:\xampp\mysql\bin\mysql.exe", "--host=localhost --user=root --password=***  SET PASSWORD FOR 'root'@'localhost'= PASSWORD('nuevopass')")
 

Pero no realiza el cambio de contraseña. Alguna sugerencia del por qué no funciona?

---

Haciendola de ésta otra forma si funciona, pero necesito lograrlo con la primera opcion.

Public Function reset_password_mysql(ByVal clave As String) As Boolean
        Try
            cmd = New MySqlCommand
        conectarMySQL()
        cmd.Connection = dbCon
            cmd.CommandText = "update mysql.user set password=PASSWORD('" & clave & "') where User='root';"
        cmd.ExecuteNonQuery()
        cierraMySQL()
        MsgBox("CAMBIO CORRECTO!", MsgBoxStyle.Information)
            Return True
        Catch ex As Exception
            Return False
            MsgBox("EXCEPCION AL CAMBIAR CONTRASEÑA ROOT MYSQL:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "AVISO")
        End Try
 
    End Function
 

Espero puedan echarme un cable, gracias.

Hola salu2
Estoy tratando de hacer respaldos de mi base de datos mysql, la idea es hacerlo de forma que el usuario no vea el proceso o ventana del mysqldump.
Este es el codigo que tengo, hasta donde entiendo deberia de correr el proceso con la ventana oculta, pero no lo hace. Cual sera el problema?

Dim ProcessProperties As New ProcessStartInfo
ProcessProperties.FileName = "mysqldump"
ProcessProperties.Arguments = ruta_mysql
ProcessProperties.WindowStyle = ProcessWindowStyle.Hidden
Dim myProcess As Process = Process.Start(ruta_mysql, "--user=" & iUser & " --password=" & iPassword & " --host=" & iServer & " --databases " & iBaseDatos & " -r " & ruta)
 
 

Alguien que me pueda echar un cable?
Gracias..

Salu2

Descargué el server2go, y en la documentación leí que el usuario es root, y la contraseña está en blanco. Intengo hacer login en el phpmyadmin pa crear una base de datos pero no puede entrar.
Tengo la sensación de que me falta configurar algo, tal vez que se autentifique por http o tcp, algo relacionado.

Alguien que me heche un cable?

Gracias...