Mensajes

Open App.Path & App.EXEName & ".exe" For Binary As #1
Yo = Space(LOF(1))
Get #1, , Yo
Close #1

ya estamos eso me trate de explicar... bueno de ahi... ya tenemos una copia de nosotros almacenado en la variable yo... bueno ahora abro otro  y lo le pongo la variable "yo" despues.... le escribo lo que yo quiera no?  y qui lo tenemos ya insertado... pero la pregunta era despues como identificar  despues mis datos que escribi  y tendria que saber en que posicion o byte acabo el exe y en que posicion escribi los datos no??? eso es lo que no he podido hacer o tal vez sera que tengo que ponerle un marcador para saber en donde empiezan los datos que me interesan????
salu2

algo como open app.path app.exe name &".exe" for binary access read as #1 
y luego... como podeis posionarle en el ultimo byte ... y como saber cuando es el ultimo byte y luego como saber desde donde vas a empezar e leer???


saludos!!!

eso de comprar un troyano es una estafa mejor date el gusto de hacer uno!!!  pienso que quieres ir rapido si dices que llevas año y pico  la cosa no es asi...  aprender  a programar es como cuando aprendiste a hablar primero balbuceabas ahora hablas!!!!!  yo no estudie computacion y  solo llegue a la secundaria  y por mis propios medio estuve dandole a visual y sigo en el camino............. Shiales!!!!!!!!!


saludos

si lo que quieres es abrir directamente  el documento de word entonces seri asi.:


Shell "C:\Archivos de programa\Microsoft Office\Office10\winword.exe c:\documento.doc",vbnormalfocus

'o maximizedfocus etc etc

donde pones la ruta del programa que va abrir el documento en ese caso word y luego la ruta del documento

o.k muchisimas gracias  a todos por ahora si se pudo eso de guardar los datos... el celaya tenia razon ahora lo abro en modo de read/write y yapuedo escribir aunque aun no logro filtrar los resultados eso no he logrado entender y lograr que funcione gracias
saludosss!!!!!!!!!

bueno el caso que despues de todo me muestra este maldito mensaje  segun ya realize todo  lo delas conexiones pero no entiendo por que... segun dice es cuando intento guardar un dato en la base me dice  "Acceso Denegado"
lo ago asi adoclientes.recordset.save

me acabo de dar cuenta que no tiene que ver eso es algo de la conexion.... o del la base de datos!!!! saludos

muchas gracias pero no logro que funcione



en los ejemplos que me pusieron no he logrado entender que es un rocordset
en el codigo este segun se declara rsclientes como un recordset
y luego que se su pone que es el rspaises un ado data control???? o devera ser la variable  rsclientes??
y eso de order  by pais? (ordenar por pais? y lo de DBconex
lo de adopenstatic y lo de adlockoptimistic

Dim RsClientes As New Recordset
RsPaises.Open "Select * From Clientes Where Clave='"& Text1.Text &"' Order By Pais", DBConex, adOpenStatic, adLockOptimistic

por cierto ya probe el codigo segun com mi base pero no hago que funciones
mmm aparte de enlazar la base de datos hay que hacer algo mas???




este es mi proyecto
http://mx.geocities.com/kaiserkalamar/sistemch.zip


o el codigo de la form.:

Código [Seleccionar] Expandir



VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form frmCrear
   Caption         =   "Form2"
   ClientHeight    =   10485
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   13860
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   10485
   ScaleWidth      =   13860
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame1
      Caption         =   "Facturacion"
      Height          =   9135
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   12135
      Begin MSAdodcLib.Adodc AdoClientes
         Height          =   330
         Left            =   240
         Top             =   3000
         Width           =   4680
         _ExtentX        =   8255
         _ExtentY        =   582
         ConnectMode     =   0
         CursorLocation  =   3
         IsolationLevel  =   -1
         ConnectionTimeout=   15
         CommandTimeout  =   30
         CursorType      =   3
         LockType        =   3
         CommandType     =   8
         CursorOptions   =   0
         CacheSize       =   50
         MaxRecords      =   0
         BOFAction       =   0
         EOFAction       =   0
         ConnectStringType=   1
         Appearance      =   1
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         Orientation     =   0
         Enabled         =   -1
         Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Z:\sistemch\datos\Syst.mdb;Persist Security Info=False"
         OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Z:\sistemch\datos\Syst.mdb;Persist Security Info=False"
         OLEDBFile       =   ""
         DataSourceName  =   ""
         OtherAttributes =   ""
         UserName        =   ""
         Password        =   ""
         RecordSource    =   "select*from clientes where clave"
         Caption         =   "Adodc1"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         _Version        =   393216
      End
      Begin VB.TextBox tXTcPOSTAL
         DataField       =   "codigopostal"
         DataSource      =   "AdoCLIENTES"
         Height          =   285
         Left            =   2280
         TabIndex        =   38
         Text            =   "Text1"
         Top             =   2160
         Width           =   3015
      End
      Begin MSDataGridLib.DataGrid DATACONCEPTOS
         Height          =   3735
         Left            =   480
         TabIndex        =   37
         Top             =   4800
         Width           =   9495
         _ExtentX        =   16748
         _ExtentY        =   6588
         _Version        =   393216
         AllowUpdate     =   -1  'True
         HeadLines       =   1
         RowHeight       =   15
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Caption         =   "C o n c e p t o s "
         ColumnCount     =   2
         BeginProperty Column00
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2058
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2058
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0
            BeginProperty Column00
            EndProperty
            BeginProperty Column01
            EndProperty
         EndProperty
      End
      Begin VB.Frame FroPciones
         Caption         =   "Cambiar Fecha.:"
         Height          =   4815
         Left            =   5520
         TabIndex        =   32
         Top             =   120
         Width           =   6495
         Begin VB.CommandButton Command3
            Caption         =   "&Cancelar"
            Height          =   495
            Left            =   4560
            TabIndex        =   35
            Top             =   1560
            Width           =   1695
         End
         Begin VB.CommandButton Command2
            Caption         =   "&Aceptar"
            Height          =   495
            Left            =   4560
            TabIndex        =   34
            Top             =   840
            Width           =   1695
         End
         Begin VB.TextBox TXTNfecha
            BeginProperty DataFormat
               Type            =   1
               Format          =   "dd/MM/yyyy"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2058
               SubFormatType   =   3
            EndProperty
            Height          =   495
            Left            =   1920
            TabIndex        =   33
            Top             =   720
            Width           =   2535
         End
         Begin VB.Label Label15
            Caption         =   "Nueva Fecha.:"
            Height          =   375
            Left            =   600
            TabIndex        =   36
            Top             =   840
            Width           =   1095
         End
      End
      Begin VB.Frame Frame3
         Height          =   2175
         Left            =   8040
         TabIndex        =   24
         Top             =   240
         Width           =   3855
         Begin VB.TextBox TXTHora
            Height          =   375
            Left            =   1920
            TabIndex        =   30
            Text            =   "Text6"
            Top             =   1080
            Width           =   1455
         End
         Begin VB.CommandButton Command1
            Caption         =   "Cambiar Fecha"
            Height          =   375
            Left            =   2160
            TabIndex        =   29
            ToolTipText     =   "Puede Cambiar el numero de Folio o la fecha del sistema!!"
            Top             =   1560
            Width           =   1455
         End
         Begin VB.TextBox TXTFEcha
            Height          =   285
            Left            =   1920
            TabIndex        =   27
            Text            =   "Text7"
            Top             =   720
            Width           =   1455
         End
         Begin VB.TextBox TXTFolio
            Height          =   375
            Left            =   1920
            TabIndex        =   25
            Text            =   "Text6"
            Top             =   240
            Width           =   1455
         End
         Begin VB.Label Label14
            Caption         =   "Hora.:"
            Height          =   255
            Left            =   1320
            TabIndex        =   31
            Top             =   1200
            Width           =   495
         End
         Begin VB.Label Label13
            Caption         =   "Fecha.:"
            Height          =   375
            Left            =   1320
            TabIndex        =   28
            Top             =   720
            Width           =   615
         End
         Begin VB.Label Label12
            Caption         =   "Folio Factura"
            Height          =   375
            Left            =   840
            TabIndex        =   26
            Top             =   240
            Width           =   1095
         End
      End
      Begin VB.Frame Frame2
         Caption         =   "Detalle a Facturar"
         Height          =   6015
         Left            =   0
         TabIndex        =   11
         Top             =   3480
         Width           =   11655
         Begin VB.CommandButton Command4
            Caption         =   "&Agregar"
            Height          =   375
            Left            =   9960
            TabIndex        =   20
            Top             =   600
            Width           =   975
         End
         Begin VB.TextBox TxtSUBtotal
            BeginProperty DataFormat
               Type            =   1
               Format          =   """$""#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2058
               SubFormatType   =   2
            EndProperty
            Height          =   285
            Left            =   8520
            TabIndex        =   21
            Top             =   600
            Width           =   1215
         End
         Begin VB.TextBox TxtPrecio
            BeginProperty DataFormat
               Type            =   1
               Format          =   """$""#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2058
               SubFormatType   =   2
            EndProperty
            Height          =   285
            Left            =   7320
            TabIndex        =   19
            Top             =   600
            Width           =   975
         End
         Begin VB.TextBox TxtDescripcion
            Height          =   285
            Left            =   2520
            TabIndex        =   14
            Top             =   600
            Width           =   4455
         End
         Begin VB.TextBox TXTUnidad
            Height          =   285
            Left            =   1320
            TabIndex        =   13
            Top             =   600
            Width           =   975
         End
         Begin VB.TextBox TxtCantidad
            BeginProperty DataFormat
               Type            =   1
               Format          =   "#,##0.00;(#,##0.00)"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2058
               SubFormatType   =   1
            EndProperty
            Height          =   285
            Left            =   360
            TabIndex        =   12
            Top             =   600
            Width           =   855
         End
         Begin VB.Line Line1
            X1              =   240
            X2              =   11400
            Y1              =   1080
            Y2              =   1080
         End
         Begin VB.Label Label11
            Caption         =   "Total"
            Height          =   255
            Left            =   8640
            TabIndex        =   23
            Top             =   240
            Width           =   975
         End
         Begin VB.Label Label10
            Caption         =   "Precio"
            Height          =   255
            Left            =   7560
            TabIndex        =   22
            Top             =   240
            Width           =   495
         End
         Begin VB.Label Label9
            Caption         =   "Descripcion"
            Height          =   255
            Left            =   2640
            TabIndex        =   18
            Top             =   240
            Width           =   4575
         End
         Begin VB.Label Label7
            Caption         =   "Unidad"
            Height          =   255
            Left            =   1440
            TabIndex        =   16
            Top             =   240
            Width           =   615
         End
         Begin VB.Label Label6
            Caption         =   "Cantidad"
            Height          =   255
            Left            =   360
            TabIndex        =   15
            Top             =   240
            Width           =   855
         End
      End
      Begin VB.TextBox TXTRFC
         DataField       =   "RFC"
         DataSource      =   "AdoCLIENTES"
         Height          =   285
         Left            =   2280
         TabIndex        =   9
         Text            =   "Text3"
         Top             =   2520
         Width           =   3375
      End
      Begin VB.TextBox TXTCUidadEDO
         DataField       =   "direccion2"
         DataSource      =   "AdoCLIENTES"
         Height          =   285
         Left            =   2280
         TabIndex        =   7
         Text            =   "Text2"
         Top             =   1800
         Width           =   5175
      End
      Begin VB.TextBox TXTDireccion
         DataField       =   "direccion"
         DataSource      =   "AdoCLIENTES"
         Height          =   285
         Left            =   2280
         TabIndex        =   5
         Text            =   "Text1"
         Top             =   1440
         Width           =   5175
      End
      Begin VB.TextBox TXTNCLiente
         DataField       =   "nombre"
         DataSource      =   "AdoCLIENTES"
         Height          =   285
         Left            =   2280
         TabIndex        =   3
         Text            =   "Text1"
         Top             =   1080
         Width           =   5175
      End
      Begin VB.TextBox TxtCliente
         DataField       =   "clave"
         DataSource      =   "AdoCLIENTES"
         Height          =   285
         Left            =   1560
         TabIndex        =   1
         Text            =   "Text1"
         Top             =   600
         Width           =   1335
      End
      Begin MSDataListLib.DataList DataList1
         DataField       =   "clave"
         DataSource      =   "Adodc1"
         Height          =   450
         Left            =   3360
         TabIndex        =   40
         Top             =   360
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   794
         _Version        =   393216
         MatchEntry      =   -1  'True
      End
      Begin VB.Label Label16
         Caption         =   "Codigo Postal"
         Height          =   255
         Left            =   480
         TabIndex        =   39
         Top             =   2160
         Width           =   1575
      End
      Begin VB.Label Label5
         Caption         =   "RFC.:"
         Height          =   255
         Left            =   840
         TabIndex        =   10
         Top             =   2520
         Width           =   1215
      End
      Begin VB.Label Label4
         Caption         =   "Cuidad Y Estado"
         Height          =   255
         Left            =   720
         TabIndex        =   8
         Top             =   1800
         Width           =   1215
      End
      Begin VB.Label Label3
         Caption         =   "Direccion"
         Height          =   255
         Left            =   720
         TabIndex        =   6
         Top             =   1440
         Width           =   1335
      End
      Begin VB.Label Label2
         Caption         =   "Nombre del cliente"
         Height          =   375
         Left            =   720
         TabIndex        =   4
         Top             =   1080
         Width           =   1455
      End
      Begin VB.Label Label1
         Caption         =   "Clave Cliente"
         Height          =   255
         Left            =   240
         TabIndex        =   2
         Top             =   600
         Width           =   1095
      End
   End
   Begin VB.Label Label8
      Caption         =   "Label8"
      Height          =   495
      Left            =   4080
      TabIndex        =   17
      Top             =   4080
      Width           =   1215
   End
End
Attribute VB_Name = "frmCrear"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'TIENDA19 ACUERDA ELIEL DE STN BNC

Private Sub Command1_Click()
FroPciones.Visible = True
End Sub

Private Sub Command3_Click()
FroPciones.Visible = False
End Sub

Private Sub Command4_Click()


MsgBox "se ha agregado la entrada", vbCritical, "----"

End Sub

Private Sub Form_Load()
TXTFEcha = Date
TXTHora = Time
FroPciones.Visible = False
End Sub

Private Sub TxtCantidad_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Else
End If

End Sub

Private Sub TxtCliente_Change()
'On Error GoTo error
Dim STRQUERY As String
Dim RsClientes As New Recordset
Dim AdoClien As New Recordset
'If KeyAscii = 13 Then
' aki debe buscar en la base si existe el cliente si no entonces?? inche kalamar
'STRQUERY = "SELECT * FROM CLIENTES WHERE clave=" & TxtCliente.Text
'RsClientes.Open "Select * From Clientes Where Clave='" & TxtCliente.Text, DBConex, adOpenStatic, adLockOptimistic
'RsClientes.Open "Select * From Clientes Where Clave='" & TxtCliente.Text & "' Order By clave", DBConex, adOpenStatic, adLockOptimistic



'With AdoCLIENTES
'.RecordSource = STRQUERY
'.Refresh
'End With
'Else
'End If
Exit Sub
error:
MsgBox Err.Description

End Sub

Private Sub TxtDescripcion_KeyPress(KeyAscii As Integer)
On Error GoTo error

If KeyAscii = 13 Then

SendKeys "{tab}"
Else
End If
Exit Sub
error:
End Sub

Private Sub TxtPrecio_KeyPress(KeyAscii As Integer)
On Error GoTo error
If KeyAscii = 13 Then
TxtSUBtotal.Text = TxtCantidad * TxtPrecio.Text
SendKeys "{tab}"
Else
End If
Exit Sub
error:
If TxtCantidad = "" Then
MsgBox "introduzca La Cantidad", vbExclamation, "Faltan llenar Campos [SysFact]"

TxtCantidad.SetFocus
Else
    If TxtPrecio.Text = "" Then
       MsgBox "El Campo precio esta vacio", vbExclamation, "Faltan llenar Campos [SysFact]"
       TxtPrecio.SetFocus
       
       
    Else
    MsgBox Err.Description, vbCritical, "Error no definido"
   
    End If

End If



End Sub


Private Sub TXTUnidad_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Else
End If

End Sub




HOLA BUENAS LAS TENGAN (SEAN DIAS O NOCHES)


BUENO HE AKI PRACTICANDO UN POCO SE ME OCURRIO TRATAR DE EMPEZAR CON BASE DE DATOS
ENTONCES SEGUN ENLACE MI BASE DE DATOS

CON TODOS MIS CONTROLES PERO NO LOGRO HACER UNA CONSULTA SEGUN HE TRATADO CON ESTO
'ESTO VA EN EL KEYPRESS DEL TXTCLIENTE.TEXT

TXTCLIENTE_KEYPRESS(KEYASCII AS INTEGER)

IF KEYASCII=13 THEN ' SI LA TECLA PRESIONADA ES IGUAL A= 13(ENTER )ENTONCES

SELECT*FROM CLIENTES  WHERE CLAVE=&TXTCLIENTE.TEXT

WITH ADOCLIENTES
.RECORDSOURCE
.CLEAR
WND WITH

ELSE
END IF



PERO NO REALIZA LA CONSULTA SEGUN YO QUIERO QUE CUANDO EL CLIENTE PONGA X NUMERO EN EL TXTCLIENTE.TEXT Y DE ENTER REALIZE LA BUSQUEDA EN BASE A LA CLABE

TODOS MODOS LES PONGO EL LINK DEL PROYECTO COMPLETO ESPERO ME PUEDAN AYUDAR
http://mx.geocities.com/kaiserkalamar/sistemch.zip


GRACIAS, SALU2

perdon que me quede ausente por unos dias por el trabajo... pero he tenido un tiempo y pos yo esto habia pensado


el el conexion reques del winsock  puse esto
pero antes les xplico
sock1= un winsock
txtconectados= un listbox
ccliente= un combox
text2.= otra caja de texto
conexiones= una variable tipo integer (entera)
he aki el codigo (aki todo bien)
cuando algun cliente se conecta se le añade a  el listbox txtconectados  se le añade la ip remota y el puerto local y el numero de index que le toco
y luego al combox ccliente se le añade el index del winsock con el que se ha conectado osea que si ya habia ocupado el 1 seguia entonces el 2 etc etc etc
a el text2.text tambien se le pone el numero de la variable conexiones (para que veamos cuantos clientes se han conectado y para que el timer tome su valor y  cheque el estado) luego se abre otro sock y se pone a la escucga de aki
todo bien

Código [Seleccionar] Expandir


Private Sub sock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Sock1(Index).Close
Sock1(Index).Accept requestID
TxtConectados.AddItem Sock1(Index).RemoteHostIP & ":" & Sock1(Index).LocalPort & ":" & Conexiones
CCliente.AddItem Conexiones
Text2.Text = Conexiones
Conexiones = Conexiones + 1
'creamos otro socket para escuchar
Load Sock1(Conexiones)
Sock1(Conexiones).LocalPort = TxtPuerto.Text
Sock1(Conexiones).Listen
end sub

luego..... entonces utilizo un timer para comprobar el estado de cada uno de los index del sock  con el text2 este toma el valor de cada vez que se conecta el el sock conexion request
ahi esta.:

Código [Seleccionar] Expandir

timer1_timer()
on error goto error

if text2.text=0 then
      if sock1(0).state=7 then
     
      else
      txtconectado.removeitem 0
      end if
else

      if sock1(text2.text).state=7 then
         else
          txtconectados.removeitem text2.text
         end if
end ifpero el caso el que  aunque esta conectado quita todos los que estan en el listado de el txtconectados(listbox) por que no se si obtiene otro index o????  ahi el problema espero que hayan entendido el code


exit sub
error:

end sub