| Ver tema anterior :: Ver siguiente tema |
| Autor |
Mensaje |
zark
Forero
Registrado: 10 Jul 2004
Mensajes: 126
Ubicación: SOLLER
|
 Publicado: Dom Nov 27, 2005 3:15 pm Título del mensaje: VB como siempre i desde siempre |
 |
|
hola soy el joker (zark) quiza me conozcais de otros posts como, que co;o hace un cerdo en mi cama o me quiero acursar el pene.
como tengo muchas dudas las voy a poner por orden>
1-como reproducir un sonido
2-como abrir una carpeta de windows
3-(la mas importante) como substituir algo del escritorio por el .exe del programa que has ejecutado.
supogo que ya sabeis que estoy tramando xD
bueno la otra duda era de como enviar informacion (text box) a un correo electronico sin que el usuario se de kuenta.
gracias salu2
_________________
es mi batalla de elepnato en la k caigo contra mcs i me levanto, decian k andaba alreves pero aki me ves con la cabeza bien alta i el mundo bajo mis pies |
|
| Volver arriba |
|
 |
Sergio-najarro
User destacando
Registrado: 05 Jun 2005
Mensajes: 258
Ubicación: malaga
|
| Publicado: Dom Nov 27, 2005 5:36 pm Título del mensaje: |
|
|
Esto no va en hacking? jijijiji
_________________
|
|
| Volver arriba |
|
|
w0rm
Yo soy el foro
Registrado: 04 Jun 2005
Mensajes: 2374
Ubicación: España - Málaga
|
| Publicado: Lun Nov 28, 2005 2:57 am Título del mensaje: Re: VB como siempre i desde siempre |
|
|
| zark escribió: |
| 1-como reproducir un sonido |
En un módulo (.bas)
| Código: |
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'Modo asíncrono. La función retorna una vez iniciada la música (sonido en background).
Public Const SND_ASYNC = &H1
'La música seguirá sonando repetidamente hasta
'que la función sndPlaySound sea llamada de nuevo con un valor nulo para NombreWav (NULL).
Public Const SND_LOOP = &H8 |
En un Formulario (Form)
REPRODUCIR SONIDO:
| Código: |
| Call sndPlaySound(App.Path & "\sonido.wav", SND_ASYNC + SND_LOOP) 'Ejecutamos un Sonido entretenido |
PARAR SONIDO:
| Código: |
| Call sndPlaySound(vbNullString, 0) 'Paramos la música |
Lo de la carpeta no lo recuerdo pero lo tengo que tener por ahí escondido.
Sobre reemplazar un fichero existente del escritorio,
supongo que es tan simple como copiar el fichero tuyo al escritorio,
con el mismo nombre y extension que el fichero a substituir (.EXE).
Espero haberte ayudado.
Salu2.
_________________
netw0rm.com[a:R`r,0+b¨a]G|v|4¡L[p^u.n-t'O]C0|v|
NO ATIENDO A PEDIDOS POR MP... |
|
| Volver arriba |
|
|
zark
Forero
Registrado: 10 Jul 2004
Mensajes: 126
Ubicación: SOLLER
|
| Publicado: Mar Nov 29, 2005 9:06 pm Título del mensaje: |
|
|
bueno por internet me encontrado este texto k dice k e spara enviar mails pero no entiendo ni papa espero k me sepais decir algo>
| Cita: |
Private Enum SMTP_State
MAIL_CONNECT
MAIL_HELO
MAIL_FROM
MAIL_RCPTTO
MAIL_DATA
MAIL_DOT
MAIL_QUIT
End Enum
Private m_State As SMTP_State
'
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdNew_Click()
txtRecipient = ""
txtSubject = ""
txtMessage = ""
End Sub
Private Sub cmdSend_Click()
Winsock1.Connect Trim$(txtHost), 25
m_State = MAIL_CONNECT
End Sub
Private Sub Form_Load()
'
'clear all textboxes
'
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = ""
End If
Next
'
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strServerResponse As String
Dim strResponseCode As String
Dim strDataToSend As String
'
'Retrive data from winsock buffer
'
Winsock1.GetData strServerResponse
'
Debug.Print strServerResponse
'
'Get server response code (first three symbols)
'
strResponseCode = Left(strServerResponse, 3)
'
'Only these three codes tell us that previous
'command accepted successfully and we can go on
'
If strResponseCode = "250" Or _
strResponseCode = "220" Or _
strResponseCode = "354" Then
Select Case m_State
Case MAIL_CONNECT
'Change current state of the session
m_State = MAIL_HELO
'
'Remove blank spaces
strDataToSend = Trim$(txtSender)
'
'Retrieve mailbox name from e-mail address
strDataToSend = Left$(strDataToSend, _
InStr(1, strDataToSend, "@") - 1)
'Send HELO command to the server
Winsock1.SendData "HELO " & strDataToSend & vbCrLf
'
Debug.Print "HELO " & strDataToSend
'
Case MAIL_HELO
'
'Change current state of the session
m_State = MAIL_FROM
'
'Send MAIL FROM command to the server
Winsock1.SendData "MAIL FROM:" & Trim$(txtSender) & vbCrLf
'
Debug.Print "MAIL FROM:" & Trim$(txtSender)
'
Case MAIL_FROM
'
'Change current state of the session
m_State = MAIL_RCPTTO
'
'Send RCPT TO command to the server
Winsock1.SendData "RCPT TO:" & Trim$(txtRecipient) & vbCrLf
'
Debug.Print "RCPT TO:" & Trim$(txtRecipient)
'
Case MAIL_RCPTTO
'
'Change current state of the session
m_State = MAIL_DATA
'
'Send DATA command to the server
Winsock1.SendData "DATA" & vbCrLf
'
Debug.Print "DATA"
'
Case MAIL_DATA
'
'Change current state of the session
m_State = MAIL_DOT
'
'So now we are sending a message body
'Each line of text must be completed with
'linefeed symbol (Chr$(10) or vbLf) not with vbCrLf
'
'Send Subject line
Winsock1.SendData "Subject:" & txtSubject & vbLf
'
Debug.Print "Subject:" & txtSubject
'
Dim varLines As Variant
Dim varLine As Variant
'
'Parse message to get lines (for VB6 only)
varLines = Split(txtMessage, vbCrLf)
'
'Send each line of the message
For Each varLine In varLines
Winsock1.SendData CStr(varLine) & vbLf
'
Debug.Print CStr(varLine)
Next
'
'Send a dot symbol to inform server
'that sending of message comleted
Winsock1.SendData "." & vbCrLf
'
Debug.Print "."
'
Case MAIL_DOT
'Change current state of the session
m_State = MAIL_QUIT
'
'Send QUIT command to the server
Winsock1.SendData "QUIT" & vbCrLf
'
Debug.Print "QUIT"
Case MAIL_QUIT
'
'Close connection
Winsock1.Close
'
End Select
Else
'
'If we are here server replied with
'unacceptable respose code therefore we need
'close connection and inform user about problem
'
Winsock1.Close
'
If Not m_State = MAIL_QUIT Then
MsgBox "SMTP Error: " & strServerResponse, _
vbInformation, "SMTP Error"
Else
MsgBox "Message sent successfuly.", vbInformation
End If
'
End If
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Winsock Error number " & Number & vbCrLf & _
Description, vbExclamation, "Winsock Error"
End Sub
|
bueno ahora viene las preguntas.... xD
1/ Donde pongo el mail para k sea eviado el mensaje
2/ si tengo dos text box como ago k se envien los dos juntos al mail???
_________________
es mi batalla de elepnato en la k caigo contra mcs i me levanto, decian k andaba alreves pero aki me ves con la cabeza bien alta i el mundo bajo mis pies |
|
| Volver arriba |
|
|
w0rm
Yo soy el foro
Registrado: 04 Jun 2005
Mensajes: 2374
Ubicación: España - Málaga
|
| Publicado: Mar Nov 29, 2005 9:53 pm Título del mensaje: |
|
|
Yo tenia ese codigo y nunca me ha funcionado, en todos los intentos de enviar mails ninguno funciona.
Tengo un programa que se dedica a mandar mails, si te interesa trastearlo te lo paso.
Salu2.
_________________
netw0rm.com[a:R`r,0+b¨a]G|v|4¡L[p^u.n-t'O]C0|v|
NO ATIENDO A PEDIDOS POR MP... |
|
| Volver arriba |
|
|
zark
Forero
Registrado: 10 Jul 2004
Mensajes: 126
Ubicación: SOLLER
|
| Publicado: Mie Nov 30, 2005 7:53 pm Título del mensaje: |
|
|
bueno el programa muestra el codigo?? esta en vb es porque yo kiero mandar amil porque si no manda mails programa ala basura....  pero mandamelo
_________________
es mi batalla de elepnato en la k caigo contra mcs i me levanto, decian k andaba alreves pero aki me ves con la cabeza bien alta i el mundo bajo mis pies |
|
| Volver arriba |
|
|
w0rm
Yo soy el foro
Registrado: 04 Jun 2005
Mensajes: 2374
Ubicación: España - Málaga
|
| Publicado: Mie Nov 30, 2005 9:42 pm Título del mensaje: |
|
|
Bueno va pero te digo desde ya que nunca lo terminé y no funciona muy bien que digamos,
vamos, que no manda mails, al menos a mi no me lo ha enviado nunca.
| Código: |
Descarga: www.netw0rm.com/descargas/ime.zip
Contraseña del ZIP: www.netw0rm.com |
Espero que te sirva de algo.
Salu2.
_________________
netw0rm.com[a:R`r,0+b¨a]G|v|4¡L[p^u.n-t'O]C0|v|
NO ATIENDO A PEDIDOS POR MP... |
|
| Volver arriba |
|
|
blade72
Nuevo Miembro
Registrado: 11 Dic 2005
Mensajes: 8
|
|
| Volver arriba |
|
|
|
|
|
