Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Delegate Sub SetTextCallback(ByVal [text] As String) 'Added to prevent threading errors during receiveing of data
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
ReceivedText(SerialPort1.ReadExisting()) 'Automatically called every time a data is received at the serialPort
End Sub
Private Sub ReceivedText(ByVal [text] As String)
'compares the ID of the creating Thread to the ID of the calling Thread
If Me.InvokeRequired Then
Dim x As New SetTextCallback(AddressOf ReceivedText)
Me.Invoke(x, New Object() {(text)})
Else
SplitData([text]) 'Esta es la función que me organiza los datos recibidos.
End If
End Sub
if(htmlspecialchars($_POST["verify"])){
echo 'Codigo para verificar';
}elseif (htmlspecialchars($_POST["register"])){
echo 'Codigo para registrar';
}
public function cryptography($InSeed, $InString)
{
NewEncryptString = "";
EncryptSeed = InSeed;
for (c1 = 1; c1 <= Strings.Len(InString); c1++) {
EncryptChar = Strings.Mid(InString, c1, 1);
EncryptChar = Strings.Chr(Strings.Asc(EncryptChar) ^ EncryptSeed);
EncryptSeed = EncryptSeed ^ c1;
NewEncryptString = NewEncryptString + EncryptChar;
}
}
#Region " New Thread "
Public Thread_is_completed As Boolean = False
Public Want_to_cancel_thread As Boolean = False
' Usage:
'
Dim Thread_Var_Name As System.Threading.Thread = New Threading.Thread(AddressOf MiThread)
' Thread_Var_Name.IsBackground = True
' Thread_Var_Name.Start()
' Thread_Var_Name.Abort()
' Thread_Var_Name.Suspend()
' Thread_Var_Name.Resume()
' While Not Thread_is_completed = True
' Application.DoEvents()
' End While
Sub MiThread()
' Do something inside this thread
End Sub
#End Region
Dim FMain as New MainForm y me da otro error como puedo solucionar este simple problemilla...
Function CrearBD
LabelInfo.Text = "Creando la base de datos..."
LabelInfo.Refresh()
' La conexión a usar, indicando la base master
' Aqui esta el error cambie esta declaracion de cnn por esta
' Dim cnn As New SqlConnection( _
"Server=(local)\SQLEXPRESS; " & _
"database=master; integrated security=yes")
Private cnn As String = "Data Source =.\SQLExpress; Integrated Security =true; AttachDbFilename =|DataDirectory|\VideoDB.mdf; User Instance =true;"
' La orden T-SQL para crear la tabla
Dim s As String = "CREATE DATABASE " & txtDB.Text
Dim cmd As New SqlCommand(s, cnn)
Try
' Abrimos la conexión y ejecutamos el comando
cnn.Open()
cmd.ExecuteNonQuery()
'
LabelInfo.Text = "Base de datos creada correctamente"
Catch ex As Exception
LabelInfo.Text = "Error al crear la base de datos"
MessageBox.Show(ex.Message, _
"Error al crear la base", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
' Por si se produce un error,
' comprobar si la conexión está abierta
If cnn.State = ConnectionState.Open Then
cnn.Close()
End If
End Try
End Function
Imports System.Text
Public Class MainForm
' Declare necessary class variables.
Private CommPort As New RS232()
Private IsModemFound As Boolean = False
Private ModemPort As Integer = 0
' This subroutine clears the TextBox.
Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click
Me.StatusTextbox.Clear()
End Sub
' This subroutine sends a user specified command to the modem, and records its
' response. It depends on the timer to do the reading of the response.
Private Sub SendUserCommandButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendUserCommandButton.Click
' Always wrap up working with Comm Ports in exception handlers.
Try
' Enable the timer.
'If Not Me.tmrReadCommPort.Enabled Then
Me.tmrReadCommPort.Enabled = True
'End If
'If Not CommPort.IsOpen Then
' Attempt to open the port.
CommPort.Open(8, 115200, 8, RS232.DataParity.Parity_None, RS232.DataStopBit.StopBit_1, 4096)
'End If
'Write an user specified Command to the Port.
CommPort.Write(Encoding.ASCII.GetBytes(Me.UserCommandTextbox.Text & Chr(13)))
' Sleep long enough for the modem to respond and the timer to fire.
System.Threading.Thread.Sleep(200)
Application.DoEvents()
CommPort.Close()
Catch ex As Exception
' Warn the user.
MessageBox.Show("Unable to communicate with Modem")
Finally
' Disable the timer.
Me.tmrReadCommPort.Enabled = False
End Try
End Sub
' This subroutine is fired when the timer event is raised. It writes whatever
' is in the Comm Port buffer to the output window.
Private Sub tmrReadCommPort_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrReadCommPort.Tick
Try
' As long as there is information, read one byte at a time and
' output it.
While (CommPort.Read(1) <> -1)
' Write the output to the screen.
WriteMessage(Chr(CommPort.InputStream(0)), False)
End While
Catch exc As Exception
' An exception is raised when there is no information to read.
' Don't do anything here, just let the exception go.
End Try
End Sub
' This subroutine writes a message to the txtStatus TextBox.
Private Sub WriteMessage(ByVal message As String)
Me.StatusTextbox.Text += message + vbCrLf
End Sub
' This subroutine writes a message to the txtStatus TextBox and allows
' the line feed to be suppressed.
Private Sub WriteMessage(ByVal message As String, ByVal linefeed As Boolean)
Me.StatusTextbox.Text += message
If linefeed Then
Me.StatusTextbox.Text += vbCrLf
End If
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
CommPort.Close()
End
End Sub
Private Sub MainForm_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
CommPort.Close()
End Sub
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim precio As String, categoria As String, titulo As String, cuerpo As String, _
filesize As String, email As String, phone As String
'Dim boundary As String = "---------------------------" + DateTime.Now.Ticks.ToString("x")
' Create the data we want to send
precio = "25"
categoria = "105"
titulo = "titulo del form"
cuerpo = "aki va el cuerpo del mensaje"
email = "user@gnome.com"
phone = "1234567"
filesize = "307200"
' Create a request using a URL that can receive a post.
Dim request As HttpWebRequest = HttpWebRequest.Create("URL")
' Set the Method property of the request to POST.
request.Method = "POST"
request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
Dim postdata As String = "ad_price=" & precio & "&category=" & categoria & "&ad_headline=" & _
titulo & "&ad_text=" & cuerpo & "&email=" & email & "&phone=" & phone & "&MAX_FILE_SIZE=" & filesize
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postdata)
' Set the ContentType property of the WebRequest.
request.ContentType = "application/x-www-form-urlencoded"
' Set the ContentLength property of the WebRequest.
request.ContentLength = byteArray.Length
' Get the request stream.
Dim dataStream As Stream = request.GetRequestStream()
' Write the data to the request stream.
dataStream.Write(byteArray, 0, byteArray.Length)
' Close the Stream object.
dataStream.Close()
' Get the response.
Dim response As WebResponse = request.GetResponse()
' Display the status.
Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
' Get the stream containing content returned by the server.
dataStream = response.GetResponseStream()
' Open the stream using a StreamReader for easy access.
Dim reader As New StreamReader(dataStream)
' Read the content.
Dim responseFromServer As String = reader.ReadToEnd()
' Display the content.
txtoutput.Text = responseFromServer
' Clean up the streams.
reader.Close()
dataStream.Close()
response.Close()
End Sub
End Class
Imports System.IO.Ports
Public Class Form1
Private mySerialPort As New SerialPort
Private comBuffer As Byte()
Private Delegate Sub UpdateFormDelegate()
Private UpdateFormDelegate1 As UpdateFormDelegate
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
AddHandler mySerialPort.DataReceived, AddressOf mySerialPort_DataReceived
CommPortSetup()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub mySerialPort_DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)
'Handles serial port data received events
UpdateFormDelegate1 = New UpdateFormDelegate(AddressOf UpdateDisplay)
Dim n As Integer = mySerialPort.BytesToRead 'find number of bytes in buf
comBuffer = New Byte(n - 1) {} 're dimension storage buffer
mySerialPort.Read(comBuffer, 0, n) 'read data from the buffer
Me.Invoke(UpdateFormDelegate1) 'call the delegate
End Sub
Private Sub UpdateDisplay()
Label2.Text = CStr(comBuffer(0))
End Sub
Private Sub CommPortSetup()
With mySerialPort
.PortName = "COM3"
.BaudRate = 9600
.DataBits = 8
.Parity = Parity.None
.StopBits = StopBits.One
.Handshake = Handshake.None
End With
Try
mySerialPort.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mySerialPort.WriteLine("AT+VCID")
End Sub
End Class
Imports System.IO.Ports
Public Class Form1
Private mySerialPort As New SerialPort
Private comBuffer As Byte()
Private Delegate Sub UpdateFormDelegate()
Private UpdateFormDelegate1 As UpdateFormDelegate
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
AddHandler mySerialPort.DataReceived, AddressOf mySerialPort_DataReceived
CommPortSetup()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub mySerialPort_DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)
'Handles serial port data received events
UpdateFormDelegate1 = New UpdateFormDelegate(AddressOf UpdateDisplay)
Dim n As Integer = mySerialPort.BytesToRead 'find number of bytes in buf
comBuffer = New Byte(n - 1) {} 're dimension storage buffer
mySerialPort.Read(comBuffer, 0, n) 'read data from the buffer
Me.Invoke(UpdateFormDelegate1) 'call the delegate
End Sub
Private Sub UpdateDisplay()
Label2.Text = CStr(comBuffer(0))
End Sub
Private Sub CommPortSetup()
With mySerialPort
.PortName = "COM3"
.BaudRate = 9600
.DataBits = 8
.Parity = Parity.None
.StopBits = StopBits.One
.Handshake = Handshake.None
End With
Try
mySerialPort.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mySerialPort.WriteLine("AT+VCID")
End Sub
End Class
