Mensajes

Código [Seleccionar] Expandir

Private Sub Command1_Click()
SendKeys "{space}"
End Sub

Solo eso tienes?

no se si funcionara asi suelto yo se que es así:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Set WSS = CreateObject("WScript.Shell")
WSS.SendKeys "Teclas"
WSS.SendKeys "Mas Teclas"
End Sub


y si lo quieres hacer sobre una aplicación:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Set WSS = createobject("wscript.shell")
Set Variable = WSS.exec("Notepad.exe")   ' O Cualquier otra aplicación.
WSS.AppActivate Variable.ProcessID
WSS.SendKeys "Bla Bla Bla"
WSSvar.SendKeys "{ENTER}"
End Sub


Es eso lo que buscas?









SALUD.O.S

bueno, me acabo de comprar un dispositivo de TV analogica USB y agarro los canales y todo pero no se escucha  haga lo que haga no se escucha. Alguien sabe que pueda ser?

Plis necesito ayuda pague 260 pesos por esto.




Gracias de antemano.

text1.text = text1.text +  vbnewline + texto

Text1.Text = Text1.Text + "Texto" + vbNewLine

asi.

Muchas gracias

Si, el multiline esta a "True" y tambien tiene el "text1.text = text1.text + "texto"
pero se agrega al lado, como hago para agregarlo abajo?

aaah tenias razon che xDD

Pero hay un problema.. al decir que el texto que hay en la caja es igual a "x" se reemplazara cada vez que selecciono una opcion distinta. 

PD: Se que pasa eso, lo acabo de comprobar y aparte es logico.

No, no entiendo. como bien lei por ahi, hay varias formas de hacerlo y creo que tengo una.

Se que estoy a un paso de sacarlo:

Código [Seleccionar] Expandir

Private Sub Command2_Click()
Command2.Caption = "OK"
Combo1.Locked = False
Select Case Combo1.ListIndex
       Case Is = 0
           Text1.Text = Combo1.ItemData(0)
           
       Case Is = 1
           Text1.Text = Combo1.ItemData(1)
           
       Case Is = 2
           Text1.Text = Combo1.ItemData(2)
           
       Case Is = 3
           Text1.Text = Combo1.ItemData(3)
           
   End Select
   
  Combo1.Locked = False
End Sub

Private Sub Form_Load()
Combo1.AddItem "Bloq. Adm Tareas", 0
Combo1.AddItem "Shutdown Pc", 1
Combo1.AddItem "Firewall Kill", 2
Combo1.AddItem "Bloq.Cmd", 3
   Combo1.ItemData(0) = ASDASDA
   Combo1.ItemData(1) = DFRSDDSD
   Combo1.ItemData(2) = BLABALBAL
   Combo1.ItemData(3) = ERTTYUTUY
End Sub


Sera algo asi??  

Disculpen el doble post...

Debo cargar el ItemData pero como lo hago codeando?

Ya tengo los additem todos cargados, ahora, como hago para cargarlo es decir

Combo1.ItemData  y como hago ahora para decirle que el Listindex 1 es igual a "codigo en vbs que se mostrara en el textbox"; ListIndex 2 es igual a..... eso.

Creo que despues para mostralo seria asi:

Código [Seleccionar] Expandir

Select Case Combo1.ListIndex
       Case Is = 0
           Text1.Text = Combo1.ItemData(CInt(Combo1.ListIndex))

Me muestra el numero de posicion en el Combo1, en este caso "0" pero lo bueno es que se escribe en el textbox, ya voy avanzando un poco mas..

Ahora, necesito saber como cargar el item data para que me muestr el contenido que le carge y no la posición. Se entiende?

claaro algo asi pero no que muestre el abecedario, me confundo xD miren asi tengo:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Combo1.AddItem "Bloq. Adm Tareas"
Combo1.AddItem "Shutdown Pc"
Combo1.AddItem "Firewall Kill"
Combo1.AddItem "Bloq.Cmd"
With Text1
.FontSize = 8
.BackColor = vbBlack
.FontBold = True
.ForeColor = vbGreen
.Text = "Bienvenido al Worm Kreator 1.0   By:  Bakura182"
End With
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 1 Then
          Text1.SelStart = 0
          Text1.SelLength = Len(Text1.Text)
   End If
End Sub

Private Sub Command2_Click()
Command2.Caption = "OK"
Combo1.Locked = False
Select Case Combo1.ListIndex
       Case Is = 0
           MsgBox " BLABLA 1 "
       Case Is = 1
           MsgBox " BLABLA 2"
       Case Is = 2
           MsgBox " BLABLABLA 3"
       Case Is = 3
           MsgBox " BLABLABLA 4"
   End Select
End Sub
Private Sub Command1_Click()
On Error GoTo EOF

Dim KWorm As String

KWorm = "C:\K-Worm.vbs"

   Open KWorm For Output As #1
   Print #1, Text1.Text + vbCrLf
   Close
MsgBox "Generado Exitosamente en C:\"
EOF:
End Sub



No si me entienden... elijo Bloq. Adm tareas y quiero que salga lo que yo le carge a la opcion "Bloq adm Tareas" que sera un code en VBS sobre el TextBox.

ahora.. como hago para cargarle esa info a los Items y que se muestre al presionar ok.

PD: dice blablabla porque es para ver si fuciona el "OK" todavia lo estoy tratando de arreglar eso. Una Vez entendida la parte que me falta, me queda llenarlo de miles y miles de cods VBS que ya los tengo, pero por ahora lo que falta.

PD2: He leido que se usa el ItemData, puede ser? En ese caso.. como?

Hola solo necesito un ejemplo muy basico con respecto a la utilizacion del "COMBOBOX" Porque necesito cargarle a sus items, o sea

Combo1.AddItem = "ABECEDARIO"

por ejemplo..

Necesito que al seleccionar uno de los items, le doy a un "command" (esa parte ya la tengo) y que este muestre en un TextBox, el contenido que lleve cargado ese item.. algo seria:

Tengo varias opciones, elijo "ABECEDARIO", Le doy al boton "OK" y este deberia mostrar el "abecedario" pero no el nombre sino: ABCDEFG....... en un TextBox y asi..

Supongo que se usa el "DataField" , en ese caso, necesitaria un ejemplo basico.. Lo unio que encontre es bastante avanzado y no me da para eso.

Gracias de antemano.


PD: Cree un tema distinto para evitar el Doble post y debido a que es un tema parecido.. "Lo mesmo no es lo mismo que lo mismo"

SALUD.O.S

Gracias por el porte, seran de bastante ayuda